> > 「if ($pc > 0)」の条件を満たしていないような感じなので表示する情報を増やして（例えば「push(@msg, "item=$item, sts=$sts, pc=$pc, bag=" . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」）試してみてください。
> > あと、「;」直後に加えて「}」直後にも御願いします。
>
> 以前の書き方だとかなり多くのスクリプトを表示しちゃうので
> マズィかな・・と思ってました・・；
> えっと・・；と｝の直後に追加してみました。
> 表示がこちらで
> >>
省略...
> 多くのスクリプトを表示させるのが
> ダメでしたら削除をお願いします。
> いろいろ追加していて見づらくてすみません・・。
> この表示方法でよかったのでしょうか・・。

> これではどの表示がどの場所に対応しているのかわからないので以前書いていたように「(番号)」などを付けて対応がわかるようにしてください。
これなのですが、push(@msg, "(1) 〜");やpush(@msg, "(2) 〜");のように表示とコード位置の対応が付けられるようにして欲しかったのですが・・・。

ソースコードが載せられたので見てみたのですがlastが余計です。
このlastがあるために破壊したアイテム以降が所持品に戻らなくなっています。

▼関連発言
│
└◆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