罪罰/内政の追加

# my @hm	= ('やめる','農業','商業','徴兵','兵を訓練する');
my @hm	= ('やめる','農業','商業','徴兵','兵を訓練する','一括内政');

			$mes = "$v の兵糧を得た";

			$tm=50;

       #------------------------------------------------------------------------

		}elsif($cmd==5){  # この数字をメニューの順番にあわせる。↑の順番だと最初を０として５番目なので$cmd==5

			# 行動カウントのリセット(無条件)
			$act_cnt=0;

			$log .= "一括内政を行います。結果は$GMW時間後。<br>\n";

			# 農業
			$v=int(((rand(10)+1)*100)*$lr);
			$v=9999 if($v>9999);
			# 商業
			$v1=int(((rand(10)+1)*15)*$lr);
			$v1=999 if($v1>999);
			

			$tm=25;
			$rank_exe+=2;	# 貢献は+2
			$pr=$GMT*2;		# 待ち時間を２倍に
	
			if($camp==1){
				$cf1 += $v;
				$cg1 += $v1;
			}elsif($camp==2){
				$cf2 += $v;
				$cg2 += $v1;
			}elsif($camp==3){
				$cf3 += $v;
				$cg3 += $v1;
			}elsif($camp==4){
				$cf4 += $v;
				$cg4 += $v1;
			}elsif($camp==5){
				$cf5 += $v;
				$cg5 += $v1;
			}
			$mes = "$v の兵糧と $v1 G 国家予\算が増えた";

			$tm=50;

       #------------------------------------------------------------------------

		# 商業
		}elsif($cmd==2){