#-----------------------------------------------------------#
#  罪と罰++ 二律背反 										#
#  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;