ballance.cgi

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

#!/usr/bin/perl
$SCRIPTNM="ballance.cgi";
#####################################################################
require 'ebs_sub1.cgi';

&ERROR('请不要直接从此地址进入','安全起见请从您访问的网页进入') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

!$SUB && ($SUB='BALLANCE');
&$SUB;

sub BALLANCE{

        &HEADER;
        &DBM_INPORT(P);&DBM_INPORT(C);
        print << "        -----END-----";
        <table width=100% height=100%><tr><td $center>
        <table $tb_stl>
                <tr><td colspan=5 $center><b>势 力 图</b></td></tr>

        -----END-----
        print "<tr><td $center>国 名</td><td $center><font color=red>总 帅</font></td><td colspan=2 $center>比 例</td><td $center>人 口</td></tr>";

        $i=0;
        while (my($key,$val) = each %C){
        @VALS = split(/\s/,$val);
        $CNAME[$i]=$key;
        $CCOLOR[$i]=$VALS[0];
        $i++;
        }
        $count=$i-1;$NONCOUNT=0;$METUBOU=0;
        while (my($key,$val) = each %P){
        @VALS = split(/\s/,$val);$ET++;
           $j=0;$kuni=0;
           foreach(0..$count) {

           if($VALS[5] eq "$CNAME[$j]"){$COUNTER[$j]++;$kuni=1;if($VALS[6]==1){$SOUSUI[$j]=$key;}}
           $j++;
           }
           if($VALS[5] eq ''){$NONCOUNT++;}elsif($kuni==0){$METUBOU++;}
        }
        $k=0;
        foreach(0..$count) {
        $BAR[$k]=$COUNTER[$k]*3;$WARIAI=int($COUNTER[$k]/$ET*100);
        if($SOUSUI[$k] eq ''){$SOUSUI[$k]="<font color=black>不 在</font>";}
        if($COUNTER[$k] eq ''){$COUNTER[$k]="0";}
        print "<tr><td $center bgcolor=$CCOLOR[$k]><font color=BLACK>$CNAME[$k]</font></td><td $center>【$SOUSUI[$k]】</td><td><img src=\"$IMG_FOLDER1/hp.gif\" hspace=0 height=7 width=$BAR[$k]></td><td>$WARIAI%</td><td>$COUNTER[$k]名</td></tr>";
        $k++;
        }
        $NONBAR=$NONCOUNT*3;$NONWARIAI=int($NONCOUNT/$ET*100);
        $BOUBAR=$METUBOU*3;$BOUWARIAI=int($METUBOU/$ET*100);
        print "<tr><td $center>流浪者</td><td $center>无</td><td><img src=\"$IMG_FOLDER1/zen.gif\" hspace=0 height=7 width=$NONBAR></td><td>$NONWARIAI%</td><td>$NONCOUNT名</td></tr>";
        print "<tr><td $center>亡 国</td><td $center>无</td><td><img src=\"$IMG_FOLDER1/dmg.gif\" hspace=0 height=7 width=$BOUBAR></td><td>$BOUWARIAI %</td><td>$METUBOU名</td></tr>";

        print << "        -----END-----";
        <tr><td colspan=5 $center>
        <form action=$SCRIPTNM method=POST>
        <input type=hidden name="cmd" value=BALLANCE2>
        <input type=submit value=国力图 $STYLE_B2>
        </td></form>
        </tr></table>
        -----END-----
                &FOOTER;
        print "</td></tr></table></body>";
}

sub BALLANCE2{

        &HEADER;
        &DBM_INPORT(P);&DBM_INPORT(C);
        print << "        -----END-----";
        <table width=100% height=100%><tr><td $center>
        <table $tb_stl>
                <tr><td colspan=5 $center><b>国 力 图</b></td></tr>

        -----END-----
        print "<tr><td $center>国 名</td><td $center><font color=red>总 帅</font></td><td colspan=2 $center>比 例</td><td $center>军 事 能 力</td></tr>";

        $i=0;
        while (my($key,$val) = each %C){
        @VALS = split(/\s/,$val);
        $CNAME[$i]=$key;
        $CCOLOR[$i]=$VALS[0];
        $i++;
        }
        $count=$i-1;$NONCOUNT=0;$METUBOU=0;
        while (my($key,$val) = each %P){
        @VALS = split(/\s/,$val);$ET++;
           $j=0;$kuni=0;
           foreach(0..$count) {

           if($VALS[5] eq "$CNAME[$j]"){$COUNTER[$j]+=($VALS[16]+$VALS[18]+$VALS[19]*100+$VALS[20]*100+$VALS[21]*100+$VALS[22]*100);$kuni=1;if($VALS[6]==1){$SOUSUI[$j]=$key;}}
           $j++;
           }
           if($VALS[5] eq ''){$NONCOUNT+=($VALS[16]+$VALS[18]+$VALS[19]*100+$VALS[20]*100+$VALS[21]*100+$VALS[22]*100);}elsif($kuni==0){$METUBOU+=($VALS[16]+$VALS[18]+$VALS[19]*100+$VALS[20]*100+$VALS[21]*100+$VALS[22]*100);}
        }
        $SOUGOU=$NONCOUNT+$METUBOU;
        $m=0;
        foreach(0..$count) {
           $SOUGOU+=$COUNTER[$m];$m++;
        }
        $ET=$SOUGOU;
        $k=0;
        foreach(0..$count) {
        $BAR[$k]=int($COUNTER[$k]/$ET*100)*3;$WARIAI=int($COUNTER[$k]/$ET*100);
        if($SOUSUI[$k] eq ''){$SOUSUI[$k]="<font color=black>不 在</font>";}
        if($COUNTER[$k] eq ''){$COUNTER[$k]="0";}
        print "<tr><td align=center bgcolor=$CCOLOR[$k]><font color=black>$CNAME[$k]</font></td><td $center>【$SOUSUI[$k]】</td><td><img src=\"$IMG_FOLDER1/hp.gif\" hspace=0 height=7 width=$BAR[$k]></td><td>$WARIAI %</td><td>$COUNTER[$k]点</td></tr>";
        $k++;
        }
        $NONBAR=int($NONCOUNT/$ET*100)*3;$NONWARIAI=int($NONCOUNT/$ET*100);
        $BOUBAR=int($METUBOU/$ET*100)*3;$BOUWARIAI=int($METUBOU/$ET*100);
        print "<tr><td $center>流浪者</td><td $center>无</td><td><img src=\"$IMG_FOLDER1/zen.gif\" hspace=0 height=7 width=$NONBAR></td><td>$NONWARIAI %</td><td>$NONCOUNT点</td></tr>";
        print "<tr><td $center>亡 国</td><td $center>无</td><td><img src=\"$IMG_FOLDER1/dmg.gif\" hspace=0 height=7 width=$BOUBAR></td><td>$BOUWARIAI %</td><td>$METUBOU点</td></tr>";

        print << "        -----END-----";
        <tr><td colspan=5 $center>
        <form action=$SCRIPTNM method=POST>
        <input type=hidden name="cmd" value=BALLANCE>
        <input type=submit value=势力图 $STYLE_B2>
        </td></form>
        </tr></table>
        -----END-----
        &FOOTER;
        print "</td></tr></table></body>";
}