- 追加された行はこの色です。
- 削除された行はこの色です。
* ショッピングモール [#j9a56467]
- ページ: [[罪罰改造板3]]
- 投稿者: [[卑弥呼]]
- 優先順位: 普通
- 状態: 提案
- 状態: 完了
- カテゴリー: エラーが出ます
- 投稿日: 2007-12-09 (日) 12:12:54
- バージョン:
** メッセージ [#ve421fde]
店を追加したいです。
#----------------------------ここから追加
elsif($tm>=300 && $tm<400){ require './inc/ore_sub-leave.cgi'; &soko_exe; }
#----------------------------ここまで追加
elsif($tm==400){
$log.="ここでは属性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが・・・<br>";
$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" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">戦士</option>\n|;
$log2 .=qq|<option value="2">突撃</option>\n|;
$log2 .=qq|<option value="3">守護</option>\n|;
$log2 .=qq|<option value="4">忍者</option>\n|;
$log2 .=qq|<option value="5">指揮</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
$tm=402;
}elsif($tm==402){
if($cmd<=0){#消
$log .= "やめるのかい。で、他にどうするんだ?<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1 && $gold>=200000){
$gold-=200000;
$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*3;
$job_pp=0;
$job_pp2="戦士";
$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==2 && $gold>=200000){
$gold-=200000;
$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*3;
$job_pp=1;
$job_pp2="突撃";
$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==3 && $gold>=200000){
$gold-=200000;
$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*3;
$job_pp=2;
$job_pp2="守護";
$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==4 && $gold>=200000){
$gold-=200000;
$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*3;
$job_pp=3;
$job_pp2="忍者";
$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==5 && $gold>=200000){
$gold-=200000;
$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*3;
$job_pp=4;
$job_pp2="指揮";
$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}else{
$log .= "そんな はした金じゃ足りないよ!<br>\n";
}
$tm = $cmd = 0;
&shop_menu;
}
&dat_write;
}
#-------------------------------------------------------------------------------
属性の変更自体は出来るのですが、
属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。
のログのあと、コマンドメニューが2つ(現状維持とかと、ショッピングモールの)でてしまいます。これらが出ないようにするにはどうしたらよいのでしょうか?
--------
- 分かれていますが、#----------------------------ここから追加、から、#-------------------------------------------------------------------------------まで1セットです -- [[卑弥呼]] &new{2007-12-09 (日) 12:14:47};
- $tm=$cmd=0; , &shop_menu; ←これをコメントアウトしてみるとか・・・ -- [[masa]] &new{2007-12-09 (日) 17:49:12};
- &call_main_st;で現状維持のコマンド、&shop_menu;でショップのコマンドが出ているので不必要な方を削除で。 -- [[six]] &new{2007-12-09 (日) 19:03:42};
- それがコマンドをよびだすものだったんですね!ありがとうございます!できました!! -- [[卑弥呼]] &new{2007-12-09 (日) 22:26:25};
#comment