▼スレッド
│
└◇609:Re[8]:あの･･･ [戒] 05/24 14:54
└◇610:Re[9]:あの･･･ [moon] 05/24 17:23
└◇611:Re[10]:あの･･･ [戒] 05/24 18:07
└◇612:Re[11]:あの･･･ [moon] 05/24 18:44
└◇613:Re[12]:あの･･･ [戒] 05/24 19:09
└◇614:Re[13]:あの･･･ [moon] 05/24 19:19
└◇615:Re[14]:あの･･･ [戒] 05/24 19:29<-last
# 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|</select> ID：|;
&input('text','pd2','',' size=4','');
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<div align=left>\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 ($pjb !~ /△/){
$pichi = "";
$pjob_ = "($pjb)";
}
else{
($pjob_,$pichi) = split(/△/,$pjb);
$pichi = "【$pichi】";
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
print qq|</select>\n|;
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<font color=#DA70D6>▼行動をする</font><br>\n|;
&input('radio','mode','idou','',"街を出る<br>\n") ;
if ($mysp !~ /Pb/) { &input('radio','mode','find_item',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 1); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item2',' checked',"<font color=dimgray>岩山探索</font><br>\n") if ($mytw eq 2); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item3',' checked',"<font color=#20b2aa>博打場探索</font><br>\n") if ($mytw eq 3); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item4',' checked',"<font color=hotpink>街中探索</font><br>\n") if ($mytw eq 4); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item5',' checked',"<font color=#66cdaa>農地探索</font><br>\n") if ($mytw eq 5); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item6',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 6); }
print qq|<font color=#4169E1><br>▼アイテム関係</font><br>\n|;
&input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
&input('radio','mode','dump_before','',"アイテムを捨てる<br>\n");
&input('radio','mode','up_before','',"カード化をする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','down_before','',"ゲインをする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','stell_before','',"ステラツィオの設定<br>\n") if $mysp !~ /Nf/;
print qq|<font color=gray><br>▼設定変更</font><br>\n|;
&input('radio','mode','goods_before','',"商品の設定<br>\n") if $mysp =~ /Tv/ && $mysp !~ /Nf/;
&input('radio','mode','goods_before',' checked',"商品の設定<br>\n") if $mysp =~ /Nf/;
&input('radio','mode','fee_before','',"治療費の設定<br>\n") if $mysp =~ /Ad|Rv/;
&input('radio','mode','judge_before','',"アイテム鑑定<br>\n") if $mysp =~ /Eo/;
&input('radio','mode','name_before','',"銘入り品の名前を変更する<br>\n") if $mybp =~ /Na/;
&input('radio','mode','com_before','',"コメント文の変更<br>\n");
&input('radio','mode','poem_before','',"詩・日誌を書く<br>\n") if $mysp =~ /Wp/ || $mysp =~ /An/;
&input('radio','mode','lv_before','',"レベルアップする<br>\n") if $mysp !~ /Ng/;
if ($mysp !~ /X/) {
&input('radio','mode','reward','','賞金首に金をかける ID：');
&input('text','pd','',' size=4',' 金額：');
&input('text','price','',' size=5','<br>');
}
print qq|<font color=#CC0033><br>▼保存をしてゲーム終了</font><br>\n|;
&input('radio','mode','norm_save','',"町で保存\n");
&input('radio','mode','hide_save','',"人里離れて保存<br>\n");
&input('radio','mode','levy','',"<font color=red>税の徴収をして保存（注意）</font><br>\n") if $mysp =~ /Lv/;
print qq|<br><b>▼データー管理</b><br>\n|;
&input('radio','mode','del_before','',"キャラを削除\n");
&input('radio','mode','back_up','',"バックアップ\n");
&OKbuttoninform('n');
print qq|</td>|;
&form('end');
}
恐らくっというか
八割方ないと思われます･･･(^^:
さすがに文法チェックくらいはしてください。スレッド一覧
> print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
> }
に}が足りないです。
> &input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
に;がありません。
申し訳ないです････。スレッド一覧
一応自分なりに見たのですが（^^;
一つ自分で発見して
直したのですが、どうもおかしくて･･･。
まさか２つあったとは･･･。
変更したらCGI自体は
無事動きました。
プレイヤー総数がNPCの数になってしまっていて、
NPCのリストの中にNPCが表示されていません･･･。
NPCの質屋にはしっかり
Ncっとスキル追加しておいたのですが。。
> プレイヤー総数がNPCの数になってしまっていて、スレッド一覧
これは状況がわかりません。
総数ってトップページに表示されるものですか？
> NPCのリストの中にNPCが表示されていません･･･。
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
に}を追加するときに後ろに追加していませんか？
}は改造紹介で抜けているところなので勘違いしているかもしれませんが、おそらくは前に付けるのが正しいと思います。
プレイヤー総数は、スレッド一覧
CGIのトップに出ているやつですね。
「現在のプレイヤー総数」の上のです。
はい；；
勘違いしていました。
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;}
}
こういう事になるのかと（滝汗）
直してみたところ無事治りました。
> プレイヤー総数は、スレッド一覧
> CGIのトップに出ているやつですね。
> 「現在のプレイヤー総数」の上のです。
sub list_orderを変更した箇所の!~を=~にすればOKのはずです。
無事問題は解決しました♪スレッド一覧
迅速で的確なサポートで、
とても助かりました。
本当にありがとうございます。
また困った時に
来るかもしれませんが、
そのときはまたよろしくお願いします。