▼スレッド
│
└◇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

> あ、えっと･･･。
> 決定ボタン一つで、
>
> ○メール送信
> ○プレイヤーに会う
> 　　〜リスト〜
> ○NPC遭遇
> 　　〜NPCリスト〜
> 　　　　　　決定ボタン
>
> っとしたかったのですが(^^;
> 出来ないでしょうか･･･？

流れは、
　　NPCリストのほうのmodeをfind_partnerとは違うものにする。（例えばfind_npc）
　　同様にpdを違うものにする。（pd3）
　　メインメニューで$Fm{'mode'} eq 'find_npc'の実行先を$Fm{'mode'} eq 'find_partner'と同じにする。
　　同様にcontact_formも$Fm{'mode'} eq 'find_partner'と同じにする。
　　contact_checkの最初のほうで$Fm{'pd2'} = $Fm{'pd3'} if($Fm{'find_npc'});
のような感じです。
上記の流れが掴めないようであれば素直にコマンドボタン2つでやったほうが良いと思います。

っう･･･。
分からないです（涙
素直にコマンド2つで行きます･･･。
であ、ありがとうございました。

ＮＰＣを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しか表示されなくなっているようなので。

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

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