champ.cgi

WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機

        &UNLOCK;
###能力设定


        $YOUSAINM = "擂主$cname";
        if($cname ne ''){
        @VS_VALUES=("$c_0","$c_1","$c_2","$c_3","$c_4","$c_5","$c_6","$c_7","$c_8","$c_9","$c_10","$c_11","$c_12","$c_13","$c_14","$c_15","$c_16","$c_17","$c_18","$c_19","$c_20","$c_21","$c_22","$c_23","$c_24","$c_25","$DATE","$c_27","$c_28","$c_29","$c_30");
        }else{
        @VS_VALUES=("$PL_VALUES[0]","$PL_VALUES[1]","$PL_VALUES[2]","$PL_VALUES[3]","AL","$PL_VALUES[5]","$PL_VALUES[6]","$PL_VALUES[7]","$PL_VALUES[8]","$PL_VALUES[9]","$PL_VALUES[10]","$PL_VALUES[11]","$PL_VALUES[12]","$PL_VALUES[13]","$PL_VALUES[14]","$PL_VALUES[15]","$PL_VALUES[16]","$PL_VALUES[17]","$PL_VALUES[18]","$PL_VALUES[19]","$PL_VALUES[20]","$PL_VALUES[21]","$PL_VALUES[22]","$PL_VALUES[23]","$PL_VALUES[24]","$PL_VALUES[25]","$DATE","$PL_VALUES[27]","$PL_VALUES[28]","$PL_VALUES[29]","$PL_VALUES[30]");
        }


        &REPAIR(PL);
        &REPAIR(VS);
        if (@CL_VALUES){$PL_Country="$PL_VALUES[5]";}else{$PL_Country=$NONE_NATIONALITY;$CL_VALUES[0]='#808080';}
        if (@VC_VALUES){$VS_Country="$VS_VALUES[5]";}else{$VS_Country=$NONE_NATIONALITY;$VC_VALUES[0]='#808080';}
	
	if ( $PL_VALUES[26] >= time-$timer){&ERROR('你到底想干什么？？？！！！')}
        &ERROR('想扁自己？？') if ($FORM{'pname'} eq $cname);
        &ERROR('机体修理中') if $PL_VALUES[25]==1;
        local($PL_WN,$PL_WLV) = split(/!/,$PL_VALUES[9]);
        local($VS_WN,$VS_WLV) = split(/!/,$VS_VALUES[9]);
        require "$LOG_FOLDER/$HASH_DATA";
        @Pl_W=split(/\,/,$WEAPON_LIST{"$PL_WN"});
        @Vs_W=split(/\,/,$WEAPON_LIST{"$VS_WN"});
        $plbs=int ($PL_VALUES[20]+7) if $Pl_W[7] =~ m/4/;
        $vsbs=int ($VS_VALUES[20]+7) if $Vs_W[7] =~ m/4/;
        $Pl_AttPoint=int($Pl_W[1]*(($PL_WLV*0.0001)+1));
        $Pl_SpPoint=$PL_VALUES[21];$Pl_DefPoint=($PL_VALUES[20]+$plbs)*2-int($VS_VALUES[19]/3);$Pl_MisPoint=$PL_VALUES[22];
        $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)";
        &ERROR('noEnergy','EN不足') if $PL_VALUES[17] < $Pl_W[4];
        $Vs_AttPoint=int($Vs_W[1]*(($VS_WLV*0.0001)+1));
        $Vs_SpPoint=$VS_VALUES[21];$Vs_DefPoint=($VS_VALUES[20]+$vsbs)*2-int($PL_VALUES[19]/3);$Vs_MisPoint=$VS_VALUES[22];
        $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 ($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_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;
                }
        }
        $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 $dmgStyl>$Pl_Times</b> <b $chaStyl>次击中</b>
                <b $dmgStyl>$Pl_AtPoint</b><b $chaStyl> 点损伤</b>" if $Pl_Times > 0;
        $PlsumDmg='<font color=#6a5acd>失败</font>' if $Pl_Times == 0;
        $VssumDmg="<b $dmgStyl>$Vs_W[3]</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]=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.="$VS_VALUES[3]大败<br>恭喜你成为新擂主，获得$prize悬赏金<br>",$PL_VALUES[1].="<br>$VS_VALUES[3]大败，抢夺擂主宝座，获得$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 $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>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;">&nbsp;</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);}
        }