▼スレッド
│
└◇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
階層が深くなりすぎてスレッド一覧
返信できなかったので新スレで。
いきなりですが、
問題発生です;;
○メール送信
○プレイヤーに会う
〜リスト〜
○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',"NPCに会う<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');
> 階層が深くなりすぎてスレッド一覧
> 返信できなかったので新スレで。
> いきなりですが、
> 問題発生です;;
> ○メール送信
> ○プレイヤーに会う
> 〜リスト〜
> ○NPC遭遇
> 〜NPCリスト〜
>
> っとなっているのですが、
> リストからキャラを選択して、
> メール送信ORプレイヤーに会うを
> 選択しても選択されている
> NPCリストのキャラが対象となって、
> しまいます・・・。
print qq|\n|;を&OKbuttoninform('n'); &form('end'); &form('start');に書き換えてください。
というか、改造するときに「追加」となっているところを間違って「置換」しただけのような気がします。
あ、えっと・・・。スレッド一覧
決定ボタン一つで、
○メール送信
○プレイヤーに会う
〜リスト〜
○NPC遭遇
〜NPCリスト〜
決定ボタン
っとしたかったのですが(^^;
出来ないでしょうか・・・?
> あ、えっと・・・。スレッド一覧
> 決定ボタン一つで、
>
> ○メール送信
> ○プレイヤーに会う
> 〜リスト〜
> ○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つで行きます・・・。
であ、ありがとうございました。
NPCを3体作ってみたのですが、スレッド一覧
どうやらバグを発見いたしました。
ID1000のNPCを操作している時には、
NPCリストに誰もいないことになっているのです。
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',"NPCを探す \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');
> NPCを3体作ってみたのですが、スレッド一覧
> どうやらバグを発見いたしました。
> ID1000のNPCを操作している時には、
> NPCリストに誰もいないことになっているのです。
> ID1001のNPCをいぢっていると、
> ID0019のNPCのみになっていて、
> ID0019をいぢっていると
> ID1001のみがリストに・・・っと。
> なってしまっています。
> 通常キャラを操作中は
> ID1000のNPCのみのようです。
改造した結果の正常な動作だと思います。
同じ町にいるNPCしか表示されなくなっているようなので。
表示したい場合は「町移動システムを導入していない場合〜」と書いてある方法を試してください。
本当にありがとうございます。スレッド一覧
汗って仕様をバグだと
勘違いしてしまいました・・・(^^;