「軍事コマンド：待ち伏せ」のバグ

sub gun_tm42{

       $log .= qq|待ち伏せ任務を完了しました<br>\n|;

       $rank_exe+=int(rand(2)+1);
       $sol_lv+=int(rand(10)+5);
       $sol_lv=100 if($sol_lv>100);
       $amb_cnt++;
       if($amb_cnt==50){

       }

       $type='';
       $tm=$cmd=0;
       &call_main_st;
}

sub gun_tm42{
	$log .= "待ち伏せ任務を完了しました。<br>";
	$rank_exe+=int(rand(2)+1);
	$sol_lv+=int(rand(10)+5);
	$sol_lv=100 if($sol_lv>100);
	$amb_cnt++;
	}
	if($amb_cnt==50){
	$type='';
	$tm=$cmd=0;
	&call_main_st;
}

if($tnation==$camp && $tcamp==$nation && $ttype eq '待伏' && $tla+$tpr<$time){
				$log .= "<font color=\"red\">$tnm が待ち伏せしてた！<br>$nm 部隊は$tnm部隊に先手を打たれ、<br>兵士数が2割減り、訓練度が50減った!!</font><br><br>";
				$sol_lv -= 50;
				$sol_lv = 1 if($sol_lv<=1);
				$sol = int($sol*0.8);
				$type = '待伏戦争中';
			}

				if($type eq '待伏戦争中'){
					$wr_mes ="$date $cmp[$camp]の$syogo が $cmp[$nation] に侵攻、$tnmが待伏せしていたが、一騎討ちの末これを下し $N の国力を奪う事に成功";
				}else{
					$wr_mes ="$date $cmp[$camp]の$syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちの末これを下し $N の国力を奪う事に成功";
				}

				$type='';

				&hist_write;

elsif($type eq '戦争中'){ require './inc/ore_sub-wartime.cgi';&wr_st; }

elsif($type eq '戦争中' or $type eq '待伏戦争中'){ require './inc/ore_sub-wartime.cgi';&wr_st; }