職業をマスター下場合に表示させる方法（ver.1.041）
各レベルアップする部分に下記の赤い部分を追加する。
（battle.cgi,sentou.cgi,monster.cgi,monster1.cgi,monster2.cgi）
if($t5) { $comment .= "器用度が上がった。"; }
if($t6) { $comment .= "敏捷力が上がった。"; }
if($t7) { $comment .= "魅力が上がった。"; }
if($t8) { $comment .= "カルマが上がった。"; }
#ここからマスターしたさいの書込みスタート（この場合はレベル42がマスターレベルになってます。すぐ下の42を変えれば変更可）
if($klv == 42) {
# ファイルロック
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
open(IN,"master.cgi")|| &error('オープンエラー','指定された書込みファイルが開けません。');
@master = <IN>;
close(IN);
$hit=0;@new=();
foreach(@master){
($msid,$mspass,$ms0,$ms1,$ms2,$ms3,$ms4,$ms5,$ms6,$ms7,$ms8,$ms9,$ms10,$ms11,$ms12,$ms13,$ms14,$ms15,$ms16,$ms17,$ms18,$ms19,$ms20,$ms21,$ms22)
= split(/<>/);
if($kid eq "$msid" and $kpass eq "$mspass") {
if($ksyoku == 0){$ms0 = 1;}
if($ksyoku == 1){$ms1 = 1; }
if($ksyoku == 2){$ms2 = 1; }
if($ksyoku == 3){$ms3 = 1; }
if($ksyoku == 4){$ms4 = 1; }
if($ksyoku == 5){$ms5 = 1; }
if($ksyoku == 6){$ms6 = 1; }
if($ksyoku == 7){$ms7 = 1; }
if($ksyoku == 8){$ms8 = 1; }
if($ksyoku == 9){$ms9 = 1; }
if($ksyoku == 10){$ms10 = 1; }
if($ksyoku == 11){$ms11 = 1; }
if($ksyoku == 12){$ms12 = 1; }
if($ksyoku == 13){$ms13 = 1; }
if($ksyoku == 14){$ms14 = 1; }
if($ksyoku == 15){$ms15 = 1; }
if($ksyoku == 16){$ms16 = 1; }
if($ksyoku == 17){$ms17 = 1; }
if($ksyoku == 18){$ms18 = 1; }
if($ksyoku == 19){$ms19 = 1; }
if($ksyoku == 20){$ms20 = 1; }
if($ksyoku == 21){$ms21 = 1; }
if($ksyoku == 22){$ms22 = 1; }
unshift(@new,"$kid<>$kpass<>$ms0<>$ms1<>$ms2<>$ms3<>$ms4<>$ms5<>$ms6<>$ms7<>$ms8<>$ms9<>$ms10<>$ms11<>$ms12<>$ms13<>$ms14<>$ms15<>$ms16<>$ms17<>$ms18<>$ms19<>$ms20<>$ms21<>$ms22<>\n");
$hit=1;
}else{
push(@new,"$_");
}
}
if(!$hit){
if($ksyoku == 0){$ms_0 = 1;}
if($ksyoku == 1){$ms_1 = 1; }
if($ksyoku == 2){$ms_2 = 1; }
if($ksyoku == 3){$ms_3 = 1; }
if($ksyoku == 4){$ms_4 = 1; }
if($ksyoku == 5){$ms_5 = 1; }
if($ksyoku == 6){$ms_6 = 1; }
if($ksyoku == 7){$ms_7 = 1; }
if($ksyoku == 8){$ms_8 = 1; }
if($ksyoku == 9){$ms_9 = 1; }
if($ksyoku == 10){$ms_10 = 1; }
if($ksyoku == 11){$ms_11 = 1; }
if($ksyoku == 12){$ms_12 = 1; }
if($ksyoku == 13){$ms_13 = 1; }
if($ksyoku == 14){$ms_14 = 1; }
if($ksyoku == 15){$ms_15 = 1; }
if($ksyoku == 16){$ms_16 = 1; }
if($ksyoku == 17){$ms_17 = 1; }
if($ksyoku == 18){$ms_18 = 1; }
if($ksyoku == 19){$ms_19 = 1; }
if($ksyoku == 20){$ms_20 = 1; }
if($ksyoku == 21){$ms_21 = 1; }
if($ksyoku == 22){$ms_22 = 1; }
unshift(@new,"$kid<>$kpass<>$ms_0<>$ms_1<>$ms_2<>$ms_3<>$ms_4<>$ms_5<>$ms_6<>$ms_7<>$ms_8<>$ms_9<>$ms_10<>$ms_11<>$ms_12<>$ms_13<>$ms_14<>$ms_15<>$ms_16<>$ms_17<>$ms_18<>$ms_19<>$ms_20<>$ms_21<>$ms_22<>\n");
}
open(IN,">master.cgi");
print IN @new;
close(IN);
# ロック解除
if (-e $lockfile) { unlink($lockfile); }
}
#ここまでで書き込み終了
}
}
防具読み込みのあとにでも下記の赤い部分と青い部分は片方を追加する。（読み込み）
（others.cgi,ffadventure.cgi）
if($wdef){
open(IN,"$def_file");
@battle_def = <IN>;
close(IN);
foreach(@battle_def){
($wd_no,$wd_name,$wd_dmg) = split(/<>/);
if($wdef eq $wd_no) { last; }
}
}else{ $wd_name = "−"; }
open(IN,"master.cgi")|| &error('オープンエラー','指定された書込みファイルが開けません。');
@master = <IN>;
close(IN);
$hit=0;
foreach(@master){
($msid,$mspass,$ms0,$ms1,$ms2,$ms3,$ms4,$ms5,$ms6,$ms7,$ms8,$ms9,$ms10,$ms11,$ms12,$ms13,$ms14,$ms15,$ms16,$ms17,$ms18,$ms19,$ms20,$ms21,$ms22)
= split(/<>/);
#下の青い部分はどちらか片方を対象CGIに書くこと
if($wid eq "$msid" and $wpass eq "$mspass")
{$hit=1; last; #others.cgiの場合
if($kid eq "$msid" and $kpass eq "$mspass") {$hit=1;
last; #ffadventuer.cgiの場合
}
}
if($ms0 == 1){$master0 = "★戦士";}
if($ms1 == 1){$master1 = "★魔法使い";}
if($ms2 == 1){$master2 = "★僧侶";}
if($ms3 == 1){$master3 = "★盗賊";}
if($ms4 == 1){$master4 = "★レンジャー";}
if($ms5 == 1){$master5 = "★錬金術師";}
if($ms6 == 1){$master6 = "★バード";}
if($ms7 == 1){$master7 = "★超能\力者";}
if($ms8 == 1){$master8 = "★ヴァルキリー";}
if($ms9 == 1){$master9 = "★ビショップ";}
if($ms10 == 1){$master10 = "★ロード";}
if($ms11 == 1){$master11 = "★侍";}
if($ms12 == 1){$master12 = "★モンク";}
if($ms13 == 1){$master13 = "★忍者";}
if($ms14 == 1){$master14 = "★暗黒騎士";}
if($ms15 == 1){$master15 = "★魔法剣士";}
if($ms16 == 1){$master16 = "★機工士";}
if($ms17 == 1){$master17 = "★幻獣師";}
if($ms18 == 1){$master18 = "★皇帝";}
if($ms19 == 1){$master19 = "★バトルマスター";}
if($ms20 == 1){$master20 = "★占い師";}
if($ms21 == 1){$master21 = "★ダンサー";}
if($ms22 == 1){$master22 = "★拳王";}
if(!$hit) { $master0 = "";}
if(!$hit) { $master1 = "";}
if(!$hit) { $master2 = "";}
if(!$hit) { $master3 = "";}
if(!$hit) { $master4 = "";}
if(!$hit) { $master5 = "";}
if(!$hit) { $master6 = "";}
if(!$hit) { $master7 = "";}
if(!$hit) { $master8 = "";}
if(!$hit) { $master9 = "";}
if(!$hit) { $master10 = "";}
if(!$hit) { $master11 = "";}
if(!$hit) { $master12 = "";}
if(!$hit) { $master13 = "";}
if(!$hit) { $master14 = "";}
if(!$hit) { $master15 = "";}
if(!$hit) { $master16 = "";}
if(!$hit) { $master17 = "";}
if(!$hit) { $master18 = "";}
if(!$hit) { $master19 = "";}
if(!$hit) { $master20 = "";}
if(!$hit) { $master21 = "";}
if(!$hit) { $master22 = "";}
# ヘッダー表示
&header;
others.cgiへの表示
<td align="center" class="b1">カルマ</td><td><b>$wlp</b></td></tr>
<tr><td class="b1">マスターした職業</td><td
colspan="4" bgcolor="#fffff0"
align="left">$master0$master1$master2$master3$master4$master5$master6$master7$master8$master21$master9$master15$master10$master19$master11$master12$master13$master14$master16$master17$master22$master18$master20</td></tr>
<tr><td colspan=5 align="center">$lname の
<A HREF=\"http\:\/\/$lurl\" TARGET=\"_blank\">$lsite</A>
に勝利！！</td></tr>
ffadventure.cgiへの表示
<tr><td class="b1">魅力</td><td>$kn_6</td><td
class="b1">カルマ</td><td>$klp</td></tr>
<tr><td class="b1">マスターした職業</td><td
colspan="4" bgcolor="#fffff0"
align="left">$master0$master1$master2$master3$master4$master5$master6$master7$master8$master21$master9$master15$master10$master19$master11$master12$master13$master14$master16$master17$master22$master18$master20</td></tr>
<tr><td class="b1">技発動時コメント</td><td
colspan="4" align="center" bgcolor="#fffff0"><input
type="text" name=waza value="$kwaza"
size=50></td></tr>
最後に空のmaster.cgiを作り一緒にサーバーに転送する。(パーミッションは６６６)
これで表示されるはずです。
無駄な部分がいっぱいあるかもしれませんが頑張って改造しましょう