}elsif($tm==32){#売-2 if($cmd<=0){#消 $log .= "その他はどうしますか?<br>\n"; }else{ foreach(11 .. $#df_data){ if($cmd eq $_ && $gold >= $df_data[$_][2]){ $log .= "$df_data[$_][2]Gを支払い、$df_data[$_][1] を購入しました。<br>\n"; $gold -= $df_data[$_][2]; $df_a = $_; $df_cnt = $df_data[$_][3]; }elsif($cmd eq $_ && $gold<$df_data[$_][2]){ $log .= "お金が足りません。<br>\n"; } } }elsif($cmd==3){ if($df_a>0 && $df_cnt<10){ my $v = int($df_data[$df_a][2]*(1+$bg_lv*$bg_lv*1/10)); $log .= qq|使い込まれた $df_data[$df_a][1] だな。これなら、$v\G で修理できるぞ<br>\n |; $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|; $tm=45; }elsif($df_a>0){ $log .= qq|あんたの防具はまだまだ使えるぞ。使えなくなったら持って来てくれ。新品同様にしてやるよ|; $tm = $cmd = 0; &shop_menu; }else{ $log .= qq|防具を装備していないな。<br>\n|; $tm = $cmd = 0; &shop_menu; } }elsif($tm==32){ my $v = int($df_data[$df_a][2]*(1+$bg_lv*$bg_lv*1/10)); if($cmd<=0){ }elsif($gold<$v){ $log .= qq|残念だが、お金が足りないぞ。<br>\n|; }elsif($cmd==1){ $log .= qq|待たせたな。これでかなり手に馴染んだはずだ。|; $df_lv++; $df_cnt = $df_data[$df_a][3]; $gold -= $v; } $tm = $cmd = 0; &shop_menu; }elsif($tm==45){#買-2 if($cmd<=0){#消 $log .= "他にどうしますか?<br>\n"; }elsif($cmd==1){ my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2); $log .= "$df_data[$df_a][1] を $v G で売却しました。<br>\n"; $gold += $v; $df_a = $df_cnt = 0; } $tm = $cmd = 0; &shop_menu; |