# 道具屋 - 買 or 売 }elsif($tm==50){ if($cmd<=0){#消 $log .= "他なにか御用ですか?<br>\n"; $tm = $cmd = 0; &shop_menu; }elsif($cmd==1){#買-1 if($sogo==3||$sogo==4){ $log .= "$sogo_p[$sogo] の烙印ついていては買い物はできません。<br>\n"; $tm = $cmd = 0; &shop_menu; }else{ $log .= "何をお買い上げですか?<br>ちなみに道具は1個しか所持できません。<br>\n"; $tm=52; require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s; } }elsif($cmd==2){#売-1 if(!$di_a){ $log .= "$nm さんは道具を所持していません。<br>\n"; $tm = $cmd = 0; &shop_menu; } $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|; } } if($tm==52){ if($cmd<=0){#消 $log .= "他なにか御用ですか?<br>\n"; }else{ foreach(1 .. $#di_data){ if($cmd eq $_ && $gold >= $di_data[$_][2]){ $log .= "$di_data[$_][2]Gを支払い、$di_data[$_][1] を購入しました。<br>\n"; $gold -= $di_data[$_][2]; $di_a = $_; $di_cnt = $di_data[$_][3]; }elsif($cmd eq $_ && $gold<$di_data[$_][2]){ $log .= "お金が足りません。お引取り願います。<br>\n"; } } } $tm = $cmd = 0; &shop_menu; }elsif($tm==65){ if($cmd<=0){#消 $log .= "他何か御用ですか?<br>\n"; }elsif($cmd==1){ my $v = int(($di_data[$di_a][2])/2); $log .= "$di_data[$di_a][1] を $v G で売却しました。<br>\n"; $gold += $v; $di_a = 0; } $tm = $cmd = 0; &shop_menu;
|