罪罰改造板２/496

}elsif($cmd==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){ # 最初は０なので診療所の後ろなら７
			$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;
	}
}