罪と罰++二律背反


* RLwbYWBEh [#k9901397]
* 治療すると何も出来なくなる 管理画面で見ると お買い物の125ってでてます [#w573e553]

- ページ: [[罪罰改造板3]]
- 投稿者: [[No deposit casino bonus 2013]]
- 優先順位: 低
- 状態: 
- カテゴリー: 
- 投稿日: 2013-05-12 (日) 12:36:28
- 投稿者: [[freedom]]
- 優先順位: 緊急
- 状態: 提案
- カテゴリー: エラーが出ます
- 投稿日: 2008-01-11 (金) 17:30:35
- バージョン: 

** メッセージ [#v7c91260]
comment6
http://onlinegames4389slots.webstarts.com/ Gratis bonus codes
 casino free online
http://onlinegames518codes.webstarts.com/ Redeem free games codes
 free bonus casino no deposit
http://onlinegames4473bonus.webstarts.com/ winner casinono deposit free money online casinos
 online casino reports
http://onlinegames3026slots.webstarts.com/ Lucky club casinoSlots plus casino no deposit free money coupon code
 casino play
http://onlinegames846prize.pen.io/ vegas online casino
 fun casino
http://onlinegames4308bonus.webstarts.com/ New slots no deposit 2013
 Casinos that welcome USACasino free credit coupon codes
http://onlinegames2903codes.webstarts.com/ play free casino
 Mac friendly online slots
http://onlinegames920codes.proboards.com/ Cool cat coupon codes
 Casino US playersNo deposit online casino welcome bonus
http://onlinegames837codes.pen.io/ Break Away casino
 Club USA casino no deposit bonus
http://onlinegames3769codes.webstarts.com/ No deposit free trial golden casino
 Free no deposit sign up bonus casinoonline casino with no deposit bonus
http://onlinegames440codes.webstarts.com/ Casino slot of Vegas RTGReload no deposit casino bonus
 Casino promo code listing
http://onlinegames950prize.proboards.com/ no deposit casino promotionsGolden casino free cash codes
 deposit bonus
http://onlinegames4997codes.webstarts.com/ online casino codes
 europe casino
http://onlinegames1183slots.webstarts.com/ roulette online casinos
 Free coupon codes flash casinos 7sultanscasino sign up bonus no deposit
http://onlinegames4798rtg.webstarts.com/ Low deposit gambling online in USAInetbet casino no deposit coupon codes
 Real cash casino bonuses no deposit
http://onlinegames748prize.proboards.com/ Cameo casino sign up bonus
 bodog casino codes
http://onlinegames941win.pen.io/ No deposit online casino welcome bonus
 Diamond gal bonus code
http://pen.io/publish free casino play
 Jackpot city bonus code
http://onlinegames111slots.proboards.com/ online canadian casinos
 Flash casino games
http://onlinegames309rtg.pen.io/ Club world casino free chipsNo deposit needed casino
 casino bonus blog
http://onlinegames428rtg.pen.io/ free play casino online
 online casinos canada
http://onlinegames319codes.proboards.com/ play internet casinoMicrogaming 1 hour free
 Machine secret slot
http://onlinegames531rtg.proboards.com/ Marvel jackpotfree online casino games
 USA casino downloadSuper 777 free slots
http://onlinegames270codes.proboards.com/ Virtual casino no deposit coupon
 online casino promotions
http://onlinegames922bonus.proboards.com/ Cinema casino coupon
 1 hour free play USAcasino 33 no deposit codes
http://onlinegames464slots.pen.io/ cirrus casino
 usa online casinos no deposit
http://onlinegames603cash.proboards.com/ Casinos no deposit USA
 Simon Says Casino bonus
http://onlinegames879win.proboards.com/ online casino pokies
 1 hour free spin
http://onlinegames886slots.proboards.com/ DaVincis Gold casino free chips
 No deposit golden arch casinoonline casino blogs
http://onlinegames758rtg.proboards.com/ free bingo no deposit bonus
 Free starting money casinoonline casinos best
http://onlinegames839cash.proboards.com/ 777 dragon casino bonus codes
 US 1 hour free play casinosGrand online no deposit
http://onlinegames403bonus.pen.io/ real money online casinocasino red
 Cash free spin slots
http://onlinegames606slots.pen.io/ UK free bets no deposit
 no deposit cashable casino
** メッセージ [#y8429aa2]
# 診療所
sub medical{

	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;
			}
		}
}elsif($tm==136){
     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;
     }
   }
}

1;

管理画面で見ると お買い物の125ってでてます
初心者なのでどこをどうなおせばいいか
出来るだけ分かりやすく教えてください 
--------

#comment

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS