罪罰/同一国への戦争

      if(!$ck){
               $log .="$date $cmp[$nation] に進入しました<br>\n";
               $tm=0;

               #-----------------------------------------------------ここから
               if ($war_cr == $nation){
                 # 前回と同一国
                 $war_cnt++;
               }else{
                 # 同一国で無いならカウントを初期化
                 $war_cnt = 1;
                 $war_cr = $nation;     # ←抜けていたので追加
               }
               #-----------------------------------------------------ここまで

               }elsif($sogo==4){
                       $log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。<br>\n";
                       $tm = $cmd = 0;
                       $type='';
                       &call_main_st;
               #---------------------------------------------------ここから
               }elsif($war_cr==$cmd && $war_cnt>=3){
                       $log .= "同一国へは連続３回は侵攻できません<br>\n";
                       $tm=$cmd=0;
                       $type='';
                       &call_main_st;
               #---------------------------------------------------ここまで
               }else{

• }elsif($war_cr==$cmd && $war_cnt>=3){

  }elsif($war_cr==$cmd && $war_cnt>=3
     && ((($camp<$cmd) ? $cfs[$camp.$cmd] : $cfs[$cmd.$camp])!=2) 
     ){