罪罰改造板２/260

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|;
  
      # ↓この１行を追加 -------------------------------------------
      $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|;
  }