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

📄 ebs_sub3.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
sub FRAME{
	print <<"	-----END-----";
Content-type: text/html

		<html><head>
		<title>$THIS_Title</title>
                </head>
		<frameset rows="*,$UPPER_FRAME" frameBorder="1" bordercolor="#002720" framespacing="10">
		<frame name="Main" scrolling=yes src="$MAIN_SCRIPT?LOGIN">
		<frame name="Sub" scrolling=yes src="$MAIN_SCRIPT?LOG0">
		</frameset>
		</html>
	-----END-----
}
sub STATUS{
	&DBM_CONVERT('P',"$FORM{pname}") if !$FORM{'Cmode'};
	&DBM_CONVERT('C',"$PL_VALUES[5]") if $PL_VALUES[5];
	&ERROR('NameError','用户名有问题，登录失败') if !@PL_VALUES;
	&ERROR('PwdError','密码有问题，登录失败') if crypt ($FORM{'pass'},eb) ne "$PL_VALUES[2]";
	&REPAIR(PL);
		if ($FORM{'login'}){
		if ($ENV{'REMOTE_HOST'}){$host="$ENV{'REMOTE_HOST'}";}else{$ipad=pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
		$host = gethostbyaddr($ipad,2);}
		dbmopen (%L,"$DBM_L",0666);
			foreach (sort {$b <=> $a} keys %L){$lc++;delete $L{"$_"} if $lc > $LOGIN_H;}
			$L{"$DATE"}="$FORM{'pname'}!$ENV{'REMOTE_ADDR'}!$host";
		dbmclose %L;
	}
	SET_COOKIE:{
		my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60);
		$gmt[0] = sprintf("%02d", $gmt[0]);	$gmt[1] = sprintf("%02d", $gmt[1]);
		$gmt[2] = sprintf("%02d", $gmt[2]);	$gmt[3] = sprintf("%02d", $gmt[3]);	$gmt[5] += 1900;
		$gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]];
		$gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]];
		my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT";
		my $cook = "pname:$FORM{'pname'},pass:$FORM{'pass'}";print "Set-Cookie: EB=$cook; expires=$date_gmt\n";
	}
	if ($PL_VALUES[28]){
		foreach ("$CL_VALUES[2]","$CL_VALUES[3]","$CL_VALUES[4]"){if ($PL_VALUES[28] eq "$_") {$DeleteFlag=1;}}
		if (!$DeleteFlag){$PL_VALUES[6]=$PL_VALUES[28]="";$flagd=1;}
	}
	if ($PL_VALUES[5] && !@CL_VALUES){$PL_VALUES[5]=$PL_VALUES[28]='';$PL_VALUES[6]=0;$flagd=1;}
	if (!$PL_VALUES[5] && $PL_VALUES[6]){$PL_VALUES[6]='0';$flagd=1;}
	$tmpdate=time;
	if ($PL_VALUES[34] eq ""){$PL_VALUES[34]="$tmpdate!0";$flagd=1;}
	if ($flagd){
		dbmopen (%PL,"$DBM_P",0666);
			$PL{"$FORM{'pname'}"}="@PL_VALUES";
		dbmclose %PL;
	}

	local($WN_A,$WLV_A,$WEX_A) = split(/!/,$PL_VALUES[9]); local($WN_B,$WLV_B,$WEX_B) = split(/!/,$PL_VALUES[10]);
	local($WN_C,$WLV_C,$WEX_C) = split(/!/,$PL_VALUES[11]);local($WN_D,$WLV_D,$WEX_D) = split(/!/,$PL_VALUES[35]);
	local($WN_E,$WLV_E,$WEX_E) = split(/!/,$PL_VALUES[36]);
	require "./$LOG_FOLDER/_bougu.data";
	local($BG_A,$BGT_A) = split(/!/,$PL_VALUES[41]);

	if   ($PL_VALUES[25] == 0){$CONDITIONAL = '<font color=#33CCFF>動</font>';}
	elsif($PL_VALUES[25] == 1){$CONDITIONAL = '<font color=red>修</font>';}

	$CL_VALUES[0]='#808080' if !$PL_VALUES[5];
	$pl_rank=int($PL_VALUES[0]/10)*$GET_RANK;
&HEADER;
$JIZHUISHU=$PL_VALUES[23] * 110 + $PL_VALUES[24];
sub BORDER {"border$_[0]:1px solid $_[1];";}
	$AT=int(($PL_VALUES[19]/50)*30);
	$DE=int(($PL_VALUES[20]/50)*30);
	$SP=int(($PL_VALUES[21]/50)*30);
	$MT=int(($PL_VALUES[22]/50)*30);
	$fil='style="position:relative;filter:alpha(opacity=70,finishopacitiy=70);"';
	$STYL2='style="border:1px solid #051485;"';
	$NEXT=($PL_VALUES[29]+1)*200;
print "<table border=0 cellpadding=0 cellspacing=0 style=\"border-collapse: collapse\" bordercolor=#111111 width=100% id=AutoNumber1><iframe name=music width=0 height=0 marginheight=0 marginwidth=0 frameborder=0 scrolling=NO></iframe><tr>";
print "<td width=33%>";

print "<center><DIV style=\"FILTER: dropshadow(offx=8,offy=8,color=#000000); POSITION: relative; HEIGHT: 110px\">";
print "<TABLE cellSpacing=0 cellPadding=0><TBODY><tr>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: #89a078 2px solid; FONT-SIZE: 15px; BORDER-LEFT: #89a078 2px solid; COLOR: #efef80; BORDER-BOTTOM: medium none\" noWrap align=middle width=120 bgColor=#000000>$FORM{pname}</TD>";
print "<TD style=\"BORDER-RIGHT: #23a012 1px solid; BORDER-TOP: #23a012 1px solid; FONT-SIZE: 15px; BORDER-LEFT: medium none; BORDER-BOTTOM: #89a078 2px solid; BACKGROUND-COLOR: #000000\" width=70 align=middle>";
	print &RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6])."&nbsp;";
	$PL_VALUES[5]='流浪者' if !$PL_VALUES[5];
print "</TD></TR><tr>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: medium none; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; BORDER-LEFT: #89a078 2px solid; PADDING-TOP: 4px; BORDER-BOTTOM: #89a078 2px solid\" bgColor=#000000 colSpan=2>";
print "<TABLE style=\"FONT-SIZE: 13px; COLOR: #d0d0d0\" cellSpacing=0 cellPadding=0><TBODY><tr>";
print "<TD align=right><img border=0 src=$IMG_FOLDER3/$PL_VALUES[37].gif></TD>";
print "<TD class=num style=\"COLOR: #efef80\" noWrap align=right colSpan=2>$STATUS_NAME[0]:&nbsp;".&STATUS_CONVERT("$PL_VALUES[24]",'j')."<br>$STATUS_NAME[1]:&nbsp;".$JIZHUISHU."<br>$STATUS_NAME[2]:&nbsp;".$PL_VALUES[23]."型</TD></TR><tr>";
print "<SPAN><TD align=right>$STATUS_NAME[3]</TD>";
require "./$LOG_FOLDER/_ex.data";
@WEX_sA=split(/\,/,$WEAPONEX_LIST{"$WEX_A"});
@WEX_sB=split(/\,/,$WEAPONEX_LIST{"$WEX_B"});
@WEX_sC=split(/\,/,$WEAPONEX_LIST{"$WEX_C"});
@WEX_sD=split(/\,/,$WEAPONEX_LIST{"$WEX_D"});
@WEX_sE=split(/\,/,$WEAPONEX_LIST{"$WEX_E"});
$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"});
print "<SPAN><TD class=num style=\"COLOR: #efef80\" noWrap align=right colSpan=2><B>$PL_VALUES[5]</B></TD></tr><tr>";
print "<TD noWrap align=right>$STATUS_NAME[4]</TD>";
print "<TD noWrap width=30><B class=num>$PL_VALUES[29]</B></TD>";
print "<TD noWrap align=right width=70>$PL_VALUES[30]/$NEXT</TD></TR><tr>";
print "<TD noWrap>$STATUS_NAME[5]</TD>";
print "<TD noWrap><B>$WLV_A</B></TD>";
print "<TD noWrap align=right>$WEP_A/$WEAPON_LVUP</TD></TR><tr>";
print "<TD noWrap align=right>$STATUS_NAME[6]</TD>";
print "<TD class=num noWrap align=middle colSpan=2>".&STATUS_CONVERT("$PL_VALUES[12]",'c')."</TD></TR><tr>";
print "<TD noWrap align=right>$STATUS_NAME[13]</TD>";
print "<TD class=num noWrap align=middle colSpan=2>$PL_VALUES[32]</TD></TR><tr>";
print "<TD noWrap align=right>$STATUS_NAME[14]</TD>";
if (!$PL_VALUES[32]){$syouritu = 0;}
else{$syouritu=int(($PL_VALUES[33]/$PL_VALUES[32])*100);}
print "<TD class=num noWrap align=middle colSpan=2>$PL_VALUES[33]</TD></TR><tr>";
print "<TD noWrap align=right>$STATUS_NAME[15]</TD>";
print "<TD class=num noWrap align=middle colSpan=2>$syouritu％</TD></TR><tr>";
print "<TD noWrap align=right>$STATUS_NAME[7]</TD>";
print "<TD class=num noWrap align=middle colSpan=2><b>";
print &STATUS_CONVERT("$PL_VALUES[4]",'t')."型</b></TD></TR><tr>";
print "<SPAN><TD noWrap align=right>$STATUS_NAME[8]</TD>";
print "<SPAN><TD class=num noWrap align=middle colSpan=2><b id=j_mon>$PL_VALUES[8]</b></TD>";
print "</tr></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></center></td>";


print "<td width=34% rowspan=3>";
print "<table border=3 cellpadding=0 cellspacing=0 style=\"border-collapse: collapse\" width=95% bgcolor=#000000 bordercolor=#008080>";
print "<tr><td width=100% align=center><img src=$IMG_FOLDER2/$PL_VALUES[27].gif><br>";
print "<font size=3>&nbsp;<b>$PL_VALUES[3]</b></font></td></tr></table>";
print "<b>$STATUS_NAME[9]</b><br><font color=#ffffff size=2>";
($DatHp,$Result,$DatHp2,$Result2,$DatHp3,$Result3) = split(/!/,$PL_VALUES[1]);
print "<font color=#FFFF00><span style=\"background-color: #FF0000\">";
print &DATE_DECORD("$DatHp")." <br>$Result</span></font><br>";
print &DATE_DECORD("$DatHp2")." <br>$Result2<br>";
print &DATE_DECORD("$DatHp3")." <br>$Result3</font></td>";


print "<td width=33%>";
print "<center><DIV style=\"FILTER: dropshadow(offx=8,offy=8,color=#000000); POSITION: relative; HEIGHT: 140px\">";
print "<TABLE cellSpacing=0 cellPadding=0><TBODY><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: #89a078 2px solid; FONT-SIZE: 15px; BORDER-LEFT: #89a078 2px solid; COLOR: #efef80; BORDER-BOTTOM: medium none\" noWrap align=middle width=50 bgColor=#000000>ARMS</TD>";
print "<TD style=\"PADDING-RIGHT: 1px; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; PADDING-TOP: 1px; BORDER-BOTTOM: #89a078 2px solid\" width=150>";
print "<SPAN style=\"BORDER-RIGHT: #23a012 1px solid; BORDER-TOP: #23a012 1px solid; FONT-SIZE: 16px; BORDER-LEFT: medium none; BORDER-BOTTOM: medium none; BACKGROUND-COLOR: #000000\">";
print "<B>機體狀態資料</B></SPAN></TD></TR><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: medium none; BORDER-LEFT: #89a078 2px solid; BORDER-BOTTOM: medium none; BACKGROUND-REPEAT: no-repeat\" vAlign=top bgColor=#000000 colSpan=3 height=70>";
print "<TABLE style=\"FONT-SIZE: 14px; LINE-HEIGHT: 16px\" cellSpacing=0 cellPadding=0 $right><TBODY><TR>";
print "<TD rowSpan=4>";
	print "<center><table cellpadding=0 cellspacing=0 border=0>";
	print "<tr><td width=30 height=30 $right valign=bottom background=\"$IMG_FOLDER1/btl.gif\">";
	print "<img src='$IMG_FOLDER1/tl.gif' width=$AT height=$DE $fil></td>";
	print "<td width=30 height=30 align=left valign=bottom background=\"$IMG_FOLDER1/btr.gif\">";
	print "<img src='$IMG_FOLDER1/tr.gif' width=$SP height=$DE $fil></td></tr>";
	print "<tr><td width=30 height=30 $right valign=top background=\"$IMG_FOLDER1/bbl.gif\">";
	print "<img src='$IMG_FOLDER1/bl.gif' width=$AT height=$MT $fil></td>";
	print "<td width=30 height=30 align=left valign=top background=\"$IMG_FOLDER1/bbr.gif\">";
	print "<img src='$IMG_FOLDER1/br.gif' width=$SP height=$MT $fil></td></tr></table></center></TD>";
	print "<TD $right width=27><IMG src=http://localhost/seb2/images/fight.gif></TD>";
print "<TD class=num noWrap width=25><B>".&STATUS_CONVERT("$PL_VALUES[19]",'s')."</B></TD>";
$fil='style="position:relative;filter:alpha(opacity=70,finishopacitiy=70);"';
print "<TD $right width=20><IMG src=http://localhost/seb2/images/gu.gif></TD>";
print "<TD class=num noWrap><B>".&STATUS_CONVERT("$PL_VALUES[20]",'s')."</B></TD><TD noWrap $right>攻||防</TD></TR><TR>";
print "<TD $right><IMG src=http://localhost/seb2/images/short.gif></TD><TD class=num noWrap><B>".&STATUS_CONVERT("$PL_VALUES[22]",'s')."</B></TD>";
print "<TD $right height=16><IMG src=http://localhost/seb2/images/speed.gif></TD>";
print "<TD class=num noWrap><B>".&STATUS_CONVERT("$PL_VALUES[21]",'s')."</B></TD>";
print "<TD noWrap $right>命||速</TD></TR><TR>";
print "<TD align=middle><IMG src=http://localhost/seb2/images/long.gif></TD>";
print "<TD class=num noWrap $right><B id=j_am_long>--</B></TD>";
print "<TD align=middle><IMG src=http://localhost/seb2/images/cpu.gif></TD>";
print "<TD class=num noWrap $right><B>XEON 1150*2</B></TD><TD></TD></TR><TR>";
print "<TD class=num noWrap $right colSpan=5>";
print "<B>-----</B></TD></TR></TBODY></TABLE></TD></TR><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: medium none; FONT-SIZE: 12px; BORDER-LEFT: #89a078 2px solid; BORDER-BOTTOM: #89a078 2px solid; BACKGROUND-REPEAT: no-repeat\" bgColor=#000000 colSpan=2>";
print "<DIV><TABLE $tb_kill bgColor=#000000><font color=#99fffff>&nbsp;<b>$STATUS_NAME[10]</b></a></font>&nbsp;&nbsp;&nbsp;<font color=ffffff>$PL_VALUES[39]</font></TABLE>";
print "<TABLE $tb_kill bgColor=#000000><font color=#990000>&nbsp;<b>$STATUS_NAME[11]</b></a></font>&nbsp;&nbsp;&nbsp;<font color=ffffff>$PL_VALUES[38]</font></TABLE>";
print "敌机损毁" if $WN_sA[7]=~ m/A/;
print "一击必杀" if $WN_sA[7]=~ m/B/;
print "速度" if $WN_sA[7]=~ m/C/;
print "防御" if $WN_sA[7]=~ m/D/;
print "命中" if $WN_sA[7]=~ m/E/;
print "乱射" if $WN_sA[7]=~ m/F/;
print "幸运" if $WN_sA[7]=~ m/G/;
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
if (!$WN_sB[0]){$WEX_sB[0]="";}
print'&nbsp;&nbsp;備用武器&nbsp;&nbsp;<b>'.$WN_sB[0].'</b><small>'.$WEX_sB[0].'</small>';
print "&nbsp;Lv.$WLV_B/exp.$WEP_B" if $WN_sB[0];print "<br>";
@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});
if (!$WN_sC[0]){$WEX_sC[0]="";}
print'&nbsp;&nbsp;備用武器&nbsp;&nbsp;<b>'.$WN_sC[0]."</b><small>".$WEX_sC[0]."</small>";
print "&nbsp;Lv.$WLV_C/exp.$WEP_C" if $WN_sC[0];print "<br>";
@WN_sD=split(/\,/,$WEAPON_LIST{"$WN_D"});
if (!$WN_sD[0]){$WEX_sD[0]="";}
print'&nbsp;&nbsp;備用武器&nbsp;&nbsp;<b>'.$WN_sD[0]."</b><small>".$WEX_sD[0]."</small>";
print "&nbsp;Lv.$WLV_D/exp.$WEP_D" if $WN_sC[0];print "<br>";
@WN_sE=split(/\,/,$WEAPON_LIST{"$WN_E"});
if (!$WN_sE[0]){$WEX_sE[0]="";}
print'&nbsp;&nbsp;備用武器&nbsp;&nbsp;<b>'.$WN_sE[0]."</b><small>".$WEX_sE[0]."</small>";
print "&nbsp;Lv.$WLV_E/exp.$WEP_E" if $WN_sE[0];print "<br>";
print "</TD></TR></TBODY></TABLE></DIV></center></td>";
print "</tr><tr><td width=33%></td><td width=4%></td>";
if($CL_VALUES[7] > time){
	print "<br>&nbsp;&nbsp;<b>战 略</b>&nbsp;&nbsp;&nbsp;&nbsp;<b style=\"color:$CL_VALUES[0];\">$CL_VALUES[5]</b> Limit:";
	print &DATE_DECORD("$CL_VALUES[7]")."<br>&nbsp;&nbsp;<b>任务</b>&nbsp;&nbsp;";
	print "&nbsp;&nbsp;<b>$CL_VALUES[6] 本国的攻略及要塞的破坏</b>";
}

print "</tr><tr>";
print "<td width=33%>";
print "<DIV style=\"FILTER: dropshadow(offx=8,offy=8,color=#000000); POSITION: relative; HEIGHT: 50px\">";
print "<TABLE cellSpacing=0 cellPadding=0><TBODY><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: #89a078 2px solid; FONT-SIZE: 15px; BORDER-LEFT: #89a078 2px solid; COLOR: #efef80; BORDER-BOTTOM: medium none\" noWrap align=middle width=50 bgColor=#000000 onclick=SK(3);>HP</TD>";
print "<TD style=\"PADDING-RIGHT: 1px; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; PADDING-TOP: 1px; BORDER-BOTTOM: #89a078 2px solid\" width=140><SPAN style=\"BORDER-RIGHT: #23a012 1px solid; BORDER-TOP: #23a012 1px solid; FONT-SIZE: 16px; BORDER-LEFT: medium none; BORDER-BOTTOM: medium none; BACKGROUND-COLOR: #000000\">";
print "<b id=j_hp>$PL_VALUES[15]</b>/<B>$PL_VALUES[16]</B>[<span id=cond>$CONDITIONAL</span>]</span></TD></TR><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: medium none; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; BORDER-LEFT: #89a078 2px solid; PADDING-TOP: 4px; BORDER-BOTTOM: #89a078 2px solid\" width=208 bgColor=#000000 colSpan=2><IMG height=10 width=208 name=hpimg src=http://localhost/seb2/images/mater.gif></TD>";
print "</TR></TBODY></TABLE></DIV>";

print "<DIV style=\"FILTER: dropshadow(offx=8,offy=8,color=#000000); POSITION: relative; HEIGHT: 50px\">";
print "<TABLE cellSpacing=0 cellPadding=0><TBODY><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: #89a078 2px solid; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; BORDER-LEFT: #89a078 2px solid; PADDING-TOP: 4px; BORDER-BOTTOM: medium none\" width=208 bgColor=#000000 colSpan=2><IMG name=enimg height=10 width=208 src=http://localhost/seb2/images/mater.gif></TD></TR><TR>";
print "<TD style=\"PADDING-RIGHT: 1px; BORDER-TOP: #89a078 2px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; PADDING-TOP: 1px\" $right width=150>";
print "<SPAN style=\"BORDER-RIGHT: medium none; BORDER-TOP: medium none; FONT-SIZE: 16px; BORDER-LEFT: #23a012 1px solid; BORDER-BOTTOM: #23a012 1px solid; BACKGROUND-COLOR: #000000\">";
print "<b id=j_en>$PL_VALUES[17]</b>/<B>$PL_VALUES[18]</B></SPAN></TD>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; BORDER-TOP: medium none; FONT-SIZE: 15px; BORDER-LEFT: #89a078 2px solid; COLOR: #efef80; BORDER-BOTTOM: #89a078 2px solid\" noWrap align=middle width=50 bgColor=#000000>EN</TD></TR></TBODY></TABLE></DIV></center></td><td>";
123

⌨️ 快捷键说明

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