度々失礼します…！

コレクションした種類に応じて、ボーナスアイテムを付与したいと考えて、
Sub File In After内を以下のようにしたのですが
(#コレクションボーナスで囲ってある部分だけ追記した感じです)

# Sub File In After #
sub file_in_after{
@rcdlines = &get_user("$Fm{'id'}");
return if $fg ne 'FIBB';
@collines = &get_coll("$Fm{'id'}");
&splititem('iF');
foreach (0 .. $#items) {
($item,$sts,$price,$imaxs,$iimg,$yoya) = split(/△/,$items[$_]);
$filebag = 1;
if ($Fm{"$_"}) {
my $tmpflg=0;
foreach $tmp (@fitems) {
($tmpitem,$tmpsts) = split(/△/,$tmp);
if ($tmpitem eq $item) {$tmpflg=1;}
}
if (!$tmpflg) {
$fco++;
push (@fitems,"$item△$sts");
push (@msg,"$itemをファイルに入れました。");
$fbg .= "$item△$sts";
$filebag = 0;

#コレクションボーナス
#はじめてコレクションした
if($fco == 1){
&splititem('i');
　　　　push(@items,"はじめてコレクション△00000100010000Hb-NOCOOK-Wi△0△1△N_16x16/2011-12-23_5-014.gif"); &joinitem('i');
　　　　push(@msg,"<IMG src=../wakiyaku/itmimg/N_etc/2011-12-23_1-166.gif>はじめてコレクションしたボーナスとして、<IMG src=../wakiyaku/itmimg/N_16x16/2011-12-23_5-014.gif>はじめてコレクションを手に入れた！");
}
#５種コレクションした
elsif($fco == 13){
&splititem('i');
　　　　push(@items,"５種コレクション△00000100010000Hb-NOCOOK-Wi△0△1△N_16x16/2011-12-23_5-014.gif"); &joinitem('i');
　　　　push(@msg,"<IMG src=../wakiyaku/itmimg/N_etc/2011-12-23_1-166.gif>５種コレクションしたボーナスとして、<IMG src=../wakiyaku/itmimg/sonota/hit.gif>５種コレクションを手に入れた！");
}
#コレクションボーナス

} else { push (@msg,"既に「$item」はファイル内に存在します。") }
}
if ($filebag) { push(@newitems,$items[$_]); }
}
@items = @newitems; &joinitem('iF');
$fg = ''; &userout; &fileout;
}

これだと、文字は出るのですがアイテムが付与されず…
さらに今さっき気づいたのですが、
これだと一度に１０種コレクション登録した場合等々にボーナスがもらえないな…とか…

コレクション数ボーナスを受け取ったか受け取ってないかを判定して、受け取ってなかったら入手させるべきなのかもなのですが…(いろいろややこしそうで…汗)

お知恵を貸して頂けたら幸いです…！

▼関連発言
│
└◆1876:【続】カードコレクションのカテゴリわけとページ切り.. [YOUME] 09/28 07:08
　└◆1877:Re:【続】カードコレクションのカテゴリわけとペー... [moon] 09/28 22:56
　　├◆1878:Re[2]:【続】カードコレクションのカテゴリわけと.. [YOUME] 09/29 12:09
　　│└◆1880:Re[3]:【続】カードコレクションのカテゴリわけ.. [moon] 09/29 20:46
　　│　└◆1882:Re[4]:【続】カードコレクションのカテゴリわ.. [YOUME] 09/30 14:01
　　│　　└◆1884:Re[5]:【続】カードコレクションのカテゴリ.. [moon] 09/30 21:18
　　│　　　└◆1885:Re[6]:【続】カードコレクションのカテゴ.. [YOUME] 10/01 11:53
　　│　　　　└◆1886:Re[7]:【続】カードコレクションのカテ.. [moon] 10/01 19:03
　　│　　　　　└◆1887:Re[8]:【続】カードコレクションのカ.. [YOUME] 10/02 14:59
　　│　　　　　　└◆1888:Re[9]:【続】カードコレクションの.. [moon] 10/03 10:34
　　│　　　　　　　└◆1889:Re[10]:【続】カードコレクショ... [YOUME] 10/03 19:32
　　│　　　　　　　　└◆1890:Re[11]:【続】カードコレクシ... [moon] 10/03 21:24
　　│　　　　　　　　　└◆1891:Re[12]:【続】カードコレク... [YOUME] 10/04 10:32
　　│　　　　　　　　　　└◆1892:Re[13]:【続】カードコレ... [moon] 10/04 14:13
　　│　　　　　　　　　　　└◆1893:Re[14]:【続】カードコ... [moon] 10/04 20:35<-last
　　└◆1879:コレクション数に応じたボーナス [YOUME] 09/29 12:45
　　　└◆1881:Re:コレクション数に応じたボーナス [moon] 09/29 21:17
　　　　└◆1883:Re[2]:コレクション数に応じたボーナス [YOUME] 09/30 14:08