⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 wea.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi5" value="3">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="money" value="$WEP[7]">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=购入 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}


if($WEP[8] ne '' && $WEP[3] ne ""){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi5" value="4">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="money" value="$WEP[8]">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=购入 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[9] ne '' && $WEP[4] ne ""){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi5" value="5">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="money" value="$WEP[9]">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=购入 $STYLE_B1>
</td></form></tr>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td></tr>";}

}

print "</table></td></tr>
<tr><td align=center colspan=2>
<font size=2>中文化改造- <a href=http://www.verytown.com/ target=_blank>
<font size=2>非常城市</font></a>
 - All Right Reserved.</font><p>
";
print "</td></tr></table>";
&FOOTER;
print "</body></html>";
exit;
}

sub HOKAN{

&INPORT;
@WEP = split(/\s/,$BUKI{"$FORM{'pname'}"});

&DBM_INPORT(P);
@VALS = split(/\s/,$P{"$FORM{'pname'}"});
if ($VALS[26] >= (time - 3)){&ERROR('不能连续的按');exit;}

&LOCK;

if($WEP[0] eq ""){$inweapon = "0";}
elsif($WEP[1] eq ""){$inweapon = "1";}
elsif($WEP[2] eq ""){$inweapon = "2";}
elsif($WEP[3] eq ""){$inweapon = "3";}
elsif($WEP[4] eq ""){$inweapon = "4";}
else{dbmclose %P;&UNLOCK;&ERROR('仓库がいっぱいです');}

if($FORM{'azuke2'} ne '' and $VALS[10] eq $FORM{'azuke2'}){
$WEP[$inweapon] = "$FORM{'azuke2'}";
$VALS[10] = "";
$num = 2;

	local($OWN_A,$OWLV_A) = split(/!/,$FORM{'azuke2'});
	@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
	$KEKKA = "【 $WN_sA[0]放入了倉庫。 】";
}

if($FORM{'azuke3'} ne '' and $VALS[11] eq $FORM{'azuke3'}){
$WEP[$inweapon] = "$FORM{'azuke3'}";
$VALS[11] = "";
$num = 3;

	local($OWN_A,$OWLV_A) = split(/!/,$FORM{'azuke3'});
	@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
	$KEKKA = "【 $WN_sA[0]放入了倉庫。 】";

}

if($FORM{'azuke4'} ne '' and $VALS[35] eq $FORM{'azuke4'}){
$WEP[$inweapon] = "$FORM{'azuke4'}";
$VALS[35] = "";
$num = 4;

	local($OWN_A,$OWLV_A) = split(/!/,$FORM{'azuke4'});
	@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
	$KEKKA = "【 $WN_sA[0]放入了倉庫。 】";

}

if($FORM{'azuke5'} ne '' and $VALS[36] eq $FORM{'azuke5'}){
$WEP[$inweapon] = "$FORM{'azuke5'}";
$VALS[36] = "";
$num = 5;

	local($OWN_A,$OWLV_A) = split(/!/,$FORM{'azuke5'});
	@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
	$KEKKA = "【 $WN_sA[0]放入了倉庫。 】";

}

$VALS[26] = $DATE;

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

($hidari,$migi) = split(/\!/,$FORM{'azuke2'});
($hidari3,$migi3) = split(/\!/,$FORM{'azuke3'});

@OUTPUT="$WEP[0] $WEP[1] $WEP[2] $WEP[3] $WEP[4] $WEP[5] $WEP[6] $WEP[7] $WEP[8] $WEP[9]";

dbmopen (%BUKI,"$BUKIDB",0666);
$BUKI{"$COOKIE{'pname'}"}="@OUTPUT";
dbmclose %BUKI;
&UNLOCK;
&SOUKO;
}

sub DASU {

&INPORT;
@WEP = split(/\s/,$BUKI{"$FORM{'pname'}"});

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

if ($VS_VALS[26] >= (time - 3)){dbmclose %P;&ERROR('不能连续的按');exit;}

if($VS_VALS[10] ne "" && $VS_VALS[11] ne "" && $VS_VALS[35] ne "" && $VS_VALS[36] ne ""){$bukimoti = 1;}

$upwep = "$$FORM{'wepnum'}";

if($FORM{'dasi2'} ne ''){
if($VALS[10] ne ""){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}
$VS_VALS[10] = $FORM{'dasi2'};
if($FORM{'wepnum'} eq "1"){$WEP[0] = "";$WEP[5] = "";$err = 1;}
if($FORM{'wepnum'} eq "2"){$WEP[1] = "";$WEP[6] = "";$err = 1;}
if($FORM{'wepnum'} eq "3"){$WEP[2] = "";$WEP[7] = "";$err = 1;}
if($FORM{'wepnum'} eq "4"){$WEP[3] = "";$WEP[8] = "";$err = 1;}
if($FORM{'wepnum'} eq "5"){$WEP[4] = "";$WEP[9] = "";$err = 1;}
if($err ne 1){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}

	local($WN_A,$WLV_A) = split(/!/,$FORM{'dasi2'});	
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	$KEKKA = "【 $WN_sA[0]從庫房中取了出來。 】";
}

if($FORM{'dasi3'} ne ''){
if($VALS[11] ne ""){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}
$VS_VALS[11] = $FORM{'dasi3'};
if($FORM{'wepnum'} eq "1"){$WEP[0] = "";$WEP[5] = "";$err = 1;}
if($FORM{'wepnum'} eq "2"){$WEP[1] = "";$WEP[6] = "";$err = 1;}
if($FORM{'wepnum'} eq "3"){$WEP[2] = "";$WEP[7] = "";$err = 1;}
if($FORM{'wepnum'} eq "4"){$WEP[3] = "";$WEP[8] = "";$err = 1;}
if($FORM{'wepnum'} eq "5"){$WEP[4] = "";$WEP[9] = "";$err = 1;}
if($err ne 1){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}

	local($WN_A,$WLV_A) = split(/!/,$FORM{'dasi3'});	
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	$KEKKA = "【 $WN_sA[0]從倉庫中拿出了。 】";

}
if($FORM{'dasi8'} ne ''){
if($VALS[35] ne ""){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}
$VS_VALS[35] = $FORM{'dasi8'};
if($FORM{'wepnum'} eq "1"){$WEP[0] = "";$WEP[5] = "";$err = 1;}
if($FORM{'wepnum'} eq "2"){$WEP[1] = "";$WEP[6] = "";$err = 1;}
if($FORM{'wepnum'} eq "3"){$WEP[2] = "";$WEP[7] = "";$err = 1;}
if($FORM{'wepnum'} eq "4"){$WEP[3] = "";$WEP[8] = "";$err = 1;}
if($FORM{'wepnum'} eq "5"){$WEP[4] = "";$WEP[9] = "";$err = 1;}
if($err ne 1){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}

	local($WN_A,$WLV_A) = split(/!/,$FORM{'dasi8'});	
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	$KEKKA = "【 $WN_sA[0]從倉庫中拿出了。 】";

}
if($FORM{'dasi9'} ne ''){
if($VALS[36] ne ""){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}
$VS_VALS[36] = $FORM{'dasi9'};
if($FORM{'wepnum'} eq "1"){$WEP[0] = "";$WEP[5] = "";$err = 1;}
if($FORM{'wepnum'} eq "2"){$WEP[1] = "";$WEP[6] = "";$err = 1;}
if($FORM{'wepnum'} eq "3"){$WEP[2] = "";$WEP[7] = "";$err = 1;}
if($FORM{'wepnum'} eq "4"){$WEP[3] = "";$WEP[8] = "";$err = 1;}
if($FORM{'wepnum'} eq "5"){$WEP[4] = "";$WEP[9] = "";$err = 1;}
if($err ne 1){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}

	local($WN_A,$WLV_A) = split(/!/,$FORM{'dasi9'});	
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	$KEKKA = "【 $WN_sA[0]從倉庫中拿出了。 】";

}

if($FORM{'dasi4'} ne ''){
	$haikiw = "$FORM{'dasi4'}";

	local($WN_A,$WLV_A) = split(/!/,$WEP[$haikiw]);	
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	$KEKKA = "【 $WN_sA[0]丟掉了。 】";
	$WEP[$haikiw] = "";
}                
          
if($FORM{'dasi6'} ne ""){
if($FORM{'uri1'} =~ m/\D/g && $FORM{'uri1'} ne ""){dbmclose %P;&UNLOCK;&ERROR('半角数字で记入してください');}
if($FORM{'uri2'} =~ m/\D/g && $FORM{'uri2'} ne ""){dbmclose %P;&UNLOCK;&ERROR('半角数字で记入してください');}
if($FORM{'uri3'} =~ m/\D/g && $FORM{'uri3'} ne ""){dbmclose %P;&UNLOCK;&ERROR('半角数字で记入してください');}
if($FORM{'uri4'} =~ m/\D/g && $FORM{'uri4'} ne ""){dbmclose %P;&UNLOCK;&ERROR('半角数字で记入してください');}
if($FORM{'uri5'} =~ m/\D/g && $FORM{'uri5'} ne ""){dbmclose %P;&UNLOCK;&ERROR('半角数字で记入してください');}

	local($OWN_A,$OWLV_A) = split(/!/,$WEP[0]);
	local($OWN_B,$OWLV_B) = split(/!/,$WEP[1]);
	local($OWN_C,$OWLV_C) = split(/!/,$WEP[2]);
	local($OWN_D,$OWLV_D) = split(/!/,$WEP[3]);
	local($OWN_E,$OWLV_E) = split(/!/,$WEP[4]);

@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});
@WN_sB=split(/\,/,$WEAPON_LIST{"$OWN_B"});
@WN_sC=split(/\,/,$WEAPON_LIST{"$OWN_C"});
@WN_sD=split(/\,/,$WEAPON_LIST{"$OWN_D"});
@WN_sE=split(/\,/,$WEAPON_LIST{"$OWN_E"});

if($FORM{'dasi6'} == 1 && $WEP[0] ne ""){$WEP[5] = $FORM{'uri1'};$KEKKA = "【 $WN_sA[0]を$FORM{'uri1'}Ｇ開始販賣。】";}
if($FORM{'dasi6'} == 2 && $WEP[1] ne ""){$WEP[6] = $FORM{'uri2'};$KEKKA = "【 $WN_sB[0]を$FORM{'uri2'}Ｇ開始販賣。】";}
if($FORM{'dasi6'} == 3 && $WEP[2] ne ""){$WEP[7] = $FORM{'uri3'};$KEKKA = "【 $WN_sC[0]を$FORM{'uri3'}Ｇ開始販賣。】";}
if($FORM{'dasi6'} == 4 && $WEP[3] ne ""){$WEP[8] = $FORM{'uri4'};$KEKKA = "【 $WN_sD[0]を$FORM{'uri4'}Ｇ開始販賣。】";}
if($FORM{'dasi6'} == 5 && $WEP[4] ne ""){$WEP[9] = $FORM{'uri5'};$KEKKA = "【 $WN_sE[0]を$FORM{'uri5'}Ｇ開始販賣。】";}
}

if($FORM{'dasi5'} ne ""){
if($bukimoti == 1){dbmclose %P;&UNLOCK;&ERROR('身上的武器滿了');}
if($VS_VALS[8] < $FORM{'money'}){dbmclose %P;&UNLOCK;&ERROR("お金が足りません");}
if($FORM{'dasi5'} == 1){if($WEP[0] eq ""){dbmclose %P;&UNLOCK;&ERROR('商品は卖り切れです');exit;}$vswep = $WEP[0];$WEP[0] = "";$WEP[5] = "";}
if($FORM{'dasi5'} == 2){if($WEP[1] eq ""){dbmclose %P;&UNLOCK;&ERROR('商品は卖り切れです');exit;}$vswep = $WEP[1];$WEP[1] = "";$WEP[6] = "";}
if($FORM{'dasi5'} == 3){if($WEP[2] eq ""){dbmclose %P;&UNLOCK;&ERROR('商品は卖り切れです');exit;}$vswep = $WEP[2];$WEP[2] = "";$WEP[7] = "";}
if($FORM{'dasi5'} == 4){if($WEP[3] eq ""){dbmclose %P;&UNLOCK;&ERROR('商品は卖り切れです');exit;}$vswep = $WEP[3];$WEP[3] = "";$WEP[8] = "";}
if($FORM{'dasi5'} == 5){if($WEP[4] eq ""){dbmclose %P;&UNLOCK;&ERROR('商品は卖り切れです');exit;}$vswep = $WEP[4];$WEP[4] = "";$WEP[9] = "";}

$VALS[8] = $VALS[8] + $FORM{'money'};
$VS_VALS[8] = $VS_VALS[8] - $FORM{'money'};

if($VS_VALS[10] eq ""){$VS_VALS[10] = "$vswep";}
elsif($VS_VALS[11] eq ""){$VS_VALS[11] = "$vswep";}
elsif($VS_VALS[35] eq ""){$VS_VALS[35] = "$vswep";}
elsif($VS_VALS[36] eq ""){$VS_VALS[36] = "$vswep";}
else{dbmclose %P;&UNLOCK;&ERROR('身上裝備滿了');exit;}

	local($OWN_A,$OWLV_A) = split(/!/,$vswep);
	@WN_sA=split(/\,/,$WEAPON_LIST{"$OWN_A"});

$KEKKA = "【 $WN_sA[0]用了$FORM{'money'}Ｇ買入了。 】";
}

$VALS[26] = $DATE ;
$P{"$FORM{'pname'}"}="@VALS";
$P{"$COOKIE{'pname'}"}="@VS_VALS";
dbmclose %P;

@OUTPUT="$WEP[0] $WEP[1] $WEP[2] $WEP[3] $WEP[4] $WEP[5] $WEP[6] $WEP[7] $WEP[8] $WEP[9]";

dbmopen (%BUKI,"$BUKIDB",0666);
$BUKI{"$FORM{'pname'}"}="@OUTPUT";
dbmclose %BUKI;

&UNLOCK;
&SOUKO;
}
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -