罪罰改造板２/528

if($tm==90){#tmは適当
	# 転生するしないの選択肢
	$tm=100;
}elsif($tm==100){
	if($cmd<=0){
		$log .="やめておきます<br>";
		$tm=$cmd=0;
		&shop_menu;
	}else{
		$log .="転生後の名前を入力してください<br>";
		$tm=110;
		$log .=qq|<form method="$method" action="./ore_.cgi" name="ore_" align="left">|;
		$log .=qq|<input type="hidden" name="id" value="$id">|;
		$log .=qq|<input type="hidden" name="pw" value="$pw">|;
		$log .=qq|<input type=text name="com8" class="button2" style="width:120px"> | if($mv_mode eq "pc");
		$log .=qq|<input type=text name="com8" style="width:80px"> | if($mv_mode eq "mv");
		$log .=qq|<input type=submit value="変更" class="button2" style="width:120px"><br>| if($mv_mode eq "pc");
		$log .=qq|<input type=submit value="変更" style="width:80px"><br>| if($mv_mode eq "mv");
		$log .=qq|</form>|;
	}
}elsif($tm==110){
	$com8=$in{'com8'};
	if(!$com8){
		$log .="やめておきます<br>";
		$tm=$cmd=0;
		&shop_menu;
	}elsif(length($com8)>16){
		$log .="全角８文字までです<br>";
		$tm=$cmd=0;
		&shop_menu;
	}else{
		# 転生処理
		$K=$nm;
		$nm=$com8;
		# その他転生処理
	}
}