罪罰/外交/友好度低下

# }else{
#     $ck=$tnm='';
#     $log .= "$cmp[$v]に攻め込みます<br>\n";
# }
#-------------------------------この辺↑↑を目印に↓↓を追加 
       # 戦争を行うと友好度低下
       if($v>$camp){
               $cfs[$v.$camp]-=int(rand(5)+5);
               $cfs[$v.$camp]=0 if ($cfs[$v.$camp]<1);
               if( $cfs[$v.$camp]<int(rand(30)) && $cfs[$camp.$v]!=2 ){
                       $cfs[$camp.$v]=2; # 交戦
                       $log.="$cmp[$v]と$cmp[$camp]は、$nmの侵攻により開戦しました<br>\n";
                       $wr_mes="$date $cmp[$v]と$cmp[$camp]は、$nmの侵攻により開戦したようです.";
                       &hist_write;
               }
       } elsif ($v<$camp){
               $cfs[$camp.$v]-=int(rand(5)+5);
               $cfs[$camp.$v]=0 if ($cfs[$camp.$v]<1);
               if( $cfs[$camp.$v]<int(rand(30)) && $cfs[$v.$camp]!=2 ){
                       $cfs[$v.$camp]=2; # 交戦
                       $log.="$cmp[$v]と$cmp[$camp]は、$nmの侵攻により開戦しました<br>\n";
                       $wr_mes="$date $cmp[$v]と$cmp[$camp]は、$nmの侵攻により開戦したようです..";
                       &hist_write;
               }
       }