📄 wars.cgi
字号:
$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]=10 if $PL_In[2]<10;$VS_In[2]=10 if $VS_In[2]<10;
$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[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[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="$NONE_NATIONALITY的"if !$VS_VALUES[5];
$Vs_vs="和$PL_VALUES[5]的"if $PL_VALUES[5];$Vs_vs="$NONE_NATIONALITY的"if !$PL_VALUES[5];
$PL_VALUES[1]="$DATE!$Pl_vs$YOUSAINM交战。<br>";$PL_VALUES[26]=time;
$VS_VALUES[1]="$DATE!$Vs_vs$FORM{'pname'}交战。<br>";
($ResultTag.="$VS_VALUES[3]严重毁坏。<br>$areaname陷落！！获得$prize奖励。<br>",$PL_VALUES[1].="$VS_VALUES[3]严重毁坏。$areaname被征服。获得$prize奖励。",$VS_VALUES[1].="$VS_VALUES[3]严重毁坏。")
if $ResultBattle==0;
if($ResultBattle==0){$PL_VALUES[8]+=$prize;}
($ResultTag.="$PL_VALUES[3]严重毁坏。<br>",$PL_VALUES[1].="$PL_VALUES[3]严重毁坏。",$VS_VALUES[1].="$PL_VALUES[3]严重毁坏。")
if $ResultBattle==1;
&HEADER;
print << " -----END-----";
<div align=center>
<table border=0 width=100% cellspacing=0 cellpadding=0>
<tr><td align=center width=50% bgcolor="$CL_VALUES[0]" style="color:#000000;font-size:25pt;">
<b>$PL_Country</b></td>
<td align=center width=50% bgcolor="$VC_VALUES[0]" style="color:#000000;font-size:25pt;">
<b>$PL_Country</b></td></tr>
<tr><td align=center width=50%><font color=$PL_VALUES[13] style="font-size:18pt;">$PL_VALUES[3]</font><br>
<div style="font-size:15px;">（$FORM{'pname'}$Pl_Kaikyu机）</div></td>
<td align=center width=50%><font color=$VS_VALUES[13] style="font-size:18pt;">$VS_VALUES[3]</font><br>
<div style="font-size:15px;">（$YOUSAINM机）</div></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> </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> </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>EN:-$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>
<b $chaStyl>EN:-$Vs_W[4]</b></div></td></tr></table>
<div style="line-height:4pt;"> </div>
<table><tr><td 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_VALUES[30]+=$PL_In[4];
print "$FORM{'pname'} 获得 $PL_In[4] 的经验<br>";
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{" <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{" <font color=#dc143c>机身损坏 $_[0]防御力下降。</font><br>";}
$Event=int(rand(70));
if ($Event == 12 && $PL_VALUES[19] >= 1){print &DOWN("$STATUS_NAME[0]");$PL_VALUES[19]--;}
if ($Event == 13 && $PL_VALUES[20] >= 1){print &DOWN("$STATUS_NAME[1]");$PL_VALUES[20]--;}
if ($Event == 14 && $PL_VALUES[21] >= 1){print &DOWN("$STATUS_NAME[2]");$PL_VALUES[21]--;}
if ($Event == 15 && $PL_VALUES[22] >= 1){print &DOWN("$STATUS_NAME[3]");$PL_VALUES[22]--;}
if ($Event == 20 && $PL_VALUES[16] >= 5000){print &DOWN("$STATUS_NAME[4]");$PL_VALUES[16]=int($PL_VALUES[16]*0.995);}
if ($Event == 40 && $PL_VALUES[18] >= 100){print &DOWN("$STATUS_NAME[5]");$PL_VALUES[18]=int($PL_VALUES[18]*0.995);}
}
if (!$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[8] > rand(100)){
if (!$PL_VALUES[10]){$PL_VALUES[10]=$gw;}
elsif(!$PL_VALUES[11]){$PL_VALUES[11]=$gw;}
print "<font color=\"#f7e957\">武器获得。</font><br>\n";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -