アナハイムでのカスタマイズ×５倍

以下のファイルを修正します。
anaheim.cgi
└sub anaheim_info

anahaim_act.cgi
└sub custmaise

赤文字が追加部分です。

メッセージ部分は適宜変更して下さい。

anaheim.cgi

ルーチン名 sub anaheim_info
行数 344行目近辺
変更前 <option value=\"5\">索敵＋５
</select>
<input type=submit class=btn value=\"カスタマイズ\">
<input type=checkbox name=winchg value=\"1\"><font class=small>優勝戦反映</font></form>\n";

if( $klp < (25 - int(($unit_lv - 40) / 6)) )
変更後 <option value=\"5\">索敵＋５
</select>
<input type=submit class=btn value=\"カスタマイズ\">
<input type=checkbox name=winchg value=\"1\"><font class=small>優勝戦反映</font></form>\n";

#機体を５倍カスタマイズする？
$unit_point5 = int($unit_point*5);
$page_dsp .= "<br><br>「特殊カスタマイズかい？普通の改造の５倍だぜ。世の中便利になったってもんだ。ポイントは<b>$unit_point5</b>必要だな。」<br>\n";
$kaip5 = int(((20 - int(($unit_lv - 40) / 6)) - $klp)/5);
if( ($klp+4) < (20 - int(($unit_lv - 40) / 6)) )
{
$page_dsp .= "「俺だったら、あと$kaip5箇所くらいはカスタマイズできるぜ。」<br>\n";
}
else
{
$page_dsp .= "「まぁ、これ以上いじると壊れるかもしれないが構\わ\ないよなぁ？　な？」<br>\n";
}
$page_dsp .= " <form action=anahaim_act.cgi method=post onSubmit=\"return send_check()\">
<input type=hidden name=id value=\"$kid\">
<input type=hidden name=pass value=\"$kpass\">
<input type=hidden name=mode value=\"custmaise\">
<input type=hidden name=gold value=\"$unit_point\">
<input type=hidden name=back value=\"no\">
<input type=hidden name=motosyoku value=\"$kchara\">
<select name=noryoku class=slc>
<option value=\"no\">選択して下さい
<option value=\"6\">耐久力＋５０
<option value=\"7\">ＥＮ＋５０
<option value=\"8\">装甲＋１０
<option value=\"9\">運動性＋２５
<option value=\"10\">索敵＋２５
</select>
<input type=submit class=btn value=\"特殊カスタマイズ\">
<input type=checkbox name=winchg value=\"1\"><font class=small>優勝戦反映</font>
</form>\n";

if( $klp < (25 - int(($unit_lv - 40) / 6)) )

anahaim_act.cgi

ルーチン名 sub custmaise
行数 133行目近辺
変更前

if($in{'noryoku'} eq 'no') { &error("カスタマイズする項目を選択してください。"); }
#メッセージ設定
#成功
$framsg[0] = "ほい。できたぜ！";
$framsg[1] = "どうだい。すごいだろう？　な？";
$framsg[2] = "この調\整\。最\高\だよなぁ。";
$framsg[3] = "いい感じに仕上がったぜ。";
#失敗
$framsg[4] = "わりぃわりぃ。やっちまった。";
$framsg[5] = "ありゃ。うまくいくはずだったんだが。ま、いいよな？　な？";
$framsg[6] = "部\品\の相\性\が悪かったか・・・。今度、文句いっとくわ。";
$framsg[7] = "まぁ、運がなかったという事で丸く収めようや。";

# ファイルロック
&filelock("$chara_file$in{'id'}\.cgi");
変更後

if($in{'noryoku'} eq 'no') { &error("カスタマイズする項目を選択してください。"); }

#メッセージ設定

if($in{'noryoku'} >= 1 && $in{'noryoku'} <= 5){

#成功
$framsg[0] = "ほい。できたぜ！";
$framsg[1] = "どうだい。すごいだろう？　な？";
$framsg[2] = "この調\整\。最\高\だよなぁ。";
$framsg[3] = "いい感じに仕上がったぜ。";
#失敗
$framsg[4] = "わりぃわりぃ。やっちまった。";
$framsg[5] = "ありゃ。うまくいくはずだったんだが。ま、いいよな？　な？";
$framsg[6] = "部\品\の相\性\が悪かったか・・・。今度、文句いっとくわ。";
$framsg[7] = "まぁ、運がなかったという事で丸く収めようや。";

}
#メッセージ設定
elsif($in{'noryoku'} >= 6 && $in{'noryoku'} <= 10){
#成功
$framsg[0] = "ほら！できたぞ！すごいだろう？";
$framsg[1] = "どうだい！すごいだろう？　な？　なぁ？";
$framsg[2] = "いいだろ！この調\整\。最\高\だよなぁ。";
$framsg[3] = "いい感じに仕上がったぜ。そう思うだろ？";
#失敗
$framsg[4] = "ありゃりゃ？やっちまった。でも、良かったんだよな？　な？";
$framsg[5] = "ん。失敗したか？でも、仕方ないよな？　なぁ？";
$framsg[6] = "部\品\の相\性\が悪かったか・・・。でも、いいんだよな？　な？";
$framsg[7] = "運がなかったという事で勘弁してくれよ。　なぁ？";
}

# ファイルロック
&filelock("$chara_file$in{'id'}\.cgi");
ルーチン名 sub custmaise
行数 163行目近辺
変更前

$date = $kdate;
$msgrnd = int(rand(4));
if($msgrnd == 4){ $msgrnd = 3; }

$kekka="機体カスタマイズが終了しました。";
$koware=1;
$chkcstm = $klp - int($ktokusei[32] / 2);
if( $chkcstm >= 45 ){ $chkcstm = 45; }
if( $klp >= (20 - int(($unit_lv - 40) / 6) - $ktokusei[33] / 2) ){ if( int(rand(60)) < $chkcstm) { $koware = -1; $klp--; $msgrnd += 4; $kekka="機体カスタマイズに失敗しました。"; } }
変更後 $date = $kdate;
$msgrnd = int(rand(4));
if($msgrnd == 4){ $msgrnd = 3; }

if($in{'noryoku'} >= 1 && $in{'noryoku'} <= 5){

$kekka="機体カスタマイズが終了しました。";
$koware=1;
$chkcstm = $klp - int($ktokusei[32] / 2);
if( $chkcstm >= 45 ){ $chkcstm = 45; }
if( $klp >= (20 - int(($unit_lv - 40) / 6) - $ktokusei[33] / 2) ){ if( int(rand(60)) < $chkcstm) { $koware = -1; $klp--; $msgrnd += 4; $kekka="機体カスタマイズに失敗しました。"; } }
ルーチン名 sub custmaise
行数 212行目近辺
変更前

#索敵
if( $in{'noryoku'} == 5)
{
$ksaku += 5 * $koware;
if( $ksaku < 0 ){ $ksaku = 0; }
}
#二重書込みチェック
&wwrite_chk;
変更後 #索敵
if( $in{'noryoku'} == 5)
{
$ksaku += 5 * $koware;
if( $ksaku < 0 ){ $ksaku = 0; }
}

}
elsif($in{'noryoku'} >= 6 && $in{'noryoku'} <= 10){
$kekka="機体特殊カスタマイズが終了しました。";
$koware=1;
$chkcstm = $klp - int($ktokusei[32] / 2);
if( $chkcstm >= 45 ){ $chkcstm = 45; }
if( $klp >= (20 - int(($unit_lv - 40)/ 6) - $ktokusei[33] / 2) ){ if( int(rand(45)) < $chkcstm) { $koware = -1; $klp = $klp - 5; $msgrnd += 4; $kekka="機体カスタマイズに失敗しました。"; } }
#金額判定
if($kgold < $unit_point*5) { &error("ポイントが足りません"); }
#カスタマイズ
$kgold = $kgold - abs($unit_point*5);
$klp =$klp+5;
#耐久力
if( $in{'noryoku'} == 6)
{
$ktai += int((10 * $koware)*5);
$kmaxtai += int((10 * $koware)*5);
if( $ktai < 1 ){ $ktai = 1; }
if( $kmaxtai < 1 ){ $kmaxtai = 1; }
}
#ＥＮ
if( $in{'noryoku'} == 7)
{
$ken += int(10 * $koware*5);
$kmaxen += int(10 * $koware*5);
if( $ken < 1 ){ $ken = 1; }
if( $kmaxen < 1 ){ $kmaxen = 1; }
}
#装甲
if( $in{'noryoku'} == 8)
{
$ksou += int(2 * $koware*5);
if( $ksou < 0 ){ $ksou = 0; }
}
#運動性
if( $in{'noryoku'} == 9)
{
$kun += int(5 * $koware*5);
if( $kun < 0 ){ $kun = 0; }
}
#索敵
if( $in{'noryoku'} == 10)
{
$ksaku += int(5 * $koware*5);
if( $ksaku < 0 ){ $ksaku = 0; }
}
}

#二重書込みチェック
&wwrite_chk;
＜＜BACK