#!/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="ranking.cgi";           #ランキングスクリプト名
$RANKNUM='20';                     #ランキング表示人数
$maxsts="50";                      #通常ステータス最大値（ＮＴ）
$maxsts2="100";                    #改造ステータス最大値（ＮＴ５）
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

require 'ebs_sub1.cgi';

&ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

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


sub CHOICE		{&CHOICE2;}

sub RANKING             {&RANKING2;}
sub RANKING3            {&RANKING4;}
sub DENDOU              {&DENDOU2;}

sub CHOICE2{

	&HEADER;
	print << "	-----END-----";
	<form action=$SCRIPTNM method=POST name=choice>
	<input type=hidden name="cmd">
	<table width=100% height=100%><tr><td align=center>

	<table class=font9 cellspacing=2 cellpadding=3 bgcolor="#909090">
		<tr><td bgcolor=#404040 colspan=3><center><b>ランキング</b></center></td></tr>

        <tr><td bgcolor=#404040 align=center>長者番付</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">貯金好きな人々</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" $STYLE_B2 onClick="choice.cmd.value='RANKING'"></td>
        </tr>

        <tr><td bgcolor=#404040 align=center>天下無双</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">戦闘好きな人々</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" $STYLE_B2 onClick="choice.cmd.value='RANKING3'"></td>
        </tr>

        <tr><td bgcolor=#404040 align=center>殿堂</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">境地に辿り着いた人々</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" $STYLE_B2 onClick="choice.cmd.value='DENDOU'"></td>
        </tr>

	</table></form>
	<input type=button value=close onclick='window.close()'>
	</td></tr></table>

	-----END-----
	print "<BR><center>ランキング：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";

}

sub RANKING2{

&HEADER;
&DBM_INPORT(P);
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=6><center><b>ランキング</b></center></td></tr>
<tr><td>ＮＯ．</td><td>プレイヤーネーム</td><td>所属国</td><td>資金</td><td colspan=2>機体</td></tr>

-----END-----
$i=0;@tmp1 =();
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);
push(@tmp1, $VALS[8]);
$PNAME[$i]=$key;
if($VALS[5] eq ''){$PCOUNTRY[$i]="$NONE_NATIONALITY";}else{$PCOUNTRY[$i]="$VALS[5]";}
$PMONEY[$i]="$VALS[8]";
$MSNAME[$i]="$VALS[3]";
$MSGIF[$i]="$VALS[27]";
$i++;
}

@PNAME = @PNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PCOUNTRY = @PCOUNTRY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PMONEY = @PMONEY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSNAME = @MSNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSGIF = @MSGIF[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];

$j=0;$count=$i-1;
foreach(0..$count) {
     if($j >= $RANKNUM) { last; }
     $k=$j+1;$size=$RANKNUM-$j;
print "<tr><td>$k</td><td><font>$PNAME[$j]</font></td><td><font color=BLACK>【$PCOUNTRY[$j]】</font></td><td><font color=RED size=$size>$PMONEY[$j]</font></td><td><font color=BLUE>$MSNAME[$j]</td><td><img src=\"$IMG_FOLDER2/$MSGIF[$j].gif\"></td></tr>";

$j++;
}

print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="CHOICE">
<tr><td colspan=6>
<input type=submit value=戻る $STYLE_B2>
</td></tr></table>
-----END-----
	print "<BR><center>ランキング：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></form></body>";
}

sub RANKING4{

&HEADER;
&DBM_INPORT(P);
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=6><center><b>ランキング</b></center></td></tr>
<tr><td>ＮＯ．</td><td>プレイヤーネーム</td><td>所属国</td><td>総合戦闘\能\力</td><td colspan=2>機体</td></tr>

-----END-----
$i=0;@tmp1 =();
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);
$POINT=$VALS[16]+$VALS[18]+$VALS[19]*100+$VALS[20]*100+$VALS[21]*100+$VALS[22]*100;
push(@tmp1, $POINT);
$PNAME[$i]=$key;
if($VALS[5] eq ''){$PCOUNTRY[$i]="$NONE_NATIONALITY";}else{$PCOUNTRY[$i]="$VALS[5]";}
$PMONEY[$i]=$POINT;
$MSNAME[$i]="$VALS[3]";
$MSGIF[$i]="$VALS[27]";
$i++;
}

@PNAME = @PNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PCOUNTRY = @PCOUNTRY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PMONEY = @PMONEY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSNAME = @MSNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSGIF = @MSGIF[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];

$j=0;$count=$i-1;
foreach(0..$count) {
     if($j >= $RANKNUM) { last; }
     $k=$j+1;$size=$RANKNUM-$j;
print "<tr><td>$k</td><td><font>$PNAME[$j]</font></td><td><font color=BLACK>【$PCOUNTRY[$j]】</font></td><td><font color=RED size=$size>$PMONEY[$j]</font></td><td><font color=BLUE>$MSNAME[$j]</td><td><img src=\"$IMG_FOLDER2/$MSGIF[$j].gif\"></td></tr>";

$j++;
}

print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="CHOICE">
<tr><td colspan=6>
<input type=submit value=戻る $STYLE_B2>
</td></tr></table>
-----END-----
	print "<BR><center>ランキング：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></form></body>";
}

sub DENDOU2{

&HEADER;
&DBM_INPORT(P);
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=6><center><b>ランキング</b></center></td></tr>
<tr><td>プレイヤーネーム</td><td>所属国</td><td>STATUS</td><td colspan=2>機体</td></tr>

-----END-----

while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);
if($VALS[5] eq ''){$PCOUNTRY="$NONE_NATIONALITY";}else{$PCOUNTRY="$VALS[5]";}
     if($VALS[19] == $VALS[20] and $VALS[20] == $VALS[21] and $VALS[21] == $VALS[22] and $VALS[22] == $maxsts2){
print "<tr bgcolor=olive><td><font>$key</font></td><td><font color=BLACK>【$PCOUNTRY】</font></td><td><font color=RED>ALL NTMAX</font></td><td><font color=BLUE>$VALS[3]</td><td><img src=\"$IMG_FOLDER2/$VALS[27].gif\"></td></tr>";
     }elsif($VALS[19] == $VALS[20] and $VALS[20] == $VALS[21] and $VALS[21] == $VALS[22] and $VALS[22] >= $maxsts){
print "<tr><td><font>$key</font></td><td><font color=BLACK>【$PCOUNTRY】</font></td><td><font color=RED>ALL NT</font></td><td><font color=BLUE>$VALS[3]</td><td><img src=\"$IMG_FOLDER2/$VALS[27].gif\"></td></tr>";

     }
}




print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="CHOICE">
<tr><td colspan=6>
<input type=submit value=戻る $STYLE_B2>
</td></tr></table>
-----END-----
	print "<BR><center>ランキング：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></form></body>";
}