#-----------------------------------------------------------#
#  죄와 벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 전쟁중 처리 Version 1.0
#--- [주의사항] --------------------------------------------#
# 1.이 스크립트는 이하의 이용규정에 따라 배포되고 있습니다.	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 전쟁중 처리
sub wr_st {

	&syogo;

	if(!$ck){
		$log .="$date $cmp[$nation]에 진입했습니다<br>\n";
		$tm=0;

		&usrdata_read;

		$sach=0;
		while($sach<15){

			my $tg = int(rand($#usrfile));

			open(IN,"$usrdata$usrfile[$tg]") || &error("Can't open $usrfile[$tg].cgi",1);
			$tdat=<IN>;
			close(IN);

			# 참가자 스탯 취득
			%DAT = '';
			@prats = split(/,/,$tdat);
			foreach $prats (@prats){
				($key,$v) = split(/;/,$prats);
				$DAT{$key} = $v;
			}

			$z = ($lv-20);

			if ($nation==$DAT{'camp'} && $DAT{'lv'}>$z){
				$tnm	= $DAT{'nm'};		#이름 적
				$tlv	= $DAT{'lv'};		#레벨 적
				$thp	= $DAT{'max_hp'};	#HP
				$thp_max= $DAT{'max_hp'};	#HP
				$tmp	= $DAT{'max_mp'};	#MP
				$tua	= $DAT{'ua'};		#UA
				$tud	= $DAT{'ud'};		#UD
				$tag	= $DAT{'ag'};		#AG
				$tcp	= $DAT{'camp'};		#소속
				$tdf_a	= $DAT{'df_a'};		#방어구 적
				$tdg_a	= $DAT{'dg_a'};		#무구 적
				$tlr	= $DAT{'lr'};		#LR
				$tsol	= $g_p[$DAT{'rank'}];#계급
				$tsol_lv= $DAT{'sol_lv'};	#
				$ck=1;
			}
			$sach++;
		}

		# NPC 읽기
		if(!$tnm){
			require './inc/ore_sub-npc_1.cgi';
			local $v=int(rand(5));
			&ck_ne_1;
		}

		if($nation==1){
			$t_cs=$cs1;
		}elsif($nation==2){
			$t_cs=$cs2;
		}elsif($nation==3){
			$t_cs=$cs3;
		}elsif($nation==4){
			$t_cs=$cs4;
		}elsif($nation==5){
			$t_cs=$cs5;
		}


		if($tsol<=$t_cs){
			$t_cs-=$tsol;
		}elsif($tsol>$t_cs){
			$tsol=$t_cs;
		}

		if($nation==1){
			$cs1-=$tsol;
		}elsif($nation==2){
			$cs2-=$tsol;
		}elsif($nation==3){
			$cs3-=$tsol;
		}elsif($nation==4){
			$cs4-=$tsol;
		}elsif($nation==5){
			$cs5-=$tsol;
		}


		if($tsol<100){
			$log .="$cmp[$nation] 측은 예비병 부족으로 인해 시민을 급히 징병한 것 같다<br>\n";
			$tsol=$g_p[$DAT{'rank'}];
			if($nation==1){
				$cn1-=100;
				$cn1=0 if($cn1<1);
			}elsif($nation==2){
				$cn2-=100;
				$cn2=0 if($cn2<1);
			}elsif($nation==3){
				$cn3-=100;
				$cn3=0 if($cn3<1);
			}elsif($nation==4){
				$cn4-=100;
				$cn4=0 if($cn4<1);
			}elsif($nation==5){
				$cn5-=100;
				$cn5=0 if($cn5<1);
			}

			&hist_write;#국가 로그

		}

		if($tsol<100){
			$tsol=$bs_h[$v];
		}

		$b_n = int((rand(6))+5);
		$log .="이번 작전의 전투 한계 턴은 $b_n 턴입니다<br>\n";
		$b_v=0;

		$log .="<hr size=1 noshade>\n";

		$log .="$cmp[$nation]로부터 $tnm(이)가 이끄는 방위 부대가 출격해 왔다!<br>\n";

		$log .="<hr size=1 noshade>\n";

		$log .="침공 작전을 실행에 옮깁니다! 전투 개시!<br>\n";

		$log2 .="<form action=$script method=$method name=ore_>\n";
		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
		$log2 .="<input type=hidden name=id value=$id><input type=hidden name=pw value=$pw>\n";
		$log2 .="<input type=hidden name=cmd value=\"-1\"><input type=submit $button1 value=\"  전투 돌입！！ \">\n";

		$log .="<hr size=1 noshade>\n";

		$ck=1;
	}elsif($ck==1){

		# 전투 처리 파일 읽기
		require './inc/ore_sub-battle.cgi';

		$j=int($b_n-$b_v);
		$j=0 if($j<1);
		$log .="<p>$cmp[$camp]군 $nm $cl[$rank] 지휘($lr) 부대수($sol) VS $cmp[$nation]군 $tnm 지휘($tlr) 부대수($tsol)</p>\n";

		$log .="<p>- 전투 한계까지 남은 턴: $j 턴 -</p>\n";

		$log .="<hr size=1 noshade>\n";

		$qz = int($lv-20);

		if($b_n eq'' && $tlr eq''){
			$tm = $ck = $cmd = 0;
			$nation = 0;
			$type='';
			$log .="전투 중에 버그가 발생했습니다! 강제로 메인 화면으로 돌아갑니다<br>\n";
			&call_main_st;
		}

		if($j>2 && $tm<10 && $cmd !=-1){
			my $l=int(rand(5));
			if($l==0 && $qz<$tlv){
				$tm=50;
				$log .="<p>적군을 지휘하는 $tnm(으)로부터 일대일 결투 신청이 들어왔습니다!</p><p>어떻게 하겠습니까?</p>\n";

				$log .="<p>적장 스탯 - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";

			}
		}

		if($tm==50){

			if($cmd==10){
				$log .="일대일 결투 신청을 거절했습니다.<br>평판이 소폭 하락했습니다.<br>\n";
				$tm=0;
				$rank_exe-=1;
			}elsif($cmd==20){
				$log .="$tnm 의 도전을 수락하여 이 전쟁의 승패를 건 일대일 결투를 치르기로 했습니다!<br>\n";
				$tm=60;
				$rank_exe+=1;
			}

		}elsif($tm==60){

			$log .="진검승부 시작!<br>\n";
			$tm=70;

		}elsif($tm==70){

			# 전투 처리 호출
			&bt_cm;

			if($thp<1){
				$G =int(rand(200))+((500*$tlv)-($lv*50)); 
				$G =1 if($G<1);
				$G =int(rand(500))+1500 if($G>2000);
				$gold +=$G;
				$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
				$E =1 if($E<1);
				$E =int(rand(50))+250 if($E>300);
				$exe+=$E;
				$thp=0;
				$bst ='';
				$bt =0;
				$log .="$nm 은(는) $tnm(을)를 쓰러뜨렸다!<br>\n";
				$log .="$G GOLD와 $E 경험치를 획득했다!<br>\n";
				$log .="<p></p>\n";

				$H =int(rand(51)); 
				$E = int((100+$H)*$lv);
				$E = int((rand(500))+1800) if($E>2000);
				$G = 20000;
				# 개조 전은 50+$H
				$N = $H+150;
				# 여기까지
				$exe+=$E;
				$gold+=$G;

				if($camp==1){
					$cs1+=int($sol);
					$cn1+=$N;
				}elsif($camp==2){
					$cs2+=int($sol);
					$cn2+=$N;
				}elsif($camp==3){
					$cs3+=int($sol);
					$cn3+=$N;
				}elsif($camp==4){
					$cs4+=int($sol);
					$cn4+=$N;
				}elsif($camp==5){
					$cs5+=int($sol);
					$cn5+=$N;
				}

				$tsol=int($tsol/2);

				if($nation==1){
					$cs1+=$tsol;
				}elsif($nation==2){
					$cs2+=$tsol;
				}elsif($nation==3){
					$cs3+=$tsol;
				}elsif($nation==4){
					$cs4+=$tsol;
				}elsif($nation==5){
					$cs5+=$tsol;
				}

				if($nation==1){
					$cn1-=$N;
					$cn1=0 if($cn1<1);
				}elsif($nation==2){
					$cn2-=$N;
					$cn2=0 if($cn2<1);
				}elsif($nation==3){
					$cn3-=$N;
					$cn3=0 if($cn3<1);
				}elsif($nation==4){
					$cn4-=$N;
					$cn4=0 if($cn4<1);
				}elsif($nation==5){
					$cn5-=$N;
					$cn5=0 if($cn5<1);
				}

				$log .="적군은 $tnm 의 패배에 전의를 상실했습니다! 장수를 잃은 부대 따위는 아군의 상대가 아닙니다.<br>적군을 추격하여 엄청난 타격을 입혔습니다!<br>\n";

				$log .="$cmp[$nation]로부터 국력 $N을 빼앗았습니다.<br>추가로 $E 경험치와 $G GOLD의 보상을 획득했다!<br>\n";

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 와 일대일 결투 끝에 승리하고 국력 $N 을 빼앗는 데 성공한 것 같습니다.";

				&touitu;

				$V =int(rand(6))+5;
				$sol_lv-=$V;
				$rank_exe+=int($V*2)+5;
				$sol=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그

			}elsif($hp<1){

				$bst ='';
				$bt =0;
				$ck =0;
				$hp =0;
				$G=int(rand(10))+1;
				$E=int(rand(5))+1;
				$gold+=$G;
				$exe+=$E;
				$log .="당신은 적장 $tnm 에게 패배하고 말았다…<br>\n";
				$log .="$G GOLD와 $E 경험치를 획득했다<br>\n";
				$log .="<p></p>\n";

				$sol=int($sol/2);

				if($camp==1){
					$cs1+=int($sol);
					$cn1+=$N;
				}elsif($camp==2){
					$cs2+=int($sol);
					$cn2+=$N;
				}elsif($camp==3){
					$cs3+=int($sol);
					$cn3+=$N;
				}elsif($camp==4){
					$cs4+=int($sol);
					$cn4+=$N;
				}elsif($camp==5){
					$cs5+=int($sol);
					$cn5+=$N;
				}

				if($nation==1){
					$cs1+=$tsol;
				}elsif($nation==2){
					$cs2+=$tsol;
				}elsif($nation==3){
					$cs3+=$tsol;
				}elsif($nation==4){
					$cs4+=$tsol;
				}elsif($nation==5){
					$cs5+=$tsol;
				}

				$log .="일대일 결투에 패배하여 지휘관을 잃은 당신의 부대는 적에게 막대한 피해를 입었습니다…<br>\n";

				$rank_exe-=15;
				$log .="부대 전멸이라는 불명예스러운 패배로 인해 당신에 대한 평판이 크게 떨어졌다<br>\n";
				if($rank_exe<1){
					$rank--;
					$rank=1 if($rank<1);
					$next_rank=int(($rank*$rank)*3);
					$v=$next_rank-10;
					$rank_exe=$v;
					$log .="일계급 강등되어 버렸다…<br>\n";
				}

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 와 일대일 결투를 치렀으나 패배하여 부대는 패주한 것 같습니다.";

				$sol=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그

			}

		}elsif($tm<1){

			if($cmd==10){

				my $btp = $ag + int(rand($lv/2) +1);
				my $bte = $tag+ int(rand($tlv/2)+1);

				if($j<3){
					$log .="여기까지 전투가 진행된 상태에서의 퇴각은 불가능합니다.<br>\n";
					$b_n+=1;
				}elsif($btp<$bte){
					$log .="적군에게 도주 경로가 막혀 더 이상 퇴각할 수 없습니다.<br>\n";
					$b_n+=1;
				}else{

					$log .="아쉽지만 작전을 중지하고 퇴각합니다.<br>\n";

					if($camp==1){
						$cs1+=int($sol);
					}elsif($camp==2){
						$cs2+=int($sol);
					}elsif($camp==3){
						$cs3+=int($sol);
					}elsif($camp==4){
						$cs4+=int($sol);
					}elsif($camp==5){
						$cs5+=int($sol);
					}

					if($nation==1){
						$cs1+=$tsol;
					}elsif($nation==2){
						$cs2+=$tsol;
					}elsif($nation==3){
						$cs3+=$tsol;
					}elsif($nation==4){
						$cs4+=$tsol;
					}elsif($nation==5){
						$cs5+=$tsol;
					}

					$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 방위 부대와 교전 후 부득이하게 퇴각한 것 같습니다.";

					$sol_lv-=int(rand(40));
					$rank_exe-=1;
					$rank_exe = 0 if($rank_exe<1);

					$tnm='';
					$ck = $tm = $cmd = 0;
					$nation=0;
					$type='';

					&hist_write;#국가 로그

				}
			}elsif($cmd==1){
				$l=int(rand(3));
				if($l==0){
					$x=int(($sol/100)+($lr*10))+$sol_lv;
					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (공격진형) VS $tnm (공격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==1){
					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (공격진형) VS $tnm (방어진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==2){
					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (공격진형) VS $tnm (돌격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}
			}elsif($cmd==2){
				$l=int(rand(3));
				if($l==0){
					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (방어진형) VS $tnm (공격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==1){
					$x=int(($sol/100)+($lr*10))+$sol_lv;
					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (방어진형) VS $tnm (방어진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==2){
					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (방어진형) VS $tnm (돌격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}
			}elsif($cmd==3){
				$l=int(rand(3));
				if($l==0){
					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (돌격진형) VS $tnm (공격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==1){
					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (돌격진형) VS $tnm (방어진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}elsif($l==2){
					$x=int(($sol/100)+($lr*10))+$sol_lv;
					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
					$x=1 if($x<1);
					$y=1 if($y<1);
					$log .="$nm (돌격진형) VS $tnm (돌격진형)<br>\n";
					$log .="○자군 피해 $y ●적군 피해 $x<br>\n";
					$sol-=$y;
					$tsol-=$x;
				}
			}

			$log .="<hr size=1 noshade>\n";

			if($sol<1&&$tsol<1){
				$log .="양군 모두 괴멸적인 타격을 입어 전투 지속이 불가능하게 되었습니다.<br>이번 작전은 무승부입니다.<br>\n";

				$log .="국력은 양 진영 모두 변화 없음<br>\n";

				$H =int(rand(21));

				$E = int((20+$H)*$lv);
				$E = int(rand(50))+170 if($E>200);
				$G = 5000;
				$exe+=$E;
				$gold+=$G;
				$rank_exe-=10;
				$log .="부대 전멸이라는 불명예스러운 패배로 인해 당신에 대한 평판이 크게 떨어졌다<br>\n";
				if($rank_exe<1){
					$rank--;
					$rank=1 if($rank<1);
					$next_rank=int(($rank*$rank)*3);
					$v=$next_rank-10;
					$rank_exe=$v;
					$log .="일계급 강등되어 버렸다…<br>\n";
				}

				$log .="$E 의 경험치와 $G 의 보상을 얻었다<br>\n";

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 방위 부대에 가로막혀 격전 끝에 양군 모두 괴멸한 것 같습니다.";

				$sol=0;
				$sol_lv=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그

			}elsif($tsol<1){
				$log .="적 부대를 격파했습니다!<br>아군의 승리입니다!<br>\n";
				$H =int(rand(51));
				$E = int((100+$H)*$lv);
				$E = int((rand(500))+1800) if($E>2000);
				$G = 20000;
				# 개조 전은 50+$H
				$N = $H+150;
				# 여기까지
				$exe+=$E;
				$gold+=$G;

				if($camp==1){
					$cs1+=int($sol);
					$cn1+=$N;
				}elsif($camp==2){
					$cs2+=int($sol);
					$cn2+=$N;
				}elsif($camp==3){
					$cs3+=int($sol);
					$cn3+=$N;
				}elsif($camp==4){
					$cs4+=int($sol);
					$cn4+=$N;
				}elsif($camp==5){
					$cs5+=int($sol);
					$cn5+=$N;
				}

				if($nation==1){
					$cn1-=$N;
					$cn1=0 if($cn1<1);
				}elsif($nation==2){
					$cn2-=$N;
					$cn2=0 if($cn2<1);
				}elsif($nation==3){
					$cn3-=$N;
					$cn3=0 if($cn3<1);
				}elsif($nation==4){
					$cn4-=$N;
					$cn4=0 if($cn4<1);
				}elsif($nation==5){
					$cn5-=$N;
					$cn5=0 if($cn5<1);
				}

				$log .="$cmp[$nation]로부터 국력 $N 을 빼앗았습니다.<br>$E 경험치와 $G GOLD의 보상을 얻었다!<br>\n";

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 방위 부대를 격파하고 국력 $N 을 빼앗는 데 성공한 것 같습니다.";

				&touitu;

				$V =int(rand(6))+10;
				$sol_lv-=$V;
				$rank_exe+=$V;
				$sol=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그

			}elsif($sol<1){
				$log .="아군은 패배했습니다… 아쉽지만 철수합니다.<br>\n";

				$log .="국력은 양 진영 모두 변화 없음<br>\n";

				$H =int(rand(21));

				$E = int((20+$H)*$lv);
				$E = int(rand(50))+170 if($E>200);
				$G = 5000;
				$exe+=$E;
				$gold+=$G;

				$log .="$E 의 경험치와 $G 의 보상을 얻었다<br>\n";

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 방위 부대 앞에 패퇴한 것 같습니다.";

				if($nation==1){
					$cs1+=$tsol;
				}elsif($nation==2){
					$cs2+=$tsol;
				}elsif($nation==3){
					$cs3+=$tsol;
				}elsif($nation==4){
					$cs4+=$tsol;
				}elsif($nation==5){
					$cs5+=$tsol;
				}

				$rank_exe-=10;
				$log .="부대 전멸이라는 불명예스러운 패배로 인해 당신에 대한 평판이 떨어졌다<br>\n";
				if($rank_exe<1){
					$rank--;
					$rank=1 if($rank<1);
					$next_rank=int(($rank*$rank)*3);
					$v=$next_rank-10;
					$rank_exe=$v;
					$log .="일계급 강등되어 버렸다…<br>\n";
				}

				$sol=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그
			}elsif($b_n<$b_v){
				$log .="전투 한계 턴을 초과하고 말았다… 더 이상은 싸울 수 없습니다.<br>\n";

				$log .="국력은 양 진영 모두 변화 없음<br>\n";

				$H =int(rand(21));

				$E = int((20+$H)*$lv);
				$E = int(rand(50))+170 if($E>200);
				$G = 5000;
				$exe+=$E;
				$gold+=$G;

				$log .="$E 의 경험치와 $G 의 보상을 얻었다<br>\n";

				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 침공, $tnm 방위 부대에 가로막혀 전투 한계를 초과한 것 같습니다.";

				$rank_exe-=5;
				$log .="작전에 실패하여 당신에 대한 평판이 떨어졌다.<br>\n";
				if($rank_exe<1){
					$rank--;
					$rank=1 if($rank<1);
					$next_rank=int(($rank*$rank)*3);
					$v=$next_rank-10;
					$rank_exe=$v;
					$log .="일계급 강등되어 버렸다…<br>\n";
				}

				$sol_lv-=int(rand(40));
				$sol=0;
				$tnm='';
				$ck = $tm = $cmd = 0;
				$nation=0;
				$type='';

				&hist_write;#국가 로그
			}

			$b_v+=1 if($cmd>0);

		}

		$log2 .="<form action=$script method=$method name=ore_>\n";
		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
		$log2 .="<input type=hidden name=id value=\"$id_p\">\n";
		$log2 .="<input type=hidden name=pw value=\"$pw_p\">\n";
		if($tsol<1||$sol<1){
			$log2 .="<input type=hidden name=cmd value=-1>\n";
		}elsif($tm==50){
			$log2 .="<select name=cmd size=1><option value=10>싫다</option><option value=20>수락</option>\n";
			$log2 .="</select>";
		}elsif($tm==60){
			$log2 .="<input type=hidden name=cmd value=-1>\n";
		}elsif($tm==70){
			&spell_sp;
		}elsif($tm<1){
			$log2 .="<select name=cmd size=1><option value=1>공격진형</option><option value=2>방어진형</option><option value=3>돌격진형</option><option value=10>도망친다</option>\n";
			$log2 .="</select>";
		}
		$log2 .="<br>";# 테이블 틀어짐 수정
		$log2 .="<input type=submit $button1 value=\"NEXT！\">$td_end</form>\n";# 테이블 추가 </tr></table>
	}

	if($cn1<1&&$ce1<1){

		$wr_mes ="$date $cmp[1] 이(가) $syogo 에 의해 괴멸적인 타격을 입어 망국이 되었습니다.";

		$ce1=1;

		&hist_write;#국가 로그

	}elsif($cn2<1&&$ce2<1){

		$wr_mes ="$date $cmp[2] 이(가) $syogo 에 의해 괴멸적인 타격을 입어 망국이 되었습니다.";

		$ce2=1;

		&hist_write;#국가 로그

	}elsif($cn3<1&&$ce3<1){

		$wr_mes ="$date $cmp[3] 이(가) $syogo 에 의해 괴멸적인 타격을 입어 망국이 되었습니다.";

		$ce3=1;

		&hist_write;#국가 로그

	}elsif($cn4<1&&$ce4<1){

		$wr_mes ="$date $cmp[4] 이(가) $syogo 에 의해 괴멸적인 타격을 입어 망국이 되었습니다.";

		$ce4=1;

		&hist_write;#국가 로그

	}elsif($cn5<1&&$ce5<1){

		$wr_mes ="$date $cmp[5] 이(가) $syogo 에 의해 괴멸적인 타격을 입어 망국이 되었습니다.";

		$ce5=1;

		&hist_write;#국가 로그

	}elsif($cn1>1000&&$ce1>0){

		$wr_mes ="$date $cmp[1] 이(가) $syogo 의 활약에 의해 망국에서 부흥했습니다.";

		$ce1=0;

		&hist_write;#국가 로그

	}elsif($cn2>1000&&$ce2>0){

		$wr_mes ="$date $cmp[2] 이(가) $syogo 의 활약에 의해 망국에서 부흥했습니다.";

		$ce2=0;

		&hist_write;#국가 로그

	}elsif($cn3>1000&&$ce3>0){

		$wr_mes ="$date $cmp[3] 이(가) $syogo 의 활약에 의해 망국에서 부흥했습니다.";

		$ce3=0;

		&hist_write;#국가 로그

	}elsif($cn4>1000&&$ce4>0){

		$wr_mes ="$date $cmp[4] 이(가) $syogo 의 활약에 의해 망국에서 부흥했습니다.";

		$ce4=0;

		&hist_write;#국가 로그

	}elsif($cn5>1000&&$ce5>0){

		$wr_mes ="$date $cmp[5] 이(가) $syogo 의 활약에 의해 망국에서 부흥했습니다.";

		$ce5=0;

		&hist_write;#국가 로그
	}

	$layout_flag=1;
	&write_data;
	&hist_write if($touitu_flag);
}

#-------------------------------------------------------------------------------
# 통일 처리
sub touitu{

	&syogo;

	if($camp==1){
		if($cn1>=$data_reset){

			$wr_mes ="$date $cmp[$camp] 이(가) $syogo 등의 활약에 의해 대륙을 제패했습니다!!!";

			$sogo=1;#패자 기록
			$hasya=$nm;#패자 기록
			$hcamp=$camp;
			$touitu_flag=1;
		}
	}elsif($camp==2){
		if($cn2>=$data_reset){

			$wr_mes ="$date $cmp[$camp] 이(가) $syogo 등의 활약에 의해 대륙을 제패했습니다!!!";

			$sogo=1;#패자 기록
			$hasya=$nm;#패자 기록
			$hcamp=$camp;
			$touitu_flag=1;
		}
	}elsif($camp==3){
		if($cn3>=$data_reset){

			$wr_mes ="$date $cmp[$camp] 이(가) $syogo 등의 활약에 의해 대륙을 제패했습니다!!!";

			$sogo=1;#패자 기록
			$hasya=$nm;#패자 기록
			$hcamp=$camp;
			$touitu_flag=1;
		}
	}elsif($camp==4){
		if($cn4>=$data_reset){

			$wr_mes ="$date $cmp[$camp] 이(가) $syogo 등의 활약에 의해 대륙을 제패했습니다!!!";

			$sogo=1;#패자 기록
			$hasya=$nm;#패자 기록
			$hcamp=$camp;
			$touitu_flag=1;
		}
	}elsif($camp==5){
		if($cn5>=$data_reset){

			$wr_mes ="$date $cmp[$camp] 이(가) $syogo 등의 활약에 의해 대륙을 제패했습니다!!!";

			$sogo=1;#패자 기록
			$hasya=$nm;#패자 기록
			$hcamp=$camp;
			$touitu_flag=1;
		}
	}
}

1;
