罪と罰++二律背反

  • }elsif($cmd==7){ # 最初は0なので診療所の後ろなら7
    	$log .= "いらっしゃいませ。何をお求めですか?<br>\n";
    	$tm=1000; # <---使用されていない番号を使うこと
    
    	$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|<option value="2">売る</option>\n|;
    	$log2 .=qq|</select><br>\n|;
    	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    
    	    ... ( 省略 )...
    
    	# 診療所
    	elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-medical.cgi';&medical;}
    
    	# 結婚相談所
    	elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
    			$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
       # 上で決めた$tm番号で処理を振り分ける
       elsif( $tm==1000 ){
    
    	... ( ここにショップの処理が入る・武器屋や防具屋などを参考に ) ...
    
    	}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:25:58 (2694d)