罪と罰++二律背反

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 Gの資金と$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 Gの資金と$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 Gの資金と$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 Gの資金と$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 Gの資金と$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;
    	}
    }

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:04 (3030d)