* ショッピングモール [#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>"; $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" 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|; 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つ(現状維持と、ショッピングモールの)でてしまいます。これらが出ないようにするにはどうしたらよいのでしょうか? -------- #comment