buy.cgi

WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機

	local($WN_D,$WLV_D) = split(/!/,$VALS[35]);
	local($WN_E,$WLV_E) = split(/!/,$VALS[36]);
	$WEP_A=$WLV_A%$WEAPON_LVUP;	
	$WEP_B=$WLV_B%$WEAPON_LVUP;	
	$WEP_C=$WLV_C%$WEAPON_LVUP;
	$WEP_D=$WLV_D%$WEAPON_LVUP;	
	$WEP_E=$WLV_E%$WEAPON_LVUP;
	$WLV_A=int$WLV_A/$WEAPON_LVUP;
	$WLV_B=int$WLV_B/$WEAPON_LVUP;
	$WLV_C=int$WLV_C/$WEAPON_LVUP;
	$WLV_D=int$WLV_D/$WEAPON_LVUP;
	$WLV_E=int$WLV_E/$WEAPON_LVUP;

@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});
@WN_sD=split(/\,/,$WEAPON_LIST{"$WN_D"});
@WN_sE=split(/\,/,$WEAPON_LIST{"$WN_E"});

if($VALS[10] ne ""){$option10 = "<option value=1>$WN_sB[0](Lv.$WLV_B)";}
if($VALS[11] ne ""){$option11 = "<option value=2>$WN_sC[0](LV.$WLV_C)";}
if($VALS[35] ne ""){$option35 = "<option value=3>$WN_sD[0](Lv.$WLV_D)";}
if($VALS[36] ne ""){$option36 = "<option value=4>$WN_sE[0](LV.$WLV_E)";}

if($option10 ne "" || $option11 ne "" || $option35 ne "" || $option36 ne ""){
print<<"HTML";
<table border=0><tr><td valign=top>
<form aciton=$SCRIPTNM method=POST target=Sub>
<input type=hidden name=cmd value=INBUKI>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>黑市武器出售</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2>出售武器</td>
<td bgcolor=$TABLE_COLOR1>
<select name=buki $STYLE_B1>$option10$option11$option35$option36</select>
</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2>设定时间</td>
<td bgcolor=$TABLE_COLOR1>$selecttime</td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2>初期金额</td>
<td bgcolor=$TABLE_COLOR1><input type=text size=20 name=money $STYLE_B1></td>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR1 colspan=2 align=right>
金額只能用半角數字輸入
<input type=submit value=出售 $STYLE_B1>
</td>
</tr>
</form>
HTML
}

else{
print<<"HTML";
<table border=0><tr><td valign=top>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>黑市武器出售</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR1 colspan=2>
現在沒有任何\武器裝備出售。
</td>
</tr>
HTML
}

print<<"HTML";
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>黑市交易歷史</td>
</tr>
<tr>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=cmd value=REKISI>
<td bgcolor=$TABLE_COLOR1 colspan=2 align=right><input type=submit value=历史 $STYLE_B1></td>
</form>
</tr>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>黑市説明書</td>
</tr>
<tr>
<form action=$SCRIPTNM method=POST>
<input type=hidden name=cmd value=SETUMEI>
<td bgcolor=$TABLE_COLOR1 colspan=2 align=right><input type=submit value=说明书 $STYLE_B1></td>
</form>
</tr>
</table>
</td>
<td valign=top>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=9>黑市武器出售一览</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2 align=center>出售者</td>
<td bgcolor=$TABLE_COLOR2 align=center>武器名(武器Lv)</td>
<td bgcolor=$TABLE_COLOR2 align=center>最低金額</td>
<td bgcolor=$TABLE_COLOR2 align=center>現在的金額</td>
<td bgcolor=$TABLE_COLOR2 align=center>擡高價錢設定</td>
<td bgcolor=$TABLE_COLOR2 align=center>結束时间</td>
<td bgcolor=$TABLE_COLOR2 align=center>價錢最高者</td>
<td bgcolor=$TABLE_COLOR2 align=center>决定按鈕</td>
<td bgcolor=$TABLE_COLOR2 align=center>購買數</td>
</form>
</tr>
HTML

$onum = @nyuusatu;
$numm = 0;
while($onum >= $numm){
push(@options,"<option value=$nyuusatu[$numm]>+$nyuusatu[$numm]Ｇ");
$numm++;
if($numm == $onum){last;}
}

$gyou = 0;
foreach(@kkk){
$rakusatumode = "";
open(OPENA,"$AUCTIONDIR/$_");
@dada = <OPENA>;
close(OPENA);
$l = 0;
$lognum = @dada;
if($lognum >= 2){$l = $lognum - 1;}
($name,$buki,$owari,$money) = split(/<>/,$dada[0]);
if($l >= 1){($nname,$nowmoney,$com) = split(/<>/,$dada[$l]);}
else{$nowmoney = $money;}
if($nname eq ""){$nname = "沒有購買者";}
if($name eq $cookies{'pname'}){$rakusatumode = 1;}
if($l == 0){$kname = $name;}
else{$kname = $nname;}

local($WN_A,$WLV_A) = split(/!/,$buki);
$WEP_A=$WLV_A%$WEAPON_LVUP;	
$WLV_A=int$WLV_A/$WEAPON_LVUP;
@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});

($sec, $min, $hour, $mday, $mon, $year) = localtime($owari);
$ghour = sprintf("%02d",$hour);
$gmin = sprintf("%02d",$min);
$mon++;
$kitei = "$mon月$mday日&nbsp$ghour时$gmin分停止";

if($owari <= time || $rakusatumode == 1){$cmd = "<input type=hidden name=cmd value=RAKUSATU><input type=hidden name=pname value=$name><input type=hidden name=rname value=$kname>";$input = "<input type=submit value=確定 $STYLE_B1>";}
else{$cmd = "<input type=hidden name=cmd value=NYUSATU>";$input = "<input type=submit value=擡價 $STYLE_B1>";}

print<<"TABLE";

<tr>
<form action=$SCRIPTNM method=POST>
$cmd
<input type=hidden name=bukifile value=$_>
<td bgcolor=$TABLE_COLOR2>$name出售</td>
<td bgcolor=$TABLE_COLOR1>$WN_sA[0](Lv.$WLV_A)</td>
<td bgcolor=$TABLE_COLOR1 align=right>$moneyＧ</td>
<td bgcolor=$TABLE_COLOR1 align=right>$nowmoneyＧ</td>
<td bgcolor=$TABLE_COLOR1><select name=gaku $STYLE_B1>@options</select></td>
<td bgcolor=$TABLE_COLOR1 align=right>$kitei</td>
<td bgcolor=$TABLE_COLOR1 align=center>$nname</td>
<td bgcolor=$TABLE_COLOR1>$input</td>
<td bgcolor=$TABLE_COLOR1 align=right>$l回</td>
</form>
</tr>
TABLE
$nname = "";
$gyou++;
}
if($gyou == 0){print "<tr><td bgcolor=$TABLE_COLOR1 colspan=9>现在出售はありません。</td></tr>";}


print<<"END";
</table>
</td></tr></table>
END
&foot;
exit;
}



sub NYUSATU {
if($cookies{'pname'} eq ""){&ERROR('クッキ—エラ—です。');}

&DBM_INPORT(P);

dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$cookies{'pname'}"});
dbmclose %P;


if(!open(OPENA,"$AUCTIONDIR/$FORM{'bukifile'}")){&ERROR('ファイルエラ—です。');}
@dada = <OPENA>;
close(OPENA);

$l = 0;
$lognum = @dada;
if($lognum >= 2){$l = $lognum - 1;}
($name,$buki,$owari,$money) = split(/<>/,$dada[0]);
if($l >= 1){($nname,$nowmoney) = split(/<>/,$dada[$l]);}
else{$nowmoney = $money;}
if($owari < time){&ERROR('入札终了时间を超えてます。');}
if($nname eq $cookies{'pname'}){&ERROR('连续での入札は出来ません。');}
$ngaku = $nowmoney + $FORM{'gaku'};
if($VALS[8] <= $ngaku){&ERROR('お金が足りません。');}
&LOCK;
$dada = "$cookies{'pname'}<>$ngaku<>\n";

	open(OUT,">>$AUCTIONDIR/$FORM{'bukifile'}");
	print OUT $dada;
	close(OUT);

&UNLOCK;

&HEADER;

print<<"HTML";
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>$nameさん出售武器への入札</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2>$ngakuＧで入札しました。</td>
</tr>
</table>
HTML
&foot;

}

sub RAKUSATU {

&LOCK;
&DBM_INPORT(P);
dbmopen (%P,"$DBM_P",0666);
@VALS = split(/\s/,$P{"$FORM{'rname'}"});
@VS_VAL = split(/\s/,$P{"$FORM{'pname'}"});
dbmclose %P;

if(!open(OPENA,"$AUCTIONDIR/$FORM{'bukifile'}")){&UNLOCK;&ERROR("すでに落札济みです。");}
@dada = <OPENA>;
close(OPENA);

if($VALS[10] ne "" && $VALS[11] ne "" && $VALS[35] ne "" && $VALS[35] ne ""){&UNLOCK;&ERROR("$FORM{'rname'}さんの予\备\に空きが无いので落札出来ません。");exit;}

elsif($VALS[10] eq ""){$yobi = 10;}
elsif($VALS[11] eq ""){$yobi = 11;}
elsif($VALS[35] eq ""){$yobi = 35;}
elsif($VALS[36] eq ""){$yobi = 36;}
else{&UNLOCK;&ERROR('所持武器ＤＢオ—プンエラ—');}

$l = 0;
$lognum = @dada;
if($lognum >= 2){$l = $lognum - 1;}
($name,$buki,$owari,$money) = split(/<>/,$dada[0]);
if($l >= 1){($nname,$nowmoney) = split(/<>/,$dada[$l]);}
else{$nname = $name;$nowmoney = $money;}

	local($WN_A,$WLV_A) = split(/!/,$buki);	
	$WEP_A=$WLV_A%$WEAPON_LVUP;	
	$WLV_A=int$WLV_A/$WEAPON_LVUP;
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});

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


unlink "$AUCTIONDIR/$FORM{'bukifile'}";

	dbmopen (%P,"$DBM_P",0666);
	$P{"$FORM{'rname'}"}="@VALS";
	$P{"$FORM{'pname'}"}="@VS_VAL";
	dbmclose %P;

open(OPENB,"$rireki");
@hanako = <OPENB>;
close(OPENB);

$ti = time;

if($lognum != 1){
while($rmax < @hanako){pop(@hanako);}
unshift(@hanako,"$ti<>$name<>$nname<>$WN_sA[0](Lv.$WLV_A)<>$nowmoney<>$money<>$l<>\n");
open(OUT,">$rireki");
print OUT @hanako;
close(OUT);
}
else{
while($rmax < @hanako){pop(@hanako);}
unshift(@hanako,"1<>$name<>$nname<>$WN_sA[0](Lv.$WLV_A)[0]<>$nowmoney<>$money<>$l<>\n");
open(OUT,">$rireki");
print OUT @hanako;
close(OUT);
}


&UNLOCK;

&HEADER;
print<<"HTML";
<table border=0><tr><td valign=top>
<form aciton=$SCRIPTNM method=POST target=Sub>
<input type=hidden name=cmd value=INBUKI>
<table $TABLE_STYLE>
<tr>
<td bgcolor=$TABLE_COLOR2 colspan=2>黑市購買结果</td></tr>
<tr>
<td bgcolor=$TABLE_COLOR2>出售武器</td>
<td bgcolor=$TABLE_COLOR1>$WN_sA[0](Lv.$WLV_A)</td>
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2>出售者</td>
<td bgcolor=$TABLE_COLOR1>$nameさん</td>
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2>落札者</td>
<td bgcolor=$TABLE_COLOR1>$nnameさん</td>
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2>落札金额</td>
<td bgcolor=$TABLE_COLOR1>$nowmoneyＧ</td>
</tr>

<tr>
<td bgcolor=$TABLE_COLOR2>入札回数</td>
<td bgcolor=$TABLE_COLOR1>$l回</td>
</tr>
</table>
HTML
&foot;
}



sub foot{
print "<br><br><br><input type=button value=\"黑市\" $STYLE_B1 onClick=\"parent.Sub.location.replace('./$SCRIPTNM')\"><br><br><br>\n
<div align=center><font size=2>PROGRAMING:(C) 2002 - <a href=http://melcha.zone.ne.jp/ target=_blank><font size=2>44NET FACTORY</font></a> - All Right Reserved.</font></div><p>";
&FOOTER;
print<<"FOOT";
</body>
</html>
FOOT
exit;
}