罪罰/軍事煽動

sub mission_menu{
    # 軍事コマンド
    my @gu = ('やめる','諜報','強奪','洗脳','煽動');

# 軍事処理
sub mission_exe{

	if(!$tm){

		if($camp<1){
			$log .= "放浪の身でこの軍事は行なえません。<br>\n";

...( 省略 )...

		}elsif($cmd==3){
			$log .= "敵国の兵士を洗脳し、自国へ引き入れます。<br>標的国を選んで下さい<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=33;
		}elsif($cmd==4){  # ここから下が追加部分
			$log .= qq|煽動し暴\動を誘発させます<br>標的国を選んでください<br>\n|;
			&misson_menu2;
			$tm = 60;
		}

... ( 省略 ) ...

	}elsif($tm==36){# 洗脳内容2
		&gun_tm36;
	}elsif($tm==60){# 煽動
		&gun_tm60;
	}elsif($tm==61){# 煽動結果
		&gun_tm61;
	}

• sub gun_tm60{
    if( (($cmd==1&&$cg1<800) || ($cmd==1&&$ce1==1))||
      (($cmd==2&&$cg2<800) || ($cmd==2&&$ce2==1))||
      (($cmd==3&&$cg3<800) || ($cmd==3&&$ce3==1))||
      (($cmd==4&&$cg4<800) || ($cmd==4&&$ce4==1))||
      (($cmd==5&&$cg5<800) || ($cmd==5&&$ce5==1))){
          $log .= "亡国または、国家\予\算800以下の国を諜報することはできません。\n";
          $tm = $cmd = 0;
          &mission_menu;
    }elsif($cmd>0 && $cmd<6 && $cmd!=$camp){
  	$nation = $cmd;
  	$log .= qq|$cmp[$nation]で暴\動を煽動します<br>|;
  	$tm=61;
  	$pr = $GMT;
    }else{
  	$log .= qq|キャンセルしました<br>|; 
  	$type=''; $tm=$cmd=0; &call_main_st;
    }
  }
  
  sub gun_tm61{
  	$log .= qq|$cmp[$nation]での煽動結果、|;
  	if($nation>0 && $nation<6 && $nation!=$camp){
  
  		$ctv=$ct1 if($nation==1);
  		$ctv=$ct2 if($nation==2);
  		$ctv=$ct3 if($nation==3);
  		$ctv=$ct4 if($nation==4);
  		$ctv=$ct5 if($nation==5);
  
  		$v = int(rand($ctv+20));
  		if($v<20){
  
  			$rank_exe += 1;
  			$log = qq|暴\動を起こす事に成功しました！！<br>|;
  			if($nation==1){
  				# $cg1-=$vg=int($cg1/$v);
  				# $cf1-=$vf=int($cf1/$v);
  
  				$cg1-=$vg=$cg1/$v<10000 ? int($cg1/$v) : 10000;
  				$cf1-=$vf=$cf1/$v<100000 ? int($cf1/$v): 100000;
  
  				$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
  			}elsif($nation==2){
  				# $cg2-=$vg=int($cg2/$v);
  				# $cf2-=$vf=int($cf2/$v);
  
  				$cg2-=$vg=$cg2/$v<10000 ? int($cg2/$v) : 10000;
  				$cf2-=$vf=$cf2/$v<100000 ? int($cf2/$v): 100000;
  
  				$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
  			}elsif($nation==3){
  				# $cg3-=$vg=int($cg3/$v);
  				# $cf3-=$vf=int($cf3/$v);
  
  				$cg3-=$vg=$cg3/$v<10000 ? int($cg3/$v) : 10000;
  				$cf3-=$vf=$cf3/$v<100000 ? int($cf3/$v): 100000;
  
  				$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
  			}elsif($nation==4){
  				# $cg4-=$vg=int($cg4/$v);
  				# $cf4-=$vf=int($cf4/$v);
  
  				$cg4-=$vg=$cg4/$v<10000 ? int($cg4/$v) : 10000;
  				$cf4-=$vf=$cf4/$v<100000 ? int($cf4/$v): 100000;
  
  				$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
  			}elsif($nation==5){
  				# $cg5-=$vg=int($cg5/$v);
  				# $cf5-=$vf=int($cf5/$v);
  
  				$cg5-=$vg=$cg5/$v<10000 ? int($cg5/$v) : 10000;
  				$cf5-=$vf=$cf5/$v<100000 ? int($cf5/$v): 100000;
  
  				$log.= qq|$cmp[$nation]は、暴\動により$vg Ｇの資金と$vfの兵糧を失いました<br>|;
  
  			}
  
  		 	$type=''; $tm=$cmd=0; &call_main_st;
  		}else{
  			$mes = qq|失敗し暴\動は起きませんでした<br>|;
  			# $mes.=$v." / ".int(10/($ctv+20)*100);
  			&gun_no; # 
  		}
  
  	}else{
  		$log .= qq|キャンセルしました<br>|;
  		 $type=''; $tm=$cmd=0; &call_main_st;
  	}
  }