たびたび申し訳ないです！
動作確認のテストをいろいろしていたところ、
カードトレードを他のプレイヤーと行おうとすると、
お互いのカードを選択しているにも関わらず
「自分のカードが選択されていません」と出てしまい…

# Sub CardTrade Before #
sub catd_before {
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　@prclines = &get_partner("$Fm{'pd'}");
　　　　&splititem('iI');
　　　　if ($bg !~ /Td/) { push (@msg,'手持ちのトレードできるカードがありません'); return }
　　　　if ($pbg !~ /Td/){ push (@msg,'相手にトレードできるカードがありません'); return }
　　　　$fg='TRB'; &userout;
　　　　push (@msg,"$pnmとトレードするカードにチェックを入れ$def_okボタンを押してください");
　　　　&form('start'); print qq|<tr><td colspan=2>|;
　　　　print qq|$nm<br>|;
　　　　　　　　foreach (0 .. $#items) {
　　　　　　　　($item,$sts,$price) = split(/△/,$items[$_]);
　　　　　　　　　　　　if ($sts =~ /Td/) {
　　　　　　　　　　　　$number = $_;
　　　　　　　　　　　　print qq|<input type=radio name=M value=$number>\n|;
　　　　　　　　　　　　print qq|$item　\n|;
　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　　　　　}
　　　　print qq|<hr>$pnm<br>|;
　　　　foreach (0 .. $#pitems) {
　　　　($item,$sts,$price) = split(/△/,$pitems[$_]);
　　　　　　　　if ($sts =~ /Td/) {
　　　　　　　　$number = $_;
　　　　　　　　print qq|<input type=radio name=Y value=$number>\n|;
　　　　　　　　print qq|$item　\n|;
　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　}
　　　　&OKbuttoninform('on','catd_after');
　　　　print qq|</td></tr>|; &form('end');
　　　　　　　　}

# Sub CardTrade After #
sub catd_after {
　　　　if (!$Fm{'tm'}) { push (@msg,'自分のカードが選択されていません'); return }
　　　　if (!$Fm{'ty'}) { push (@msg,'相手のカードが選択されていません'); return }
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　return if $fg ne 'TRB';
　　　　@prclines = &get_partner("$Fm{'pd'}");
　　　　&splititem('iI');
　　　　($item,$sts,$price) = split(/△/,$items[$Fm{'M'}]);
　　　　($pitem,$psts,$pprice) = split(/△/,$pitems[$Fm{'Y'}]);
　　　　$sts =~ s/Td//g; $psts =~ s/Td//g;
　　　　splice(@items,$Fm{'M'},1,"$pitem△$psts");
　　　　splice(@pitems,$Fm{'Y'},1,"$item△$sts");
　　　　push (@msg,"「$item」と$pnmの「$pitem」を交換しました");
　　　　$woeds .= "[$id]$nmの「$item」と「$pitem」を交換しました。";
　　　　&joinitem('iI');
　　　　$fg = ''; &userout; &add_record($words);
　　　　　　　　}

この辺が原因だとは思うのですが、どこに原因があるのか分からず…悩みに悩んでいる途中ではあるのですが、moonさんのお知恵をお借りできたら幸いです…

▼関連発言
│
└◆1841:カードトレードと、カード画像の実装を目指して… [YOUME] 08/12 15:30
　└◆1842:Re:カードトレードと、カード画像の実装を目指して... [moon] 08/12 21:47
　　└◆1843:Re[2]:カードトレードと、カード画像の実装を目指.. [moon] 08/12 22:03
　　　├◆1844:Re[3]:カードトレードと、カード画像の実装を目.. [YOUME] 08/12 22:36
　　　└◆1845:Re[3]:カードトレードと、カード画像の実装を目.. [YOUME] 08/13 18:45
　　　　└◆1846:Re[4]:カードトレードと、カード画像の実装を.. [moon] 08/13 20:28
　　　　　└◆1847:Re[5]:カードトレードと、カード画像の実装.. [YOUME] 08/14 09:22
　　　　　　└◆1848:Re[6]:カードトレードと、カード画像の実.. [moon] 08/14 12:22
　　　　　　　└◆1849:Re[7]:カードトレードと、カード画像の.. [YOUME] 08/15 09:52
　　　　　　　　└◆1850:Re[8]:カードトレードと、カード画像.. [moon] 08/15 11:19
　　　　　　　　　└◆1851:Re[9]:カードトレードと、カード画.. [YOUME] 08/15 19:58
　　　　　　　　　　└◆1852:Re[10]:カードトレードと、カー... [moon] 08/15 22:19
　　　　　　　　　　　└◆1853:Re[11]:カードトレードと、カ... [YOUME] 08/16 16:08
　　　　　　　　　　　　└◆1855:Re[12]:カードトレードと、... [moon] 08/16 21:42
　　　　　　　　　　　　　└◆1857:Re[13]:カードトレードと... [YOUME] 08/16 21:49
　　　　　　　　　　　　　　└◆1859:Re[14]:カードトレード... [moon] 08/16 22:00<-last