# 各種設定 $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%