罪罰/統一国・亡国の内政ボーナス

• $nai_cnt++;

• # 内政ポイントの最大値
  $nai_max[1] = $CP{'nai_max1'};
  $nai_max[2] = $CP{'nai_max2'};
  $nai_max[3] = $CP{'nai_max3'};
  $nai_max[4] = $CP{'nai_max4'};
  $nai_max[5] = $CP{'nai_max5'};
  $nai_max[$camp] = $nai_cnt if($nai_max[$camp]<$nai_cnt);

my $nai_pct = $nai_cnt>0 ? "(".int($nai_cnt/$nai_max[$camp]*100/2)."%)":"(0%)" ;
# $nai_pctを表示部分に追加

# 給料
# 統一国ボーナス
$v=int($v*1.5) if($hcamp == $camp);
# 亡国ペナルティ
$v=int($v*0.8) if($ce1==1 && $camp==1);
$v=int($v*0.8) if($ce2==1 && $camp==2);
$v=int($v*0.8) if($ce3==1 && $camp==3);
$v=int($v*0.8) if($ce4==1 && $camp==4);
$v=int($v*0.8) if($ce5==1 && $camp==5);

# 内政ポイントによるボーナスを０％〜＋５０％
$v += int($v * ($nai_cnt/$nai_max[$camp]/2));