もちろんauction.cgiの改造。
�@auction.cgiを開き、if($FORM{'rname'} ne $FORM{'pname'}){で検索をする。

�Aif($FORM{'rname'} ne $FORM{'pname'}){の上に以下の文を追加。

if($VS_VAL[10] ne "" && $VS_VAL[11] ne "" && $VALS[8] < $nowmoney){&UNLOCK;&ERROR("相手の資金が足りません。落札するには自分の予\備\が空いてません");exit;}
elsif($VS_VAL[10] eq ""){$yobi2 = 10;}
elsif($VS_VAL[11] eq ""){$yobi2 = 11;}
else{&UNLOCK;&ERROR('所持武器ＤＢオープンエラー');}



�B以下の文の変更
if($FORM{'rname'} ne $FORM{'pname'}){
$VALS[8] = $VALS[8] - $nowmoney;
$VS_VAL[8] = $VS_VAL[8] + $nowmoney;
$VALS[$yobi] = $buki;
}
else{$VS_VAL[$yobi] = $buki;}

を以下のように変更する。

if($FORM{'rname'} ne $FORM{'pname'}){
if($VALS[8] < $nowmoney){
$VS_VAL[$yobi2] = $buki;$nname=$name}
else{
$VALS[8] = $VALS[8] - $nowmoney;
$VS_VAL[8] = $VS_VAL[8] + $nowmoney;
$VALS[$yobi] = $buki;
}
}
else{$VS_VAL[$yobi] = $buki;}


落札時に相手のお金が足りないと、自分に武器が戻るしくみです。
歴史に落札者が出品者の名前になるので相手さんも分かるようになってると思います。