罪罰改造板２/88

	
$exe-=$next_lv;

if($tm==10){
     $exe-=$next_lv;
}

sub stup_menu{

	# 能力コマンド
	@st 		= ('やめる','HP-UP','MP-UP','UA-UP','UD-UP','LR-UP','AG-UP');
	
	$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 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

			if($cmd<=0){
				$log .= "経験を積みより強く成長した。上昇させる能\力値を選んでください<br>\n";
				&stup_menu;
				}elsif($cmd==1){
					$log .= "最大HPが10上がった。<br>\n";
					$max_hp+=10;
					$cmd = 0;
					$type='';
					&dat_write;
					&call_main_st;