$gold+=$kakaku; # 資金受け取り $auc_ary[$_]=""; &re_auc_list; &auc_write; ### ここから ##### }elsif($flg==1 && $id ne $aid){ if($UNM{$anm} eq ""){ # 受取者なしの為削除 $auc_ary[$_]=""; &re_auc_list; &auc_write; }else{ # 落札済み&出品者以外 $limit = $range; &limit_time; $log .= qq|<tr bgcolor=#eecccc >|; $log .= qq|<td title="代金受取り待ち">済</td><td>$date_txt $time_txt</td><td>|; if($itype==11){ $log .= qq|$dg_data[$item_no][1]|; }elsif($itype==12){ $log .= qq|$df_data[$item_no][1]|; }elsif($itype==13){ $log .= qq|$di_data[$item_no][1]|; }else{ $log .= qq|----|; } $log .= qq|($item_cnt)</td><td>$UNM{$anm}</td><td>$UNM{$raku}</td><td>$kakaku G</td>|; $log .= qq|</td>|; $log .= qq|</tr>|; } ### ここまで ##### }else{ # $log .= qq|落札済み|; } } } # 入札価格上限倍率 0:上限なし 100:定価の100倍まで $high_wm = 100; # アイテム定価の100倍まで #----------------------------------------------------------- # 定価取得 sub get_teika{ $ret = 0; $ret = int($dg_data[$_[1]][2]) if($_[0]==11); $ret = int($df_data[$_[1]][2]) if($_[0]==12); $ret = int($di_data[$_[1]][2]) if($_[0]==13); return $ret; } sub nyusatu2{ my($anm,$aid,$itype,$item_no,$item_cnt,$atime,$range,$raku2,$kakaku2,$flg) = split(/<>/,$auc_ary[$cmd]); $hwm = int(&get_teika($itype, $item_no) * $high_wm); $in{'kakaku'}=$in{'kakaku'}+0; if($gold<$in{'kakaku'}){ $log .= qq|お金がありません<br>|; #-------------- ここから追加 }elsif($cmd>-1 && $cmd<=$#auc_ary && $in{'kakaku'}>=$hwm && $hwm>0){ $log .= qq|入札できません<br>入札価格はアイテム定価の$high_wm倍($hwm G)までです<br>|; #-------------- ここまで追加 }elsif($cmd>-1 && $cmd<=$#auc_ary && $in{'kakaku'}>$kakaku2 && $in{'kakaku'}>0){ $log .= qq|$UNM{$aid}さん出品の|; $log .= $dg_data[$item_no][1] if($itype==11); $log .= $df_data[$item_no][1] if($itype==12); $log .= $di_data[$item_no][1] if($itype==13); $log.=qq|に$in{'kakaku'}Gで入札しました<br>|; $auc_ary[$cmd]="<>$aid<>$itype<>$item_no<>$item_cnt<>$atime<>$range<>$id<>$in{'kakaku'}<>0<>"; &re_auc_list; &auc_write; }else{ $log .= qq|入札できませんでした<br>|; } } if($tm==500){ if($cmd==1){ # 出品する $tm=510; # ←順番を入れ替える &syupin1; # }elsif($cmd==2){ # 入札する |