[[罪罰外交]]
*戦争で友好度を低下させる [#j8a64b9f]
-罪罰外交が必要
# }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;
}
}