#-----------------------------------------------------------#
#  죄와 벌++ 이율배반 										#
#  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 reset_cdat{

	if($limit_mode){
		require './inc/ore_sub-members-p1.cgi';
		&member_adjust;
	}

	# 구식/고정 모드
	if(!$reset_cdat){
		my @camp_pw = (0,4500,4500,3500,5000,3500);	# 국력 변경 가능
		my @camp_gl = (0,900,200,400,250,300);		# 국가 예산
		my @camp_fd = (0,2000,5000,3500,8000,6000);	# 총 군량
		my @camp_sl = (0,3000,2500,4000,5000,4000);	# 총 병사 수

		$cn1=$camp_pw[1];
		$cg1=$camp_gl[1];
		$cf1=$camp_fd[1];
		$cs1=$camp_sl[1];

		$cn2=$camp_pw[2];
		$cg2=$camp_gl[2];
		$cf2=$camp_fd[2];
		$cs2=$camp_sl[2];

		$cn3=$camp_pw[3];
		$cg3=$camp_gl[3];
		$cf3=$camp_fd[3];
		$cs3=$camp_sl[3];

		$cn4=$camp_pw[4];
		$cg4=$camp_gl[4];
		$cf4=$camp_fd[4];
		$cs4=$camp_sl[4];

		$cn5=$camp_pw[5];
		$cg5=$camp_gl[5];
		$cf5=$camp_fd[5];
		$cs5=$camp_sl[5];
	}

	# 랜덤 모드
	else{

		# 리셋 처리

		$cn1=int(rand(40))*100+2500;
		$cn2=int(rand(40))*100+2500;
		$cn3=int(rand(40))*100+2500;
		$cn4=int(rand(40))*100+2500;
		$cn5=int(rand(40))*100+2500;

		$cg1=int(rand(50))*20+200;
		$cg2=int(rand(50))*20+200;
		$cg3=int(rand(50))*20+200;
		$cg4=int(rand(50))*20+200;
		$cg5=int(rand(50))*20+200;

		$cf1=int(rand(60))*100+2500;
		$cf2=int(rand(60))*100+2500;
		$cf3=int(rand(60))*100+2500;
		$cf4=int(rand(60))*100+2500;
		$cf5=int(rand(60))*100+2500;

		$cs1=int(rand(60))*50+2000;
		$cs2=int(rand(60))*50+2000;
		$cs3=int(rand(60))*50+2000;
		$cs4=int(rand(60))*50+2000;
		$cs5=int(rand(60))*50+2000;
	}
	$ce1=$ce2=$ce3=$ce4=$ce5=0;
	$set=$reset_time_limit * 3600 * 24 + $time;
	$goal_no++;
	# 국가 데이터를 배열화하고 싶지만, 귀찮으니까 패스...
}

#-------------------------------------------------------------------------------
# 타임아웃에 의한 리셋
sub reset_time_limit{

	$log .="긴 세월이 흘렀으나, 전란의 시대를 제패할 패자는 끝내 나타나지 않았습니다.<br>각 국가의 데이터가 리셋됩니다.\n";
	$wr_mes="긴 세월이 흘렀으나, 전란의 시대를 제패할 패자는 끝내 나타나지 않았습니다. 각 국가의 데이터가 리셋되었습니다";
	&reset_cdat;
	&hist_write;
}




1;