罪罰/転生

	}elsif($cmd==6){
		$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
		$tm=120;

		$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|;
		$log2 .=qq|<option value=0>やめる</option>\n|;
		$log2 .=qq|<option value=1>治療</option>\n|;
		$log2 .=qq|<option value=2>性転換</option>\n|;
		$log2 .=qq|<option value=3>転生</option>\n|;
		$log2 .=qq|</select><br>\n|;
		$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

			$log2 .= qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
        }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
	}elsif($tm==125){

• # 性転換-2
    ...(省略)...
  
  			}else{
  				$log2.="お金が足りません。";
  				$tm = $cmd = 0;
  				&shop_menu;
  			}
  		}
     }elsif($tm==136){
       if($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;
         }
       }else{
         $log .= qq|転生を中止します。<br>|;
         $tm=$cmd=0;
         &shop_menu;
       }
     }
  }
  
  1;