}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; } }