軍事について

sub mission_exe{
	if(!$tm){
		if($camp<1){
			$log .= "放浪の身でこの軍事は行なえません。<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($sogo==3||$sogo==4){
			$log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($cmd<=0 || $cmd>$#gu){
			$log .= "軍事を中止します<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($cmd==1){
			$log .= "敵国に諜報員を送り込み、資金調達ﾙｰﾄをかく乱させます。<br>標的国を選んで下さい<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=31;
		}elsif($cmd==2){
			$log .= "敵国の兵糧を強奪します。標的国を選んで下さい(ｸﾘｯｶﾌﾞﾙﾏｯﾌﾟ対応)<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=32;
		}elsif($cmd==3){
			$log .= "敵国の兵士を洗脳し、自国へ引き入れます。<br>標的国を選んで下さい<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=33;
		}elsif($cmd==4){
			$log .= "敵国に大諜報団を送り込み、資金調達ﾙｰﾄをかく乱させます。<br>標的国を選んで下さい<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=37;
		}elsif($cmd==5){
			$log .= "敵国の兵糧を大量に強奪します。標的国を選んで下さい(ｸﾘｯｶﾌﾞﾙﾏｯﾌﾟ対応)<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=38;
		}elsif($cmd==6){
			$log .= "敵国の兵士を大人数洗脳し、自国へ引き入れます。<br>標的国を選んで下さい<br>\n";
			&call_mapdata if($mv_mode eq 'pc');
			&misson_menu2;
			$tm=39;
		}
	}elsif($tm==31){#通常諜報内容1
		&gun_tm31;
	}elsif($tm==32){#通常略奪内容1
		&gun_tm32;
	}elsif($tm==33){#通常洗脳内容1
		&gun_tm33;
	}elsif($tm==34){#通常諜報内容2
		&gun_tm34;
	}elsif($tm==35){#通常強奪内容2
		&gun_tm35;
	}elsif($tm==36){#通常洗脳内容2
		&gun_tm36;
	}elsif($tm==37){#大型諜報内容1
		&gun_tm37;
	}elsif($tm==38){#大型略奪内容1
		&gun_tm38;
	}elsif($tm==39){#大型洗脳内容1
		&gun_tm39;
	}elsif($tm==40){#大型諜報内容2
		&gun_tm40;
	}elsif($tm==41){#大型強奪内容2
		&gun_tm41;
	}elsif($tm==42){#大型洗脳内容2
		&gun_tm42;
	}

• # }elsif($cmd<=0 || $cmd>$#gu){  
  }elsif($cmd<=0 || $cmd>$#cmp){ # デフォ