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

📄 wars.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
#!/usr/bin/perl
#ver.1
#设定
$SCRIPTNM="wars.cgi";     #程式名称（属性755）
$winforder="seiatu/";     #文件夹（属性755）
$winfile="0.cgi";         #文件夹内部文件 0.cgi～10.cgi。不可更改。（属性666）
$bairitu="2";             #奖励黄金(钱)增加倍率（１X 100～200×倍率）
$maxsts="50";            #能力最大值（默认５０、改造对应）
$prize="0";               #初期奖励黄金(钱)
$timer = "2";             #能够使用时间的间隔（秒）
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

require 'ebs_sub1.cgi';

&ERROR('请不要直接从此地址进入','安全起见请从您访问的网页进入') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

!$SUB && ($SUB='TOP');
&$SUB;

sub LOGIN		{&LOGIN2;}

sub LOG0		{&LOG01;}
sub LOGO		{&LOG01;}

sub TOP 		{&FRAME;}
sub MAIN_FRAME 	{require "$LOG_FOLDER/$HASH_DATA";&STATUS;}

sub BATTLE_2	{&BATTLE2;}

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=no src="$SCRIPTNM?LOGIN">
		<frame name="Sub" scrolling=yes src="$SCRIPTNM?LOG0">
		</frameset>
		</html>
	-----END-----
}
sub LOGIN2{
		@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;}

	$BG_TOP="bgcolor=\"$BG_TOP\"" if $BG_TOP !~ /\./;
	$BG_TOP="background=\"$BG_TOP\"" if $BG_TOP =~ /\./;

	print "Content-type: text/html\n\n";
	print << "	-----END-----";
	<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body background=images/bg1.jpg text=#FFFFFF>
<LINK href=htmlcn.css type=text/css rel=stylesheet>
<script language=javascript>var intDelay=30; //设置菜单显示速度，越大越慢
var intInterval=50; //每次更改的透明度
function MenuClick()
{if (LayerMenu.style.display=="")
{GradientClose();}
else
{LayerMenu.filters.alpha.opacity=0;
LayerMenu.style.display="";
GradientShow();
hide('first');}}
function GradientShow() //实现淡入的函数
{LayerMenu.filters.alpha.opacity+=intInterval;
if (LayerMenu.filters.alpha.opacity<100) setTimeout("GradientShow()",intDelay);}
function GradientClose() //实现淡出的函数
{LayerMenu.filters.alpha.opacity-=intInterval;
if (LayerMenu.filters.alpha.opacity>0)
{setTimeout("GradientClose()",intDelay);
}else{LayerMenu.style.display="none";}}
function updown()
{if (startmenu.className == "down")
startmenu.className = "up1";
else if (startmenu.className == "up1")
startmenu.className = "up1";}
function ctrl()
{if (startmenu.className == "down")
startmenu.className = "up1";
else if (startmenu.className == "up1")
startmenu.className = "down";}
</script>
<br><br>
<center><div class=up1 onClick="MenuClick();" onmousedown=this.className='down' id="startmenu" style="position:absolute; z-index:1"><img border="0" src="http://www.cngl.net/playuo/images/wars.gif" alt="打开登机舱 / 关闭登机舱"></div></center>
<center><div id=LayerMenu style="position: absolute; display: none; filter: alpha(opacity=0); left:50px; top:80px; z-index: 1">
        <table width=100% height=100% id="login"><tr><td align=center>
        <table border=0 cellpadding=0 cellspacing=0 $center>
        <form action=$SCRIPTNM method=POST name=frm1 style=\"margin:0px 0px 0px 0px;\">
        <tr><td $center $bg_top><input type=hidden name="cmd" value="MAIN_FRAME">
        <input type=hidden name="login" value="$DATE">
        <b>用户名</b></td>
        <td>&nbsp;<input type=text name="pname" value="$COOKIE{'pname'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;"></td><td>&nbsp;&nbsp;<a href="Javascript:MenuClick();"><img src=$IMG_FOLDER4/out.gif border=0></A></td></tr>
        <tr><td $center $bg_top><b>密&nbsp;&nbsp;码</b></td>
        <td>&nbsp;<input type=password name="pass" value="$COOKIE{'pass'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">
        </td><td>&nbsp;&nbsp;<input type=image src="http://www.cngl.net/playuo/images/log.gif" name=lgn>
        </td></tr></form></table>
        </td></tr></table></div>

	-----END-----


        $js1="";
        print "</body></html>";
        print "<script language=\"JavaScript\">location.href='#top';\n</script>\n" if $BANNER_DISPLAY;

}

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]";

	&LOCK;
        foreach $no (0 .. 10){
        open(IN,"$winforder$no\.cgi");
        $cdat[$no] = <IN>;
        close(IN);
        ($cname[$no],$c_0[$no],$c_1[$no],$c_2[$no],$c_3[$no],$c_4[$no],$c_5[$no],$c_6[$no],$c_7[$no],$c_8[$no],$c_9[$no],$c_10[$no],$c_11[$no],$c_12[$no],$c_13[$no],$c_14[$no],$c_15[$no],$c_16[$no],$c_17[$no],$c_18[$no],$c_19[$no],$c_20[$no],$c_21[$no],$c_22[$no],$c_23[$no],$c_24[$no],$c_25[$no],$c_26[$no],$c_27[$no],$c_28[$no],$c_29[$no],$c_30[$no],$wcount[$no],$wrecord[$no],$recnum[$no],$prize[$no]) = split(/<>/,$cdat[$no]);

        }
	&UNLOCK;

	&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 > 51;}
			$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;}
	if ($flagd){
		dbmopen (%PL,"$DBM_P",0666);
			$PL{"$FORM{'pname'}"}="@PL_VALUES";
		dbmclose %PL;
	}

	local($WN_A,$WLV_A) = split(/!/,$PL_VALUES[9]);	local($WN_B,$WLV_B) = split(/!/,$PL_VALUES[10]);
	local($WN_C,$WLV_C) = split(/!/,$PL_VALUES[11]);

	if   ($PL_VALUES[25] == 0){$CONDITIONAL = '<font color=#143dca>动</font>';}
	elsif($PL_VALUES[25] == 1){$CONDITIONAL = '<font color=#dc143c>修</font>';}

	$CL_VALUES[0]='#808080' if !$PL_VALUES[5];

&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%>";
12345

⌨️ 快捷键说明

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