#------------------#
#　挑戦者の攻撃  　#
#------------------#
sub tyousensya {
	# 挑戦者ダメージ計算
	if($kitem){ $com1 = "<p>$knameは、$ci_nameで攻撃！！<FONT COLOR=\"$yellow\">$battlecom[$ksyoku]</FONT></p>"; }
	else{ $com1 = "<p>$knameは、素手で攻撃！！ </p>";}
	if($ksyoku == 0){$dmg1 += int(rand($kn_0)) + $ci_dmg;
	}elsif($ksyoku == 1){$dmg1 += int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 2){$dmg1 += int(rand($kn_2)) + $ci_dmg;
	}elsif($ksyoku == 3){$dmg1 += int(rand($kn_4)) + $ci_dmg;
	}elsif($ksyoku == 4){$dmg1 += int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 5){$dmg1 += int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 6){$dmg1 += int(rand($kn_2)) + int(rand($kn_6)) + $ci_dmg;
	}elsif($ksyoku == 7){$dmg1 += int(rand($kn_1)) + int(rand($kn_6)) + $ci_dmg;
	}elsif($ksyoku == 8){$dmg1 += int(rand($kn_0)) + int(rand($kn_4)) + $ci_dmg;
	}elsif($ksyoku == 9){$dmg1 += int(rand($kn_1)) + int(rand($kn_2)) + $ci_dmg;
	}elsif($ksyoku == 10){$dmg1 += int(rand($kn_0)) + int(rand($kn_2)) + $ci_dmg;
	}elsif($ksyoku == 11){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 12){$dmg1 += int(rand($kn_0)) + int(rand($kn_3)) + $ci_dmg;
	}elsif($ksyoku == 13){$dmg1 += int(rand($kn_0)) + int(rand($kn_4)) + $ci_dmg;
	}elsif($ksyoku == 14){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 15){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + $ci_dmg;
	}elsif($ksyoku == 16){$dmg1 += int(rand($kn_0)) + int(rand($kn_4)) + $ci_dmg;
	}elsif($ksyoku == 17){$dmg1 += int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_6)) + $ci_dmg;
	}elsif($ksyoku == 18){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6)) + int($klp) + $ci_dmg;
	}elsif($ksyoku == 19){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6)) + int($klp) + $ci_dmg;
	}elsif($ksyoku == 20){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6)) + int($klp) + $ci_dmg;
	}elsif($ksyoku == 21){$dmg1 += int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6)) + int($klp) + $ci_dmg;
	}elsif($ksyoku == 22){$dmg1 += ((int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6)) + int($klp)) * 2) + $ci_dmg;
}
#------------------#
#　挑戦者の必殺技　#
#------------------#
sub tyosenwaza {

	#機種判定
	$agent = $ENV{'HTTP_USER_AGENT'};
	($browser,$version,$model) = split(/\//,$agent);
	if ($browser eq "DoCoMo") {$com1="";}

	# クリティカル
	$waza_ritu = int(($klp / 15)) + 10 + $kcllv;
	if($waza_ritu > 75){$waza_ritu = 75;}
	$waza_ritu += $a_wazaup;
	if($mode eq 'isekiai' or $mode eq 'genei'){$waza_ritu = int($waza_ritu/3);}
	elsif($mode eq 'boss'){$waza_ritu = int($waza_ritu/2);}
	#ＨＰが１／１０時に必殺率＋１００％
	if(int($kmaxhp / 10) > $khp_flg){
		$waza_ritu +=999;
		$com1 .="<P><font class=\"red\" size=4>LIMMIT BREAK!!</font></P>";
		}

	# 封印球の効果
	if($wa_kouka == 19 and $a_kouka != 24 and $a_kouka != 19){
		if($ksyoku > 16 or $mode eq 'boss' or $mode eq 'isekiai'){$com2 .="<P><font color=\"$red\">$wa_nameが光を放つ！！$kname には効かなかった！！</font></P>";}
		elsif($ksyoku > 7){if(int(rand(5))==0){$waza_ritu = 0;$com2 .="<P><font color=\"$yellow\">$wa_nameが光を放つ！！$kname の必殺技を封じ込めた！！</font></P>";}}
		else{if(int(rand(2))==0){$a_kouka =0;$waza_ritu = 0;$com2 .="<P><font color=\"$yellow\">$wa_nameが光を放つ！！$kname の必殺技を封じ込めた！！</font></P>";}}
	}

	if($ktac == 1){
		if($waza_ritu > int(rand(80))) {
			$dmg1 += ($kn_0+$kcllv) * int(rand(50));
			$com1 .="<P><font class=\"red\" size=5>必殺技凶斬り！！！</font></P>";
			}
		}
	if($ktac == 2){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(7))+1;
			$dmg1 += ($kn_0+$kcllv) * int(rand(10));
			$dmg1 = $dmg1 * $dhit;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"white\" size=5>必殺技！！！超究武神覇斬！！！</font><font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 3){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kcllv) * int(rand(50));
			$com1 .="<P><font class=\"red\" size=5>黒魔法ファイガ！！！</font></P>";
			}
		}
	if($ktac == 4){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kcllv) * int(rand(100));
			$com1 .="<P><font class=\"red\" size=5>黒魔法フレア！！！</font></P>";
			}
		}
	if($ktac == 5){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(15))+1;
			$dmg1 = ($kn_1+$kcllv) * int(rand(10));
			$dmg1 = $dmg1 * $dhit;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"yellow\" size=5>黒魔法メテオ！！！</font><font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 7){
		if($waza_ritu > int(rand(120))) {
			$hpplus1 = ($kn_2+$kcllv) * int(rand($klp));
			$com1 .="<P><font class=\"white\" size=5>白魔法ケアルガ！！！</font></P>";
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
			}
		}
	if($ktac == 8){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_2+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"white\" size=5>白魔法ホーリー！！！</font></P>";
			}
		}
	if($ktac == 10){
		if($waza_ritu > int(rand(120))) {
			$gold += $klp * int(rand($kn_4))+1;
			$com1 .="<P><font class=\"yellow\">お金を盗んだ♪合計$goldＧゲット♪</font></P>";
			}
		}
	if($ktac == 11){
		if($waza_ritu > int(rand(120))) {
			$dmg1+= (($kn_4+$kcllv) * int(rand(50)));
			$com1 .="<P><font class=\"yellow\" size=5>必殺技ライフ・デジョン！！！</font></P>";
			$hpplus1 = int($dmg1 / 5);
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
			}
		}
	if($ktac == 12){
		if($waza_ritu > int(rand(80))) {
			$sake1 += 999;
			$com1 .="<P><font class=\"yellow\" size=5>時空魔法ヘイスト！！！（回避率激増）</font></P>";
			}
		}
	if($ktac == 14){
		if($waza_ritu > int(rand(120))) {
			$i = $turn;
			$com1 .="<P><font class=\"yellow\" size=5>時空魔法テレポ！！！</font></P>";
			}
		}
	if($ktac == 15){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"white\" size=5>赤魔法トルネド！！！</font></P>";
			}
		}
	if($ktac == 16){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$wd_dmg = 0;
			$dmg1 = ($kn_1+$kcllv) * int(rand(40));
			$com1 .="<P><font class=\"red\" size=5>赤魔法メルトン！！！（防御力無効）</font></P>";
			}
		}
	if($ktac == 18){
		if($waza_ritu > int(rand(80))) {
			$hpplus1 = ($kn_6+$kcllv) * int(rand($klp));
			$com1 .="<P><font class=\"white\" size=5>$knameは回復の歌を歌った♪</font></P>";
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
			}
		}
	if($ktac == 19){
		if($waza_ritu > int(rand(80))) {
			$sake1 += 999;
			$dmg1 += $dmg1;
			$com1 .="<P><font class=\"white\" size=5>$knameは勇奮の歌を歌った♪（攻撃力、回避率上昇）</font></P>";
			}
		}
	if($ktac == 20){
		if($waza_ritu > int(rand(80))) {
			$ci_dmg += $ci_dmg;
			$cd_dmg += $cd_dmg;
			$com1 .="<P><font class=\"white\" size=5>$knameは祝福の歌を歌った♪（攻撃力、防御力増大、効果持続）</font></P>";
			}
		}
	if($ktac == 21){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kcllv) * int(rand(100));
			$com1 .="<P><font class=\"red\" size=4>幻獣イフリートを召還！！地獄の火炎！！</font></P>";
			}
		}
	if($ktac == 22){
		if($waza_ritu > int(rand(120))) {
			$dmg1 = int($mhp / 3) + int($whp_flg / 3);
			$dmg1 = int($dmg1);
			$com1 .="<P><font class=\"blue\" size=4>幻獣ディアボロスを召還！！グラビガ！！</font></P>";
			}
		}
	if($ktac == 24){
		if($waza_ritu > int(rand(80))) {
			$sake1 += 999;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"white\" size=5>ジャンプ！！</font></P>";
			}
		}
	if($ktac == 25){
		if($waza_ritu > int(rand(120))) {
			$sake1 += 999;
			$sake2 -= 999999;
			$dmg1+= (($kn_0+$kcllv) * int(rand(60)));
			$com1 .="<P><font class=\"white\" size=5>ハイウインド！！</font></P>";
			}
		}
	if($ktac == 27){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kcllv) * int(rand(160));
			$com1 .="<P><font class=\"yellow\" size=5>黒魔法コメット！！！</font></P>";
			}
		}
	if($ktac == 28){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kn_2+$kcllv) * int(rand(300));
			$com1 .="<P><font class=\"white\" size=5>神聖魔法ジハード！！！</font></P>";
			}
		}
	if($ktac == 29){
		if($waza_ritu > int(rand(150))) {
			$hpplus1 = $kmaxhp;
			$com1 .="<P><font class=\"yellow\" size=4>大いなる福音♪$knameの傷が完全に回復した！！</font></P>";
			}
		}
	if($ktac == 31){
		if($waza_ritu > int(rand(80))) {
			$ci_dmg = $ci_dmg * 2;
			$com1 .="<P><font class=\"yellow\" size=5>古代魔法オーラ！！！（武器攻撃力２倍効果持続）</font></P>";
			}
		}
	if($ktac == 32){
		if($waza_ritu > int(rand(120))) {
			$dmg1 +=($kn_0+$kn_2+$kcllv) * int(rand(180));
			$com1 .="<P><font class=\"white\">必殺技！！ホーリースラッシュ！！</font></P>";
			}
		}
	if($ktac == 34){
		if($waza_ritu > int(rand(80))) {
			$dmg1 +=($kn_0+$kn_4+$kn_5+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"white\">必殺技！！燕返し！！</font></P>";
			}
		}
	if($ktac == 35){
		if($waza_ritu > int(rand(120))) {
			if(int(rand(3)) == 0) {
				$dmg1 = $mhp + $whp_flg;
				$com1 .="<P><font class=\"white\" size=6><i>斬・鉄・剣！！</i></font></P>";
			}else{
				$com1 .="<P><font class=\"white\"><i>斬・鉄・剣！！失敗！！</i></font></P>";
				}
			}
		}
	if($ktac == 36){
		if($waza_ritu > int(rand(80))) {
			$dmg1 +=($kn_0+$kn_4+$kn_5+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"yellow\" size=6>$knameは大きな気の塊を$mname $wnameに放った！！</font></P>";
			}
		}
	if($ktac == 37){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(7))+1;
			$dmg1 = $dmg1 * $dhit;
			$com1 .="<P><font class=\"yellow\" size=4>必殺技！！！無限乱武！！！</font><font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 38){
		if($waza_ritu > int(rand(120))) {
			$dmg1 +=($kn_0+$kn_1+$kn_2+$kn_3+$kn_4+$kn_5+$kn_6+$klp+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"yellow\" size=4>必殺技！！！ファイナルヘヴン！！！</font></P>";
			}
		}
	if($ktac == 39){
		if($waza_ritu > int(rand(80))) {
			$sake1 += 999;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"green\" size=4>影縫いの術！！（姿を消して$mname $wnameに忍び寄る！！）</font></P>";
			}
		}
	if($ktac == 40){
		if($waza_ritu > int(rand(80))) {
			$dhit = int(rand(7))+1;
			$dmg1 = $dmg1 * $dhit;
			$com1 .="<P><font class=\"yellow\" size=4>分身の術！！</font><font color=red>$dhit体の分身が一斉に攻撃！！</font></P>";
			}
		}
	if($ktac == 41){
		if($waza_ritu > int(rand(120))) {
			$dmg1 +=($kn_0+$kn_1+$kn_2+$kn_3+$kn_4+$kn_5+$kn_6+$klp+$kcllv) * int(rand(20));
			$sake2 -= 999999;
			$com1 .="<P><font class=\"yellow\" size=4>森羅万象！！（全てのエネルギーを解放！！）</font></P>";
			}
		}
	if($ktac == 42){
		$dmg1 += $kn_0 * int(rand(10));
		$hpplus1 = int(0)-int($dmg1 * 0.1);
		$com1 .="<P><font class=\"dark\" size=5>暗黒剣！！（自分にもダメージ）</font></P>";
		}
	if($ktac == 43){
		if($waza_ritu > int(rand(120))) {
			$dmg1 = ($kn_1+$kcllv) * int(rand(20));
			$hpplus1 = $dmg1;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"dark\" size=4>暗黒魔法ドレイン！！！</font></P>";
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
			}
		}
	if($ktac == 44){
		if($waza_ritu > int(rand(120))) {
			$dmg1 += ($kn_1+$kcllv) * int(rand(360));
			$hpplus1 = int($dmg1 / 10);
			$com1 .="<P><font class=\"dark\" size=4>必殺技！！ダーク・イリュージョン！！！</font></P>";
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
			}
		}
	if($ktac == 45){
		if($waza_ritu > int(rand(80))) {
			$dmg1 += ($kn_0+$kn_1+$kcllv) * int(rand(50));
			$com1 .="<P><font class=\"red\" size=5>ファイガ剣！！！</font></P>";
			}
		}
	if($ktac == 46){
		if($waza_ritu > int(rand(120))) {
			$dmg1 += ($kn_0+$kn_2+$kcllv) * int(rand(80));
			$com1 .="<P><font class=\"white\" size=5>ホーリー剣！！！</font></P>";
			}
		}
	if($ktac == 47){
		if($waza_ritu > int(rand(120))) {
			$dmg1 += ($kn_0+$kn_1+$kn_2+$kcllv) * int(rand(160));
			$com1 .="<P><font class=\"yellow\" size=5>アルテマ剣！！！</font></P>";
			}
		}
	if($ktac == 48){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 += $dmg1;
			$com1 .="<P>狙いを定めた！！<P>";
			}
		}
	if($ktac == 49){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(7))+1;
			$dmg1 = $dmg1 * $dhit;
			$com1 .="<P>乱れ撃ち！！<font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 50){
		if($waza_ritu > int(rand(120))) {
			if(int(rand(3)) == 0) {
				$dmg1 = $mhp + $whp_flg;
				$sake2 -= 999999;
				$com1 .="<P><font class=red>急所に狙いを定めた！！</font></P>";
				}
			}
		}
	if($ktac == 51){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kn_2+$kcllv) * int(rand(200));
			$com1 .="<P><font class=\"blue\" size=4>幻獣リヴァイアサンを召還！！大海嘯！！</font></P>";
			}
		}
	if($ktac == 52){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kn_2+$kcllv) * int(rand(200));
			$com1 .="<P><font class=\"red\" size=4>幻獣バハムートを召還！！メガフレア！！</font></P>";
			}
		}
	if($ktac == 53){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(11))+1;
			$sake2 -= 999999;
			$dmg1 = ($kn_1+$kn_2+$kcllv) * int(rand(100));
			$dmg1 = $dmg1 * $dhit;
			$com1 .="<P><font class=\"yellow\" size=4>幻獣ナイツ・オブ・ラウンドを召還！！</font><font color=red>$dhit人の騎士が力を貸した！！</font></P>";
			}
		}
	if($ktac == 54){
		if($waza_ritu > int(rand(80))) {
			$sake2 -= 999999;
			$dmg1 =($kn_1+$kn_2+$kcllv) * int(rand(160));
			$com1 .="<P><font class=\"white\" size=5>禁断魔法アルテマ！！！</font></P>";
			}
		}
	if($ktac == 55){
		if($waza_ritu > int(rand(120))) {
			if(int(rand(3)) == 0) {
				$sake2 -= 999999;
				$dmg1 = $wmaxhp + $mhp_flg;
				$com1 .="<p><font class=\"yellow\" size=5>時空魔法デジョン！！！</font></P>";
			}else{
				$com1 .="<p><font class=\"red\" size=5>時空魔法デジョン！！！失敗した。。</font></P>";
				}
			}
		}
	if($ktac == 56){
		if($waza_ritu > int(rand(120))) {
			$sake2 -= 999999;
			$dmg1 =($kn_0+$kn_1+$kn_2+$kn_3+$kn_4+$kn_5+$kn_6+$klp+$kcllv) * int(rand(360));
			$com1 .="<P><font class=\"white\" size=5>青魔法ショック・ウェーブ・パルサー！！！</font></P>";
			}
		}
	if($ktac == 57){
		if($waza_ritu > int(rand(80))) {
			$dmg1 += ($kn_0+$kcllv) * int(rand(160));
			$com1 .="<P><font class=\"yellow\" size=5>必殺技！！ラブディバイド！！</font></P>";
			}
		}
	if($ktac == 58){
		if($waza_ritu > int(rand(120))) {
			$dmg1 += ($kn_0+$kcllv) * int(rand(320));
			$com1 .="<P><font class=\"yellow\" size=5>必殺技！！ブラスティングゾーン！！</font></P>";
			}
		}
	if($ktac == 59){
		if($waza_ritu > int(rand(120))) {
			$dhit = int(rand(15))+1;
			$dmg1 += ($kn_0 + $kn_5) * int(rand(80));
			$dmg1 = $dmg1 * $dhit;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"white\" size=5>必殺技！！！エンド・オブ・ハート！！！</font><font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 60 or $ktac == 61){
		if($waza_ritu > int(rand(100))) {
		$com1 .= "<p><font color=\"$white\">$knameは、タロットカードを一枚捲った！！ 生か死か？ 全てはこの運命のカード一枚に委ねられたッ！！</font></p>";
		$ura = int(rand(22));
		if(0 == $ura) {
			$com1 .= "THE MAGICIAN！！！！\n";
			$dmg1+= ($kn_1 + $kn_2) * int(rand(80));
			$sake2 -= 999999;
		}elsif(1 == $ura) {
			$com1 .= "THE CHARIOT！！！！\n";
			$dmg1+= ($kn_0 + $kn_4) * int(rand(80));
			$sake2 -= 999999;
		}elsif(2 == $ura) {
			$com1 .= "STRENGTH！！！\n";
			$dmg1+= ($kn_0 + $kn_3) * int(rand(80));
			$sake2 -= 999999;
		}elsif(3 == $ura) {
			$com1 .= "THE HIGH PRIESTESS！！！\n";
			$hpplus1 = ($kn_1 + $kn_2) * int(rand(180));
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
		}elsif(4 == $ura) {
			$com1 .= "THE HIEROPHANT！！！！\n";
			$dmg1+= ($kn_0 +$kn_1 + $kn_2) * int(rand(80));
			$sake2 -= 999999;
		}elsif(5 == $ura) {
			$com1 .= "THE EMPRESS！！！！\n";
			$dmg1+= ($kn_0 +$kn_1 + $kn_2) * int(rand(120));
			$sake2 -= 999999;
		}elsif(6 == $ura) {
			$com1 .= "THE EMPEROR！！！！！\n";
			$dmg1+= ($kn_0 +$kn_1 + $kn_2) * int(rand(180));
			$sake2 -= 999999;
		}elsif(7 == $ura) {
			$com1 .= "THE LOVERS！！！！\n";
			$hpplus1 = $kn_3 * int(rand(80));
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
		}elsif(8 == $ura) {
			$com1 .= "THE HERMIT！！！！\n";
			$dmg1+= $kn_6 * int(rand(80));
			$sake2 -= 999999;
		}elsif(9 == $ura) {
			$com1 .= "WHEEL of FORTUNE！！！！\n";
			$dmg1 = ($kn_0 +$kn_1 + $kn_2 + $kn_3 +$kn_4 + $kn_5 + $kn_6) * int(rand(80));
			$sake2 -= 999999;
		}elsif(10 == $ura) {
			$com1 .= "JUSTICE！！！！\n";
			$dmg1+= ($kn_0 + $kn_2 ) * int(rand(180));
			$sake2 -= 999999;
		}elsif(11 == $ura) {
			$com1 .= "THE HANGEDMAN！！！！\n";
			$dmg1 = int(0);
		}elsif(12 == $ura) {
			$com1 .= "DEATH！！！！\n";
			$dmg1 = $whp_flg + $mhp + $wd_dmg;
			$sake2 -= 999999;
		}elsif(13 == $ura) {
			$com1 .= "TEMPERANCE！！！！\n";
			$dmg1 = ($kn_0 +$kn_1 + $kn_2 + $kn_3 +$kn_4 + $kn_5 + $kn_6) * int(rand(80));
			$sake2 -= 999999;
		}elsif(14 == $ura) {
			$com1 .= "THE DEVIL！！！！\n";
			$dmg1 = 0;
			$dmg2 = $khp_flg;
			$sake1 -= 999999;
		}elsif(15 == $ura) {
			$com1 .= "THE TOWER！！！！\n";
			$hpplus2 = ($kn_0 +$kn_1 + $kn_2 + $kn_3 +$kn_4 + $kn_5 + $kn_6) * int(rand(180));
			$kaihuku2 .= "$wname のＨＰが $hpplus2 回復した！♪";
		}elsif(16 == $ura) {
			$com1 .= "THE STAR！！！！\n";
			$dmg1+= ($kn_2 + $kn_6) * int(rand(80));
		}elsif(17 == $ura) {
			$com1 .= "THE MOON！！！！\n";
			$hpplus1 = ($kn_1 + $kn_2) * int(rand(80));
			$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";
		}elsif(18 == $ura) {
			$com1 .= "THE SUN！！！！\n";
			$dmg1+= ($kn_0 + $kn_4) * int(rand(999));
			$sake2 -= 999999;
		}elsif(19 == $ura) {
			$com1 .= "THE JUDGEMENT！！！！\n";
			$dmg1+= ($kn_1 + $kn_2) * int(rand(999));
			$sake2 -= 999999;
		}elsif(20 == $ura) {
			$com1 .= "THE WORLD！！！！\n";
			$dmg1 = ($kn_0 +$kn_1 + $kn_2 + $kn_3 +$kn_4 + $kn_5 + $kn_6) * int(rand(80));
			$sake2 -= 999999;
		}else{
			$com1 .= "THE FOOL\n";
			$dmg1 = int(1);
			}
		if($ktac == 61){
			$dmg1 += $dmg1;
			$dmg2 += $dmg2;
			$hpplus1 += $hpplus1;
			$hpplus2 += $hpplus2;
			$com1 .="<P><font color=$red>効果倍増</font></P>";
			}
			}
		}
	if($ktac == 62){
		if($waza_ritu > int(rand(120))) {
			$dmg1 =($kn_0+$kn_1+$kn_2+$kn_3+$kn_4+$kn_5+$kn_6+$klp+$kcllv) * int(rand(400));
			$sake2 -= 999999;
			$com1 .="<P><font class=\"yellow\" size=4>スター・ダスト・フォーチューン（全ての運命を砕く。。。）</font></P>";
			}
		}
	if($ktac == 64){
		if($waza_ritu > int(rand(80))) {
			$dhit = int(rand(15))+1 * 2;
			$dmg1 = ($kn_1+$kcllv) * int(rand(20));
			$dmg1 = $dmg1 * $dhit;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"yellow\" size=5>古代魔法Ｗメテオ！！！</font><font class=small>$dhit連続ヒット！！</font></P>";
			}
		}
	if($ktac == 65){
		if($waza_ritu > int(rand(120))) {
			$dmg1 = ($kn_1 + $kn_2) * int(rand(100));$com1 .="<p><font class=\"yellow\" size=5>禁断魔法アルテマ！！</font>";
			if($waza_ritu > int(rand(80))) {$dmg1 += ($kn_2) * int(rand(80));$com1 .="<p><font class=\"white\" size=5>ホーリー！！</font>";}
			if($waza_ritu > int(rand(80))) {$dmg1 += ($kn_1) * int(rand(80));$com1 .="<p><font class=\"red\" size=5>フレア！！</font>";}
			if($waza_ritu > int(rand(80))) {$dmg1 += ($kn_1) * int(rand(100));$com1 .="<p><font class=\"red\" size=5>メテオ！！</font>";}
			$sake2 -= 999999;
			}
		}
	if($ktac == 66){
		if($waza_ritu > int(rand(120))) {
			$dmg1 =($kn_0+$kn_1+$kn_2+$kn_3+$kn_4+$kn_5+$kn_6+$klp+$kcllv) * int(rand(800));
			$sake2 -= 999999;
			$com1 .="<P><font class=\"white\" size=5>最強魔法アポガリプス！！！</font></P>";
			}
		}

}
#------------------#
#　レベルアップ  　#
#------------------#
sub levelup {
	if($klv < $charamaxlv){
	#職業別ボーナス加算処理
	open(IN,"$syoku_file");
	@syoku = <IN>;
	close(IN);
	my ($a,$b,$c,$d,$e,$f,$g,$h,$k0,$k1,$k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9,$k10,$k11,$k12,$k13,$k14,$k15,$k16,$k17,$k18,$k19,$k20,$k21,$k22,$sy_0,$sy_1,$sy_2,$sy_3,$sy_4,$sy_5,$sy_6,$sylp) = split(/<>/,$syoku[$ksyoku]);
	while($kex >= ($klv * $lv_up)) {
		$comment .= "<p><font class=white size=5>$knameは、レベルが上がった！！</font><p/>";
		$hpup = int(rand($kn_3)) * 3 + $kn_3;
		#ジョブマスターの処理
		if($kcllv == 59){$comment .= "<font class=red size=5>$chara_syoku[$ksyoku]をマスターした！！新しい必殺技を覚えた！！</font></P>";}
		if($kcllv < 60){$kcllv++;}else{$kcllv=60;}
		if($kcllv == 60){
			if($ksyoku==0){$ks0=1;}
			elsif($ksyoku==1){$ks1=1;}
			elsif($ksyoku==2){$ks2=1;}
			elsif($ksyoku==3){$ks3=1;}
			elsif($ksyoku==4){$ks4=1;}
			elsif($ksyoku==5){$ks5=1;}
			elsif($ksyoku==6){$ks6=1;}
			elsif($ksyoku==7){$ks7=1;}
			elsif($ksyoku==8){$ks8=1;}
			elsif($ksyoku==9){$ks9=1;}
			elsif($ksyoku==10){$ks10=1;}
			elsif($ksyoku==11){$ks11=1;}
			elsif($ksyoku==12){$ks12=1;}
			elsif($ksyoku==13){$ks13=1;}
			elsif($ksyoku==14){$ks14=1;}
			elsif($ksyoku==15){$ks15=1;}
			elsif($ksyoku==16){$ks16=1;}
			elsif($ksyoku==17){$ks17=1;}
			elsif($ksyoku==18){$ks18=1;}
			elsif($ksyoku==19){$ks19=1;}
			elsif($ksyoku==20){$ks20=1;}
			elsif($ksyoku==21){$ks21=1;}
			elsif($ksyoku==22){$ks22=1;}
			}
		$khp = $kmaxhp;
		if($kmaxhp < $charamaxhp) {
			$kmaxhp = $kmaxhp + $hpup;
			$agent = $ENV{'HTTP_USER_AGENT'};
			($browser,$version,$model) = split(/\//,$agent);
			if ($browser eq "DoCoMo") {$comment .= "ＨＰ<font class=yellow>$hpup</font>UP";}
			else{$comment .= "ＨＰが<font class=yellow>$hpup</font>上がった！！";}
		}
		else{
			$hpup = $charamaxhp - $kmaxhp;
			$kmaxhp = $charamaxhp;
		}
		$kex = $kex - int($klv * $lv_up);
		$klv += 1;
		$t1=0;$t2=0;$t3=0;$t4=0;$t5=0;$t6=0;$t7=0;$t8=0;
		$k0up = int(rand($sy_0))+1;
		$k1up = int(rand($sy_1))+1;
		$k2up = int(rand($sy_2))+1;
		$k3up = int(rand($sy_3))+1;
		$k4up = int(rand($sy_4))+1;
		$k5up = int(rand($sy_5))+1;
		$k6up = int(rand($sy_6))+1;
		$klpup = int(rand($sylp))+1;
		if(int(rand(2)) == 0) { $kn_0 += $k0up; $t1 = 1;}
		if(int(rand(2)) == 0) { $kn_1 += $k1up; $t2 = 1;}
		if(int(rand(2)) == 0) { $kn_2 += $k2up; $t3 = 1;}
		if(int(rand(2)) == 0) { $kn_3 += $k3up; $t4 = 1;}
		if(int(rand(2)) == 0) { $kn_4 += $k4up; $t5 = 1;}
		if(int(rand(2)) == 0) { $kn_5 += $k5up; $t6 = 1;}
		if(int(rand(2)) == 0) { $kn_6 += $k6up; $t7 = 1;}
		if(int(rand(2)) == 0) { $klp  += $klpup; $t8 = 1;}
		if($kn_0 > $charamaxpm)  { $kn_0 = $charamaxpm; $t1 = 0;}
		if($kn_1 > $charamaxpm)  { $kn_1 = $charamaxpm; $t2 = 0;}
		if($kn_2 > $charamaxpm)  { $kn_2 = $charamaxpm; $t3 = 0;}
		if($kn_3 > $charamaxpm)  { $kn_3 = $charamaxpm; $t4 = 0;}
		if($kn_4 > $charamaxpm)  { $kn_4 = $charamaxpm; $t5 = 0;}
		if($kn_5 > $charamaxpm)  { $kn_5 = $charamaxpm; $t6 = 0;}
		if($kn_6 > $charamaxpm)  { $kn_6 = $charamaxpm; $t7 = 0;}
		if($klp  > $charamaxpm)  { $klp  = $charamaxpm; $t8 = 0;}
		$agent = $ENV{'HTTP_USER_AGENT'};
		($browser,$version,$model) = split(/\//,$agent);
		if ($browser eq "DoCoMo") {
			if($t1) { $comment .= "力<font class=yellow>$k0up</font> UP"; }
			if($t2) { $comment .= "魔力<font class=yellow>$k1up</font> UP"; }
			if($t3) { $comment .= "信仰心<font class=yellow>$k2up</font> UP"; }
			if($t4) { $comment .= "生命力<font class=yellow>$k3up</font> UP"; }
			if($t5) { $comment .= "器用さ<font class=yellow>$k4up</font> UP"; }
			if($t6) { $comment .= "速さ<font class=yellow>$k5up</font> UP"; }
			if($t7) { $comment .= "魅力<font class=yellow>$k6up</font> UP"; }
			if($t8) { $comment .= "カルマ<font class=yellow>$klpup</font> UP"; }
		}else{
			if($t1) { $comment .= "力が<font class=yellow>$k0up</font>上がった。"; }
			if($t2) { $comment .= "魔力が<font class=yellow>$k1up</font>上がった。"; }
			if($t3) { $comment .= "信仰心が<font class=yellow>$k2up</font>上がった。"; }
			if($t4) { $comment .= "生命力が<font class=yellow>$k3up</font>上がった。"; }
			if($t5) { $comment .= "器用さが<font class=yellow>$k4up</font>上がった。"; }
			if($t6) { $comment .= "速さが<font class=yellow>$k5up</font>上がった。"; }
			if($t7) { $comment .= "魅力が<font class=yellow>$k6up</font>上がった。"; }
			if($t8) { $comment .= "カルマが<font class=yellow>$klpup</font>上がった。"; }
			}
	}
	}
}
#------------------#
#　武器防具読み込み#
#------------------#
sub item_read {

	if($kitem){
		open(IN,"$item_file");
		@battle_item = <IN>;
		close(IN);

		foreach(@battle_item){
			($ci_no,$ci_name,$ci_dmg,$ci_gold,$ci_plus) = split(/<>/);
			if($kitem eq $ci_no) { last; }
		}
	}
	if($witem){
		open(IN,"$item_file");
		@battle_item = <IN>;
		close(IN);

		foreach(@battle_item){
			($wi_no,$wi_name,$wi_dmg,$wi_gold,$wi_plus) = split(/<>/);
			if($witem eq $wi_no) { last; }
		}
	}

	if($kdef){
		open(IN,"$def_file");
		@battle_def = <IN>;
		close(IN);

		foreach(@battle_def){
			($cd_no,$cd_name,$cd_dmg,$cd_gold,$cd_plus) = split(/<>/);
			if($kdef eq $cd_no) { last; }
		}
	}
	if($wdef){
		open(IN,"$def_file");
		@battle_def = <IN>;
		close(IN);

		foreach(@battle_def){
			($wd_no,$wd_name,$wd_dmg,$wd_gold,$wd_plus) = split(/<>/);
			if($wdef eq $wd_no) { last; }
		}
	}

	$hit=0;
	if($kacsno){
		open(IN,"$acs_file");
		@log_acs = <IN>;
		close(IN);

		foreach(@log_acs){
			($a_no,$a_name,$a_gold,$a_kouka,$a_0up,$a_1up,$a_2up,$a_3up,$a_4up,$a_5up,$a_6up,$a_lpup,$a_hitup,$a_kaihiup,$a_wazaup) = split(/<>/);
			if($kacsno eq "$a_no"){$hit=1;last; }
		}
		if(!$hit) { $a_name="-";$a_kouka=0; $a_0up=0;$a_1up=0;$a_2up=0;$a_3up=0;$a_4up=0;$a_5up=0;$a_6up=0;$a_lpup=0;$a_hitup=0;$a_kaihiup=0;$a_wazaup=0;}
	}
	$hit=0;
	if($wacsno){
		open(IN,"$acs_file");
		@log_acs = <IN>;
		close(IN);

		foreach(@log_acs){
			($wa_no,$wa_name,$wa_gold,$wa_kouka,$wa_0up,$wa_1up,$wa_2up,$wa_3up,$wa_4up,$wa_5up,$wa_6up,$wa_lpup,$wa_hitup,$wa_kaihiup,$wa_wazaup) = split(/<>/);
			if($wacsno eq "$wa_no"){$hit=1;last; }
		}
		if(!$hit) { $wa_name="-";$wa_kouka=0; $wa_0up=0;$wa_1up=0;$wa_2up=0;$wa_3up=0;$wa_4up=0;$wa_5up=0;$wa_6up=0;$wa_lpup=0;$wa_hitup=0;$wa_kaihiup=0;$wa_wazaup=0;}
	}

}
#------------------#
#挑アクセサリー効果#
#------------------#
sub acs_waza {

	if($ktac == 6){
		if($waza_ritu > int(rand(80))) {
			$dmg2 = int($dmg2 * 0.1);
			$com1 .="<P><font class=\"white\">白魔法シェル！！！</font></P>";
			}
		}
	if($ktac == 9){
		if($waza_ritu > int(rand(80))) {
			if($wsyoku > 16 or $mode eq 'isekai' or $mode eq 'boss'){$com1 .="<P>$knameが叫んだ！<font size=5>「あ！あれはなんだ！？？？？」</font>$wname $mnameには効かなかった！！<P/>";
			}else{
			$sake2 -= 999999;
			$dmg2 = 0;
			$com1 .="<P>$knameが叫んだ！<font size=5>「あ！あれはなんだ！？？？？」</font>$wname $mnameに隙ができた！<P>";
			}
			}
		}
	if($ktac == 13){
		if($waza_ritu > int(rand(120))) {
			if($wsyoku > 16 or $mode eq 'isekai' or $mode eq 'boss'){$com1 .="<P><font class=\"yellow\" size=5>時空魔法ストップ！！！</FONT>$wname $mnameには効かなかった！！<P/>";
			}else{
			$sake2 -= 999999;
			$dmg2 = 0;
			$com1 .="<P><font class=\"yellow\" size=5>時空魔法ストップ！！！</font>$wname $mnameの動きを止めた！</P>";
			}
			}
		}
	if($ktac == 17){
		if($waza_ritu > int(rand(120))) {
			if($wsyoku > 16 or $mode eq 'isekai' or $mode eq 'boss'){$com2 .="<P><font class=\"red\" size=5>赤魔法ウオール！！！</FONT>$wname $mnameには効かなかった！！<P/>";
			}else{
			$sake1 += 999;
			$dmg2 = 0;
			$com1 .="<P><font class=\"white\" size=5>赤魔法ウオール！！！（全ての攻撃を無効）</font></P>";
			}
			}
		}
	if($ktac == 23){
		if($waza_ritu > int(rand(120))) {
			if($wsyoku > 16 or $mode eq 'isekai' or $mode eq 'boss'){$com1 .="<P><font class=\"yellow\" size=4>幻獣カーバンクルを召還！！リフレク！！</FONT>$wname $mnameには効かなかった！！<P/>";
			}else{
			$dmg1 += $dmg2;
			$dmg2 = 0;
			$com1 .="<P><font class=\"yellow\" size=4>幻獣カーバンクルを召還！！リフレク！！（攻撃を反射）</font></P>";
			}
			}
		}
	if($ktac == 26){
		if($waza_ritu > int(rand(120))) {
			$sake1 += 999;
			$sake2 -= 999999;
			$dmg1+= (($kn_0+$kn_4+$kcllv) * int(rand(160)));
			$com1 .="<P><font class=\"white\" size=5>旋空飛竜滅殺槍！！</font></P>";
			}
		}
	if($ktac == 30){
		$dmg2 = int($dmg2 * 0.5);
		$com1 .="<P>$knameは防御している。。。<P>";
		}
	if($ktac == 33){
		if($waza_ritu > int(rand(120))) {
			if($wsyoku <= 16 and $mode ne 'isekai' and $mode ne 'boss'){
			$dmg2 = 0;
			$com1 .="<P><font class=\"white\">真剣白刃取り！！</font></P>";
			}
			}
		}
	if($ktac == 63){
		$dmg1 = $dmg2;
		$sake1 = $sake2;
		$hpplus1 = $hpplus2;
		$clit1 = $clit2;
		if($hpplus1){$kaihuku1 .= "$kname のＨＰが $hpplus1 回復した！♪";}
		$com1 .="<P><font class=\"red\">$mname $wnameのものまね〜♪</font></P>";
		}

	if($a_kouka == 1){
		$hpplus1 += int($klp * rand(10));
		$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！$kname のＨＰが $hpplus1 回復♪</font></P>";
	}
	if($a_kouka == 2){
		$hpplus1 += int($klp * rand(50));
		$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！$kname のＨＰが $hpplus1 回復♪</font></P>";
	}
	if($a_kouka == 3){
		$hpplus1 += int($klv * rand(200));
		$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！$kname のＨＰが $hpplus1 回復♪</font></P>";
	}
	if($a_kouka == 4 or $a_kouka == 16){
		$dmg2 = $dmg2 - int(dmg2 / 8);
	}
	if($a_kouka == 5 or $a_kouka == 18){
		$dmg2 = $dmg2 - int(dmg2 / 4);
	}
	if($a_kouka == 6 or $a_kouka == 20){
		$dmg2 = $dmg2 - int(dmg2 / 2);
	}
	if($a_kouka == 7 or $a_kouka == 17){
		$dmg1 += int($dmg1 / 2);
	}
	if($a_kouka == 8){
		$dmg1 += $dmg1;
	}
	if($a_kouka == 9 or $a_kouka == 20){
		$dmg1 += $dmg1 * 2;
	}
	if($a_kouka == 10){
		if(int(rand(5))==0){
			$ci_dmg = $ci_dmg * 2;
			$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！オーラの効果！！！（武器攻撃力２倍効果持続）</font></P>";
		}
	}
	if($a_kouka == 11){
		if(int(rand(5))==0){
			$hpplus1 = $kn_2 * int(rand($klp));
			$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！ケアルガの効果！！$kname のＨＰが $hpplus1 回復した！♪</font></P>";
		}
	}
	if($a_kouka == 12){
		if(int(rand(5))==0){
			$sake2 -= 999999;
			$dmg1 += $kn_2 * int(rand(80));
			$com1 .="<P><font class=\"white\" size=3>$a_nameが光を放つ！！ホーリーの効果！！</font></P>";
		}
	}
	if($a_kouka == 13){
		if(int(rand(5))==0){
			$sake2 -= 999999;
			$dmg1 += $kn_1 * int(rand(80));
			$com1 .="<P><font class=\"red\" size=3>$a_nameが光を放つ！！メテオの効果！！</font></P>";
		}
	}
	if($a_kouka == 14){
		if(int(rand(5))==0){
			$sake2 -= 999999;
			$dmg1 += ($kn_1 + $kn_2) * int(rand(100));
			$com1 .="<P><font class=\"white\" size=3>$a_nameが光を放つ！！アルテマの効果！！</font></P>";
		}
	}
	if($a_kouka == 15){
		if(int(rand(10))==0){
			$com1 .="<P><font class=\"dark\" size=3>$a_nameが光を放つ！！デジョンの効果！！</font></P>";
			if(int(rand(3)) == 0) {
				$sake2 -= 999999;
				$dmg1 = $wmaxhp + $mhp_flg;
				$com1 .="<p><font class=\"yellow\" size=5>時空魔法デジョン！！！</font></P>";
			}else{
				$com1 .="<p><font class=\"red\" size=5>時空魔法デジョン！！！失敗した。。</font></P>";
			}
		}
	}
	if($a_kouka == 21){
		if(int(rand(2))==0){
			$sake2 -= 999999;
			$dmg1 = ($kn_1 + $kn_2) * int(rand(500));
			$com1 .="<P><font class=\"green\" size=3>$a_nameが光を放つ！！時の狭間より古の魔神を呼び寄せた！！グランドクロス！！</font></P>";
		}
	}
	if($a_kouka == 22){
		if($khp_flg < $dmg2){
			if ($a_22lmt >= 3){
				$a_kouka == 0;
				$com1 .="<P><font class=\"red\" size=3>$a_nameは光らなかった。。。</font></P>";
			}else{
				$a_22lmt++;
				$dmg1 += $dmg2;
				$dmg2 = 0;
				$com1 .="<P><font class=\"white\" size=3>$a_nameが光を放つ！！$wname $mnameの攻撃を跳ね返した！！</font></P>";
			}
		}
	}
	if($a_kouka == 23){
		if($khp_flg < $dmg2){
			if ($a_23lmt >= 1){
				$a_kouka == 0;
				$com1 .="<P><font class=\"red\" size=3>$a_nameは光らなかった。。。</font></P>";
			}else{
				$a_23lmt++;
				$khp_flg = $kmaxhp + dmg2;
				$dmg2 = 0;
				$com1 .="<P><font class=\"white\" size=5>$a_nameが光を放つ！！$knameの傷が完全に回復した！！</font></P>";
			}
		}
	}
	if($wa_kouka == 19){
		if($a_kouka == 24){
			$dmg1 = $dmg1 * 10;
			$sake2 -= 999999;
			$com1 .="<P><font class=\"green\" size=3>$a_nameが光を放つ！！$wa_nameに封じ込めれれた力を解放！！</font></P>";
		}
	}
}
#------------------#
#挑アクセサリー加算#
#------------------#
sub acs_add {
	$kn_0 += $a_0up;
	$kn_1 += $a_1up;
	$kn_2 += $a_2up;
	$kn_3 += $a_3up;
	$kn_4 += $a_4up;
	$kn_5 += $a_5up;
	$kn_6 += $a_6up;
	$klp  += $a_lpup;
}
#------------------#
#挑アクセサリー減算#
#------------------#
sub acs_sub {
	$kn_0 -= $a_0up;
	$kn_1 -= $a_1up;
	$kn_2 -= $a_2up;
	$kn_3 -= $a_3up;
	$kn_4 -= $a_4up;
	$kn_5 -= $a_5up;
	$kn_6 -= $a_6up;
	$klp  -= $a_lpup;
}

}
1;