罪罰改造板２/98

}elsif($cmd==11){
$log .= "いらっしゃいませ。当店では色々な種類の馬を御用意しております。<br>\n";
$tm=180;

$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==180){
		if($cmd<=0){#消
			$log .= "またおこしください。<br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($cmd==1){#買-1
			if($sogo==9||$sogo==10){
				$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げできません。<br>\n";
				$tm=0;
				&shop_menu;
			}else{
				$log .= "どの馬をお求めですか？<br>馬の所持は1頭までとなっております。<br>\n";
				$tm=181;
				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&uma_s;
			}
		}elsif($cmd==2){#売-1
			if($uma_a==0){
				$log .= "$nm さまは馬を所持できません。<br>\n";
				$tm = $cmd = 0;
				&shop_menu;
			}else{
				if($uma_a<=10){
					my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][2]/$uma_cnt)/2);
				$log .= "これは！ 隠し騎馬の$uma_data[$uma_a][1] ですね! どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
					$tm=182;
				}else{
					my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][2]/$uma_cnt)/2);
				$log .= "そうですね･･･ $uma_data[$uma_a][1] は $v Gで買い取らせて頂きますが。<br>\n";
					$tm=182;
				}

				$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==181){#買-2
		if($cmd<=0){#消
			$log .= "その他に何かありますか？<br>\n";
		}else{
			foreach(11 .. $#uma_data){
				if($cmd eq $_ && $gold >= $uma_data[$_][2]){
					$log .= "$uma_data[$_][2]Gを支払い、$uma_data[$_][1] を購入しました。<br>\n";
					$gold -= $uma_data[$_][2];
					$uma_a = $_;
					$uma_cnt = $uma_data[$_][3];
				}elsif($cmd eq $_ && $gold<$uma_data[$_][2]){
					$log .= "お金が足りません。<br>\n";
				}
			}
		}
		$tm = $cmd = 0;
		&shop_menu;
	}elsif($tm==182){#売-2
		if($cmd<=0){#消
			$log .= "他にどうしますか？<br>\n";
		}elsif($cmd==1){
			my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][2]/$uma_cnt)/2);
			$log .= "$uma_data[$uma_a][1] を $v G で売却しました。<br>\n";
			$gold += $v;
			$uma_a = $uma_cnt = 0;
		}
		$tm = $cmd = 0;
		&shop_menu;