#!/usr/bin/perl

#################################################################
#　【免責條款】　　　　　　　　　　　　　　　　　　     　　　　#
#　這個程式是免費軟件。如使用這個程式　　　　　　　　     　　　#
#　而損失者程式作者將不承擔一切之責任。　　　　　　　     　　　#
#　有關設置的問題請到本站的揭示板討論。　　　　　　　　     　　#
#　任何問題不接受郵件查詢。　　　　　　　　　　　　　　     　  #
#################################################################

#require 'jcode.pl';
require './withlove_sgkini/index.ini';
require 'suport.pl';

if($MENTE) { &ERR2("程序核對一時停止。"); }
&DECODE;
⊤

#_/_/_/_/_/_/_/_/_/#
#_/    TOP畫面   _/#
#_/_/_/_/_/_/_/_/_/#

sub TOP {
	$date = time();
	$month_read = "./withlove_sgklog/date_count.cgi";
	open(IN,"$month_read") or &ERR2('打不開文件。');
	@MONTH_DATA = <IN>;
	close(IN);
	&TIME_DATA;

	open(IN,"$MAP_LOG_LIST");
	@S_MOVE = <IN>;
	close(IN);
	$p=0;
	while($p<5){$S_MES .= "<font color=008800>● </font>$S_MOVE[$p]<BR>";$p++;}

	open(IN,"$MAP_LOG_LIST2");
	@S_MOVE = <IN>;
	close(IN);
	$p=0;
	while($p<5){$D_MES .= "<font color=000088>●</font>$S_MOVE[$p]<BR>";$p++;}

	$hit = 0;
	@month_new=();

	($myear,$mmonth,$mtime,$mtick,$mtick2) = split(/<>/,$MONTH_DATA[0]);
	$old_date = sprintf("%02d\年%02d\月", $F_YEAR+$myear, $mmonth);


	if($ACT_LOG){
		$actfile = "./withlove_sgklog/act_log.cgi";
		open(IN,"$actfile");
		@ACT_DATA = <IN>;
		close(IN);
		($qsec,$qmin,$qhour,$qday) = gmtime($date+$TIME_ZONE);
		$p=0;
		while($p<5){$A_MES .= "<font color=880000>● </font>$ACT_DATA[$p]<BR>";$p++;}

		$ACT_MES = "<TD bgcolor=#EFE0C0 colspan=\"2\" width=80% height=100><font color=#8E4C28 size=2>$A_MES</font></TD>";

	}

	open(IN,"$TOWN_LIST") or &ERR("打不開指定的文件。");
	@TOWN_DATA = <IN>;
	close(IN);
	($zwname,$wzc)=split(/<>/,$TOWN_DATA[0]);
	$zzhit=0;
	foreach(@TOWN_DATA){
		($zwname,$zwcon)=split(/<>/);
			if($wzc ne $zwcon){$zzhit=1;}
			$wzc = $zwcon;
	}
	
	open(GUEST,"$GUEST_LIST") or &ERR2('打不開文件。');
	@GUEST=<GUEST>;
	close(GUEST);
	$Online_User = $#GUEST+1;
	
	
	$dir="./charalog/main";
	opendir(dirlist,"$dir");
	while($file = readdir(dirlist)){
		if($file =~ /\.cgi/i){
			if(!open(page,"$dir/$file")){
				&ERR2("打不開文件!");
			}
			@page = <page>;
			close(page);
			push(@PLAYERS,"@page<br>");
		}
	}
	
	$ALL_PLAYER = @PLAYERS;

	$MESS1 = "<A href=\"$FILE_CONTNUE\">【繼續遊戲】</a>";
	$MESS2 = "<A href=\"$FILE_ENTRY\">【新規登錄】</a>";
	&roses_counter;
	
	if ($mtick eq '3'){
		$TIME_REMAKE = $TIME_REMAKE3;
	}elsif ($mtick eq '2'){
		$TIME_REMAKE = $TIME_REMAKE2;	
	}else{
		$TIME_REMAKE = $TIME_REMAKE4;
	}
	
	$new_date = sprintf("%02d\年%02d\月", $F_YEAR+$myear, $mmonth);
	$next_time = int(($mtime + $TIME_REMAKE - $date) / 60);
	if ($next_time < 0){$next_time = $next_time + $TIME_REMAKE/60;}


	&HEADER;
	print <<"EOM";
<!--[<a href=./i-index.cgi>攜帶用</a>]-->
<CENTER>


<TABLE WIDTH="514" height=100% cellpadding="0" cellspacing="0" border=0><tr><td align=center>
<TABLE border=0 width=80% height=100% cellspacing=1>
    <TBODY>
          <TR>
          <TD align=center><p><TABLE height=140><TR><TD align=center><div align="center"><img src="../../image/title.gif" width="512" height="140"></div><p>
<font size=2 color=#ffffff><p><B>[$new_date]</b><BR>
下次更新<B>$next_time</B> 分<BR></font>
</TD></TR></TABLE>
<p align="center">
<table bgcolor=$TABLE_C align=center border=0>
<form action="$FILE_STATUS" method="POST"><input type="hidden" name="mode" value="STATUS"><TR><TH bgcolor=$TD_C2 height=5>遊戲帳號</TH><td><input type="text" size="10" name="id" value="$_id"></td></TR>
<TR><TH bgcolor=$TD_C2 height=5>帳號密碼</tH><td><input type="password" size="10" name="pass" value="$_pass"></TD></TR>
<TR><td bgcolor=$TD_C1 align=center colspan=2><input type="submit" value="進入"></td></tr></table></form>
            $MESS2 
             
            <A href="$FILE_RANK">【登錄武將一覽】</a> 
             
            <A href="../../manual.html" target="blank">【說明書】</A> 
			
            <a href="./map.cgi" target="blank">【勢力圖】</a> <p>

			<a href="$HOME_URL">【$HOME】</a>
			<a href="$BBS1_URL" target="blank">【$BBS1】</a>
			<a href="$LINK2_URL">【$LINK2】</a>
			<font color="#FFFFFF">註冊人數$ALL_PLAYER/$ENTRY_MAX人</font><br>

<TABLE width=80% BGCOLOR=$TABLE_C  cellspacing=1><TBODY>$mess</TBODY></TABLE>
<CENTER><HR width="514" size="0"><p align=right><font color=8E6C68><font color=red><B> $Online_User </font></B>Players Online </font><BR>
<CENTER><p align=right><font color=8E6C68>TOTAL ACCESS<font color=red><B> $total_count </font></B>HIT</font><BR>

</TD>
          </TR>
    <TR><TD>
    <table width="100%" border="0" align="center" cellspacing="0">
          <tr>
            <td><table width="100%" border="1" cellspacing="0" bordercolor="#996600">
                <tr>
                  <TD bgcolor=#EFE0C0 colspan="2" width=100% height="100"><font color=#8E4C28 size=2>$S_MES</font></TD>
                </tr>
                <tr>
                  <TD bgcolor=#EFE0C0 colspan="2" width=100% height="100"><font color=#8E4C28 size=2>$D_MES</font></TD>
                </tr>
               <tr>
                   $ACT_MES
              </tr></table></td>
          </tr>
        </table></TD></TR>       

        </TBODY>
      </TABLE>
</TR></TD></TABLE>

EOM

	&FOOTER;
	exit;

}

sub roses_counter {

	$file_read = "./withlove_sgklog/counter.cgi";
	open(IN,"$file_read") or &ERR2('打不開文件。');
	@reading = <IN>;
	close(IN);

	($total_count) = split(/<>/,$reading[0]);
	$total_count++;


	open(OUT,">$file_read");
	print OUT "$total_count\n";
	close(OUT);

}