罪罰改造板２/12

	sub medical{
		#・・・・・・（省略）・・・・・・・
	
	
			$log2 .= qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
	################################# 転生1〜挿入１ここから〜###########################################
		}elsif($cmd==3){
	
			$log .= qq|ここでは転生の秘術を執り行います。よろしいですか？|;
			$tm=136;

			$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
			$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
			$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
			$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
			$log2 .= qq|<select name="cmd">\n|;
	
			$log2 .= qq|<option value="0">やめる</option>\n|;
			$log2 .= qq|<option value="1">転生する</option>\n|;
	
			$log2 .= qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
          }
	##################################### 転生〜挿入１ここまで〜##########################################
	# 治療-2
	
	
	#・・・（省略）・・・
	
	
			}else{
				$log2.="お金が足りません。";
				$tm = $cmd = 0;
				&shop_menu;
			}
		}
	########################### 転生2〜挿入２ここから〜 #######################################
	}elsif($tm==136){
		if($lv<99){
			$log .= qq|転生は、レベル９９以上の方を対象としています。<br>|;
			$log .= qq|レベルを上げてからお越しください<br>|;
			$tm=$cmd=0;
			&shop_menu;
		}else{
			$log .= qq|転生し生まれ変わりました<br>|;
			# ここに転生したときの処理を追加する
			# とりあえず、レベルが１になるだけ
			$lv = 1;
       
			$tm=$cmd=0;
			$type='';
			&call_main_st;
     			}
	############################### 転生2〜挿入２ここまで〜 ######################################

	}
}
1;

########################### 転生2〜挿入２ここから〜#######################################
	}elsif($tm==136){
             if($cmd==0){
                    $log .= qq|やめます<br>|;
			$tm=$cmd=0;
			&shop_menu;
             }elsif($cmd==1){
		if($lv<99){
			$log .= qq|転生は、レベル９９以上の方を対象としています。<br>|;
			$log .= qq|レベルを上げてからお越しください<br>|;
			$tm=$cmd=0;
			&shop_menu;
		}else{
			$log .= qq|転生し生まれ変わりました<br>|;
			# ここに転生したときの処理を追加する
			# とりあえず、レベルが１になるだけ
			$lv = 1;
       
			$tm=$cmd=0;
			$type='';
			&call_main_st;
     			}
            }