> > オリジナルの処理で現象が起こるということでしたらNo.1703に書いた
> > > おそらくif文の条件か場所が原因で「push(@bag,$newitem);」が実行されていないのだと思います。
> > の可能性が高くなりますので周辺箇所に「push(@msg,〜)」とif文の前に「push(@msg, "pc=$pc");」を追加して現象を再現させてみて、どこまで処理されているのかと$pcの値がどうなっているのかを確認したほうが良いと思います。
>
> ありがとうございます。
> if ($pc > 0) {
> 〜
> の部分の前に記述してみると
> 戦闘メッセージの後に
> pc=0047
>
> pc=0300
>
> pc=0200
>
> pc=0050
>
> pc=0300
>
> pc=0050
>
> pc=0030
>
> と表示されるのですが、記述する場所を間違えたでしょうか・・・。

場所はそこで合っています。
7回表示されたようなので7個のアイテムが残っていると考えられるのですがすべて消失したのですよね？
そうすると、このifブロックは問題無いと考えられますのでこの後の処理（サブルーチンの中も含む）で「@items=〜」や「$bg=〜」を行っている箇所がありましたらその周辺が怪しいです。

▼関連発言
│
└◆1702:アイテム消失 [rien] 05/04 01:21
　├◆1703:Re:アイテム消失 [moon] 05/04 22:29
　│└◆1704:Re[2]:アイテム消失 [rien] 05/04 23:32
　│　└◆1705:Re[3]:アイテム消失 [moon] 05/05 00:07
　│　　└◆1706:Re[4]:アイテム消失 [rien] 05/05 00:40
　│　　　└◆1707:Re[5]:アイテム消失 [moon] 05/05 00:52
　│　　　　└◆1708:Re[6]:アイテム消失 [rien] 05/05 08:33
　│　　　　　└◆1709:Re[7]:アイテム消失 [moon] 05/05 14:22
　│　　　　　　└◆1710:Re[8]:アイテム消失 [rien] 05/05 18:02
　│　　　　　　　└◆1711:Re[9]:アイテム消失 [moon] 05/05 19:09
　│　　　　　　　　└◆1712:Re[10]:アイテム消失 [rien] 05/05 22:04
　│　　　　　　　　　└◆1713:Re[11]:アイテム消失 [moon] 05/05 22:53
　│　　　　　　　　　　└◆1714:Re[12]:アイテム消失 [rien] 05/05 23:21
　│　　　　　　　　　　　└◆1715:Re[13]:アイテム消失 [moon] 05/05 23:43
　│　　　　　　　　　　　　└◆1716:Re[14]:アイテム消失 [rien] 05/06 00:04
　└◆1717:Re[15]:アイテム消失 [moon] 05/06 00:27
　　└◆1718:Re[16]:アイテム消失 [rien] 05/06 01:06
　　　└◆1719:Re[17]:アイテム消失 [moon] 05/06 01:14
　　　　└◆1720:Re[18]:アイテム消失 [rien] 05/06 01:41
　　　　　└◆1721:Re[19]:アイテム消失 [moon] 05/06 15:08
　　　　　　└◆1722:Re[20]:アイテム消失 [rien] 05/06 15:54
　　　　　　　└◆1723:Re[21]:アイテム消失 [moon] 05/06 16:18
　　　　　　　　└◆1724:Re[22]:アイテム消失 [rien] 05/07 10:22
　　　　　　　　　└◆1725:Re[23]:アイテム消失 [moon] 05/07 22:58
　　　　　　　　　　└◆1726:Re[24]:アイテム消失 [rien] 05/07 23:20
　　　　　　　　　　　└◆1727:Re[25]:アイテム消失 [moon] 05/07 23:53
　　　　　　　　　　　　└◆1728:Re[26]:アイテム消失 [rien] 05/08 00:58
　　　　　　　　　　　　　└◆1729:Re[27]:アイテム消失 [moon] 05/08 08:15
　　　　　　　　　　　　　　└◆1730:Re[28]:アイテム消失 [rien] 05/08 10:56<-last