罪罰/統一直後の戦争抑止

       # 統一、リセット直後の戦争を抑止
       if($type eq '戦争中'
               && $reset_time_limit-2 < int(($set-$time)/(3600*24))){

               $log .= qq|統一直後は、戦争できません。|;
               $log .= qq|撤退します<br>|;
               $tm = 0;
               $type = '';

               # 撤退処理
               if($camp == 1){
                       $cg1 += int($sol/10);
                       $cf1 += int($sol);
                       $cs1 += int($sol);
               }elsif($camp == 2){
                       $cg2 += int($sol/10);
                       $cf2 += int($sol);
                       $cs2 += int($sol);
               }elsif($camp == 3){
                       $cg3 += int($sol/10);
                       $cf3 += int($sol);
                       $cs3 += int($sol);
               }elsif($camp == 4){
                       $cg4 += int($sol/10);
                       $cf4 += int($sol);
                       $cs4 += int($sol);
               }elsif($camp == 5){
                       $cg5 += int($sol/10);
                       $cf5 += int($sol);
                       $cs5 += int($sol);
               }

       }