罪と罰++二律背反


sub changes_menu1{

	$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|<input type="hidden" name="cmd" value="6">\n|; #これを追加

	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
sub changes_exe{
          ・・・省略・・・
		}elsif($lv < $clv){
			$log .= "仕官はレベル $clv からです。<br>まずは修行で己を鍛えてください。<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
###以下追加###
		}elsif($cmd==6){
		$log .= "現在の所属から新たな所属へ<br>\n";
		$tm=1;
		$type='仕官';

		&changes_menu2;
###ここまで###
          ・・・省略・・・
}
  • sub changes_menu1{
        $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|;
    
        # ↓この1行を追加 -------------------------------------------
        $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
        # -----------------------------------------------------------
    
        $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
        $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    }


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