▼スレッド
│
└◇621:バグ発見 [戒] 05/25 00:25

　└◇622:Re:バグ発見 [moon] 05/25 11:49
　　└◇625:Re[2]:バグ発見 [戒] 05/25 13:19<-last

ＮＰＣを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');

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

改造した結果の正常な動作だと思います。
同じ町にいるNPCしか表示されなくなっているようなので。

表示したい場合は「町移動システムを導入していない場合〜」と書いてある方法を試してください。

本当にありがとうございます。
汗って仕様をバグだと
勘違いしてしまいました･･･(^^;