罪と罰++二律背反


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;

}
    • $wr_mes ="$date $cmp[$camp] の $syogo が
    • require './inc/ore_sub-prsn.cgi'; &prsn_resq; # 救出
    • $wr_mes .= qq|。$nmは逃走に失敗し、捕虜となりました|;
      $wr_mes .= qq|。$nmは逃走に失敗し、$cmp[$war_cr]の捕虜となりました|;
  • if($sogo==131){ # 捕虜称号に合わせる
      # 捕虜用メニュー
      require './inc/ore_sub-prsn.cgi'; &prsn_menu;
    }else{
    # メインコマンド
    my @c          = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事');





トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:39 (3028d)