#!/usr/bin/perl
require 'jcode.pl';
require 'battle.pl';
require 'regist.pl';
require 'ffadventure.ini';

	#現在Redさんは休養中です
	#下記アドレスへの連絡は通じない可能性があります
	#お気づきの点は「rascals_world@hotmail.com」までお願いします

#-----------------------------------------------#
#ダンジョン拡張スクリプト　by　Red		#
#HOME http://red911.starweb.ne.jp/		#
#SUB http://www6.ocn.ne.jp/~red911/		#
#MAIL malmsteen911@yahoo.co.jp			#
#お気づきの点があれば上記連絡先へｗ		#
#サポートは行いません、自己責任でお使い下さい♪	#
#改造は自由ですが、二次配布は禁止とします	#
#使用する場合は、著作表示を消さないで下さい	#
#-----------------------------------------------#
#gun-online.com様のFFADVENTURE(改)フォーマットです。

#----ST画面からのリンク方法----#
#下記の様なフォームを取り付けてください。
#(何度でも行けてしまうのも問題なので$kmori等と絡めると良いですね。＾＾；)
#<form action="./m_battle.cgi" method="post">
#<input type=hidden name=id value=$kid>
#<input type=hidden name=pass value=$kpass>
#<input type=hidden name=mode value=m_1>
#<input type=hidden name=mno value=1>
#<input type=hidden name=kto value=$ktotal>
#<input type=submit value="信の洞窟へ">
#</form>
#戦闘場所名
$dan_name = "真の洞窟";
#連続戦闘数(つまり敵の数)、ここに合わせてモンスターの設定も増減して下さい。
$m_kazu = "200";
#最高ターン数
$m_turn = "90";
#連続レベルアップ　on=1 off=0
$lvup = "1";
#突破記録　使用=1 未使用=0　使用する場合は空のm_battle2.cgiを属性606で作成して下さい。
#記録を見るファイルパスはm_battle.cgi?mode=check
$m_kiroku = "1";
#記録を使う場合のランキング最大表示人数
$rank_suu = "15";
#背景画像(ffadventure.iniで設定したものを使うならこのまま)
$back_ground = "$backgif";
#モンスター名
$m_name[1] = "神様No.1";
$m_name[2] = "神様No.2";
$m_name[3] = "神様No.3";
$m_name[4] = "神様No.4";
$m_name[5] = "神様No.5";
$m_name[6] = "神様No.6";
$m_name[7] = "神様No.7";
$m_name[8] = "神様No.8";
$m_name[9] = "神様No.9";
$m_name[10] = "神様No.10";
$m_name[11] = "神様No.11";
$m_name[12] = "神様No.12";
$m_name[13] = "神様No.13";
$m_name[14] = "神様No.14";
$m_name[15] = "神様No.15";
$m_name[16] = "神様No.16";
$m_name[17] = "神様No.17";
$m_name[18] = "神様No.18";
$m_name[19] = "神様No.19";
$m_name[20] = "神様No.20";
$m_name[21] = "神様No.21";
$m_name[22] = "神様No.22";
$m_name[23] = "神様No.23";
$m_name[24] = "神様No.24";
$m_name[25] = "神様No.25";
$m_name[26] = "神様No.26";
$m_name[27] = "神様No.27";
$m_name[28] = "神様No.28";
$m_name[29] = "神様No.29";
$m_name[30] = "神様No.30";
$m_name[31] = "神様No.31";
$m_name[32] = "神様No.32";
$m_name[33] = "神様No.33";
$m_name[34] = "神様No.34";
$m_name[35] = "神様No.35";
$m_name[36] = "神様No.36";
$m_name[37] = "神様No.37";
$m_name[38] = "神様No.38";
$m_name[39] = "神様No.39";
$m_name[40] = "神様No.40";
$m_name[41] = "神様No.41";
$m_name[42] = "神様No.42";
$m_name[43] = "神様No.43";
$m_name[44] = "神様No.44";
$m_name[45] = "神様No.45";
$m_name[46] = "神様No.46";
$m_name[47] = "神様No.47";
$m_name[48] = "神様No.48";
$m_name[49] = "神様No.49";
$m_name[50] = "神様No.50";
$m_name[51] = "神様No.51";
$m_name[52] = "神様No.52";
$m_name[53] = "神様No.53";
$m_name[54] = "神様No.54";
$m_name[55] = "神様No.55";
$m_name[56] = "神様No.56";
$m_name[57] = "神様No.57";
$m_name[58] = "神様No.58";
$m_name[59] = "神様No.59";
$m_name[60] = "神様No.60";
$m_name[61] = "神様No.61";
$m_name[62] = "神様No.62";
$m_name[63] = "神様No.63";
$m_name[64] = "神様No.64";
$m_name[65] = "神様No.65";
$m_name[66] = "神様No.66";
$m_name[67] = "神様No.67";
$m_name[68] = "神様No.68";
$m_name[69] = "神様No.69";
$m_name[70] = "神様No.70";
$m_name[71] = "神様No.71";
$m_name[72] = "神様No.72";
$m_name[73] = "神様No.73";
$m_name[74] = "神様No.74";
$m_name[75] = "神様No.75";
$m_name[76] = "神様No.76";
$m_name[77] = "神様No.77";
$m_name[78] = "神様No.78";
$m_name[79] = "神様No.79";
$m_name[80] = "神様No.80";
$m_name[81] = "神様No.81";
$m_name[82] = "神様No.82";
$m_name[83] = "神様No.83";
$m_name[84] = "神様No.84";
$m_name[85] = "神様No.85";
$m_name[86] = "神様No.86";
$m_name[87] = "神様No.87";
$m_name[88] = "神様No.88";
$m_name[89] = "神様No.89";
$m_name[90] = "神様No.90";
$m_name[91] = "神様No.91";
$m_name[92] = "神様No.92";
$m_name[93] = "神様No.93";
$m_name[94] = "神様No.94";
$m_name[95] = "神様No.95";
$m_name[96] = "神様No.96";
$m_name[97] = "神様No.97";
$m_name[98] = "神様No.98";
$m_name[99] = "神様No.99";
$m_name[100] = "神様No.100";
#経験値
$m_ex[1] = "560000";
$m_ex[2] = "783900";
$m_ex[3] = "1097400";
$m_ex[4] = "1536300";
$m_ex[5] = "2150800";
$m_ex[6] = "3011100";
$m_ex[7] = "4215500";
$m_ex[8] = "5901600";
$m_ex[9] = "8262200";
$m_ex[10] = "11567000";
$m_ex[11] = "16193800";
$m_ex[12] = "22671300";
$m_ex[13] = "31739800";
$m_ex[14] = "44435700";
$m_ex[15] = "62209900";
$m_ex[16] = "87093800";
$m_ex[17] = "121931300";
$m_ex[18] = "170703800";
$m_ex[19] = "238985300";
$m_ex[20] = "334579400";
$m_ex[21] = "56000000000";
$m_ex[22] = "78390000000";
$m_ex[23] = "109740000000";
$m_ex[24] = "153630000000";
$m_ex[25] = "215080000000";
$m_ex[26] = "301110000000";
$m_ex[27] = "421550000000";
$m_ex[28] = "590160000000";
$m_ex[29] = "826220000000";
$m_ex[30] = "1156700000000";
$m_ex[31] = "1619380000000";
$m_ex[32] = "2267130000000";
$m_ex[33] = "3173980000000";
$m_ex[34] = "4443570000000";
$m_ex[35] = "6220990000000";
$m_ex[36] = "8709380000000";
$m_ex[37] = "12193130000000";
$m_ex[38] = "17070380000000";
$m_ex[39] = "23898530000000";
$m_ex[40] = "33457940000000";
$m_ex[41] = "300000000000000";
$m_ex[42] = "783900000000000";
$m_ex[43] = "1097400000000000";
$m_ex[44] = "1536300000000000";
$m_ex[45] = "2150800000000000";
$m_ex[46] = "3011100000000000";
$m_ex[47] = "4215500000000000";
$m_ex[48] = "5901600000000000";
$m_ex[49] = "8262200000000000";
$m_ex[50] = "1156700000000000";
$m_ex[51] = "1619380000000000";
$m_ex[52] = "2267130000000000";
$m_ex[53] = "3173980000000000";
$m_ex[54] = "4443570000000000";
$m_ex[55] = "6220990000000000";
$m_ex[56] = "8709380000000000";
$m_ex[57] = "12193130000000000";
$m_ex[58] = "17070380000000000";
$m_ex[59] = "23898530000000000";
$m_ex[60] = "33457940000000000";
$m_ex[61] = "560000000000000000";
$m_ex[62] = "783900000000000000";
$m_ex[63] = "1097400000000000000";
$m_ex[64] = "1536300000000000000";
$m_ex[65] = "2150800000000000000";
$m_ex[66] = "3011100000000000000";
$m_ex[67] = "4215500000000000000";
$m_ex[68] = "5901600000000000000";
$m_ex[69] = "8262200000000000000";
$m_ex[70] = "1156700000000000000";
$m_ex[71] = "1619380000000000000";
$m_ex[72] = "2267130000000000000";
$m_ex[73] = "3173980000000000000";
$m_ex[74] = "4443570000000000000";
$m_ex[75] = "6220990000000000000";
$m_ex[76] = "8709380000000000000";
$m_ex[77] = "12193130000000000000";
$m_ex[78] = "17070380000000000000";
$m_ex[79] = "23898530000000000000";
$m_ex[80] = "33457940000000000000";
$m_ex[81] = "560000000000000000000";
$m_ex[82] = "783900000000000000000";
$m_ex[83] = "1097400000000000000000";
$m_ex[84] = "1536300000000000000000";
$m_ex[85] = "2150800000000000000000";
$m_ex[86] = "3011100000000000000000";
$m_ex[87] = "4215500000000000000000";
$m_ex[88] = "5901600000000000000000";
$m_ex[89] = "8262200000000000000000";
$m_ex[90] = "11567000000000000000000";
$m_ex[91] = "16193800000000000000000";
$m_ex[92] = "22671300000000000000000";
$m_ex[93] = "31739800000000000000000";
$m_ex[94] = "44435700000000000000000";
$m_ex[95] = "62209900000000000000000";
$m_ex[96] = "87093800000000000000000";
$m_ex[97] = "121931300000000000000000";
$m_ex[98] = "170703800000000000000000";
$m_ex[99] = "238985300000000000000000";
$m_ex[100] = "334579400000000000000000";
#モンスターのHP、(設定数＋(ランダム(設定数/１０)))つまり設定数の１.０〜１.１倍。
$m_hp[1] = "12000";
$m_hp[2] = "20000";
$m_hp[3] = "50000";
$m_hp[4] = "80000";
$m_hp[5] = "80000";
$m_hp[6] = "140000";
$m_hp[7] = "140000";
$m_hp[8] = "200000";
$m_hp[9] = "300000";
$m_hp[10] = "360000";
$m_hp[11] = "700000";
$m_hp[12] = "1000000";
$m_hp[13] = "1500000";
$m_hp[14] = "1700000";
$m_hp[15] = "1933800";
$m_hp[16] = "3000000";
$m_hp[17] = "6000000";
$m_hp[18] = "6300000";
$m_hp[19] = "13000000";
$m_hp[20] = "20000000";
$m_hp[21] = "120000000";
$m_hp[22] = "200000000";
$m_hp[23] = "500000000";
$m_hp[24] = "800000000";
$m_hp[25] = "800000000";
$m_hp[26] = "1400000000";
$m_hp[27] = "1400000000";
$m_hp[28] = "2000000000";
$m_hp[29] = "3000000000";
$m_hp[30] = "3600000000";
$m_hp[31] = "7000000000";
$m_hp[32] = "10000000000";
$m_hp[33] = "15000000000";
$m_hp[34] = "17000000000";
$m_hp[35] = "19338000000";
$m_hp[36] = "30000000000";
$m_hp[37] = "60000000000";
$m_hp[38] = "63000000000";
$m_hp[39] = "130000000000";
$m_hp[40] = "200000000000";
$m_hp[41] = "1200000000000";
$m_hp[42] = "2000000000000";
$m_hp[43] = "5000000000000";
$m_hp[44] = "8000000000000";
$m_hp[45] = "8000000000000";
$m_hp[46] = "14000000000000";
$m_hp[47] = "14000000000000";
$m_hp[48] = "20000000000000";
$m_hp[49] = "30000000000000";
$m_hp[50] = "36000000000000";
$m_hp[51] = "70000000000000";
$m_hp[52] = "100000000000000";
$m_hp[53] = "150000000000000";
$m_hp[54] = "170000000000000";
$m_hp[55] = "193380000000000";
$m_hp[56] = "300000000000000";
$m_hp[57] = "600000000000000";
$m_hp[58] = "630000000000000";
$m_hp[59] = "1300000000000000";
$m_hp[60] = "2000000000000000";
$m_hp[61] = "12000000000000000";
$m_hp[62] = "20000000000000000";
$m_hp[63] = "50000000000000000";
$m_hp[64] = "80000000000000000";
$m_hp[65] = "80000000000000000";
$m_hp[66] = "140000000000000000";
$m_hp[67] = "140000000000000000";
$m_hp[68] = "200000000000000000";
$m_hp[69] = "300000000000000000";
$m_hp[70] = "360000000000000000";
$m_hp[71] = "700000000000000000";
$m_hp[72] = "1000000000000000000";
$m_hp[73] = "1500000000000000000";
$m_hp[74] = "1700000000000000000";
$m_hp[75] = "1933800000000000000";
$m_hp[76] = "3000000000000000000";
$m_hp[77] = "6000000000000000000";
$m_hp[78] = "6300000000000000000";
$m_hp[79] = "13000000000000000000";
$m_hp[80] = "20000000000000000000";
$m_hp[81] = "120000000000000000000";
$m_hp[82] = "200000000000000000000";
$m_hp[83] = "500000000000000000000";
$m_hp[84] = "800000000000000000000";
$m_hp[85] = "800000000000000000000";
$m_hp[86] = "1400000000000000000000";
$m_hp[87] = "1400000000000000000000";
$m_hp[88] = "2000000000000000000000";
$m_hp[89] = "3000000000000000000000";
$m_hp[90] = "3600000000000000000000";
$m_hp[91] = "7000000000000000000000";
$m_hp[92] = "10000000000000000000000";
$m_hp[93] = "15000000000000000000000";
$m_hp[94] = "17000000000000000000000";
$m_hp[95] = "19338000000000000000000";
$m_hp[96] = "30000000000000000000000";
$m_hp[97] = "60000000000000000000000";
$m_hp[98] = "63000000000000000000000";
$m_hp[99] = "130000000000000000000000";
$m_hp[100] = "200000000000000000000000";
#回避率、(設定数％の確率で回避)
$m_kaihi[1] = "20";
$m_kaihi[2] = "20";
$m_kaihi[3] = "20";
$m_kaihi[4] = "20";
$m_kaihi[5] = "20";
$m_kaihi[6] = "20";
$m_kaihi[7] = "20";
$m_kaihi[8] = "20";
$m_kaihi[9] = "20";
$m_kaihi[10] = "20";
$m_kaihi[11] = "20";
$m_kaihi[12] = "20";
$m_kaihi[13] = "20";
$m_kaihi[14] = "20";
$m_kaihi[15] = "20";
$m_kaihi[16] = "20";
$m_kaihi[17] = "20";
$m_kaihi[18] = "20";
$m_kaihi[19] = "20";
$m_kaihi[20] = "20";
$m_kaihi[21] = "20";
$m_kaihi[22] = "20";
$m_kaihi[23] = "20";
$m_kaihi[24] = "20";
$m_kaihi[25] = "20";
$m_kaihi[26] = "20";
$m_kaihi[27] = "20";
$m_kaihi[28] = "20";
$m_kaihi[29] = "20";
$m_kaihi[30] = "20";
$m_kaihi[31] = "20";
$m_kaihi[32] = "20";
$m_kaihi[33] = "20";
$m_kaihi[34] = "20";
$m_kaihi[35] = "20";
$m_kaihi[36] = "20";
$m_kaihi[37] = "20";
$m_kaihi[38] = "20";
$m_kaihi[39] = "20";
$m_kaihi[40] = "20";
$m_kaihi[41] = "20";
$m_kaihi[42] = "20";
$m_kaihi[43] = "20";
$m_kaihi[44] = "20";
$m_kaihi[45] = "20";
$m_kaihi[46] = "20";
$m_kaihi[47] = "20";
$m_kaihi[48] = "20";
$m_kaihi[49] = "20";
$m_kaihi[50] = "20";
$m_kaihi[51] = "20";
$m_kaihi[52] = "20";
$m_kaihi[53] = "20";
$m_kaihi[54] = "20";
$m_kaihi[55] = "20";
$m_kaihi[56] = "20";
$m_kaihi[57] = "20";
$m_kaihi[58] = "20";
$m_kaihi[59] = "20";
$m_kaihi[60] = "20";
$m_kaihi[61] = "20";
$m_kaihi[62] = "20";
$m_kaihi[63] = "20";
$m_kaihi[64] = "20";
$m_kaihi[65] = "20";
$m_kaihi[66] = "20";
$m_kaihi[67] = "20";
$m_kaihi[68] = "20";
$m_kaihi[69] = "20";
$m_kaihi[70] = "20";
$m_kaihi[71] = "20";
$m_kaihi[72] = "20";
$m_kaihi[73] = "20";
$m_kaihi[74] = "20";
$m_kaihi[75] = "20";
$m_kaihi[76] = "20";
$m_kaihi[77] = "20";
$m_kaihi[78] = "20";
$m_kaihi[79] = "20";
$m_kaihi[80] = "20";
$m_kaihi[81] = "20";
$m_kaihi[82] = "20";
$m_kaihi[83] = "20";
$m_kaihi[84] = "20";
$m_kaihi[85] = "20";
$m_kaihi[86] = "20";
$m_kaihi[87] = "20";
$m_kaihi[88] = "20";
$m_kaihi[89] = "20";
$m_kaihi[90] = "20";
$m_kaihi[91] = "20";
$m_kaihi[92] = "20";
$m_kaihi[93] = "20";
$m_kaihi[94] = "20";
$m_kaihi[95] = "20";
$m_kaihi[96] = "20";
$m_kaihi[97] = "20";
$m_kaihi[98] = "20";
$m_kaihi[99] = "20";
$m_kaihi[100] = "20";
#命中率、(設定数％の確率でＨＩＴ)
$m_hit[1] = "90";
$m_hit[2] = "90";
$m_hit[3] = "90";
$m_hit[4] = "90";
$m_hit[5] = "90";
$m_hit[6] = "90";
$m_hit[7] = "90";
$m_hit[8] = "90";
$m_hit[9] = "90";
$m_hit[10] = "90";
$m_hit[11] = "90";
$m_hit[12] = "90";
$m_hit[13] = "90";
$m_hit[14] = "90";
$m_hit[15] = "90";
$m_hit[16] = "90";
$m_hit[17] = "90";
$m_hit[18] = "90";
$m_hit[19] = "90";
$m_hit[20] = "90";
$m_hit[21] = "90";
$m_hit[22] = "90";
$m_hit[23] = "90";
$m_hit[24] = "90";
$m_hit[25] = "90";
$m_hit[26] = "90";
$m_hit[27] = "90";
$m_hit[28] = "90";
$m_hit[29] = "90";
$m_hit[30] = "90";
$m_hit[31] = "90";
$m_hit[32] = "90";
$m_hit[33] = "90";
$m_hit[34] = "90";
$m_hit[35] = "90";
$m_hit[36] = "90";
$m_hit[37] = "90";
$m_hit[38] = "90";
$m_hit[39] = "90";
$m_hit[40] = "90";
$m_hit[41] = "90";
$m_hit[42] = "90";
$m_hit[43] = "90";
$m_hit[44] = "90";
$m_hit[45] = "90";
$m_hit[46] = "90";
$m_hit[47] = "90";
$m_hit[48] = "90";
$m_hit[49] = "90";
$m_hit[50] = "90";
$m_hit[51] = "90";
$m_hit[52] = "90";
$m_hit[53] = "90";
$m_hit[54] = "90";
$m_hit[55] = "90";
$m_hit[56] = "90";
$m_hit[57] = "90";
$m_hit[58] = "90";
$m_hit[59] = "90";
$m_hit[60] = "90";
$m_hit[61] = "90";
$m_hit[62] = "90";
$m_hit[63] = "90";
$m_hit[64] = "90";
$m_hit[65] = "90";
$m_hit[66] = "90";
$m_hit[67] = "90";
$m_hit[68] = "90";
$m_hit[69] = "90";
$m_hit[70] = "90";
$m_hit[71] = "90";
$m_hit[72] = "90";
$m_hit[73] = "90";
$m_hit[74] = "90";
$m_hit[75] = "90";
$m_hit[76] = "90";
$m_hit[77] = "90";
$m_hit[78] = "90";
$m_hit[79] = "90";
$m_hit[80] = "90";
$m_hit[81] = "90";
$m_hit[82] = "90";
$m_hit[83] = "90";
$m_hit[84] = "90";
$m_hit[85] = "90";
$m_hit[86] = "90";
$m_hit[87] = "90";
$m_hit[88] = "90";
$m_hit[89] = "90";
$m_hit[90] = "90";
$m_hit[91] = "90";
$m_hit[92] = "90";
$m_hit[93] = "90";
$m_hit[94] = "90";
$m_hit[95] = "90";
$m_hit[96] = "90";
$m_hit[97] = "90";
$m_hit[98] = "90";
$m_hit[99] = "90";
$m_hit[100] = "90";

#モンスターの攻撃力、（ランダム（設定数））＋（設定数/１０）が受けるダメージ
$m_dmg[1] = "10000";
$m_dmg[2] = "50000";
$m_dmg[3] = "100000";
$m_dmg[4] = "150000";
$m_dmg[5] = "300000";
$m_dmg[6] = "600000";
$m_dmg[7] = "900000";
$m_dmg[8] = "1200000";
$m_dmg[9] = "1500000";
$m_dmg[10] = "1800000";
$m_dmg[11] = "2100000";
$m_dmg[12] = "2400000";
$m_dmg[13] = "2700000";
$m_dmg[14] = "3000000";
$m_dmg[15] = "3000000";
$m_dmg[16] = "3000000";
$m_dmg[17] = "3000000";
$m_dmg[18] = "4200000";
$m_dmg[19] = "4500000";
$m_dmg[20] = "5000000";
$m_dmg[21] = "100000000";
$m_dmg[22] = "500000000";
$m_dmg[23] = "1000000000";
$m_dmg[24] = "1500000000";
$m_dmg[25] = "3000000000";
$m_dmg[26] = "6000000000";
$m_dmg[27] = "9000000000";
$m_dmg[28] = "12000000000";
$m_dmg[29] = "15000000000";
$m_dmg[30] = "18000000000";
$m_dmg[31] = "21000000000";
$m_dmg[32] = "24000000000";
$m_dmg[33] = "27000000000";
$m_dmg[34] = "30000000000";
$m_dmg[35] = "30000000000";
$m_dmg[36] = "30000000000";
$m_dmg[37] = "30000000000";
$m_dmg[38] = "42000000000";
$m_dmg[39] = "45000000000";
$m_dmg[40] = "50000000000";
$m_dmg[41] = "100000000000";
$m_dmg[43] = "120000000000";
$m_dmg[44] = "150000000000";
$m_dmg[45] = "300000000000";
$m_dmg[46] = "600000000000";
$m_dmg[47] = "900000000000";
$m_dmg[48] = "120000000000";
$m_dmg[49] = "150000000000";
$m_dmg[50] = "180000000000";
$m_dmg[51] = "210000000000";
$m_dmg[52] = "240000000000";
$m_dmg[53] = "270000000000";
$m_dmg[54] = "300000000000";
$m_dmg[55] = "3000000000000";
$m_dmg[56] = "3000000000000";
$m_dmg[57] = "3000000000000";
$m_dmg[58] = "4200000000000";
$m_dmg[59] = "4500000000000";
$m_dmg[60] = "5000000000000";
$m_dmg[61] = "100000000000000";
$m_dmg[62] = "500000000000000";
$m_dmg[63] = "100000000000000";
$m_dmg[64] = "150000000000000";
$m_dmg[65] = "300000000000000";
$m_dmg[66] = "600000000000000";
$m_dmg[67] = "900090000000000";
$m_dmg[68] = "1200000000000000";
$m_dmg[69] = "1500000000000000";
$m_dmg[70] = "1800000000000000";
$m_dmg[71] = "2100000000000000";
$m_dmg[72] = "2400000000000000";
$m_dmg[73] = "2700000000000000";
$m_dmg[74] = "3000000000000000";
$m_dmg[75] = "3000000000000000";
$m_dmg[76] = "3000000000000000";
$m_dmg[77] = "3000000000000000";
$m_dmg[78] = "4200000000000000";
$m_dmg[79] = "4500000000000000";
$m_dmg[80] = "5000000000000000";
$m_dmg[81] = "10000000000009000";
$m_dmg[82] = "50000000000000000";
$m_dmg[83] = "10000000000000000";
$m_dmg[84] = "15000000000000000";
$m_dmg[85] = "30000000000000000";
$m_dmg[86] = "60000000000000000";
$m_dmg[87] = "90000000000000000";
$m_dmg[88] = "12000000000000000";
$m_dmg[89] = "15000000000000000";
$m_dmg[90] = "18000000000000000";
$m_dmg[91] = "21000000000000000";
$m_dmg[92] = "24000000000000000";
$m_dmg[93] = "27000000000000000";
$m_dmg[94] = "30000000000000000";
$m_dmg[95] = "30000000000000000";
$m_dmg[96] = "30000000000000000";
$m_dmg[97] = "30000000000000000";
$m_dmg[98] = "42000000000000000";
$m_dmg[99] = "45000000000000000";
$m_dmg[100] = "100000000000000000";
#勝利時の入手金額
$m_gold[1] = "1e+80";
$m_gold[2] = "2000000";
$m_gold[3] = "3000000";
$m_gold[4] = "4000000";
$m_gold[5] = "5000000";
$m_gold[6] = "6000000";
$m_gold[7] = "7000000";
$m_gold[8] = "8000000";
$m_gold[9] = "9000000";
$m_gold[10] = "10000000";
$m_gold[11] = "11000000";
$m_gold[12] = "12000000";
$m_gold[13] = "13000000";
$m_gold[14] = "14000000";
$m_gold[15] = "15000000";
$m_gold[16] = "16000000";
$m_gold[17] = "17000000";
$m_gold[18] = "18000000";
$m_gold[19] = "19000000";
$m_gold[20] = "20000000";
$m_gold[21] = "1000000000";
$m_gold[22] = "2000000000";
$m_gold[23] = "3000000000";
$m_gold[24] = "4000000000";
$m_gold[25] = "5000000000";
$m_gold[26] = "6000000000";
$m_gold[27] = "7000000000";
$m_gold[28] = "8000000000";
$m_gold[29] = "9000000000";
$m_gold[30] = "10000000000";
$m_gold[31] = "11000000000";
$m_gold[32] = "12000000000";
$m_gold[33] = "13000000000";
$m_gold[34] = "14000000000";
$m_gold[35] = "15000000000";
$m_gold[36] = "16000000000";
$m_gold[37] = "17000000000";
$m_gold[38] = "18000000000";
$m_gold[39] = "19000000000";
$m_gold[40] = "200000000000";
$m_gold[41] = "1000000000000";
$m_gold[42] = "2000000000000";
$m_gold[43] = "3000000000000";
$m_gold[44] = "4000000000000";
$m_gold[45] = "5000000000000";
$m_gold[46] = "6000000000000";
$m_gold[47] = "7000000000000";
$m_gold[48] = "8000000000000";
$m_gold[49] = "9000000000000";
$m_gold[50] = "10000000000000";
$m_gold[51] = "11000000000000";
$m_gold[52] = "12000000000000";
$m_gold[53] = "13000000000000";
$m_gold[54] = "14000000000000";
$m_gold[55] = "15000000000000";
$m_gold[56] = "16000000000000";
$m_gold[57] = "17000000000000";
$m_gold[58] = "18000000000000";
$m_gold[59] = "19000000000000";
$m_gold[60] = "20000000000000";
$m_gold[61] = "100000000000000";
$m_gold[62] = "200000000000000";
$m_gold[63] = "300000000000000";
$m_gold[64] = "400000000000000";
$m_gold[65] = "500000000000000";
$m_gold[66] = "600000000000000";
$m_gold[67] = "700000000000000";
$m_gold[68] = "800000000000000";
$m_gold[69] = "900000000000000";
$m_gold[70] = "100000000000000";
$m_gold[71] = "110000000000000";
$m_gold[72] = "120000000000000";
$m_gold[73] = "130000000000000";
$m_gold[74] = "140000000000000";
$m_gold[75] = "150000000000000";
$m_gold[76] = "160000000000000";
$m_gold[77] = "170000000000000";
$m_gold[78] = "180000000000000";
$m_gold[79] = "190000000000000";
$m_gold[80] = "200000000000000";
$m_gold[81] = "10000000000000000";
$m_gold[82] = "20000000000000000";
$m_gold[83] = "30000000000000000";
$m_gold[84] = "40000000000000000";
$m_gold[85] = "50000000000000000";
$m_gold[86] = "60000000000000000";
$m_gold[87] = "70000000000000000";
$m_gold[88] = "80000000000000000";
$m_gold[89] = "90000000000000000";
$m_gold[90] = "100000000000000000";
$m_gold[91] = "110000000000000000";
$m_gold[92] = "120000000000000000";
$m_gold[93] = "130000000000000000";
$m_gold[94] = "140000000000000000";
$m_gold[95] = "150000000000000000";
$m_gold[96] = "160000000000000000";
$m_gold[97] = "170000000000000000";
$m_gold[98] = "180000000000000000";
$m_gold[99] = "190000000000000000";
$m_gold[100] = "1000000000000000000000000";

&decode;
if($ENV{HTTP_REFERER} eq ""){&error("アクセスできません。");}
if($mode eq 'm_1'){&m_1;}
elsif($mode eq 'check'){&check;}
else{ &error("アクセスできません"); }
sub AUTOLOAD {
	my $name = ($AUTOLOAD =~ /^main::(.+)$/)[0];
	($FLAG{'autoload'}++ > 50) && die $AUTOLOAD; # 念のため無限ループ防止
	defined %SUB or &SUBS;
	if (!defined $SUB{$name}) {&error("定義されていない関数($AUTOLOAD)が呼ばれました。"); exit;}
	eval $SUB{$name}; length($@) && &error("EVAL ERROR: $@ ($AUTOLOAD)");
	delete $SUB{$name}; goto &{'main::' . $name};
}
sub SUBS {
%SUB = (
	m_1 => <<'__SUB__',
sub m_1 {
	if($battle_flag) { &error("現在戦闘中です。少しお待ちになってから戦闘してください。"); }
	$battle_flag=1;
	open(IN,"./charalog/$in{'id'}.cgi") or &error('ファイルを開けませんでした。');
	@battle = <IN>;
	close(IN);
	foreach(@battle){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite) = split(/<>/);
		if($in{'id'} eq "$kid" and $in{'pass'} eq "$kpass") { last; }
	}
	if($in{'id'} ne "$kid" or $in{'pass'} ne "$kpass"){&error("オープンエラー、ID・パスワードが正しくありません。");}
	if($in{'kto'} ne "$ktotal"){&error("連続クリック、更新ボタンの使用は禁止です。");}
if($kitem){
	open(IN,"$item_file");
	@battle_item = <IN>;
	close(IN);
	foreach(@battle_item){
	($ci_no,$ci_name,$ci_dmg,$ci_gold) = split(/<>/);
	if($kitem eq $ci_no) { last; }
	}
}
if($kdef){
	open(IN,"$def_file");
	@battle_def = <IN>;
	close(IN);
	foreach(@battle_def){
	($cd_no,$cd_name,$cd_dmg) = split(/<>/);
	if($kdef eq $cd_no) { last; }
	}
}
	$mno2 = $in{'mno'} + 1;
	$mname = $m_name[$in{'mno'}];
	$mex = $m_ex[$in{'mno'}];
	$mhp = $m_hp[$in{'mno'}];
	$mkaihi = $m_kaihi[$in{'mno'}];
	$mdmg = $m_dmg[$in{'mno'}];
	$mhit = $m_hit[$in{'mno'}];
	$khp_flg = $khp;
	$mhp = $mhp + int(rand($mhp));
	$mhp_flg = $mhp;
	$i=1;$j=0;@battle_date=();
	foreach(1..$m_turn) {
		$dmg1 = $klv * (int(rand(3)) + 1);
		$dmg2 = (int(rand($mdmg)) + ($mdmg / 10));
		$clit1 = "";
		$clit2 = "";
		$com1 = "";
		$com2 = "$mnameが襲いかかった！！";
		$kawasi1 = "";
		$kawasi2 = "";
	&tyousensya;
		if(int(rand(30)) == 0) {
			$clit2 .= "<b class=\"clit\">クリティカル！！</b>";
			$dmg2 = int($dmg2 * 1.5);
		}
		if($dmg2 < 0){$dmg2 = $dmg2;}
		elsif($dmg2 < $cd_dmg){$dmg2 = 0;}
		else{$dmg2 = $dmg2 - $cd_dmg;}
	if(int(rand(100)) > $mhit and $m_meityu==0) {
		$dmg2 = 0;
		$kawasi1 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$knameは身をかわした！</FONT>";
	}
	if($mkahi > int(rand(100)) and $meityu==0) {
		$dmg1 = 0;
		$kawasi2 = "<P><FONT SIZE=4 COLOR=\"#DD6699\">$mnameは身をかわした！</FONT>";
	}
	$battle_date[$j] = <<"EOM";
<TABLE BORDER=0>
<TR><TD CLASS="b2" COLSPAN="3" ALIGN="center">
$iターン
</TD></TR>
<TR><TD>
<TABLE BORDER=1>
<TR><TD CLASS="b1">
なまえ
</TD><TD CLASS="b1">
HP
</TD><TD CLASS="b1">
職業
</TD><TD CLASS="b1">
LV
</TD></TR>
<TR><TD>
$kname
</TD><TD>
$khp_flg\/$kmaxhp
</TD><TD>
$chara_syoku[$ksyoku]
</TD><TD>
$klv
</TD></TR>
</TABLE>
</TD>
<TD>
<FONT SIZE=5 COLOR="#9999DD">VS</FONT>
</TD><TD>
<TABLE BORDER=1>
<TR><TD CLASS="b1">
なまえ
</TD><TD CLASS="b1">
HP
</TD></TR>
<TR><TD>
$mname
</TD><TD>
$mhp/$mhp_flg
</TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
<p>
$com1 $clit1 $kawasi2 $mname に <font class="dmg"><b>$dmg1</b></font> のダメージを与えた。<p>
$com2 $clit2 $kawasi1 $kname に <font class="dmg"><b>$dmg2</b></font> のダメージを与えた。<p>
EOM
		$mhp = $mhp - $dmg1;
		if($mhp <= 0) { $win = 1; last; }
		else {$khp_flg = $khp_flg - $dmg2;}
		if($khp_flg <= 0) { $win = 0; last; }
		$i++;
		$j++;
	}
	if($win) {
if($m_kiroku == "1"){if($in{'mno'} eq $m_kazu){
if($lockkey == 1){ &lock1; }elsif($lockkey == 2){ &lock2; }
open(IN,"m_battle2.cgi")|| &error('オープンエラー','指定された書込みファイルが開けません。');
@m_k = <IN>;
close(IN);
$hit=0;@new=();
	foreach(@m_k){
	($m_id,$m_pass,$m_name,$m_kazu) = split(/<>/);
		if($kid eq "$m_id" and $kpass eq "$m_pass"){
			unshift(@new,"$kid<>$kpass<>$kname<>finish<>\n");
			$hit=1;
			}else{
			push(@new,"$_");
			}
		}
open(IN,">mbattle2.cgi");
print IN @new;
close(IN);
if(-e $lockfile){ unlink($lockfile); }}}
		$ktotal += 1;
		$kkati += 1;
		$kex = $kex + $mex;
		$kmori -= 1;
		$gold = $klv * 100 * int(rand($klp));
		$kgold = $kgold + $gold;
		$comment = "<b><font size=5>$knameは、戦闘に勝利した！！</font></b><p>";
	}else{
if($m_kiroku == "1"){if($lockkey == 1){ &lock1; }elsif($lockkey == 2){ &lock2; }
open(IN,"m_battle2.cgi")|| &error('オープンエラー','指定された書込みファイルが開けません。');
@m_k = <IN>;
close(IN);
$hit=0;@new=();
	foreach(@m_k){
	($m_id,$m_pass,$m_name,$m_kazu) = split(/<>/);
		if($kid eq "$m_id" and $kpass eq "$m_pass"){
			if($m_kazu eq "finish"){$sin_m = $m_kazu;}elsif($in{'mno'} - 1 > $m_kazu){$sin_m = $in{'mno'} - 1;}else{$sin_m = $m_kazu;}
			unshift(@new,"$kid<>$kpass<>$kname<>$sin_m<>\n");
			$hit=1;
			}else{
			push(@new,"$_");
			}
		}
			if(!$hit){
		$sin_m = $in{'mno'} - 1;
		unshift(@new,"$kid<>$kpass<>$kname<>$sin_m<>\n");
		}
open(IN,">m_battle2.cgi");
print IN @new;
close(IN);
if(-e $lockfile){ unlink($lockfile); }}
		$ktotal += 1;
		$mex = 1;
		$kex = $kex + $mex;
		$kmori = 0;
		$comment = "<b><font size=5>$knameは、戦闘に負けた・・・。</font></b><p>";
	}

if($lvup){
while($kex >= ($klv * $lv_up)) {
$llv += 1;
$hpup = int(rand($kn_3)) + 1;
$hhpp += $hpup;
$kmaxhp = $kmaxhp + $hpup;
$khp = $kmaxhp;
$kex = $kex - ($klv * $lv_up);
$klv += 1;
		$lv_up_p = int(rand(1000));
		if($lv_up_p < 1){$lv_up_p = 1;}
if(int(rand(5)) == 0) { $kn_0 += 1; $tt 
+= 1; $t1 = 1;}
if(int(rand(5)) == 0) { $kn_1 += 1; $tt1 
+= 1; $t2 = 1;}
if(int(rand(5)) == 0) { $kn_2 += 1; $tt2 
+= 1; $t3 = 1;}
if(int(rand(5)) == 0) { $kn_3 += 1; $tt3 
+= 1; $t4 = 1;}
if(int(rand(5)) == 0) { $kn_4 += 1; $tt4 
+= 1; $t5 = 1;}
if(int(rand(5)) == 0) { $kn_5 += 1; $tt5 
+= 1; $t6 = 1;}
if(int(rand(5)) == 0) { $kn_6 += 1; $tt6 
+= 1; $t7 = 1;}
if(int(rand(10000)) == 0) { $klp += 1; 
$tt7 += 1; $t8 = 1;}
}
if($llv > 0){
$comment .= "<p><font color=orange size=6>$knameは、レベルが$llv上がった！！</font><p>";
$comment .= "ＨＰが<b>$hhpp</b>上がった！！<p>";
if($t1) { $comment .= "力が<b>$tt</b>上がった。"; }
if($t2) { $comment .= "知\能\が<b>$tt1</b>上がった。"; }
if($t3) { $comment .= "信仰心が<b>$tt2</b>上がった。"; }
if($t4) { $comment .= "生命力が<b>$tt3</b>上がった。"; }
if($t5) { $comment .= "器用さが<b>$tt4</b>上がった。"; }
if($t6) { $comment .= "速さが<b>$tt5</b>上がった。"; }
if($t7) { $comment .= "魅力が<b>$tt6</b>上がった。"; }
if($t8) { $comment .= "運が<b>$tt7</b>上がった。"; }
if($llv > 0) { $comment .= "<p>";}
	}
}else{
while($kex >= ($klv * $lv_up)) {
$llv += 1;
$hpup = int(rand($kn_3)) + 1;
$hhpp += $hpup;
$kmaxhp = $kmaxhp + $hpup;
$khp = $kmaxhp;
$kex = $kex - ($klv * $lv_up);
$klv += 1;
		$lv_up_p = int(rand(1000));
		if($lv_up_p < 1){$lv_up_p = 1;}
if(int(rand(5)) == 0) { $kn_0 += 1; $tt 
+= 1; $t1 = 1;}
if(int(rand(5)) == 0) { $kn_1 += 1; $tt1 
+= 1; $t2 = 1;}
if(int(rand(5)) == 0) { $kn_2 += 1; $tt2 
+= 1; $t3 = 1;}
if(int(rand(5)) == 0) { $kn_3 += 1; $tt3 
+= 1; $t4 = 1;}
if(int(rand(5)) == 0) { $kn_4 += 1; $tt4 
+= 1; $t5 = 1;}
if(int(rand(5)) == 0) { $kn_5 += 1; $tt5 
+= 1; $t6 = 1;}
if(int(rand(5)) == 0) { $kn_6 += 1; $tt6 
+= 1; $t7 = 1;}
if(int(rand(10000)) == 0) { $klp += 1; 
$tt7 += 1; $t8 = 1;}
}
if($llv > 0){
$comment .= "<p><font color=orange size=6>$knameは、レベルが$llv上がった！！</font><p>";
$comment .= "ＨＰが<b>$hhpp</b>上がった！！<p>";
if($t1) { $comment .= "力が<b>$tt</b>上がった。"; }
if($t2) { $comment .= "知\能\が<b>$tt1</b>上がった。"; }
if($t3) { $comment .= "信仰心が<b>$tt2</b>上がった。"; }
if($t4) { $comment .= "生命力が<b>$tt3</b>上がった。"; }
if($t5) { $comment .= "器用さが<b>$tt4</b>上がった。"; }
if($t6) { $comment .= "速さが<b>$tt5</b>上がった。"; }
if($t7) { $comment .= "魅力が<b>$tt6</b>上がった。"; }
if($t8) { $comment .= "運が<b>$tt7</b>上がった。"; }
if($llv > 0) { $comment .= "<p>";}
	}
}
	$khp = $khp_flg + int(rand($kn_3));
	if($khp > $kmaxhp) { $khp = $kmaxhp; }
	if($khp <= 0) { $khp = $kmaxhp; }
	&regist;
	&header;
	print <<"_BATTLE_";
<FONT SIZE="5" COLOR="#7777DD"><B>$dan_name</B></FONT>
<BR>
<HR SIZE=0 WIDTH="100%">
<BR>
<P>
<B><CENTER><FONT SIZE="6">$in{'mno'}体目！$mname</B>が現れた！</FONT></CENTER>
<BR>
<BR>
_BATTLE_
	$i=0;
	foreach(@battle_date){
	print "$battle_date[$i]";
	$i++;
	}
	if($win) { print "$comment<p>$knameは、$mexの経験値を手に入れた。<b>$gold</b>G手に入れた。<p>\n"; }
	else { print "$comment<p>$knameは、$mexの経験値を手に入れた。<p>\n"; }
	if($m_kazu eq $in{'mno'}) {
	print "<form action=\"$script\" method=\"post\">\n";
	print "<input type=hidden name=id value=$in{'id'}>\n";
	print "<input type=hidden name=pass value=$in{'pass'}>\n";
	print "<input type=hidden name=mode value=log_in>\n";
	print "<input type=submit value=\"ステータス画面へ\">\n";
	print "</form>\n";
	}elsif($win){
	print "<form action=\"./m_battle.cgi\" method=\"post\">\n";
	print "<input type=hidden name=id value=$in{'id'}>\n";
	print "<input type=hidden name=pass value=$in{'pass'}>\n";
	print "<input type=hidden name=mode value=m_1>\n";
	print "<input type=hidden name=mno value=$mno2>\n";
	print "<input type=hidden name=kto value=$ktotal>\n";
	print "<input type=submit value=\"更に奥へ進む・・・・\">\n";
	print "</form>\n";
	}else{ 
	print "<form action=\"$script\" method=\"post\">\n";
	print "<input type=hidden name=id value=$in{'id'}>\n";
	print "<input type=hidden name=pass value=$in{'pass'}>\n";
	print "<input type=hidden name=mode value=log_in>\n";
	print "<input type=submit value=\"ステータス画面へ\">\n";
	print "</form>\n";
	}
	&footer;
	$battle_flag=0;
	exit;
}
__SUB__
	footer => <<'__SUB__',
#------------------#
#　HTMLのフッター　#
#------------------#
sub footer {
	print "<HR SIZE=0 WIDTH=\"100%\"><DIV align=right class=small>\n";
	print "ダンジョン\拡\張\＆\攻\略\状\況\記\録\スクリプト edit by <a href=http://air-wing.com/~rasworld/ target=\"_blank\">Red</a><br>\n";
	print "FF ADVENTURE(改) v1.104 edit by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "FF ADVENTURE(改) v1.104 remodeling by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "FF ADVENTURE v0.43 by <a href=\"http://www.interq.or.jp/sun/cumro/\">D.Takamiya(CUMRO)</a><br>\n";
	print "</DIV></body></html>\n";
}
__SUB__
	header => <<'__SUB__',
#------------------#
#  HTMLのヘッダー  #
#------------------#
sub header {
print "Content-Type: text/html\n\n";
print <<"EOM";
<html><head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $b_size }
a:hover { color: $alink }
.small { font-size: 10pt }
.b1 {background: #9ac;border-color: #ccf #669 #669 #ccf;color:#fff; border-style: solid; border-width: 1px;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px; text-align: center}
.b3 {background: #fff;border-color: #ccf #669 #669 #ccf;}
.dmg { color: #FF0000; font-size: 18pt }
.clit { color: #0000FF; font-size: 18pt }
-->
</STYLE>
EOM
print "<title>$main_title</title></head>\n";
print "<body background=\"$back_ground\" bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
}
__SUB__
	check => <<'__SUB__',
#------------------#
#  HTMLのヘッダー  #
#------------------#
sub check {
open(IN,"./m_battle2.cgi") or &error('ファイルを開けませんでした。');
@KIROKU = <IN>;
close(IN);

@tmp1 = @tmp2 = ();
foreach (@KIROKU) {
	my ($aa,$bb,$cc,$dd) = split /<>/;
	push(@tmp1, $dd);
	push(@tmp2, $cc);
}
@KIROKU = @KIROKU[sort {$tmp1[$b] <=> $tmp1[$a] or
		$tmp2[$b] <=> $tmp2[$a]} 0 .. $#tmp1];
&header;
print <<"EOM";
<font size=4><b>$dan_name 攻略状況</b></font>　<hr size=0  color=#000000 width=90%>
<center>
<table border=1 width=70%>
<tr>
<th class=b2></th><th class=b2>キャラ名</th><th class=b2>撃破数</th>
</tr>
EOM
	$i=1;
	foreach(@KIROKU){
		($rid,$rpass,$rname,$rkazu) = split(/<>/);
		if($rkazu eq "finish"){$kazu = "攻略！";}elsif($rkazu==0){$kazu = "初戦敗退";}else{$kazu = "$rkazu体撃破";}
		if($i == $rank_suu){ last; }
		print "<tr>\n";
		print "<td align=center class=b1>$i 位</td><td>$rname</td><td><b>$kazu</b></td>\n";
		print "</tr>\n";
		$i++;
	}

	print "</table></center><br>\n";

	&footer;
	exit;

}
__SUB__
);
}