階層が深くなりすぎて
返信できなかったので新スレで。

いきなりですが、
問題発生です；；
○メール送信
○プレイヤーに会う
　　〜リスト〜
○NPC遭遇
　　〜NPCリスト〜

っとなっているのですが、
リストからキャラを選択して、
メール送信ORプレイヤーに会うを
選択しても選択されている
NPCリストのキャラが対象となって、
しまいます･･･。

一応URLを。
http://ea.uuhp.com/~is-page/

〜ソース〜
# Sub Normal Action #
sub normal_action {
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　&get_file; &list_in;
　　　　print qq|<tr>|;
　　　　&form('start');
　　　　print qq|<td valign=top>|;
　　　　print qq|<font color=#009AFA><br>▼プレイヤーと接触</font><br>\n|;
　　　　&input('radio','mode','find_partner',' checked',"他のプレイヤーを探す<br>\n");
　　　　&input('radio','mode','note_before','',"メール送信<br>\n");
　　　　print qq|<div align=center><select name=pd>\n|;
　　　　foreach $line (@lstlines) {
　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
　　　　　　　　$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
　　　　　　　　if ($psp =~ /Nc/ ) { next }
　　　　　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $mytw = $ptw ; }
　　　　　　　　else {
　　　　　　　　if ($tw eq $ptw) { $mark2 = "◆"; }
　　　　　　　　else { $mark2 = "◇"; }
　　　　　　　　if ($pav eq 'dead') { $mark = 'style=color:red'; }
　　　　　　　　else { $mark = 'style=color:black'; }
　　　　　　　　print qq|<option value="$pid" $mark>$mark2$pid：$pnm($pjb)\n|; }
　　　　}
　　　　print qq|<div align=left></select> ID：|;
　　　　&input('text','pd2','',' size=4','');
　　　　print qq|</div>\n|;
　　　　
　　　　print qq|\n|;
　　　　&input('radio','mode','find_partner',' checked',"ＮＰＣに会う<br>\n");
　　　　print qq|<div align=center><select name=pd>\n|;
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　foreach $line (@lstlines) {
　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
　　　　　　　　$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
　　　　if ($psp !~ /Nc/ || $tw ne $ptw ) { next }

　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $mytw = $ptw ; }
　　　　else {
　　　　if ($tw eq $ptw) { $mark2 = "◆"; }
　　　　else { $mark2 = "◇"; }
　　　　if ($pav eq 'dead') { $mark = 'style=color:red'; }
　　　　else { $mark = 'style=color:black'; }
　　　　print qq|<option value="$pid" $mark>$mark2$pid：$pnm($pjb)\n|; }
　　　　}

　　　　print qq|</select>\n|;
　　　　print qq|</div></div>\n|;
　　　　&OKbuttoninform('n');
　　　　&form('end');

▼関連発言
│
└◆616:いきなりですが、問題発生です。 [戒] 05/24 20:04
　└◆617:Re:いきなりですが、問題発生です。 [moon] 05/24 21:07
　　└◆618:Re[2]:いきなりですが、問題発生です。 [戒] 05/24 21:37
　　　└◆619:Re[3]:いきなりですが、問題発生です。 [moon] 05/24 23:32
　　　　└◆620:Re[4]:いきなりですが、問題発生です。 [戒] 05/24 23:44
　　　　　└◆621:バグ発見 [戒] 05/25 00:25
　　　　　　└◆622:Re:バグ発見 [moon] 05/25 11:49
　　　　　　　└◆625:Re[2]:バグ発見 [戒] 05/25 13:19<-last