罪罰改造板２/5

$log .= qq|$tnmは、待ち伏せしていました！$nm の部隊は混乱している！！<br><br>|;
$cnf_cnt=5;

}elsif($cmd==1){      # ←$cmd 1 , 2 , 3 それぞれ
    $l=int(rand(3));  # ←この２行の下に以下を追加
    if($cnf_cnt>0){
        $l=4;
        $cnf_cnt--;
    }
    if($l==4){
        $x=0;
        $y=int(($sol/100)+($lr*10))+$sol_lv;
        $y=1 if($x<1);
        $log.="$nm(部隊混乱)VS$tnm(攻撃陣形)<br>\n";
        $log.="○自軍被害 $y ●敵軍被害 $x <br>\n";
        $sol-=$y;
    }