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

📄 ebs_sub4.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	$Vs_W[3] = int (rand ($Vs_W[3]))+1 if $Vs_W[7] =~ m/9/;
	$plbs=int ($PL_VALUES[20]+7) if $Pl_W[7] =~ m/4/;
	$vsbs=int ($VS_VALUES[20]+7) if $Vs_W[7] =~ m/4/;
	$plbs=int ($PL_VALUES[20]+65) if ($Pl_W[7] =~ m/5/)&&($Vs_W[7] !~ m/c/);
	$vsbs=int ($VS_VALUES[20]+65) if ($Vs_W[7] =~ m/5/)&&($Pl_W[7] !~ m/c/);
	$plbs=int ($PL_VALUES[20]+160) if ($Pl_W[7] =~ m/h/)&&($Vs_W[7] !~ m/c/);
	$vsbs=int ($VS_VALUES[20]+160) if ($Vs_W[7] =~ m/h/)&&($Pl_W[7] !~ m/c/);
	$plbs=int ($PL_VALUES[20]+500) if ($Pl_W[7] =~ m/h/)&&($Vs_W[7] !~ m/7/);
	$vsbs=int ($VS_VALUES[20]+500) if ($Vs_W[7] =~ m/h/)&&($Pl_W[7] !~ m/7/);
	$plbs=int ($PL_VALUES[20]+5000) if ($Pl_W[7] =~ m/b/)&&($Vs_W[7] !~ m/c/);
	$vsbs=int ($VS_VALUES[20]+5000) if ($Vs_W[7] =~ m/b/)&&($Pl_W[7] !~ m/c/);
	$Pl_AttPoint=int($Pl_W[1]*(($PL_WLV*0.0001)+1));
$Pl_SpPoint=$PL_VALUES[21]-$Pl_B[2];$Pl_DefPoint=($PL_VALUES[20]+$plbs+$Pl_B[1])*2-int($VS_VALUES[19]/3+$Vs_B[4]);$Pl_MisPoint=$PL_VALUES[22]+$Pl_B[3];
	$Pl_Kaikyu=&RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6]);
	$pwl=int $PL_WLV/$WEAPON_LVUP;$Pl_WeaponNameA="$Pl_W[0](Level.$pwl)";
if ($PEX_sA[1] eq "e"){int($Pl_W[4]*=1.2);}
if ($PEX_sA[1] eq "f"){int($Pl_W[4]*=0.8);}
if ($VEX_sA[1] eq "e"){int($Vs_W[4]*=1.2);}
if ($VEX_sA[1] eq "f"){int($Vs_W[4]*=0.8);}
	&ERROR('noEnergy','EN不足') if $PL_VALUES[17] < $Pl_W[4];
	$Vs_AttPoint=int($Vs_W[1]*(($VS_WLV*0.0001)+1));
if ($VEX_sA[1] eq "b"){$Vs_AttPoint=int($Vs_AttPoint*0.7);}
if ($VEX_sA[1] eq "c"){$Vs_AttPoint=int($Vs_AttPoint*1.3);}
if ($VEX_sA[1] eq "d"){$Vs_AttPoint=int($Vs_AttPoint*1.5);}
if ($VEX_sA[1] eq "e"){$Vs_AttPoint=int($Vs_AttPoint*1.2);}
if ($VEX_sA[1] eq "f"){$Vs_AttPoint=int($Vs_AttPoint*0.8);}
$Vs_SpPoint=$VS_VALUES[21]-$Vs_B[2];$Vs_DefPoint=($VS_VALUES[20]+$vsbs+$Vs_B[1])*2-int($PL_VALUES[19]/3+$Pl_B[4]);$Vs_MisPoint=$VS_VALUES[22]+$Vs_B[3];	$Vs_Kaikyu=&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6]);
	$vwl=int $VS_WLV/$WEAPON_LVUP;$Vs_WeaponNameA="$Vs_W[0](Level.$vwl)";
	$Pl_SpPoint=int ($Pl_SpPoint*1.5) if $Pl_W[7] =~ m/3/;
	$Vs_SpPoint=int ($Vs_SpPoint*1.5) if $Vs_W[7] =~ m/3/;
if ($PEX_sA[1] eq "b"){$Pl_SpPoint=int($Pl_SpPoint*1.2);}
if ($PEX_sA[1] eq "c"){$Pl_SpPoint=int($Pl_SpPoint*0.8);}
if ($PEX_sA[1] eq "d"){$Pl_SpPoint=int($Pl_SpPoint*0.6);}
if ($VEX_sA[1] eq "b"){$Vs_SpPoint=int($Vs_SpPoint*1.2);}
if ($VEX_sA[1] eq "c"){$Vs_SpPoint=int($Vs_SpPoint*0.8);}
if ($VEX_sA[1] eq "d"){$Vs_SpPoint=int($Vs_SpPoint*0.6);}#--- 13
	$Pl_SpPoint=int ($Pl_SpPoint*1.25) if $Pl_W[7] =~ m/6/;
	$Vs_SpPoint=int ($Vs_SpPoint*1.25) if $Vs_W[7] =~ m/6/;
	if ($PL_VALUES[16] > 50000){$Pl_SpPoint-=int(($PL_VALUES[16]-50000)/5000);}
	if ($VS_VALUES[16] > 50000){$Vs_SpPoint-=int(($VS_VALUES[16]-50000)/5000);}
	&SYUSEI('m',"$FORM{'mode'}",'Pl');
	$VsMsnNo=int(rand(8)+1);
	&SYUSEI('m',"$VsMsnNo",'Vs');
	&SYUSEI('s',"$PL_VALUES[12]",'Pl');
	&SYUSEI('s',"$VS_VALUES[12]",'Vs');
$Pl_W[1] = int ($Pl_W[1] + $Vs_W[1]*0.5) if $Pl_W[7] =~ m/e/;
$Vs_W[1] = int ($Vs_W[1] + $Pl_W[1]*0.5) if $Vs_W[7] =~ m/e/;
$Vs_W[1] = int ($Vs_W[1]*0.5) if $Pl_W[7] =~ m/e/;
$Pl_W[1] = int ($Pl_W[1]*0.5) if $Vs_W[7] =~ m/e/;
$Pl_SpPoint=int ($Vs_SpPoint*0.8) if $Pl_W[7] =~ m/e/;
$Vs_SpPoint=int ($Pl_SpPoint*0.8) if $Vs_W[7] =~ m/e/;
	$Pl_Times=$Vs_Times=0;	$Pl_Check=$Vs_Check=1;
	$hImg="<img src=\"$IMG_FOLDER1/hit.gif\">";
	$mImg="<img src=\"$IMG_FOLDER1/miss.gif\">";

	for ($Plt=1;$Plt < 100; $Plt++ ){
		$Pl_Initiative=$Pl_SpPoint+int(rand(30));$Vs_Initiative=$Vs_SpPoint+int(rand(30));
		if($Pl_Initiative >= $Vs_Initiative){$Initiative=1;}else{$Initiative=0;}
		if($VS_W >= $Vs_W[3] && $PL_W >= $Pl_W[3]){last;}
		if ($Vs_AtPoint < $PL_VALUES[15] && $PL_W < $Pl_W[3] && ($Initiative || $VS_W >= $Vs_W[3])){
			$Pl_Check=int(rand(100)+$Vs_SpPoint/2-$Pl_MisPoint/2);$PL_W++;
			if ($Pl_Check < $Pl_W[2]){$PlResult.="$hImg";$Pl_Times++;
				$Pl_AtPoint=$Pl_AtPoint+int($Pl_AttPoint-int($Vs_DefPoint*(int(rand(50)+90))/$Pl_W[3]));
			}elsif ($Pl_Check >= $Pl_W[2]) {$PlResult.="$mImg";}
		unless($PL_W % 10){$PlResult.="<br>\n";}
		next;
		}
		if ($Pl_AtPoint < $VS_VALUES[15] && $VS_W < $Vs_W[3] && (!$Initiative || $PL_W >= $Pl_W[3])){
			$Vs_Check=int(rand(100)+$Pl_SpPoint/2-$Vs_MisPoint/2);$VS_W++;
			if ($Vs_Check < $Vs_W[2]){$VsResult.="$hImg";$Vs_Times++;
				$Vs_AtPoint=$Vs_AtPoint+int($Vs_AttPoint-int($Pl_DefPoint*(int(rand(50)+90))/$Vs_W[3]));
			}elsif ($Vs_Check >= $Vs_W[2]){$VsResult.="$mImg";}
		unless($VS_W % 10){$VsResult.="<br>\n";}
		next;
		}
	}
$Event_hissatu=int(rand(115))+1;
		if ($Pl_Check < $Pl_W[2]){
		if ($Event_hissatu == 1){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 奋力一击</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*2);}
		if ($Event_hissatu == 2){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 说「阁下的攻击是无效的！」</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*0.2);}
		if ($Event_hissatu == 3){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 说「阁下的攻击已经被我看穿了」</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint+$Vs_AtPoint/100);}
		if ($Event_hissatu == 4){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 虚弱的攻击！</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*0.5);}
		if (($Event_hissatu==5)&&($PL_VALUES[5])){($ResultTag.= "<font color=$CL_VALUES[0]><B>$PL_VALUES[5]要塞支援攻击<B></font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*5);}
		if (($Event_hissatu==6)&&($VS_VALUES[5])){($ResultTag.= "<font color=$VC_VALUES[0]><B>$VS_VALUES[5] 干扰对方行动</B></font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*0.001);}
		if ($Event_hissatu == 7){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 使用必杀！<br><b>$PL_VALUES[39]</b></font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*3);}
		if ($Event_hissatu == 8){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 偷取钱财！！！！(嘘)</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*0.5);}
		if ($Event_hissatu == 9){($ResultTag.= "<font color=$CL_VALUES[0]>呵呵$FORM{'vsname'} 来做一个饭前运动好了！</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*1.2);}
		if ($Event_hissatu == 10){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 捡到了一块大金子！</font><br>\n");$PL_VALUES[8]+=201760}
		if (($Event_hissatu==11)&&($PL_VALUES[5])){($ResultTag.= "<font color=$CL_VALUES[0]><B>$PL_VALUES[5] 基地的补给物资到了<br>$FORM{'pname'}的EN回复<B></font><br>\n");$PL_VALUES[17]+=50000}
		if ($Event_hissatu == 12){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 一击入魂,熟练度上升</font><br>\n");$PL_VALUES[24]+=30}
		if ($Event_hissatu == 13){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 的钱掉了一些</font><br>\n");$PL_VALUES[8]-=50300;if($PL_VALUES[8] < 0){$PL_VALUES[8] = 0}}
		if ($Event_hissatu == 14){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 被打昏，熟练下降一点!</font><br>\n");$PL_VALUES[24]-=10;if($PL_VALUES[24] < 0){$PL_VALUES[24] = 0}}
		if ($Event_hissatu == 15){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 基地送来的补给物资！HP回复</font><br>\n");$PL_VALUES[15]+=9999999}
		if ($Event_hissatu == 16){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 使用超必杀。。<br><b>$PL_VALUES[38]</b></font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*4.5);}
		if ($Event_hissatu == 17){($ResultTag.= "<font color=$CL_VALUES[0]>$FORM{'pname'} 取出自己的光束剑，挡住对方的攻击</font><br>\n");$VS_AtPoint=int($VS_AtPoint*0.00001);}
		if ($Event_hissatu == 18){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 发现一块稀有矿石-EN上限提升 @_@ </font><br>\n");if($PL_VALUES[18] < 10000){$PL_VALUES[18]+=3}}
		if ($Event_hissatu == 19){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 救出一位神秘科学家，为了报答你，帮你改造装甲，HP上限提升 @_@ </font><br>\n");if($PL_VALUES[16] < 100000){$PL_VALUES[16]+=10}}
		if ($Event_hissatu == 20){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 的装甲被对方击破，HP上限减少 *_* </font><br>\n");$PL_VALUES[16]-=5}
		if ($Event_hissatu == 21){($ResultTag.= "<font color=$PL_VALUES[13]>$FORM{'pname'} 的能源装置被对方击穿，能源上限减少</font><br>\n");$PL_VALUES[18]-=1}
}


	$Event_vshissatu=int(rand(115))+1;
		if ($Vs_Check < $Vs_W[2]){
		if ($Event_vshissatu == 1){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 奋力一击</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*2);}
		if ($Event_vshissatu == 2){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'}「阁下的攻击是无效的！」说道！</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*0.2);}
		if ($Event_vshissatu == 3){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'}「阁下的攻击已经被我看穿了」叫道</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint+$Pl_AtPoint/100);}
		if ($Event_vshissatu == 4){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 虚弱的攻击！</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*0.5);}
  		if (($Event_vshissatu==5)&&($VS_VALUES[5])){($ResultTag.= "<font color=$VC_VALUES[0]><B>$VS_VALUES[5]要塞支援攻击<B></font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*5);}
		if (($Event_vshissatu==6)&&($PL_VALUES[5])){($ResultTag.= "<font color=$CL_VALUES[0]><B>$PL_VALUES[5] 干扰对方行动</B></font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*0.001);}
    		if ($Event_vshissatu == 7){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 使用必杀!<br><b>$VS_VALUES[39]</b></font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*3);}
		if ($Event_vshissatu == 8){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} $FORM{'pname'}(嘘）</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*0.5);}
		if ($Event_vshissatu == 9){($ResultTag.= "<font color=$VC_VALUES[0]>好像$FORM{'pname'} 的什麽东西少了一些？</font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*1.2);}
		if ($Event_vshissatu == 10){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 捡到了一块大金子！</font><br>\n");$VS_VALUES[8]+=207600}
	  	if (($Event_vshissatu==11)&&($VS_VALUES[5])){($ResultTag.= "<font color=$VC_VALUES[0]><B>$VS_VALUES[5] 基地的补给物资到了<br>$FORM{'vsname'}  EN回复<B></font><br>\n");$VS_VALUES[17]+=50000}
		if ($Event_vshissatu == 12){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 强行击破, 熟练度上升</font><br>\n");$VS_VALUES[24]+=30}
		if ($Event_vshissatu == 13){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 钱丢了???</font><br>\n");$VS_VALUES[8]-=59020;if($VS_VALUES[8] < 0){$VS_VALUES[8] = 0}}
		if ($Event_vshissatu == 14){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 被打昏，熟练下降一点！</font><br>\n");$VS_VALUES[24]-=10;if($VS_VALUES[24] < 0){$VS_VALUES[24] = 0}}
		if ($Event_vshissatu == 15){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 基地送来的补给物资！HP回复</font><br>\n");$VS_VALUES[15]+=9999999}
	  	if ($Event_vshissatu == 16){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 使用超必杀。。<br><b>$VS_VALUES[38]</b></font><br>\n");$Vs_AtPoint=int($Vs_AtPoint*4.5);}
	  	if ($Event_vshissatu == 17){($ResultTag.= "<font color=$VC_VALUES[0]>$FORM{'vsname'} 拿出自己的光束剑，挡住你的攻击</font><br>\n");$Pl_AtPoint=int($Pl_AtPoint*0.000001);}
		if ($Event_vshissatu == 18){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 发现一块稀有矿石-EN上限提升 @_@ </font><br>\n");if($VS_VALUES[18] < 10000){$VS_VALUES[18]+=3}}
		if ($Event_hissatu == 19){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 救出一位神秘科学家，为了报答你，帮你改造装甲，HP上限提升 @_@ </font><br>\n");if($VS_VALUES[16] < 100000){$VS_VALUES[16]+=10}}
		if ($Event_hissatu == 20){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 的装甲被对方击破，HP上限减少 *_* </font><br>\n");$VS_VALUES[16]-=5}
		if ($Event_hissatu == 21){($ResultTag.= "<font color=$VS_VALUES[13]>$FORM{'vsname'} 的能源装置被对方击穿，能源上限减少</font><br>\n");$VS_VALUES[18]-=1}
	}
	$Pl_AtPoint=0 if $Pl_AtPoint < 0;
	$Vs_AtPoint=0 if $Vs_AtPoint < 0;
	$dmgStyl="style=\"font-size:21px;color:#9acd32;\"";
	$chaStyl="style=\"font-size:12px;color:#dc143c;\"";
	$PlsumDmg="<b $dmgStyl>$Pl_W[3]</b> <b $chaStyl>次攻击</b>  <b $chaStyl>击中了</b> <b $dmgStyl>$Pl_Times</b> <b $chaStyl>次</b>
		<b $dmgStyl>$Pl_AtPoint</b><b $chaStyl> 的破坏</b>" if $Pl_Times > 0;
	$PlsumDmg='<font color=#6a5acd>Miss</font>' if $Pl_Times == 0;
	$VssumDmg="<b $dmgStyl>$Vs_W[3]</b> <b $chaStyl>次攻击</b> <b $chaStyl>击中了</b> <b $dmgStyl>$Vs_Times</b> <b $chaStyl>次</b>
		<b $dmgStyl>$Vs_AtPoint</b><b $chaStyl> 的破坏</b>" if $Vs_Times > 0;
	$VssumDmg='<font color=#6a5acd>Miss</font>' if $Vs_Times == 0;
	$Pl_BfrHP=$PL_VALUES[15];
	$Vs_AtPoint=$PL_VALUES[15] if $PL_VALUES[15] < $Vs_AtPoint;
	$PL_VALUES[15]=$PL_VALUES[15]-$Vs_AtPoint;
	$Pl_width_per=$PL_VALUES[16]/150;
	$Pl_width_hp=int($PL_VALUES[15]/$Pl_width_per);
	$Pl_width_zen=int(($PL_VALUES[16]-$Pl_BfrHP)/$Pl_width_per);
	$Pl_width_dmg=int($Vs_AtPoint/$Pl_width_per);
	$PL_HPTAG="<img src=\"$IMG_FOLDER1/hp.gif\" hspace=0 height=7 width=$Pl_width_hp>" if $Pl_width_hp;
	$PL_HPTAG.="<img src=\"$IMG_FOLDER1/dmg.gif\" hspace=0 height=7 width=$Pl_width_dmg>" if $Pl_width_dmg;
	$PL_HPTAG.="<img src=\"$IMG_FOLDER1/zen.gif\" hspace=0 height=7 width=$Pl_width_zen>" if $Pl_width_zen;
	$Vs_BfrHP=$VS_VALUES[15];
	$Pl_AtPoint=$VS_VALUES[15] if $VS_VALUES[15] < $Pl_AtPoint;
	$VS_VALUES[15]=$VS_VALUES[15]-$Pl_AtPoint;
	$Vs_width_per=$VS_VALUES[16]/150;
	$Vs_width_hp=int($VS_VALUES[15]/$Vs_width_per);
	$Vs_width_zen=int(($VS_VALUES[16]-$Vs_BfrHP)/$Vs_width_per);
	$Vs_width_dmg=int($Pl_AtPoint/$Vs_width_per);
	$VS_HPTAG="<img src=\"$IMG_FOLDER1/hp.gif\" hspace=0 height=7 width=$Vs_width_hp>" if $Vs_width_hp;
	$VS_HPTAG.="<img src=\"$IMG_FOLDER1/dmg.gif\" hspace=0 height=7 width=$Vs_width_dmg>" if $Vs_width_dmg;
	$VS_HPTAG.="<img src=\"$IMG_FOLDER1/zen.gif\" hspace=0 height=7 width=$Vs_width_zen>" if $Vs_width_zen;
WORL:{
	$VS_VALUES[15] == 0 && $PL_VALUES[15] > 0 && do{
		$ResultBattle=0;
		$PL_In[0]=int (rand(5)+8);$VS_In[0]=int (rand(2)+2);
		$PL_In[1]=3;$VS_In[1]=-2;
		$PL_In[2]=int(rand(200)+400)+((250-$PL_VALUES[29])*$GET_MONEY);
		$VS_In[2]=int(rand(200)+400)+((250-$VS_VALUES[29])*int($GET_MONEY/3));
		$PL_VALUES[24]++;$VS_VALUES[25]=1;
		($PL_VALUES[0]=0,$PL_VALUES[5]="$FORM{'boumeiC'}",$B_Com='完成',$PL_VALUES[6]=0)if $FORM{'b_mode'} eq '亡命';
		($PL_VALUES[6]="$VS_VALUES[6]",$PL_VALUES[28]="$VS_VALUES[28]",$VS_VALUES[6]=0,$Vs_KakutokuRank=-120,$VS_VALUES[5]=$VS_VALUES[28]='',$B_Com='完成')
		if $FORM{'b_mode'} eq '内乱';
	last WORL;};
	$PL_VALUES[15] == 0 && $VS_VALUES[15] > 0 && do {
		$ResultBattle=1;
		$PL_In[0]=int (rand(2)+2);$VS_In[0]=int (rand(5)+8);
		$PL_In[1]=-2;$VS_In[1]=3;
		$PL_In[2]=int(rand(200)+400)+((250-$PL_VALUES[29])*int($GET_MONEY/3));
		$VS_In[2]=int(rand(200)+400)+((250-$VS_VALUES[29])*$GET_MONEY);
		$VS_VALUES[24]++;$PL_VALUES[25]=1;
		($PL_In[1]=int($PL_VALUES[0]/-3)*2,$B_Com='失败') if $FORM{'b_mode'} eq '亡命';
		($PL_In[1]=($PL_VALUES[0])*-1,$B_Com='失败') if $FORM{'b_mode'} eq '内乱';
	last WORL;};
	$VS_VALUES[15] > 0 && $PL_VALUES[15] > 0 && do{
		$ResultBattle=2;
		$PL_In[0]=int (rand(3)+4);$VS_In[0]=int (rand(3)+4);
		$PL_In[1]=1;$VS_In[1]=1;
		$PL_In[2]=int(rand(200)+400);$VS_In[2]=int(rand(200)+400);
		($PL_In[1]=int($PL_VALUES[0]/-3)*2,$B_Com='失败') if $FORM{'b_mode'} eq '亡命';
		($PL_In[1]=($PL_VALUES[0])*-1,$B_Com='失败') if $FORM{'b_mode'} eq '内乱';
	last WORL;};
}
	$PL_In[2]=400 if $PL_In[2]<10;$VS_In[2]=400 if $VS_In[2]<1;
	if ($Pl_W[7] =~ m/d/){
        $PL_In[2]=$PL_In[2]*2;
        $VS_In[2]=$VS_In[2]*2;
    }
	$PL_VALUES[0]+=$PL_In[1];
	$VS_VALUES[0]+=$VS_In[1];
	$PL_VALUES[8]+=$PL_In[2];
	$VS_VALUES[8]+=$VS_In[2];
	$PL_VALUES[0]=0   if $PL_VALUES[0] < 0 || !$PL_VALUES[5];
	$PL_VALUES[0]=215 if $PL_VALUES[0] >= 215;
	$PL_VALUES[0]=220 if $PL_VALUES[6] == 1;
	$VS_VALUES[0]=0   if $VS_VALUES[0] < 0 || !$VS_VALUES[5];
	$VS_VALUES[0]=215 if $VS_VALUES[0] >= 215;
	$VS_VALUES[0]=220 if $VS_VALUES[6] == 1;
	$PL_VALUES[17]-=$Pl_W[4] if $Pl_Times;$PL_VALUES[17]=0 if $PL_VALUES[17] < 0;
	$Pl_vs="$VS_VALUES[5]的"if $VS_VALUES[5];$Pl_vs="流浪者的"if !$VS_VALUES[5];
	$Vs_vs="$PL_VALUES[5]的"if $PL_VALUES[5];$Vs_vs="流浪者的"if !$PL_VALUES[5];
local($PL_RETI1,$PL_RE1,$PL_RETI2,$PL_RE2,$PL_RETI3,$PL_RE3) = split(/!/,$PL_VALUES[1]);
local($VS_RETI1,$VS_RE1,$VS_RETI2,$VS_RE2,$VS_RETI3,$VS_RE3) = split(/!/,$VS_VALUES[1]);
$PL_VALUES[1]="$DATE!$Pl_vs$FORM{'vsname'}进行交战." ;$PL_VALUES[26]=time;
$VS_VALUES[1]="$DATE!$Vs_vs$FORM{'pname'}进行交战." ;
$ResultTag.= $Tokusyu;
($ResultTag.="$VS_VALUES[3]大破。<br>",$PL_VALUES[1].="$VS_VALUES[3]大破。",$VS_VALUES[1].="$VS_VALUES[3]大破。")
if $ResultBattle==0;
($ResultTag.="$PL_VALUES[3]大破。<br>",$PL_VALUES[1].="$PL_VALUES[3]大破。",$VS_VALUES[1].="$PL_VALUES[3]大破。")
if $ResultBattle==1;
$PL_VALUES[1].="!".$PL_RETI1."!".$PL_RE1."!".$PL_RETI2."!".$PL_RE2;
$VS_VALUES[1].="!".$VS_RETI1."!".$VS_RE1."!".$VS_RETI2."!".$VS_RE2;
	&HEADER;
	print << "	-----END-----";
	<div align=center>

	<table border=0 bgcolor=#000000 width=100% cellspacing=0 cellpadding=0>
<td align=center width=50% bgcolor="$CL_VALUES[0]" style="color:#000000;font-size:25pt;">
  <table cellpadding=0 cellspacing=0 border=0><tr>
      <td rowspan=2><div align=left><img src=$IMG_FOLDER3/$PL_VALUES[37].gif ></div></td>
      <td rowspan=2><div style="font-size:25px;"><b>$PL_Country</b></div></td>
      <td align=center><font color=#000000 style="font-size:18pt;"><b>$PL_VALUES[3]</b></font></td>
    </tr><tr>
      <td align=center><div style="font-size:12px;">$FORM{'pname'}$Pl_Kaikyu</div></td>
    </tr></table></td>
<td align=center width=50% bgcolor="$VC_VALUES[0]" style="color:#000000;font-size:25pt;">
  <table cellpadding=0 cellspacing=0 border=0><tr>
      <td rowspan=2><div align=left><img src=$IMG_FOLDER3/$VS_VALUES[37].gif ></div></td>
      <td rowspan=2><b><div style="font-size:25px;">$VS_Country</b></div></td>
      <td align=center><font color=#000000 style="font-size:18pt;"><b>$VS_VALUES[3]</b></font></td>
    </tr><tr>
      <td align=center><div style="font-size:12px;">$FORM{'vsname'}$Vs_Kaikyu</div></td>
    </tr>  </table></td></tr><tr>
    <td align=center width=50%><B>$PL_VALUES[31]</B></td>
    <td align=center width=50%><B>$VS_VALUES[31]</B></td></tr>
	<tr><td align=center width=50% height=100 valign=bottom>
		<div align=center><img src=\"$IMG_FOLDER2/$PL_VALUES[27].gif\"></div>
		<div style="font-size:15px;">【$Pl_MsnStyle】</div>
		<table $TBL_TAG1><tr><td style="font-size:15px;"><b>HP</b>&nbsp;</td>
			<td>$PL_HPTAG</td><td width=50 align=right style="font-size:14px;"><span id=cplhp>$Pl_BfrHP</span></td>
			<td style="font-size:14px;">/<b>$PL_VALUES[16]</b></td></tr></table></td>
	<td align=center width=50% height=100 valign=bottom>
		<div align=center><img src=\"$IMG_FOLDER2/$VS_VALUES[27].gif\" style=\"filter:fliph();\"></div>
		<div style="font-size:15px;">【$Vs_MsnStyle】</div>
		<table $TBL_TAG1><tr><td style="font-size:15px;"><b>HP</b>&nbsp;</td>
			<td>$VS_HPTAG</td><td width=50 align=right style="font-size:14px;"><span id=cvshp>$Vs_BfrHP</span></td>
			<td style="font-size:14px;">/<b>$VS_VALUES[16]</b></td></tr></table></td></tr>
	<tr><td align=center valign=top width=40%><font color=#778899 style="font-size:16px;">
			<b>$Pl_WeaponNameA</b></font><div align=center>$PlResult<div align=center>$PlsumDmg<br>
			<b $chaStyl>能源:-$Pl_W[4]</b></div></td>
			<td align=center valign=top width=40%><font color=#778899 style="font-size:16px;">
			<b>$Vs_WeaponNameA</b></font><div align=center>$VsResult<div align=center>$VssumDmg<br>
123

⌨️ 快捷键说明

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