#-----------------------------------------------------------#
#  罪と罰++ 二律背反 										#
#  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.1
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# メインメニュー
sub main_st { # メイン

	# 回復

	$hrg=int($time-$la);
	$hrg=int($hrg/$hrg_time);
	$hrg=0 if($hrg<1);
	$d=$time;
	$d=$d-$roku;

	if($ck!=1){
		for($x=0;$x<$hrg;++$x){
			$hp++;
			$mp++;
		}
	}

	$hp=$max_hp if($hp>$max_hp);
	$mp=$max_mp if($mp>$max_mp);

	# 給料

	if($camp>0&&$d>21600){
		$v=$g_p[$rank];
		$v=int($v/5);
		$v=int($my_cn*0.8)+$v;
		$gold+=$v;
		$log .= " $v の給与が支給された<br>";
		$d-=21600;
		$roku=$time;
	}

	# データリセット

	if(	$cn1>=$data_reset||
		$cn2>=$data_reset||
		$cn3>=$data_reset||
		$cn4>=$data_reset||
		$cn5>=$data_reset){
		$log .="全国統一が成された！<br>国力が初期化されます<br>\n";
		require './inc/ore_sub-main_reset.cgi';&reset_cdat;
	}
	if($set<$time){
		require './inc/ore_sub-main_reset.cgi';&reset_time_limit;
	}

	# 経験

	$next_rank=int(($rank*$rank)*3);

	if($rank_exe>=$next_rank){
		if($camp!=0&&$rank<14){
			$log .="日頃の仕事ぶりが認められ階級があがった<br>\n";
			$rank++;
			$rank_exe-=$next_rank;
		}
	}

	if($exe>$next_lv){
		$log .="経験を積みより強く成長した<br>\n";
		$lv++;
		$a =int(rand(2));
		$max_hp +=int($a);
		$b =int(rand(2));
		$max_mp +=int($b);
		$w =int(rand(2));
		$ua +=int($w);
		$d =int(rand(2));
		$ud +=int($d);
		$l =int(rand(2));
		$lr +=int($l);

		if($lv<=5){$gg=2;}
		if($lv<=10){$gg=1;}
		$g =int(rand(2)+$gg);
		$ag +=int($g);

		$exe-=$next_lv;
		$log .="体力が$a上がった<br>精神力が$b上がった<br>攻撃が$w上がった<br>防御が$d上がった<br>指揮が$l上がった<br>敏捷が$g上がった<br>\n";
	}

	# アナウンス

	if($mes && $pr<1){
		$log .="$mes<br>\n";
		$mes='';
	}

	# 内政義務制
	if($act_cnt>=$act_cnt_limit && $camp){
		$log .= "行動セッションが限界に達しています。一度内政を行ってください。<br>\n";
		$tm=0;
	}elsif($act_cnt>=$act_cnt_limit && !$camp){
		$log .= "行動セッションが限界に達しています。休憩してください。<br>\n";
		$pr=int($GMT/2);
		$tm=0;
		# 行動カウントのリセット(無条件)
		$act_cnt=0;
	}

	# メインコマンド
	my @c		 = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');

	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<select name="cmd" size="1">\n|;
	foreach(0 .. $#c){ $log2 .=qq|<option value="$_">$c[$_]</option>\n|;}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

	&write_data;

}

#-------------------------------------------------------------------------------
# 拘束時間
sub wt_st {
	$whour = int($pr/3600);
	$wmin = int(($pr%3600)/60);
	$wsec = $pr%60;
	if($whour>0){
		$wmin = "0$wmin" if($wmin<10);
		$log .="行動中･･･あと$whour時間$wmin分\n";
	}elsif($wmin>0){
		$wsec = "0$wsec" if($wsec<10);
		$log .="行動中…あと$wmin分\n";
	}else{
		$log .="行動中…あと$wsec秒\n";
	}
}





1;