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

📄 ebs_sub4.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
			<b $chaStyl>能源 :-$Vs_W[4]</b></div></td></tr></table>
	<div style="line-height:4pt;">&nbsp;</div>
		<table><tr><td bgcolor=#000000 style="line-height:18px;font-size:14px;">$ResultTag
	-----END-----

	print << "	-----END-----";
	<script language="JavaScript">
	timeID=10;
		cdplhp=Math.round(($Pl_BfrHP-$PL_VALUES[15])*0.1);
		cdvshp=Math.round(($Vs_BfrHP-$VS_VALUES[15])*0.1);
		flaga=flagb=flagc=0;
		setTimeout(\"HEcount()\",2500);
	function HEcount(){
		cplhp.innerText-=cdplhp;
		cvshp.innerText-=cdvshp;
		if (eval(cplhp.innerText) <= $PL_VALUES[15]){cplhp.innerText='$PL_VALUES[15]';flaga=1;}
		if (eval(cvshp.innerText) <= $VS_VALUES[15]){cvshp.innerText='$VS_VALUES[15]';flagb=1;}
		clearTimeout(timeID);
		if (!flaga || !flagb){timeID = setTimeout(\"HEcount()\",1);}
	}
	</script>
	-----END-----
	$Ch_rank=&RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6]);
	if($Ch_rank ne $Pl_Kaikyu && $Ch_rank){
		print "$FORM{'pname'}阁下$Ch_rank变更";
		print $PL_In[1] > 0 ? "升格<br>":$PL_In[1] < 0 ? "降格<br>":"<br>";
	}
	$Ch_rank=&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6]);
	if($Ch_rank ne $Vs_Kaikyu && $Ch_rank){
		print "$FORM{'vsname'}阁下$Ch_rank变更";
		print $VS_In[1] > 0 ? "升格<br>":$PL_In[1] < 0 ? "降格<br>":"<br>";
	}


	$PL_In[4]=$PL_In[0]*($VS_VALUES[0]+1);
	$PL_Ln[8] *= 2 if $Pl_W[7] =~ m/8/;
	$PL_In[4] *= 2 if $Pl_W[7] =~ m/8/;
	$PL_In[0] *= 2 if $Pl_W[7] =~ m/8/;
	$PL_VALUES[30]+=$PL_In[4];
	print "$FORM{'pname'} 阁下得到了 $PL_In[4]的经验 $PL_In[2] 的金钱 $PL_In[0] 的武器经验 <br>";
	print "<LINK href=htmlcn.css rel=stylesheet>";
	if (($PL_VALUES[29]+1)*200 <= $PL_VALUES[30]){
		print "<font color=#f7e957>$FORM{'pname'} 阁下 等级上升</font><br>";
		$PL_VALUES[30]=0;
		$PL_VALUES[29]++;
		sub BONUS{"&nbsp;&nbsp;&nbsp;<font color=#f7e957>$_[0]能力提高了</font><br>";}

		$C=$PL_VALUES[23];$C=4 if $C > 4;
		$StatusMax=('20','30','35','40','50')[$C];

		$BoAt=$BoSp=$BoDe=$BoAg=5;
		if ($PL_VALUES[4] == 1){$BoAt=20;}
		elsif ($PL_VALUES[4] == 2){$BoDe=20;}
		elsif ($PL_VALUES[4] == 3){$BoSp=20;}
		elsif ($PL_VALUES[4] == 4){$BoAg=20;}
		elsif ($PL_VALUES[4] == 0){$BoAt=$BoSp=$BoDe=$BoAg=9;}
		if (rand(22) < $BoAt && $PL_VALUES[19] < $StatusMax){print &BONUS('攻击力');$PL_VALUES[19]++;}
		if (rand(22) < $BoDe && $PL_VALUES[20] < $StatusMax){print &BONUS('防御力');$PL_VALUES[20]++;}
		if (rand(22) < $BoSp && $PL_VALUES[21] < $StatusMax){print &BONUS('灵敏度');$PL_VALUES[21]++;}
		if (rand(22) < $BoAg && $PL_VALUES[22] < $StatusMax){print &BONUS('命中力');$PL_VALUES[22]++;}
	}


	if ($ResultBattle==1){
		sub DOWN{"&nbsp;&nbsp;&nbsp;<font color=#dc143c>机体损坏 $_[0]能力下降</font><br>";}
		$Event=int(rand(200));
		if ($Event == 12 && $PL_VALUES[19] >= 1){print &DOWN('攻击力');$PL_VALUES[19]--;}
		if ($Event == 13 && $PL_VALUES[20] >= 1){print &DOWN('防御力');$PL_VALUES[20]--;}
		if ($Event == 14 && $PL_VALUES[21] >= 1){print &DOWN('敏捷度');$PL_VALUES[21]--;}
		if ($Event == 15 && $PL_VALUES[22] >= 1){print &DOWN('命中力');$PL_VALUES[22]--;}
		if ($Event == 20 && $PL_VALUES[16] >= 5000){print &DOWN('HP');$PL_VALUES[16]=int($PL_VALUES[16]*0.995);}
		if ($Event == 40 && $PL_VALUES[18] >= 100){print &DOWN('EN');$PL_VALUES[18]=int($PL_VALUES[18]*0.995);}
	}

	if (rand(100) <= $GET_WEAPON  && !$ResultBattle && (!$PL_VALUES[10] || !$PL_VALUES[11])){
		my@al=keys %WEAPON_LIST;$alw=@al;
		$alw=int rand($alw);$gw=@al[$alw];$gw='a' if !$gw;
			@q=split(/\,/,$WEAPON_LIST{"$gw"});
		if ($q[5] == 0){
		 if (!$PL_VALUES[10]){$PL_VALUES[10]=$gw;}
		elsif(!$PL_VALUES[11]){$PL_VALUES[11]=$gw;}
		elsif(!$PL_VALUES[35]){$PL_VALUES[35]=$gw;}
		elsif(!$PL_VALUES[36]){$PL_VALUES[36]=$gw;}
		print "<font color=\"#f7e957\">武器获得</font><br>\n";
		}
	}

	if ($PL_VALUES[12] == 6 && $FORM{'mode'} !=1 && rand(255) > 200){$PL_VALUES[12]="$VS_VALUES[12]";}
	elsif($PL_VALUES[12] != 6 && $FORM{'mode'} ==1 && rand(255) > 253){$PL_VALUES[12]='6';}
	#elsif($PL_VALUES[12] != 6 && $FORM{'mode'} ==1){$qiang=rand(255);$PL_VALUES[12]='6' if $qiang=250;$PL_VALUES[12]='7' if $qiang=300;$PL_VALUES[12]='8'; }
	#elsif($PL_VALUES[12] != 6 && $FORM{'mode'} ==1){$qiang=rand(255);$PL_VALUES[12]='6' if $qiang=8;$PL_VALUES[12]='7' if $qiang=4;$PL_VALUES[12]='8' if $qiang=2;}
	$Pl_Drain = 0;$Vs_Drain = 0;
if (($Pl_W[7] =~ m/e/) && rand(100) > 80){
print "<font color=#80ff00>一阵光芒中$VS_VALUES[3]的生命力被吸取了。</font><br>\n";
if($PL_VALUES[16] > $VS_VALUES[15]){
$Pl_Drain = int(rand($VS_VALUES[15]*0.3));
}else{
$Pl_Drain = int(rand($PS_VALUES[16]*0.3));
}
$VS_VALUES[15]-=$Pl_Drain;
$PL_VALUES[15]+=$Pl_Drain;
}
if (($Vs_W[7] =~ m/e/) && rand(100) > 80){
print "<font color=#80ff00>一阵光芒中$PL_VALUES[3]的生命力被吸取了。</font><br>\n";
if($VS_VALUES[16] > $PL_VALUES[15]){
$Vs_Drain = int(rand($PL_VALUES[15]*0.3));
}else{
$Vs_Drain = int(rand($VS_VALUES[16]*0.3));
}
$PL_VALUES[15]-=$Vs_Drain;
$VS_VALUES[15]+=$Vs_Drain;
}
	if ($Vs_W[7] !~ m/a/){if ($Pl_W[7] =~ m/1/){
		if (rand(255) > 240){print "<font color=#8000ff>敌机攻击系统破坏</font><br>\n";$VS_VALUES[19]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机防御系统破坏</font><br>\n";$VS_VALUES[20]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机回避系统破坏</font><br>\n";$VS_VALUES[21]--;}
		if (rand(255) > 240){print "<font color=#8000ff>敌机命中系统破坏</font><br>\n";$VS_VALUES[22]--;}
	}}
if (($Pl_W[7] =~ m/f/) && $ResultBattle!=0){
print "<font color=#ff0080>$PL_VALUES[3]的自爆装置启动<font><br>\n";$PL_VALUES[25]=1;}
if (($Vs_W[7] =~ m/f/) && $ResultBattle!=0){
print "<font color=#ff0080>$VS_VALUES[3]的自爆装置启动<font><br>\n";$PL_VALUES[25]=1;}
if (($Pl_W[7] =~ m/f/) && $ResultBattle!=0){$VS_VALUES[15]-=$PL_VALUES[15];}
if (($Vs_W[7] =~ m/f/) && $ResultBattle!=0){$VS_VALUES[15]-=$PL_VALUES[15];}
if (($Pl_W[7] =~ m/f/) && $ResultBattle!=0){$PL_VALUES[15]=1;}
if (($Vs_W[7] =~ m/f/) && $ResultBattle!=0){$PL_VALUES[15]=1;}
if (($Pl_W[7] =~ m/f/) && 0 > $VS_VALUES[15]){print "<font color=#ff0080>$VS_VALUES[3]被卷入爆炸中!!</font><br>\n";$VS_VALUES[25]=1;}
if (($Vs_W[7] =~ m/f/) && 0 > $VS_VALUES[15]){print "<font color=#ff0080>$VS_VALUES[3]被卷入爆炸中!!</font><br>\n";$VS_VALUES[25]=1;}
if (($Pl_W[7] =~ m/f/) && 0 > $VS_VALUES[15]){$VS_VALUES[15]=1;}
if (($Vs_W[7] =~ m/f/) && 0 > $VS_VALUES[15]){$VS_VALUES[15]=1;}
	if (($Pl_W[7] =~ m/2/) && rand(255) > 240){print "<font color=#ff0080>$VS_VALUES[3]战斗不能</font><br>\n";$VS_VALUES[25]=1;}
	if (($Vs_W[7] =~ m/2/) && rand(255) > 240){print "<font color=#ff0080>$PL_VALUES[3]战斗不能</font><br>\n";$VS_VALUES[25]=1;}

	$WLDUMMYpl=$PL_WLV;$PL_WLV+=$PL_In[0] if $PL_WLV < $MAX_WEAPONLV*100;
	$WLDUMMYvs=$VS_WLV;$VS_WLV+=$VS_In[0] if $VS_WLV < $MAX_WEAPONLV*100;
	$PL_WLV=$MAX_WEAPONLV*100 if $PL_WLV > $MAX_WEAPONLV*100;
	$VS_WLV=$MAX_WEAPONLV*100 if $VS_WLV > $MAX_WEAPONLV*100;

	if(int($PL_WLV/$WEAPON_LVUP) > int($WLDUMMYpl/$WEAPON_LVUP) && $PL_WLV < $MAX_WEAPONLV*100){
		print "<font color=#f7e957>$FORM{'pname'}的$Pl_W[0]等级提升了</font><br>\n";
		$PL_VALUES[14]=$PL_VALUES[14]-$WEAPON_LVUP;
	}
	if(int($VS_WLV/$WEAPON_LVUP) > int($WLDUMMYvs/$WEAPON_LVUP) && $VS_WLV < $MAX_WEAPONLV*100){
		print "<font color=#f7e957>$FORM{'vsname'}的$Vs_W[0]等级提升了</font><br>\n";
		$VS_VALUES[14]=$VS_VALUES[14]-$WEAPON_LVUP;
	}
		$PL_VALUES[9]="$PL_WN!$PL_WLV";
		$VS_VALUES[9]="$VS_WN!$VS_WLV";
if($PL_VALUES[41] && rand(50)>38){
if ($PL_BGT>1){$TAI_p=$PL_BGT-=1;$PL_VALUES[41]="$PL_BG!$TAI_p";
}else{print "装備的辅助装置被破坏了！";$PL_VALUES[41]="";}
}
if($VS_VALUES[41] && rand(50)>38){
if ($VS_BGT>1){$TAI_v=$VS_BGT-=1;$VS_VALUES[41]="$VS_BG!$TAI_v";
}else{print "敌人的辅助装置被破坏了！";$VS_VALUES[41]="";}
}
$PL_VALUES[9]="$PL_WN!$PL_WLV!$PEX_sA[1]";#--- 14
$VS_VALUES[9]="$VS_WN!$VS_WLV!$VEX_sA[1]";#--- 15
	$TheEnd=1 if $FORM{'yousai'} && !$ResultBattle;
	$VC_VALUES[11]="$VS_VALUES[15]!$Y_HP[1]!$DATE" if $FORM{'yousai'};
	if(!$ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=$VS_VALUES[0]+20;$CL_VALUES[1]+=5000 if $TheEnd==1;}
	elsif($ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=int(($VS_VALUES[0]+20)/3);}
	$CL_VALUES[1]+=$VS_VALUES[0]+20;
	$CL_VALUES[1]='99999' if $CL_VALUES[1] > 99999;
$PL_VALUES[32]++;
if ($VS_VALUES[15] < 1){$PL_VALUES[33]++;}

	if ($FORM{'b_mode'} eq '内乱' || $FORM{'b_mode'} eq "亡命"){print "$FORM{'b_mode'}$B_Com<br>\n";}
### 内乱组织费
	if ($FORM{'b_mode'} eq '内乱'){
		print "内乱组织费$NAIRAN_MONEY花费";
		$PL_VALUES[8]-=$NAIRAN_MONEY;
	}###内乱限制费
### add end
	&LOCK;
	dbmopen (%PL,"$DBM_P",0666);
		$PL{"$FORM{'pname'}"}="@PL_VALUES";
		$PL{"$FORM{'vsname'}"}="@VS_VALUES" if !$FORM{'yousai'};
	dbmclose %PL;
	if (($FORM{'b_mode'} eq '内乱' && $B_Com && $PL_VALUES[6] == 1) || $TheEnd){
		dbmopen (%DH,"$DBM_H",0666);
			$DH{"$DATE"}="$PL_VALUES[5] 内乱爆发 $FORM{'pname'} 掌握了完全指挥权$FORM{'vsname'}下野$FORM{'pname'}革命" if $B_Com;
			$DH{"$DATE"}="$FORM{'vsname'}防卫要塞陷落$VS_Country灭亡" if $TheEnd;
		dbmclose %DH;
	}
	if ($PL_Country ne '流浪者' && !$FORM{'b_mode'}){
		dbmopen (%CL,"$DBM_C",0666);
			$CL{"$PL_Country"}="@CL_VALUES" if $CL{"$PL_Country"} && $PL_Country ne '流浪者';
			$CL{"$VS_Country"}="@VC_VALUES" if $FORM{'yousai'} && !$TheEnd;
			delete $CL {"$VS_Country"} if $CL{"$VS_Country"} && $TheEnd;
		dbmclose %CL;
	}
	&UNLOCK;

	print << "	END_OF_HTML";
	</td></tr></table><table border=0 cellspacing=0>
	<form action=$MAIN_SCRIPT method=POST target=Main>
	<input type=hidden name=cmd value=MAIN_FRAME>
	<input type=hidden name=pname value=$FORM{'pname'}>
	<input type=hidden name=pass value=$FORM{'pass'}><tr><td>
	<input class=buttonA value="" onmouseover="value='返回';" style="BACKGROUND-IMAGE: url(img/button2.jpg)" onClick=\"parent.Sub.location.replace(\'$MAIN_SCRIPT?LOGO\');\" onmouseout="value='';" type=submit>
	</td></form>
	END_OF_HTML



}

sub SYUSEI{
		$AT="$_[2]_AttPoint";$DE="$_[2]_DefPoint";$SP="$_[2]_SpPoint";
	if($_[0] eq 'm'){
		$MsnStyle="$_[2]_MsnStyle";
		if   ($_[1] == 1){$$MsnStyle="普通攻击";}
		elsif($_[1] == 2){$$AT*=1.3;$$DE*=0.7;$$MsnStyle="突击";}
		elsif($_[1] == 3){$$AT*=0.8;$$DE*=2;$$MsnStyle="防御";}
		elsif($_[1] == 4){$$AT*=0.7;$$SP*=2;$$MsnStyle="防守反击";}
		elsif($_[1] == 5){$$DE*=0.8;$$MsnStyle="狙击";
			$Pl_W[2]+=20 if $_[2] eq 'Pl';$Vs_W[2]+=20 if $_[2] eq 'Vs';
		}elsif($_[1] == 6){$$AT*=2;$$DE/=5;$$MsnStyle="舍身";}
		elsif($_[1] == 7){$$AT*=0.9;$$SP*=3;$$MsnStyle="见切";
			$Pl_W[2]+=10 if $_[2] eq 'Pl';$Vs_W[2]+=10 if $_[2] eq 'Vs';
		}elsif($_[1] == 8){$$MsnStyle="全弹放出";
			($Pl_W[2]-=35,$Pl_W[3]*=2,$Pl_W[4]*=2) if $_[2] eq 'Pl';
			($Vs_W[2]-=35,$Vs_W[3]*=2,$Vs_W[4]*=2) if $_[2] eq 'Vs';
		}elsif($_[1] == 9){$$AT*=2;$$DE*=2;$$MsnStyle="乱射";}
		elsif($_[1] == 10){$$AT*=1.2;$$SP*=4;$$MsnStyle="心眼";
			$Pl_W[2]+=20 if $_[2] eq 'Pl';$Vs_W[2]+=20 if $_[2] eq 'Vs';
		}elsif($_[1] == 11){$$MsnStyle="齐射叁连";
			($Pl_W[2]-=65,$Pl_W[3]*=3,$Pl_W[4]*=3) if $_[2] eq 'Pl';
			($Vs_W[2]-=65,$Vs_W[3]*=3,$Vs_W[4]*=3) if $_[2] eq 'Vs';}
		elsif($_[1] == 12){$$AT*=2.5;$$SP*=1.5;$$MsnStyle="一点集中";
			$Pl_W[2]+=10 if $_[2] eq 'Pl';$Vs_W[2]+=10 if $_[2] eq 'Vs';
		}
	}
	if($_[0] eq 's'){
		if   ($_[1] eq "1"){$$AT*=1.2;$$DE-=2;}
		elsif($_[1] eq "2"){$$AT*=1.2;$$WM-=5;}
		elsif($_[1] eq "3"){$$AT*=0.9;$$SP+=3;}
		elsif($_[1] eq "4"){$$WM+=5;}
		elsif($_[1] eq "5"){$$AT*=1.3;$$WM+=10;$$DE-=4;}
		elsif($_[1] eq "6"){$$AT*=1.5;$$DE*=1.5;$$SP*=4;$$WM*=1.5;}
		elsif($_[1] eq "7"){$$AT*=2;$$DE*=10;$$SP*=0.6;$$WM*=0.6;}
		elsif($_[1] eq "8"){$$AT*=2.5;$$DE*=0.8;$$SP*=2.5;$$WM*=2.5;}



	}
}




1;
123

⌨️ 快捷键说明

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