if($tm==120){ if($cmd<=0){ $log .= "またお越しください…<br>\n"; $tm = $cmd = 0; &shop_menu; # 治療-1 }elsif($cmd==1){ $S = ($lv < 50) ? $lv*2000 : 10000; $log .= "…ここでは古の秘術によって体力と魔力を<br>瞬時に全快まで回復してさしあげられます<br>…ただし$SG\頂きますが…<br>\n"; $tm=125; $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|</select><br>\n|; $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|; # 性転換-1 }elsif($cmd==2){ $log.="ここでは性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが・・・<br>"; $tm=135; $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 .= ($sei==1) ? qq|<option value="3">女になる</option>\n|: 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 }elsif($tm==125){ if($cmd<=0){ $log .= "$nm は立ち去った。<br>\n"; $tm = $cmd = 0; &shop_menu; }else{ $S = ($lv < 50) ? $lv*2000 : 100000; if($S < $gold){ $hp = $max_hp; $mp = $max_mp; $gold -= $S; $log .= "$SGを支払った…<br>体力と魔力が全回復した。<br>\n"; $tm = $cmd = 0; &shop_menu; }else{ $log .= "お金が足りないわ…<br>\n"; $tm=0; &shop_menu; } } # 性転換-2 }elsif($tm==135){ if($cmd<=0){ $log .= "$nm は何事も無かったように立ち去った。<br>\n"; $tm = $cmd = 0; &shop_menu; }else{ if($gold>=200000){ $gold-=200000; $log.="オペを開始します。目覚めるとそこは別世界になっていることでしょう。<br>"; $pr=$GMT*8; if($sei==1){ $sei=2; $sei2="女性"; }else{ $sei=1; $sei2="男性"; } $mes.= qq|麻酔から目を覚ました。$nm は $sei2 になった。|; $tm = $cmd = 0; $type=''; &call_main_st; }else{ $log2.="お金が足りません。"; $tm = $cmd = 0; &shop_menu; } } if($cmd==1){ if($lv<50){ $log .= qq|転生は、レベル50以上の方を対象としています。<br>|; $log .= qq|レベルを上げてからお越しください<br>|; $tm=$cmd=0; &shop_menu; }else{ $log .= qq|転生し生まれ変わりました<br>|; # ここに転生したときの処理を追加する # とりあえず、レベルが1になるだけ $lv = 1; $tm=$cmd=0; $type=''; &call_main_st; } }else{ $log .= qq|転生を中止します。<br>|; $tm=$cmd=0; &shop_menu; } }
|