> 返事が遅れてすみません・・。
> 前回の範囲で細かく追加したところ
> >>
> 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の状態でアイテムがなくなっていることが分かりました。
> 何回も申し訳ありません。

「push(@msg, 'bag=' . scalar(@bag) . ', items=' . scalar(@items) . ', bg=' . $bg);」でもっと細かく御願いします。（どこが原因なのかを特定するのが目的なのですから、極端ですがすべての「;」の直後にあっても良いくらいです。）
また、開始位置も最初のsplititem直前からで試してください。

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