罪と罰++二律背反

	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;
    }
  }




トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2014-08-10 (日) 22:35:29 (2196d)