ebs_sub2.cgi

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

		if ($PL_VALUES[5] && $PL_VALUES[5] 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 ($PL_VALUES[5]){
	print "<tr><td colspan=4 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:20px;\">&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=4>暂无司令</td></tr>":'\n';
	print $uflag_A ? "$UNIT_A":!$uflag_A ? "<tr><td colspan=4>暂无队员</td></tr>":'';
	print "<tr><td colspan=4 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:20px;\">&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=4>暂无司令</td></tr>":'\n';
	print $uflag_B ? "$UNIT_B":!$uflag_B ? "<tr><td colspan=4>暂无队员</td></tr>":'';
	print "<tr><td colspan=4 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:20px;\">&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=4>暂无司令</td></tr>":'\n';
	print $uflag_C ? "$UNIT_C":!$uflag_C ? "<tr><td colspan=4>暂无队员</td></tr>":'';
	}
	print "</table><br><br><br><br>";

#	&FOOTER;

}
sub C_LIST2{
	&DBM_INPORT(C);
	&HEADER;
	print << "	-----END-----";
	<form action=$MAIN_SCRIPT method=POST target=Sub onSubmit="">
	<center><input type=hidden name="cmd" value="CO_LIST">
	<b>查看所有国家的情报</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";
}

sub WEAPON_LIST{
&HEADER2;

require "$LOG_FOLDER/$HASH_DATA";
print << "END_OF_HTML";
<table width=100% height=100%><tr><td align=center>
<img src=$IMG_FOLDER4/logo_weapon.gif><table>
END_OF_HTML

	foreach my $W_key (sort keys %WEAPON_LIST){
		@W=split(/\,/,$WEAPON_LIST{"$W_key"});
		$opt.= "<option value=\"$W_key\">$W[0]\n"if $W[6]>=4 && $W_key ne $FORM{'wname'};
		$opt.= "<option value=\"$W_key\" selected>$W[0]\n"if $W[6]>=4 && $W_key eq $FORM{'wname'};
		$check=substr($W_key,0,length($FORM{'wname'}));
		if ($W_key =~ /^$FORM{'wname'}/ && length($FORM{'wname'})+1 == length($W_key)){$nexKey=$W_key;
		@nex = split(/\,/,$WEAPON_LIST{"$W_key"});if ($nex[6] <= 3){$nex[0]='秘密武器'}$nextgen.="$nex[0]<br>";}
		if ($W_key eq "$FORM{'wname'}"){
			@WW=@W;$NowW=$W_key;$originW=substr($NowW,0,1);$pregen=substr($NowW,0,length($NowW)-1);
			($PREGEN,$At,$WM) = split(/\,/,$WEAPON_LIST{"$pregen"});
			($orNameA,$At,$WM) = split(/\,/,$WEAPON_LIST{"$originW"});$Sedai=length($NowW);
		}
	}
if (!$PREGEN){$PREGEN='<b style="color:ef8524;">None-Generation</b>';}
if (!$nextgen){$nextgen='<b style="color:ef8524;">None-Generation</b>';}
if (!$FORM{'wname'}){print "<b style=\"font-size:15pt;color:#778899;\">全检索</b>\n";$PREGEN=$nextgen='';}
print << "END_OF_HTML";
<form action="$MAIN_SCRIPT" method="POST">
<tr><td class=left width=220>前世代</td><td class=left width=220 colspan=2>现世代</td>
	<td class=left width=220>後世代</td></tr>
<tr><td class=right><b class=b>$PREGEN</b></td>
	<td class=right colspan=2><select name="wname" $STYLE_L>$opt<br><input type="submit" value="检索" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"></td>
	<td class=right><b class=b>$nextgen</b></td></tr>
END_OF_HTML
if($FORM{'wname'}){
	print "<tr><td rowspan=7></td><td class=left>武器名</td>\n";
	print "<td class=right nowrap>$WW[0]";
	print "<br><b class=b>（$orNameA系第$Sedai世代）</b>";
	print "</td><td rowspan=7></td></tr>\n";
	print "<tr><td class=left>攻击威力</td><td class=right>".&STATUS_CONVERT($WW[1]*$WW[3]/500,'s');
	print "<b class=b>Level</b></td></tr>";
	print "<tr><td class=left>消耗EN</td><td class=right>$WW[4]</td></tr>";
	print "<tr><td class=left>命中精度</td><td class=right>".&STATUS_CONVERT($WW[2]/4,'s');
	print "<b class=b>Level</b></td></tr>";
	print "<tr><td class=left>攻击回数</td><td class=right>$WW[3]<b class=b>回</b></td></tr>";
	print "<tr><td class=left>市场价格</td><td class=right>$WW[5]</td></tr>";
	print "<tr><td class=left>特殊效果</td><td class=right>&nbsp;<b class=b>";
	print "none" if $WW[7] eq '0';
	print " 机体损坏" if $WW[7]=~m/1/;
	print " 战斗不能" if $WW[7]=~m/2/;
	print " 防御提升" if $WW[7]=~m/3/;
	print " 攻击力提升" if $WW[7]=~m/4/;
	print " 防御力大幅提升" if $WW[7]=~m/5/;
	print " 敏捷微量提升" if $WW[7]=~m/6/;
	print " 防御伤害型武器攻击" if $WW[7]=~m/a/;
	print " 完全防御（不防伤害）" if $WW[7]=~m/b/;
	print " 经验双倍" if $WW[7]=~m/8/;
	print " 贯穿" if $WW[7]=~m/c/;
	print " 金钱双倍" if $WW[7]=~m/d/;
	print " HP吸收" if $WW[7]=~m/e/;
	print " 自爆" if $WW[7]=~m/f/;
	print " 底力" if $WW[7]=~m/g/;
	print " 超级防御" if $WW[7]=~m/h/;
	print "</b></td></tr>";
}
print << "END_OF_HTML";
</table><input type=hidden name=cmd value="WEAPON"></form>
END_OF_HTML
&FOOTER;
print "</td></tr></table>\n";
}
sub ICON_LIST{
&HEADER;$c=$FORM{'start'};
print "<table width=100% height=100%><tr><td align=center><img src=$IMG_FOLDER4/logo_war.gif></div><table bgcolor=#000000 cellpadding=4 cellspacing=4 style=\"border:1px solid #808080;\">";
foreach($FORM{'start'}..$ICON){$c++;
print "<tr>" if $c%7==1;
print "<td><img src=$IMG_FOLDER2/$_.gif><div align=center style=\"font-size:10pt;\">No.$_</div></td>";
print "</tr>" if $c%7==0;
last if $c>=$FORM{'start'}+35;
}
print "</table><table><tr>";
$Next=$FORM{'start'}+35;
$Back=$FORM{'start'}-35;

print << "-----END-----" if $Back >= 0;
<td><form action="$MAIN_SCRIPT" method="POST">
<input type=hidden name=cmd value="ICON">
<input type=hidden name=start value="$Back">
<input type="submit" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" value="<<上一页">
</form></td>
-----END-----

print << "-----END-----" if $Next <= $ICON;
<td><form action="$MAIN_SCRIPT" method="POST">
<input type=hidden name=cmd value="ICON">
<input type=hidden name=start value="$Next">
<input type="submit" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" value="下一页>>">
</form></td>
-----END-----
}

sub FACE_LIST{
&HEADER2;$c=$FORM{'start'};
print "<table width=100% height=100%><tr><td align=center><img src=$IMG_FOLDER4/logo_face.gif></div><table bgcolor=#000000 cellpadding=4 cellspacing=4 style=\"border:1px solid #808080;\">";
foreach($FORM{'start'}..$ICON2){$c++;
print "<tr>" if $c%7==1;
print "<td><img src=$IMG_FOLDER3/$_.gif><div align=center style=\"font-size:10pt;\">No.$_</div></td>";
print "</tr>" if $c%7==0;
last if $c>=$FORM{'start'}+35;
}
print "</table><table><tr>";
$Next=$FORM{'start'}+35;
$Back=$FORM{'start'}-35;

print << "-----END-----" if $Back >= 0;
<td><form action="$MAIN_SCRIPT" method="POST">
<input type=hidden name=cmd value="ICON2">
<input type=hidden name=start value="$Back">
<input type="submit" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" value="<<上一页">
</form></td>
-----END-----

print << "-----END-----" if $Next <= $ICON2;
<td><form action="$MAIN_SCRIPT" method="POST">
<input type=hidden name=cmd value="ICON2">
<input type=hidden name=start value="$Next">
<input type="submit" class=button2 onMouseOver="style.color='#000000';style.background='#adff2f';" onMouseOut="this.style.color='#adff2f';style.background='#00550c';" value="下一页>>">
</form></td>
-----END-----

}
1;