返事が遅れてすみません・・。
前回の範囲で細かく追加したところ
>>
if ($pc > 0) {
$sts = sprintf("%04d%02d%02d",$pc,$iak,$idd) . "$skill";
$newitem = "$item△$sts";$newitem .= "△$price" if $price;
push(@bag,$newitem);

}
　　　　　　　　}
　　　　　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);�@
@items = @bag;&joinitem('i');

$itemchance = 0 if $#items + 1 >= $xi;
　　　　&splititem('I');
　　　　push(@msg, 'items=' . scalar(@items) . ', bg=' . $bg);�A

で、�Aの状態でアイテムがなくなっていることが分かりました。
何回も申し訳ありません。

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