📄 champ.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        </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{"&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(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(50000)){
                 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;
        }

if ($ResultBattle==0){
        $prize=int(rand(100)+100);$seikaku=int(rand(7));
        if($wrecord eq ''){$wrecord=$wcount;$recnum=$cname;}
        $VALS="$FORM{'pname'}<>$PL_VALUES[0]<>$PL_VALUES[1]<>$PL_VALUES[2]<>$PL_VALUES[3]<>$PL_VALUES[4]<>$PL_VALUES[5]<>$PL_VALUES[6]<>$PL_VALUES[7]<>$PL_VALUES[8]<>$PL_VALUES[9]<>$PL_VALUES[10]<>$PL_VALUES[11]<>$seikaku<>$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]<>$PL_VALUES[26]<>$PL_VALUES[27]<>$PL_VALUES[28]<>$PL_VALUES[29]<>$PL_VALUES[30]<>1<>$wrecord<>$recnum<>$prize<>\n";
}else{
        $cname=$FORM{'pname'} if $cname eq '';$wcount=0 if $wcount eq '';
        $wcount++;$prize+=int(rand(100)+100)*$bairitu;$seikaku=int(rand(7));
        if($VS_VALUES[10] ne ''){$WEAPONS=$VS_VALUES[9];$VS_VALUES[9]=$VS_VALUES[10];$VS_VALUES[10]=$WEAPONS;}
        if($wrecord<=$wcount or $wrecord eq ''){$wrecord=$wcount;$recnum=$cname;}
        $VALS="$cname<>$VS_VALUES[0]<>$VS_VALUES[1]<>$VS_VALUES[2]<>$VS_VALUES[3]<>$VS_VALUES[4]<>$VS_VALUES[5]<>$VS_VALUES[6]<>$VS_VALUES[7]<>$VS_VALUES[8]<>$VS_VALUES[9]<>$VS_VALUES[10]<>$VS_VALUES[11]<>$seikaku<>$VS_VALUES[13]<>$VS_VALUES[14]<>$VS_VALUES[15]<>$VS_VALUES[16]<>$VS_VALUES[17]<>$VS_VALUES[18]<>$VS_VALUES[19]<>$VS_VALUES[20]<>$VS_VALUES[21]<>$VS_VALUES[22]<>$VS_VALUES[23]<>$VS_VALUES[24]<>$VS_VALUES[25]<>$VS_VALUES[26]<>$VS_VALUES[27]<>$VS_VALUES[28]<>$VS_VALUES[29]<>$VS_VALUES[30]<>$wcount<>$wrecord<>$recnum<>$prize<>\n";
}
        open(OUT,">$winfile");
        print OUT $VALS;
        close(OUT);
        chmod(0666,"$winfile");


        &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';
                }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;}
        }
}

sub LOG01{
        &HEADER;

        &LOCK;
        open(IN,"$winfile");
        $cdat = <IN>;
        close(IN);
        ($cname,$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,$c_26,$c_27,$c_28,$c_29,$c_30,$wcount,$wrecord,$recnum,$prize) = split(/<>/,$cdat);
        &UNLOCK;
print << "-----END-----";
<center><BR>
<table cellspacing=0 cellpadding=3 bgcolor="black" style="font-size:11pt;" border=1>
<tr><td align=center colspan=3><font color=gold>  ------------  <br>＄＄＄＄　　悬  赏  挑  战　 ＄＄＄＄<br>  -----------  </font></td><tr>
<tr><td align=center colspan=3><font color=gren>\<< 悬赏金额 $prize >\></font></td><tr>
<tr><td rowspan=8 align=center><img src="$IMG_FOLDER2/$c_27.gif"></td></tr>
<tr><td>用户名</td><td>$cname</td></tr>
<tr><td>机体名</td><td>$c_3</td></tr>
<tr><td>生命值</td><td>$c_15 / $c_16</td></tr>
<tr><td>能量值</td><td>$c_17 / $c_18</td></tr>
<tr><td>击落数</td><td>$wcount 机</td></tr>
<tr><td><font color=RED>记　录</font></td><td>$recnum击落$wrecord机 </td></tr>
</table>
</center>
-----END-----
	print "$COMMENT_2" if $COMMENT_2;
	&FOOTER;
}
上一页 1 2 34
💿 文件大小 5847 K
👤 上传用户 piaoxue061906
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#WEBGAME #WIN2K #EBS #机器人
⌨️ 快捷键说明

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