- 追加された行はこの色です。
- 削除された行はこの色です。
* 治療すると何も出来なくなる 管理画面で見ると お買い物の125ってでてます [#w573e553]
* RLwbYWBEh [#k9901397]
- ページ: [[罪罰改造板3]]
- 投稿者: [[freedom]]
- 優先順位: 緊急
- 状態: 提案
- カテゴリー: エラーが出ます
- 投稿日: 2008-01-11 (金) 17:30:35
- 投稿者: [[No deposit casino bonus 2013]]
- 優先順位: 低
- 状態:
- カテゴリー:
- 投稿日: 2013-05-12 (日) 12:36:28
- バージョン:
** メッセージ [#y8429aa2]
# 診療所
sub medical{
** メッセージ [#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
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