📄 ebs_sub5.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
sub CUSTOM_HEADER {
	$BgColor="bgcolor=\"#000000\"";
	&HEADER;
	print << "	-----END-----";
	<form action=$MAIN_SCRIPT method=POST name=Ms target="$_[0]" onSubmit='window.location.replace("./$MAIN_SCRIPT?LOGO");'>
		<input type=hidden name=cmd value=CUSTOM>
		<input type=hidden name=CustomCheck value=$Date>
		<input type=hidden name=pname value=$FORM{'pname'}>
		<input type=hidden name=pass value=$FORM{'pass'}>
	<center><table bordercolor=\"#333333\" border=1 cellspacing=0 style="font-size:10pt;">
		<tr><td bgcolor=\"#808080\"><b>$FORM{'custom'}</b></td></tr>
	-----END-----
}
sub EQUIP {
	&CUSTOM_HEADER('Main');
	require "$LOG_FOLDER/$HASH_DATA";
	&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
	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]);
	@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
	@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});
	@WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});
	@WN_sD=split(/\,/,$WEAPON_LIST{"$WN_D"});
	@WN_sE=split(/\,/,$WEAPON_LIST{"$WN_E"});
	$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;
	$Pl_WeaponNameA="$WN_sA[0](Lv$WLV_A)$WEX_sA[0]";
	$Pl_WeaponNameB="$WN_sB[0](Lv$WLV_B)$WEX_sB[0]";
	$Pl_WeaponNameC="$WN_sC[0](Lv$WLV_C)$WEX_sC[0]";
	$Pl_WeaponNameD="$WN_sD[0](Lv$WLV_D)$WEX_sD[0]";
	$Pl_WeaponNameE="$WN_sE[0](Lv$WLV_E)$WEX_sE[0]";
	if ($WN_sB[0] ||$WN_sC[0]||$WN_sD[0]||$WN_sE[0]){
		$PartofW="<select name=soubi $STYLE_L>";
		if ($WN_sB[0] ne ""){$PartofW.="<option value=B>$Pl_WeaponNameB";}
		if ($WN_sC[0] ne ""){$PartofW.="<option value=C>$Pl_WeaponNameC";}
		if ($WN_sD[0] ne ""){$PartofW.="<option value=D>$Pl_WeaponNameD";}
		if ($WN_sE[0] ne ""){$PartofW.="<option value=E>$Pl_WeaponNameE";}
		$PartofW.="</select><input type=submit name=Cmode value=装备 $STYLE_B1 onClick=\"return checkEquip()\">";
		&JScfm(checkEquip,"装备变更，确认吗？");
		print "<tr><td $BgColor><b>装备变更</b><br>\n";
		print "&nbsp;$Pl_WeaponNameA装备中<div align=right>$PartofW</div></td></tr>\n";
	}
	if ($WLV_A >= $WEAPON_RANKUP){
		&JScfm(checkRnkup,"武器改造，确认吗？");
		while (my ($key,$val) = each %WEAPON_LIST){
			if (substr($key,0,length($WN_A)) eq $WN_A && length($key) == length($WN_A)+1){
				my @UpW = split(/\,/,$val);
				$WeCH++;
				print "<tr><td $BgColor><b>升级武器</b><br>\n" if $WeCH ==1;
				print "<table style=\"font-size:10pt;\"><tr><td $BgColor>&nbsp;\n";
				print "$Pl_WeaponNameA\n" if $WeCH ==1;
				print "<font color=\"000000\">$Pl_WeaponNameA</font>\n" if $WeCH !=1;
				print "</td><td $BgColor><font color=#1e90ff><b>=></b></font>\n";
				print "<input type=radio name=wname value=$key\n";
				print " checked" if $WeCH ==1;
				print ">$UpW[0]</td><td $BgColor>\n";
				print "<input name=\"Cmode\" type=submit value=CUSTOM化 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"" if $WeCH ==1;
				print "onClick=\"return checkRnkup()\">\n" if $WeCH ==1;
				print "</td></tr></table>\n";
			}
		}
	}
		if ($WN_sB[0] ||$WN_sC[0]||$WN_sD[0]||$WN_sE[0]){
		$PartofSW.="<option value=1>$Pl_WeaponNameB" if $WN_sB[0];
		$PartofSW.="<option value=2>$Pl_WeaponNameC" if $WN_sC[0];
		$PartofSW.="<option value=3>$Pl_WeaponNameD" if $WN_sD[0];
		$PartofSW.="<option value=4>$Pl_WeaponNameE" if $WN_sE[0];
		print "<SCRIPT language=\"JavaScript\">\nfunction checkMoney (){\n";
		print "num=document.Ms.sellw.value;\nif (num==1){var wn='$Pl_WeaponNameB';var mn='".int($WN_sB[5]/3)."';}\n";
		print "else if (num ==2){var wn='$Pl_WeaponNameC';var mn='".int($WN_sC[5]/3)."';}\n";
		print "if (confirm(wn + '将\$' + mn + '出售') == true){\n";
		print "window.location.replace(\"./dummy.html\");return true;}else{return false}\n";
		print "}\n</script>\n<tr><td $BgColor><b>武器出售</b><div align=right><select name=sellw $STYLE_L>";
		print "$PartofSW</select><input type=submit name=Cmode value=出售 ";
		print "$STYLE_B1 onClick=\"return checkMoney()\"></div></td></tr>";
	}
	if (!$WN_sB[0] ||!$WN_sC[0]||!$WN_sD[0]||!$WN_sE[0]){
		print "<tr><td $BgColor><b>武器购入</b><table style=\"font-size:10pt;\">\n";	
		&JScfm(checkBuy,"要购入新武器，确定吗？");
		local($Flag=0);
		$buy="<select name=buyw $STYLE_L>";
		while (my($key,$value) = each %WEAPON_LIST){
			if (length($key) == 1){
				my @ByW = split(/\,/,$value);
				if (!$PL_VALUES[5]){$ByW[5]=int ($ByW[5]*0.8);}
				if($ByW[5] <= $PL_VALUES[8] && $ByW[6] != 1 && $ByW[6] != 4 && $ByW[6] != 5){
					print "<tr><td>&nbsp;&nbsp;$ByW[0]</td><td>\$$ByW[5]</td></tr>";
					$buy.="<option value=$key>$ByW[0]\n";$Flag++;}
			}
		}
		if ($Flag>0){$buy.="</select><input name=\"Cmode\" type=submit value=购入 
					$STYLE_B1 onClick=\"return checkBuy()\">\n";}else{$buy="已经达到改造上限";$Flag++;}
		print "</table><div align=right>$buy</div></td></tr>\n";
	}
	if (!$PL_VALUES[10] && !$PL_VALUES[11] && $Flag==0 && $WeCH ==0){
		print "<tr><td $BgColor>实行机体改造和强化</td></tr></table>\n";}
	if ($WN_sA[8] eq $WN_sB[8] && $WN_sA[8] && $WN_sA[8]!=1 && $PL_VALUES[5] && $WLV_A >= $WEAPON_RANKUP && $WLV_B >= $WEAPON_RANKUP) {@PW_RH=split(/\,/,$WEAPON_LIST{"$WN_sA[8]"});&JScfm(checkRH,"要改造$PW_RH[0]，确定吗？");
	print "<tr><td $BgColor><table style=\"font-size:10pt;\"><b>改造<font color=#f7e957>$PW_RH[0]</font></b>&nbsp;<input name=\"Cmode\" type=submit value=武器改造 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"return checkRH()\"></table></td></tr>";}
	print "</form></table>\n";&FOOTER;
}
sub CUSTOMING2 {
	&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
	&CUSTOM_HEADER('Main');
	&JScfm(checkHp,"耐久力强化，确定吗？");
	&JScfm(checkEn,"燃料箱增大，确定吗？");
	$HM=$PL_VALUES[16]+5000;$EM=$PL_VALUES[18]*10+5000;$LVBACK=$PL_VALUES[29]*10000;
	&JScfm(checklvback,"转生要$LVBACK，确定吗？");
	$HM=$PL_VALUES[16]+5000;$EM=$PL_VALUES[18]*10+5000;#小量时
	$HM2=($PL_VALUES[16]+5000)*5;$EM2=($PL_VALUES[18]*10+5000)*5;#中量时
	$HM3=($PL_VALUES[16]+5000)*7;$EM3=($PL_VALUES[18]*10+5000)*7;#大量时
print "<tr><td $BgColor colspan=4><b>机  强化</b><br>&nbsp;&nbsp;HP升级&nbsp;&nbsp;（\$$HM）";
print "<input type=submit name=\"Cmode\" value=\"HP小量升级\" $STYLE_B1 onClick='";
print "return checkHp()'>" if $PL_VALUES[8] >= $HM && $PL_VALUES[16] < $MAX_HP;
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $HM;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $HM && $PL_VALUES[16] >= $MAX_HP;
print "<br>&nbsp;&nbsp;HP升级 &nbsp;&nbsp;（\$$HM2）";
print "<input type=submit name=\"Cmode\" value=\"HP中量升级\" $STYLE_B1 onClick='";
print "return checkHp()'>" if $PL_VALUES[8] >= $HM2 && $PL_VALUES[16] < $MAX_HP;
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $HM2;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $HM2 && $PL_VALUES[16] >= $MAX_HP;
print "<br>&nbsp;&nbsp;HP升级 &nbsp;&nbsp;（\$$HM3）";
print "<input type=submit name=\"Cmode\" value=\"HP大量升级\" $STYLE_B1 onClick='";
print "return checkHp()'>" if $PL_VALUES[8] >= $HM3 && $PL_VALUES[16] < $MAX_HP;
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $HM3;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $HM3 && $PL_VALUES[16] >= $MAX_HP;
print "<br>&nbsp;&nbsp;EN升级&nbsp;&nbsp;（\$$EM）";
print "<input type=submit name=\"Cmode\" value=\"EN小量升级\" $STYLE_B1 onClick='";
print "return checkEn()'>" if $PL_VALUES[8] >= $EM && $PL_VALUES[18] < $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $EM;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $EM && $PL_VALUES[18] >= $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"你的hp和en比例不符，提高hp才能突破en上限\");return false;'>" if ($PL_VALUES[8] >= $EM) && ($PL_VALUES[18] > ($PL_VALUES[16]/4));### add for hp&en balance
print "<br>&nbsp;&nbsp;EN升级&nbsp;&nbsp;（\$$EM2）";
print "<input type=submit name=\"Cmode\" value=\"EN中量升级\" $STYLE_B1 onClick='";
print "return checkEn()'>" if $PL_VALUES[8] >= $EM2 && $PL_VALUES[18] < $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $EM2;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $EM2 && $PL_VALUES[18] >= $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"你的hp和en比例不符，提高hp才能突破en上限\");return false;'>" if ($PL_VALUES[8] >= $EM2) && ($PL_VALUES[18] > ($PL_VALUES[16]/4));### add for hp&en balance
print "<br>&nbsp;&nbsp;EN升级&nbsp;&nbsp;（\$$EM3）";
print "<input type=submit name=\"Cmode\" value=\"EN大量升级\" $STYLE_B1 onClick='";
print "return checkEn()'>" if $PL_VALUES[8] >= $EM3 && $PL_VALUES[18] < $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"所持资金不足\");return false;'>" if $PL_VALUES[8] < $EM3;
print "alert (\"已经达到改造上限\");return false;'>" if $PL_VALUES[8] >= $EM3 && $PL_VALUES[18] >= $MAX_EN && ($PL_VALUES[18] <= ($PL_VALUES[16]/4));
print "alert (\"你的hp和en比例不符，提高hp才能突破en上限\");return false;'>" if ($PL_VALUES[8] >= $EM3) && ($PL_VALUES[18] > ($PL_VALUES[16]/4));### add for hp&en balance
	print "<br><input type=submit name=\"Cmode\" value=\"转生\" $STYLE_B1 onClick='";
	print "return checklvback()'>" if $PL_VALUES[8] >= $LVBACK && $PL_VALUES[29] >= 300;
	print "alert (\"所持资金不足$LVBACK\");return false;'>" if $PL_VALUES[8] < $LVBACK;
	print "alert (\"不需要转生\");return false;'>" if $PL_VALUES[29] < 300;
	print "</td></tr>";
print << "-----END-----";
<script language="JavaScript">
function checkRiyou (){
if ($PL_VALUES[8] < 100000) {window.alert("金钱不足。");return false 
}else if(document.Ms.c_pass.value == '') {window.alert("  在的密码没有输入。");return false 
}else if(document.Ms.c_pass.value.match('[&! =.,<>]') != null) {
window.alert("只可以使用英文或者数字。");return false ;
}else if(document.Ms.c_pass2.value.match('[&! =.,<>]') != null) {
window.alert("只可以使用英文或者数字。");return false ;
}else {if (confirm('登陆开始。') == true){return true;}else{return false} } 
}
</script>
-----END-----
print "<tr><td $BgColor colspan=4><b>帐号＆密码变更</b>  ＄100000<br>\n";
print "请改掉原来的（??）<br><input type=text name=c_pname size=30 maxlength=15 value=\"$FORM{'pname'}\" $STYLE_L><br>\n";
print "原来的密码<br><input type=password maxlength=8 name=c_pass size=15 $STYLE_L><br>\n";
print "新的密码（输入你要的新密码）<br><input type=password maxlength=8 name=c_pass2 size=15 $STYLE_L><br>\n";
print "<font style=\"font-size:12px;\">密码<b>用数字或者英文</b>保持在8个字符以内</font><br>\n";
print "<div align=right>\n";
print "<input name=\"Cmode\" type=submit value=\"ID变更\" $STYLE_B1 onClick=\"return checkRiyou()\">\n";
print "</div></td></tr>\n";


	if ($PL_VALUES[8] >= 20000 && $PL_VALUES[24] >=210){
	print "<script language=\"JavaScript\">\nfunction changeImg(){num=document.Ms.icon.value;document.msImg.src=\"$IMG_FOLDER2/\"+ num +\".gif\";}\n</script>";
	&JScfm(checkCustom,"机体Custom化，确定吗？");
	print "<tr><td $BgColor colspan=4><b>Custom</b><br>&nbsp;&nbsp;$20000<br>\n";
	print "&nbsp;&nbsp;ICON变更<img src=\"$IMG_FOLDER2/$PL_VALUES[27].gif\" name=\"msImg\"><br>\n";
	print "&nbsp;&nbsp;&nbsp;&nbsp;<select name=icon $STYLE_L onChange=\"changeImg()\">\n";
	foreach (0..$ICON){
		print "<option value=\"$_\"";
		print " selected\n"if $_ eq $PL_VALUES[27];
		print ">ICON No.$_\n";
	}
if (  ($SPECIAL_ICON == 1 && $PL_VALUES[16] >= 10000)
	||($SPECIAL_ICON == 2 && $PL_VALUES[12] eq '6')
	||($SPECIAL_ICON == 3 && $PL_VALUES[6] == 1)){$_='';
	foreach (500..$S_ICON_NUMBER){
		print "<option value=\"$_\"";
		print " selected\n"if $_ eq $PL_VALUES[27];
		print ">ICON No.$_\n";
	}
}
	print "</select><br>&nbsp;&nbsp;MS类型<br>&nbsp;&nbsp;&nbsp;&nbsp;\n";
	print "<input type=text name=MsName size=30 maxlength=10 value=$PL_VALUES[3] $STYLE_L><br>\n";
	print "&nbsp;&nbsp;成长类型变更<br>&nbsp;&nbsp;&nbsp;&nbsp;\n";
	print "<select name=MsType $STYLE_L>\n";
	print "<option value=1";print " selected"if $PL_VALUES[4] eq '1';print ">攻击力重视\n";
	print "<option value=2";print " selected"if $PL_VALUES[4] eq '2';print ">防御力重视\n";
	print "<option value=3";print " selected"if $PL_VALUES[4] eq '3';print ">敏捷度重视\n";
	print "<option value=4";print " selected"if $PL_VALUES[4] eq '4';print ">命中力重视\n";
	print "<option value=0";print " selected"if $PL_VALUES[4] eq '0';print ">平均型</select><br>\n";
	print "&nbsp;&nbsp;色变更<br>&nbsp;&nbsp;&nbsp;&nbsp;\n";
	$br=0;
		foreach (@COLOR){$br++;
			print "<input type=\"radio\" name=\"MsColor\" value=$_";
	        print " checked" if $_ =~ /$PL_VALUES[13]/i;
	        print "><font color=$_>■</font>\n";
			if ($br==5){print"<br>&nbsp;&nbsp;&nbsp;&nbsp;\n";$br=0;}
		}
	print "<div align=right>\n";
	print "<input name=\"Cmode\" type=submit value=\"Custom\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick=\"if (document.Ms.MsName.value!=''){if (document.Ms.MsName.value.match('[&! =.,<>]') != null){alert('半角?号  使用            。');return false;}else{return checkCustom()}}else{alert('??  ?入              ');return false;}\">\n";
	print "</div></td></tr>\n";
	}
	print "</form></table>\n";
	&FOOTER;
}
sub HISTORY {
	&CUSTOM_HEADER('Main');
	$c=0;
	dbmopen (%NOTE,"$DBM_H",0666);
12 3 下一页
⌨️ 快捷键说明

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