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

📄 ebs_sub3.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
print "<center><DIV style=\"FILTER: dropshadow(offx=8,offy=8,color=#000000); POSITION: relative; HEIGHT: 65px\">";
print "<TABLE cellSpacing=0 cellPadding=0><TBODY><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; PADDING-RIGHT: 0px; BORDER-TOP: #89a078 2px solid; PADDING-LEFT: 0px; FONT-SIZE: 15px; PADDING-BOTTOM: 0px; BORDER-LEFT: #89a078 2px solid; COLOR: #efef80; PADDING-TOP: 0px; BORDER-BOTTOM: medium none\" noWrap align=middle width=160 bgColor=#000000>目前裝備武器</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=100 align=middle>";
print "<B class=num>消耗EN: $WN_sA[4]</B></TD></TR><TR>";
print "<TD style=\"BORDER-RIGHT: #89a078 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: medium none; PADDING-LEFT: 4px; FONT-SIZE: 15px; PADDING-BOTTOM: 4px; BORDER-LEFT: #89a078 2px solid; COLOR: #e0e0e0; PADDING-TOP: 4px; BORDER-BOTTOM: #89a078 2px solid\" width=208 bgColor=#000000 colSpan=2>";
#print "<B>".$WN_sA[0]."</B>&nbsp;等级.$WLV_A/经验.$WEP_A<BR>";
@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
if (!$WN_sA[0]){$WEX_sA[0]="";}
print '&nbsp;<b> '.$WN_sA[0].'</b><small>'.$WEX_sA[0].'</small>';
print "&nbsp;Lv.$WLV_A/exp.$WEP_A" if $WN_sA[0];print "<br>";
#@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
#if (!$WN_sA[0]){$WEX_sA[0]="";};
print "<span style=\"$STYL1\">&nbsp;&nbsp;性\能\&nbsp;&nbsp;攻：".&STATUS_CONVERT($WN_sA[1]*$WN_sA[3]/600,'s');print "&nbsp;&nbsp;命：".&STATUS_CONVERT($WN_sA[2]/2,'s');print "&nbsp;&nbsp;回：$WN_sA[3]<BR>";
@BG_sA=split(/\,/,$BOUGU_LIST{"$BG_A"});
print"<span style=\"$STYL1\">&nbsp;&nbsp;<b>輔助</b>&nbsp;&nbsp;</span><b>".$BG_sA[0]."</b><br>";
print "<span style=\"$STYL1\">&nbsp;&nbsp;性\能\&nbsp;&nbsp;</span>防：$BG_sA[1]重：$BG_sA[2]命補：$BG_sA[3]攻補：$BG_sA[4]耐久：$BGT_A<br>";

print "<B></B></TD></TR></TBODY></TABLE></DIV></center></td></tr></table>";
print "</td></tr>";
print << "-----END-----";
	<tr><form action=$MAIN_SCRIPT name="FM" method="POST" target=Sub><td colspan=7>
	<script language="JavaScript">
		function Move(){parent.Sub.location.replace("$MAIN_SCRIPT?LOGO");}
	</script>

		<input type=hidden name=cmd>
		<input type=hidden name=pname value=$FORM{'pname'}>
		<input type=hidden name=pass value=$FORM{'pass'}>
<div id="master">
<div id="menu">
<table border=0 width=100% cellspacing=0 cellpadding=0>
<tr><td width=100%><a href="javascript:expand()" onfocus="this.blur()"><img name="menutop" border=0 src="http://localhost/seb2/images/menu.gif" width="18" height="70"></a></td></tr>
</table>
</div>
<div id="top">
<table border=0 width=100% cellspacing=0 cellpadding=0>
<tr><td width=100%><img border=0 src="http://localhost/seb2/images/menutop.gif" width="145" height="6"></td></tr>
</table>
</div>
<div id="screen">
<table border=0 width=100% cellspacing=0 cellpadding="5">
<tr><td width=100% bgcolor="#808080">
<table border=0 width=100% bgcolor="#808080" cellspacing=0 cellpadding=0>
<tr><td width=100%>
<table border=0 width=100% cellspacing="1" cellpadding="5">
<tr><td width=100% bgcolor="#ffffff">
<font><br></font><font><br></font><font><br></font>
</td></tr></table></td></tr></table></td></tr></table></div>
<div id="screenlinks">
<table border=0 width=100% cellspacing=0 cellpadding="5">
<tr><td width=100%>
<table border=0 width=100% bgcolor="#808080" cellspacing=0 cellpadding=0>
<tr><td width=100%>
<table border=0 width=100% cellspacing="1" cellpadding="5">
<tr><td width=100% bgcolor="#665544">
<center>
<font color=#FFFFFF><b>机器人指令</b></font><br>
<input type=submit name="b_mode" value="战斗" $STYLE_B1 style=color:#003300 onClick="document.FM.cmd.value='BATTLE_1';Move()">
<input type=submit name="b_mode" value="亡命" $STYLE_B1 onClick="document.FM.cmd.value='BATTLE_1';Move()">
<input type=submit name="b_mode" value="内乱" $STYLE_B1 onClick="document.FM.cmd.value='BATTLE_1';Move()"><br>
<input type=submit name="custom" value="脸谱" $STYLE_B1 onClick="document.FM.cmd.value='FACE';Move()">
<input type=submit name="custom" value="历史" $STYLE_B1 onClick="document.FM.cmd.value='HIS';Move()">
<input type=button value="记录" $STYLE_B1 onClick="parent.Sub.location.replace('member.cgi')"><br>
<input type=button value="工厂" $STYLE_B1 onClick="parent.Sub.location.replace('miulerfactory.cgi')">
<input type=submit name="custom" value="辅助" $STYLE_B1 onClick="document.FM.cmd.value='BOUGU';Move()">
<input type=button value="黑市" $STYLE_B1 onClick="parent.Sub.location.replace('buy.cgi')"><br>
<input type=submit name="custom" value="发言" $STYLE_B1 onClick="document.FM.cmd.value='COM';Move()">
<input type=button value="议会" $STYLE_B1 onClick="parent.Sub.location.replace('bbs.cgi')">
<input type=button value=\"仓库\" $STYLE_B1 onClick=\"window.open('souko.cgi', 'Souko', 'width=610,height=554,top=50,left=50,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0')\"><br>
<input type=submit name="custom" value="改造" $STYLE_B1 onClick="document.FM.cmd.value='CUSTOMING';Move()">
<input type=submit name="custom" value="装备" $STYLE_B1 onClick="document.FM.cmd.value='EQUIPMENT';Move()">
<input type=submit name="custom" value="特殊" $STYLE_B1 onClick="document.FM.cmd.value='SPC';Move()"><br>
<input type=button value="本国" $STYLE_B1 onClick="parent.Sub.location.replace('$MAIN_SCRIPT?MY_LIST')">
<input type=button value="情报" $STYLE_B1 onClick="parent.Sub.location.replace('$MAIN_SCRIPT?C_LIST')">
<input type=button value="娛樂" $STYLE_B1 onClick="window.open('game.htm');"><br>
<input type=button value="势力" $STYLE_B1 onClick="parent.Sub.location.replace('ballance.cgi')">
<input type=button value="排名" $STYLE_B1 onClick="parent.Sub.location.replace('ranking.cgi')">
<input type=button value="牌戏" $STYLE_B1 onClick="window.open('e_casino.cgi','','resizable=1,scrollbars=1,status=yes,toolbar=yes,location=no,menubar=yes,width=789,height=450,left=0,top=0')"><br>
<input type=button value="争霸" $STYLE_B1 onClick="parent.top.location.replace('wars.cgi')">
<input type=button value="擂台" $STYLE_B1 onClick="parent.top.location.replace('champ.cgi')">
<input type=button value="集训" $STYLE_B1 onClick="parent.top.location.replace('mission.cgi')"><br>
<input type=button value="国情" $STYLE_B1 onClick="parent.Sub.location.replace('kunijyouhou.cgi')">
<input type=button value="論壇" $STYLE_B1 onClick="window.open('http://web.7ing.net/vbb/index.php')">
<input type=button onClick="winopen()" NAME="open" value="全屏" $STYLE_B1><br>
<input type=button value="製造" $STYLE_B1 onClick="parent.Sub.location.replace('zhi.cgi')">
<input type=submit name="custom" value="武器" $STYLE_B1 onClick="document.FM.cmd.value='EX';Move()">
<input type=button value="庫房" $STYLE_B1 onClick="parent.Sub.location.replace('wea.cgi')"><br>
<a href="music/music.htm" class="NavJump" target=music>音乐▲</a>||<a href="music/nomusic.htm"  class="NavJump" target=music>静音■</a>
</form>
<form action=$MAIN_SCRIPT method=POST target=_self>
<input type=hidden name=cmd value=MAIN_FRAME>
<input type=hidden name=pname value=$FORM{'pname'}>
<input type=hidden name=pass value=$FORM{'pass'}>
<input type="submit" value="刷新" $STYLE_B1 onClick="parent.Sub.location.replace('$MAIN_SCRIPT?LOGO');">
<input type=button value="終了" $STYLE_B1 onClick="window.open('safeout.cgi', 'safeout', 'width=510,height=254,top=50,left=50,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0')">

</form>
<a href="info.htm" target=_blank>♀♂游戏说明♂♀</a>
</center></td></tr></table></div></td></tr></table></td></tr></table>
-----END-----
	print "<script language=\"JavaScript\">location.href='#top';\n</script>\n" if $BANNER_DISPLAY;
print << "	-----END-----"if $ENV{'HTTP_USER_AGENT'} =~ m/MSIE/i;
	<script language="JavaScript">
	var h=$PL_VALUES[15];var e=$PL_VALUES[17];var timerID;var m=$PL_VALUES[8];
	myDate1 = new Date();
	var m_time=myDate1.getTime();
	HERepair();
	function HERepair(){
	myDate2 = new Date();
		n_time=myDate2.getTime();
		sasi = (m_time - n_time)/-1000;

		if (h < $PL_VALUES[16]){h = $PL_VALUES[15] + sasi*$HP_REPAIR;}else{h = $PL_VALUES[16];}
		if (e < $PL_VALUES[18]){e = $PL_VALUES[17] + sasi*$EN_REPAIR;}else{e = $PL_VALUES[18];}
		if (m < $MAX_MONEY){m = $PL_VALUES[8] + sasi*$pl_rank;}else{m = $MAX_MONEY;}
		if (h >= $PL_VALUES[16] && cond.innerText=='修'){
			cond.innerText='动';cond.style.color='#143dc1';
		}
		var hp=h/$PL_VALUES[16]*200;
		var en=e/$PL_VALUES[18]*200;
		document.hpimg.width=hp;
		document.enimg.width=en;
		j_hp.innerText=Math.round (h);
		j_en.innerText=Math.round (e);
		j_mon.innerText=Math.round (m);
		clearTimeout(timerID);
		timerID = setTimeout(\"HERepair()\",70);
		}
		</script>
	-----END-----
	exit;
}
sub CNTRY_LIST{
	@pair = split(/\;/, $ENV{'HTTP_COOKIE'});
		foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
	@pairs = split(/\,/, $DUMMY{'EB'});
		foreach (@pairs) {my($key, $value) = split(/\:/, $_);$COOKIE{"$key"} = $value;}

	$CO_NAME=$FORM{'CNTRY'};
	($FORM{'CNTRY'}='',$CL_VALUES[0]='#000000') if $FORM{'CNTRY'} eq '流浪者';
	&HEADER;
	&LOCK;&DBM_INPORT(P);&DBM_INPORT(C);&UNLOCK;
	@PL_VALUES = split(/\s/,$P{"$COOKIE{'pname'}"});
	@CL_VALUES = split(/\s/,$C{"$FORM{'CNTRY'}"});
	require "$LOG_FOLDER/_hash.data"if $FORM{'CNTRY'} eq "$PL_VALUES[5]";

	sub TR {local($WN_A,$WLV_A) = split(/!/,$VALUES[9]);$WLV_A=int($WLV_A/$WEAPON_LVUP);
			if ($FORM{'CNTRY'} eq "$PL_VALUES[5]"){
				@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
			}else{$WN_sA[0]='????????';}
		"<tr><td nowrap>$Key</td><td>".&RANK($VALUES[0],$VALUES[5],$VALUES[6])."</td><td><img src=$IMG_FOLDER3/$VALUES[37].gif ><img src=$IMG_FOLDER2/$VALUES[27].gif width=32 height=32></td><td align=center>".&STATUS_CONVERT("$VALUES[19]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[20]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[21]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[22]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[24]",'j')."</td><td><b>".$WN_sA[0]."(LV$WLV_A)</b></td><td align=center>".(&LOGIN_CHECK($Key) ? "参赛中":"<font color=red>休战中</font>")."</td></tr>"}

	print << "	-----END-----";
	<form action=$MAIN_SCRIPT method=POST target=Sub onSubmit="">
	<center><input type=hidden name="cmd" value="CO_LIST">
	<b style=\"font-size:13px;\">想查看哪个国家的情报？</b><br>
	-----END-----
	while (($C_Name,$C_Value) =each %C) {
		@C_VALUE = split(/\s/,$C_Value);
			print "<input type=submit name=CNTRY value=\"$C_Name\"";
			print " STYLE=\" background:$C_VALUE[0];color:black\">\n";
	}
		print "<input type=submit name=CNTRY value=\"流浪者\"";
		print " STYLE=\" background:#808080;color:white\"></center></form>\n";

	print "<table $center border=8 cellspacing=0 style=\"font-size:15px;border:8px outset $CL_VALUES[0];\">";
	print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"font-size:35px;\">$CO_NAME";
	print "<span style=\"font-size:15px;\">&nbsp;&nbsp;&nbsp;国费&nbsp;<b>\$$CL_VALUES[1]</b></span></td></tr>";
	print "<tr><td>用户名</td><td>等级</td><td>&nbsp;</td><td>AT</td><td>GD</td><td>SP</td><td>HIT</td><td>熟</td><td>武器装备</td></tr>";
	foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
		@VALUES = split(/\s/,$P{$Key});
		if ($FORM{'CNTRY'} eq "$VALUES[5]" && !$VALUES[28] && ($VALUES[6] == 1 || $VALUES[6] == 0)){print &TR;}

		if ($FORM{'CNTRY'} && $FORM{'CNTRY'} eq "$VALUES[5]" && $VALUES[28]){
			($UNIT_A.= &TR,$uflag_A=1) if $VALUES[28] eq $CL_VALUES[2] && $VALUES[6] != -1;
			($UNIT_B.= &TR,$uflag_B=1) if $VALUES[28] eq $CL_VALUES[3] && $VALUES[6] != -1;
			($UNIT_C.= &TR,$uflag_C=1) if $VALUES[28] eq $CL_VALUES[4] && $VALUES[6] != -1;
			($LEADER_A.= &TR,$lflag_A=1) if $VALUES[28] eq $CL_VALUES[2] && $VALUES[6] == -1;
			($LEADER_B.= &TR,$lflag_B=1) if $VALUES[28] eq $CL_VALUES[3] && $VALUES[6] == -1;
			($LEADER_C.= &TR,$lflag_C=1) if $VALUES[28] eq $CL_VALUES[4] && $VALUES[6] == -1;
		}
		$plys++;
	}

	if ($FORM{'CNTRY'}){
	print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\">&nbsp;<b>第一部队</b>&nbsp;";
	print $CL_VALUES[2] ? "$CL_VALUES[2]":!$CL_VALUES[2] ? '未编制':'</td></tr>';
	print $lflag_A ? "$LEADER_A":!$lflag_A ? "<tr><td colspan=9>暂无司令</td></tr>":'\n';
	print $uflag_A ? "$UNIT_A":!$uflag_A ? "<tr><td colspan=9>暂无队员</td></tr>":'';
	print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\">&nbsp;<b>第二部队</b>&nbsp;";
	print $CL_VALUES[3] ? "$CL_VALUES[3]":!$CL_VALUES[3] ? '未编制':'</td></tr>';
	print $lflag_B ? "$LEADER_B":!$lflag_B ? "<tr><td colspan=9>暂无司令</td></tr>":'\n';
	print $uflag_B ? "$UNIT_B":!$uflag_B ? "<tr><td colspan=9>暂无队员</td></tr>":'';
	print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\">&nbsp;<b>第叁部队</b>&nbsp;";
	print $CL_VALUES[4] ? "$CL_VALUES[4]":!$CL_VALUES[4] ? '未编制':'</td></tr>';
	print $lflag_C ? "$LEADER_C":!$lflag_C ? "<tr><td colspan=9>暂无司令</td></tr>":'\n';
	print $uflag_C ? "$UNIT_C":!$uflag_C ? "<tr><td colspan=9>暂无队员</td></tr>":'';
	}

	print "</table><br><br><br><br>";

	&FOOTER;
	exit;
}

sub CUSTOMIZE{
	&LOCK;
	&DBM_CONVERT('P',"$FORM{pname}");$flagp=1;
	&DBM_CONVERT('C',"$PL_VALUES[5]") if $PL_VALUES[5];
	&UNLOCK;
	$PL_VALUES[5]='' if $PL_VALUES[5] && !@CL_VALUES;
	$PL_VALUES[6]='0' if !$PL_VALUES[5];
	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]="";}
	}
$_="$FORM{'Cmode'}";
CUSTOM:{
123

⌨️ 快捷键说明

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