ここは0ちゃんねるスクリプdを使っているんです。。。
冒険

1 ：Dark：2007/09/30(日) 21:47:35 ID:KGEebpSw0
終了冒険に済マークをつけた方がいいとおもいます

2 ：ねら：2007/09/30(日) 21:51:01 ID:7in2pUiI0
改造方法の具体的な内容の記述をお願いします。

3 ：Dark：2007/09/30(日) 21:57:52 ID:KGEebpSw0
つまり、たとえばガンマ石情報の冒険をやって、クリアしたとします。そしたら
ガンバ石情報の冒険書の横に“済”とか“クリア”がでるようにしてほしいです。
http://w3.oroti.com/~zeate/net_sail2/net_sail2/data/a_list.datこのファイルかな？

4 ：ねら!omikuji ◆NERArPSR.2 ：2007/09/30(日) 22:11:36 ID:7in2pUiI0
改造後の作動ではなく改造方法を書いてください。
スクリプトの内容を熟知しているわけではないので、やりようがありません。

5 ：Dark：2007/10/02(火) 17:03:41 ID:e4oJdBAo0
sub ad_dis {
my @adfline = &open_dat("$datadir/$adfiles");
&form_table('up','100%',1);
&reload;
print qq|冒険情報　　|;
&submit_button;
print qq|</td></tr><tr><td align=left>\n|;
foreach (0 .. $#adfline) {
($harea,$hport,$price,$file)
= split(/<>/,$adfline[$_]);
if ($harea =~ /$area/ || $hport =~ /$port/) {
my @quest_check = split(/,/,$end_quest);
foreach (@quest_check) { if ($_ eq $file) { print qq|<font color="red">済</font>|; last } }
$checked = !$first ? ' checked' : '';
$first = 1;
print qq|<input type=radio name=goods value="$_"$checked>$price G<br>|;
}
}
print qq|情報がありません| if !$first;
print qq|<input type=hidden name=mode value="adven">\n|;
print qq|<input type=hidden name=check value="$first">\n|;
&id_ps;
&form_table('down');
}


6 ：Dark：2007/10/02(火) 17:06:15 ID:e4oJdBAo0
多分これでOKです。

7 ：情報提供ID：00774：2007/10/02(火) 19:42:27 ID:4DjEQ3Xw0
>>5
改造を実装しました。


OROTIサーバー