罪と罰++二律背反


  • }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|</select><br>\n|;
    			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    }elsif($tm==10){#武器屋
    # 武具屋 - 買 or 売
    	}elsif($tm==1000){
    		if($cmd<=0){#キャンセル
    			$log .= "なんだ、やめるのかい。また来てくれよな!<br>\n";
    			$tm = $cmd = 0;
    			&shop_menu;
    		}elsif($cmd==1){#交換
    			if(コインの変数>0){
    				$v=コインの変数*10;
    				$gold+=$v;#コイン一枚を10Gに換金する場合
    				$log .="$v\G に換金しました<br>\n";
    				コインの変数=0;
    				$tm=$cmd=0;
    				&shop_menu;
    			}else{
    				$log .="コインを持っていないですよ?<br>\n";
    				$tm=$cmd=0;
    				&shop_menu;
    			}	
    		}
  •  }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|</select><br>\n|;
    			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    }
    }elsif($tm==1000){
    	if($cmd<=0){
    		$log .="やめておきます<br>\n";
    		$tm=$cmd=0;
    		&shop_menu;
    	}elsif($cmd==1){
    		$log .="何と交換しますか?<br>\n";
    		$tm=1010;
    		$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">$kou_data[1][1]</option>\n| if($tiket>10);
    		$log2 .=qq|<option value="2">$kou_data[2][1]</option>\n| if($tiket>20);
    		$log2 .=qq|<option value="3">$kou_data[3][1]</option>\n| if($tiket>30);
    		$log2 .=qq|</select><br>\n|;
    		$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    	}
    }elsif($tm=1010){
    	if($cmd<=0){
    		$log .="やめておきます<br>\n";
    		$tm=$cmd=0;
    		&shop_menu;
    	}elsif($cmd>0 && $cdm<4){
    		$kou_a=$cmd;#$kou_aは$dg_aみたいなものです^^;既に自分で用意した変数を使用
    		$tiket-=$cmd*10;
    		$log .="$kou_data[$cmd][1] と交換しました<br>\n";
    		$tm=$cmd=0;
    		&shop_menu;
    	}
    }


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