ＮＰＣを3体作ってみたのですが、
どうやらバグを発見いたしました。
ID1000のＮＰＣを操作している時には、
ＮＰＣリストに誰もいないことになっているのです。
ID1001のNPCをいぢっていると、
ID0019のNPCのみになっていて、
ID0019をいぢっていると
ID1001のみがリストに･･･っと。
なってしまっています。
通常キャラを操作中は
ID1000のNPCのみのようです。

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>▼プレイヤーと接触<BR></font><br>\n|;
　　　　&input('radio','mode','find_partner',' checked',"ＮＰＣを探す　　　\n");
　　　　print qq|<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>\n|;
　　　　&OKbuttoninform('n');
　　　　&form('end');
　　　　
　　　　&form('start');
　　　　&input('radio','mode','find_partner',' checked',"他のプレイヤーを探す<BR>\n");
　　　　&input('radio','mode','note_before','',"メール送信\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|;
　　　　&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