罪罰改造板２/39

if(条件１){

    // 条件１を満たす時はここが実行される

}elsif(条件２){

    // 条件２を満たす時はここが実行される     

}else{

    // 条件１も条件２にも当てはまらない時はここが実行される

}

	}elsif($camp==5){                // *1
		$cg5 += $v;
		$cf5 += $v2;
		$cs5 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}
		$mes = "$v G 国家予\算が増え、$v2の兵量を得、$S人の兵士が集まった";
		
		$tm=50;
	}                                 // *2

		# 兵を訓練する
		}elsif($cmd==4){

			if($my_cs<1){
				$log .= "兵がいません<br>\n";
				$tm = $cmd = 0;
				&politics_menu;
			}elsif($sol_lv>99){
				$log .= "訓練度はこれ以上あがりません<br>\n";
				$tm = $cmd = 0;
				&politics_menu;
			}else{

				# 行動カウントのリセット(限界時のみ)
				$act_cnt=0 if($act_cnt>$act_cnt_limit);

				$log .= "兵の訓練を行ないます<br>\n";
				$pr=int($GMT/2);
				$x = int($lr/2);
				if($x<1){
					$x=1;
			}
				$v = int((rand(20))+$x);
				$sol_lv += $v;
				if($sol_lv>100){
					$sol_lv=100;
				}
				$mes = "訓練度が $v 上昇した";
				$tm=50;
			}
		}
		
		#一括内政
		}elsif($cmd==5){
			
			# 行動カウントのリセット(無条件)
			$act_cnt=0;

			$log .= "一括内政を行います。結果は2時間後。<br>\n";
			$v=int(((rand(10)+1)*15)*$lr);#最初は$v=int(((rand(10)+1)*10)*$lr);
			$v=9999 if($v>9999);
			$v2=int(((rand(10)+1)*100)*$lr);
			$v2=99999 if($v>99999);
			$S = int(((rand(50))+100)*$lr);
			$S = 1000 if($S>1000);
			$tm=25;
			$rank_exe++;
			$pr=$GMT*8;

			if($camp==1){
				$cg1 += $v;
				$cf1 += $v2;
				$cs1 += $S;
			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
				}
			}elsif($camp==2){
				$cg2 += $v;
				$cf2 += $v2;
				$cs2 += $S;
			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
				}
			}elsif($camp==3){
				$cg3 += $v;
				$cf3 += $v2;
				$cs3 += $S;
			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
				}
			}elsif($camp==4){
				$cg4 += $v;
				$cf4 += $v2;
				$cs4 += $S;
			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
				}	
			}elsif($camp==5){
				$cg5 += $v;
				$cf5 += $v2;
				$cs5 += $S;
			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
				}
			$mes = "$v G 国家予\算が増え、$v2の兵量を得、$S人の兵士が集まった";

			$tm=50;
				}

}elsif($cmd==5){
	
	# 行動カウントのリセット(無条件)
	$act_cnt=0;
	
	$log .= "一括内政を行います。結果は2時間後。<br>\n";
	$v=int(((rand(10)+1)*15)*$lr);#最初は$v=int(((rand(10)+1)*10)*$lr);
	$v=9999 if($v>9999);
	$v2=int(((rand(10)+1)*100)*$lr);
	$v2=99999 if($v>99999);
	$S = int(((rand(50))+100)*$lr);
	$S = 1000 if($S>1000);
	$tm=25;
	$rank_exe++;
	$pr=$GMT*8;
	
	if($camp==1){
		$cg1 += $v;
		$cf1 += $v2;
		$cs1 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}
	}elsif($camp==2){
		$cg2 += $v;
		$cf2 += $v2;
		$cs2 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}
	}elsif($camp==3){
		$cg3 += $v;
		$cf3 += $v2;
		$cs3 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}
	}elsif($camp==4){
		$cg4 += $v;
		$cf4 += $v2;
		$cs4 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}	
	}elsif($camp==5){
		$cg5 += $v;
		$cf5 += $v2;
		$cs5 += $S;
		if($S<$gold){
			$gold-=$S;
		}elsif($gold<$S){
			$S=$gold;
			$gold=0;
		}
	}
	$mes = "$v G 国家予\算が増え、$v2の兵量を得、$S人の兵士が集まった";
	$tm=50;