罪と罰++二律背反
罪罰改造板3/34
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
* 治療すると何も出来なくなる 管理画面で見ると お買い物...
- ページ: [[罪罰改造板3]]
- 投稿者: [[freedom]]
- 優先順位: 緊急
- 状態: 提案
- カテゴリー: エラーが出ます
- 投稿日: 2008-01-11 (金) 17:30:35
- バージョン:
** メッセージ [#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>瞬時...
$tm=125;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$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">...
# 性転換-1
}elsif($cmd==2){
$log.="ここでは性転換手術を受けられます。<br>ただし入...
$tm=135;
$log2 .= qq|<form action="$script" method="$method" na...
$log2 .= qq|<td align="center" valign="middle">\n| if(...
$log2 .= qq|<input type="hidden" name="id" value="$id"...
$log2 .= qq|<input type="hidden" name="pw" value="$pw"...
$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"...
$log2 .= qq|</select><br>\n|;
$log2 .= qq|<input type="submit" $button1 value="NEXT"...
}elsif($cmd==3){
$log .= qq|ここでは転生の秘術を執り行います。よ...
$tm=136;
$log2 .= qq|<form action="$script" method="$method" na...
$log2 .= qq|<td align="center" valign="middle">\n| if(...
$log2 .= qq|<input type="hidden" name="id" value="$id"...
$log2 .= qq|<input type="hidden" name="pw" value="$pw"...
$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"...
}
# 治療-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>体力と魔力が全回復した。<...
$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.="オペを開始します。目覚めるとそこは別世界になっ...
$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以上の方を対象として...
$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
終了行:
* 治療すると何も出来なくなる 管理画面で見ると お買い物...
- ページ: [[罪罰改造板3]]
- 投稿者: [[freedom]]
- 優先順位: 緊急
- 状態: 提案
- カテゴリー: エラーが出ます
- 投稿日: 2008-01-11 (金) 17:30:35
- バージョン:
** メッセージ [#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>瞬時...
$tm=125;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$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">...
# 性転換-1
}elsif($cmd==2){
$log.="ここでは性転換手術を受けられます。<br>ただし入...
$tm=135;
$log2 .= qq|<form action="$script" method="$method" na...
$log2 .= qq|<td align="center" valign="middle">\n| if(...
$log2 .= qq|<input type="hidden" name="id" value="$id"...
$log2 .= qq|<input type="hidden" name="pw" value="$pw"...
$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"...
$log2 .= qq|</select><br>\n|;
$log2 .= qq|<input type="submit" $button1 value="NEXT"...
}elsif($cmd==3){
$log .= qq|ここでは転生の秘術を執り行います。よ...
$tm=136;
$log2 .= qq|<form action="$script" method="$method" na...
$log2 .= qq|<td align="center" valign="middle">\n| if(...
$log2 .= qq|<input type="hidden" name="id" value="$id"...
$log2 .= qq|<input type="hidden" name="pw" value="$pw"...
$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"...
}
# 治療-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>体力と魔力が全回復した。<...
$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.="オペを開始します。目覚めるとそこは別世界になっ...
$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以上の方を対象として...
$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
ページ名: