罪罰/捕虜

sub cdata_open{

  ...（ここは省略）...

  #------------------------------ここから追加
  $horyo[1] = $CP{'horyo1'};
  $horyo[2] = $CP{'horyo2'};
  $horyo[3] = $CP{'horyo3'};
  $horyo[4] = $CP{'horyo4'};
  $horyo[5] = $CP{'horyo5'};
  #------------------------------ここまで追加

}             # ←cdat_openの閉じ括弧を目印にその上に５行追加

• $cdat .= "horyo1;$horyo[1],horyo2;$horyo[2],horyo3;$horyo[3],horyo4;$horyo[4],horyo5;$horyo[5],";

#------------------------------ここから追加
# 捕虜チェック
require './inc/ore_sub-prsn.cgi'; &prsn_chk;
#------------------------------ここまで追加

# 拘束時間
if($pr>$spend_time){ require './inc/ore_sub-main.cgi';  &wt_st; }

#------------------------------ここから追加
# 捕虜メニュー
elsif($sogo == 131){    # 捕虜称号に合わせる
   if($cmd==1){ require './inc/ore_sub-prsn.cgi'; &prsn_escape; }
   elsif($cmd==2){ require './inc/ore_sub-prsn.cgi'; &prsn_betray; }
   elsif($cmd==3){ require './inc/ore_sub-prsn.cgi'; &prsn_betray; }
   else{ require './inc/ore_sub-prsn.cgi'; &prsn_menu; }
}
#------------------------------ここまで追加

# 初期メニュー
elsif(!$type && $cmd==1 && $act_cnt<$act_cnt_limit) { require "./inc/ore_sub-training_$mv_mode\.cgi";       &training; }
elsif(!$type && $cmd==2){ require './inc/ore_sub-politics.cgi'; &politics; }

#------------------------------ここから追加
if($sogo==131){ # 捕虜称号131に合わせる
  # 捕虜用メニュー
  require './inc/ore_sub-prsn.cgi'; &prsn_menu;
}else{
#------------------------------ここまで追加

# メインコマンド
my @c          = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');


  ...（ここは省略）...


#------------------------------ここから追加
}
#------------------------------ここまで追加

&write_data;

$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちの末これを下し $N の国力を奪う事に成功したようです";

#-----------------------------------------------------ここから追加
require './inc/ore_sub-prsn.cgi'; &prsn_resq; # 救出
#-----------------------------------------------------ここまで追加

$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちを演じるが敗北し部隊は敗走したようです";

#-----------------------------------------------------ここから追加
require './inc/ore_sub-prsn.cgi'; &prsn_exe;  # 捕虜
#-----------------------------------------------------ここまで追加

$wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊を撃破。 $N の国力を奪う事に成功したようです";

#-----------------------------------------------------ここから追加
require './inc/ore_sub-prsn.cgi'; &prsn_resq; # 救出
#-----------------------------------------------------ここまで追加

$log .="部隊全滅という不名誉な敗北に、貴方に対する評価が著しく低下した<br>\n";

#-----------------------------------------------------ここから追加
require './inc/ore_sub-prsn.cgi'; &prsn_exe;  # 捕虜
#-----------------------------------------------------ここまで追加

• # 各種設定
  $horyo_sogo = 131;			# 捕虜の称号
  $uragi_sogo = 132;			# 裏切者の称号
  $horyo_esc = 20;			# 脱出確率
  $horyo_per = 15;			# 捕虜確率
  $horyo_per += ($war_cnt * 5);      # 同一国へ戦争を繰り返すごとに+5%
  $horyo_per += 10 if($hp<1);        # 一騎討ちに敗北したときは+10%