📄 mission.cgi
字号:
($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="流浪者的"if !$VS_VALUES[5];
$Vs_vs="$PL_VALUES[5]的"if $PL_VALUES[5];$Vs_vs="流浪者的"if !$PL_VALUES[5];
$PL_VALUES[1]="$DATE!$Pl_vs$YOUSAINM交战";$PL_VALUES[26]=time;
$VS_VALUES[1]="$DATE!$Vs_vs$FORM{'pname'}交战";
($ResultTag.="$YOUSAINM大败<br>",$PL_VALUES[1].="$YOUSAINM大败",$VS_VALUES[1].="$YOUSAINM大败")
if $ResultBattle==0;
($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 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_VALUES[30]+=$PL_In[4];
print "$FORM{'pname'} 阁下得到了 $PL_In[4]的经验 $PL_In[2] 的金钱 $PL_In[0] 的武器经验 <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 ($FORM{'b_mode'} eq '袭击要塞训练'){$q[8]=$q[8]*2;}
elsif ($FORM{'b_mode'} eq '攻击训练'){$q[8]=0;}
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";
}
}
if ($PL_VALUES[12] != 6){$PL_VALUES[12]='6' if ($FORM{'mode'} ==1 && rand(255) > 253 && $NT_START==1) || (rand(255) > 253 && $NT_START==2) || (rand(255) > 253 && $NT_START==2) || (rand(500) == 1 && $NT_START==3);}else{$PL_VALUES[12]="$VS_VALUES[12]" if ($FORM{'mode'} !=1 && rand(255) > 200 && $NT_END==1) || (rand(255) > 253 && $NT_END==2) || (rand(255) > 253 && $NT_END==2) || (rand(500) == 1 && $NT_END==3);}
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/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";$PL_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>$YOUSAINM的$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";
$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;
&LOCK;
dbmopen (%PL,"$DBM_P",0666);
$PL{"$FORM{'pname'}"}="@PL_VALUES";
dbmclose %PL;
if ($PL_Country ne "流浪者" && !$FORM{'b_mode'}){
dbmopen (%CL,"$DBM_C",0666);
$CL{"$PL_Country"}="@CL_VALUES" if $CL{"$PL_Country"} && $PL_Country ne "流浪者";
dbmclose %CL;
}
&UNLOCK;
print << " END_OF_HTML";
</td></tr></table><table border=0 cellspacing=0>
<form action=$SCRIPTNM 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(\'$SCRIPTNM?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';
}else{$$MsnStyle="普通攻击";}
}
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*=2;$$SP*=0.8;$$WM*=0.8;}
elsif($_[1] eq "8"){$$AT*=2;$$DE*=0.8;$$SP*=2;$$WM*=1.5;}
}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -