罪罰改造掲示板/155

$log .= "最大千人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 1000 if($S>1000);
			$rank_exe++;
			$tho_kai++;
			if($tho_kai>150){
			$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
			$gold +=200000; 
			$sogo =7;
			$nou_kai =0;
				}

• 			$S = int(((rand(50))+100)*$lr);
  			$S = 1000 if($S>1000);
  			$rank_exe++;
  			$tho_kai++;
  			if($tho_kai>150){
  			$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
  			$gold +=200000; 
  			$sogo =7;
  			$nou_kai =0;
  				}

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

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

			$mes = "$S 人の兵が集まった";
			$pr=$GMT;
			$tm=50;
		}elsif($cmd==2){

			# 行動カウントのリセット(無条件)
			$act_cnt=0;
			$tho_kai++;
			$kekka = int($GMT/60);
			$log .= "最大五千人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 5000 if($S>5000);
			$rank_exe+=int(rand(2)+1);

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

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

			$mes = "$S 人の兵が集まった";
			$pr=$GMT;
			$tm=50;
		}elsif($cmd==3){

			# 行動カウントのリセット(無条件)
			$act_cnt=0;
			$kekka = int($GMT/60);
			$log .= "最大一万人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 10000 if($S>10000);
			$rank_exe+=int(rand(3)+1);
			$tho_kai++;
			if($tho_kai>150){
			$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
			$gold +=200000; 
			$sogo =7;
			$nou_kai =0;
				}

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

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

			$mes = "$S 人の兵が集まった";
			$pr=$GMT;
			$tm=50;
		}elsif($cmd==4){

			# 行動カウントのリセット(無条件)
			$act_cnt=0;
			$kekka = int($GMT/60);
			$log .= "最大二万人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 20000 if($S>20000);
			$rank_exe+=int(rand(4)+1);
			$tho_kai++;
			if($tho_kai>150){
			$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
			$gold +=200000; 
			$sogo =7;
			$nou_kai =0;
				}