if($sogo==5){ # <--ここを修正
# 捕虜用メニュー
require './inc/ore_sub-prsn.cgi'; &prsn_menu;
}else{
# メインコマンド
my @c = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');
}
if($sogo==5){
# 捕虜用メニュー
require './inc/ore_sub-prsn.cgi'; &prsn_menu;
}else{
# メインコマンド
my @c = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
$log2 .=qq|<select name="cmd" size="1">\n|;
foreach(0 .. $#c){ $log2 .=qq|<option value="$_">$c[$_]</option>\n|;}
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
&write_data;
}
-
-
-
-
-
-
-
if($sogo==131){ # 捕虜称号に合わせる
# 捕虜用メニュー
require './inc/ore_sub-prsn.cgi'; &prsn_menu;
}else{
# メインコマンド
my @c = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');
-