#!/usr/local/bin/perl

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle program Satellite
#       Copyright Net Game Communications All Rights reserved
#                       メインスクリプト
#
#         フリーウェアですが、著作権は放棄していません。
#			再配布、商用利用する場合はご報告願います。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle sub program 
#       Copyright masimaro All Rights reserved
#                       勢力図表示スクリプト
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#設定
$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 align=center>
	<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
		<tr><td bgcolor=#404040 colspan=5><center><b>勢力図</b></CENTER></td></tr>
		
	-----END-----
        print "<tr><td align=center>国名</td><td align=center><font color=red>総帥</font></td><td colspan=2>　</td><td>人口</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 align=center bgcolor=$CCOLOR[$k]><font color=BLACK>$CNAME[$k]</font></td><td align=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 align=center>$NONE_NATIONALITY</td><td>　</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 align=center bgcolor=BLACK>亡国</td><td>　</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=4>
	<form action=$SCRIPTNM method=POST>
        <input type=hidden name="cmd" value=BALLANCE2> 
	<input type=submit value=国力 $STYLE_B2>        
        </td><td></form>
	<input type=button value="close" onclick="window.close()" $STYLE_B2>
	</td></tr></table>
	-----END-----
	print "<BR>勢力図\表\示：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a>";
	&FOOTER;
	print "</td></tr></table></body>";
}

sub BALLANCE2{

	&HEADER;
	&DBM_INPORT(P);&DBM_INPORT(C);
	print << "	-----END-----";
	<table width=100% height=100%><tr><td align=center>
	<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
		<tr><td bgcolor=#404040 colspan=5><center><b>国力図</b></CENTER></td></tr>
		
	-----END-----
        print "<tr><td align=center>国名</td><td align=center><font color=red>総帥</font></td><td colspan=2>　</td><td>軍事力</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 align=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 align=center>$NONE_NATIONALITY</td><td>　</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 align=center bgcolor=BLACK>亡国</td><td>　</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=4>
	<form action=$SCRIPTNM method=POST>
        <input type=hidden name="cmd" value=BALLANCE> 
	<input type=submit value=勢力 $STYLE_B2>        
        </td><td></form>
	<input type=button value="close" onclick="window.close()" $STYLE_B2>
	</td></tr></table>
	-----END-----
	print "<BR>勢力図\表\示：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a>";
	&FOOTER;
	print "</td></tr></table></body>";
}