#----------------------------------------------------------------------
# 箱庭諸島 ver2.20
# トップモジュール
# 使用条件、使用方法等は、hako-readme.txtファイルを参照
#
# 箱庭諸島のページ: http://t.pos.to/hako/
#----------------------------------------------------------------------
# 「帝国の興亡」 ver1.0.0 by おじー http://t.pos.to/ozzy/
# 使用条件は箱庭諸島に準ずる．詳しくは付属のreadme.txtファイルを参照
#----------------------------------------------------------------------

package H2;

#----------------------------------------------------------------------
# トップページモード
#----------------------------------------------------------------------
# メイン
sub topPageMain {
    # 開放
    unlock();

    # テンプレート出力
    tempTopPage();
}

# トップページ
sub tempTopPage {
    # タイトル
    out(<<END);
${H2::tagTitle_}$H2::title${H2::_tagTitle}
END

    # デバッグモードなら「ターンを進める」ボタン
    if($H2::debug == 1) {
        out(<<END);
<FORM action="$H2::thisFile" method="POST">
<INPUT TYPE="submit" VALUE="ターンを進める" NAME="TurnButton">
</FORM>
END
    }

    my($mStr1) = '';
    if($H2::hideMoneyMode != 0) {
	$mStr1 = "<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}資金${H2::_tagTH}</NOBR></TH>";
    }

    # 更新時間表示
    my($mode, $remainTime, $rtStr);
    if ($H2::mainMode ne 'turn') {
	$mode = ($H2::islandTurn < $H2::armisticeTurn) ? '停戦期間' : '戦闘期間';
	$remainTime = $H2::unitTime - time() + $H2::islandLastTime;
	$rtStr = "次回更新($mode)まで、"; 
	$rtStr .= int($remainTime / 3600) . "時間 ";
	$rtStr .= int(($remainTime % 3600) / 60) . "分 ";
	$rtStr .= $remainTime % 60 . "秒";
    }
    else {
	$rtStr = "ターンを更新しました";
    }
        
    # フォーム
    out(<<END);
<H1>${H2::tagHeader_}ターン$H2::islandTurn${H2::_tagHeader} $rtStr </H1>

<HR>
<H1>${H2::tagHeader_}自分の島へ${H2::_tagHeader}</H1>
<FORM action="$H2::thisFile" method="POST">
あなたの島の名前は？<BR>
<SELECT NAME="ISLANDID">
$H2::islandList
</SELECT><BR>

パスワードをどうぞ！！<BR>
<INPUT TYPE="password" NAME="PASSWORD" VALUE="$H2::defaultPassword" SIZE=32 MAXLENGTH=32><BR>
<INPUT TYPE="submit" VALUE="開発しに行く" NAME="OwnerButton"><BR>
</FORM>

<HR>

<H1>${H2::tagHeader_}各陣営の状況${H2::_tagHeader}</H1>
<TABLE BORDER>
<TR>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}順位${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}陣営${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}マーク${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}島の数${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}合計人口${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}占有率${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}M発射${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}M飛来${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}GNP${H2::_tagTH}</NOBR></TH>
</TR>
END

for ($kk = 0; $kk < $H2::campNumber; $kk++) {
    my($kkk) = $kk+1;
    my($camp) = $H2::camp[$kk];
    my($missileOut) = ($camp->{'ext'}[0] == 0) ? "なし" : "$camp->{'ext'}[0]発";
    my($missileIn) = ($camp->{'ext'}[1] == 0) ? "なし" : "$camp->{'ext'}[1]発";
    out(<<END); 
<TR>
<TD $H2::bgNumberCell align=center nowrap=nowrap><NOBR>${H2::tagNumber_}$kkk${H2::_tagNumber}</NOBR></TD>
<TD $H2::bgInfoCell align=center nowrap=nowrap><NOBR>$camp->{'name'}</NOBR></TD>
<TD $H2::bgInfoCell align=center nowrap=nowrap><NOBR>$camp->{'mark'}</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$camp->{'number'}島</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$camp->{'score'}$H2::unitPop</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$camp->{'occupation'}\%</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$missileOut</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$missileIn</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$camp->{'ext'}[2]$H2::unitMoney</NOBR></TD>
</TR>
END
}

    out(<<END);
</TABLE>

<HR>

<H1>${H2::tagHeader_}諸島の状況${H2::_tagHeader}</H1>
<P>
島の名前をクリックすると、<B>観光</B>することができます。
</P>
<TABLE BORDER>
<TR>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}順位${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}島${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}人口${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}貢献${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}面積${H2::_tagTH}</NOBR></TH>
$mStr1
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}食料${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}農場規模${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}工場規模${H2::_tagTH}</NOBR></TH>
<TH $H2::bgTitleCell align=center nowrap=nowrap><NOBR>${H2::tagTH_}採掘場規模${H2::_tagTH}</NOBR></TH>
</TR>
END

    my($island, $j, $farm, $factory, $mountain, $name, $id, $prize, $contribution, $ii, $jj);
    for($ii = 0; $ii < $H2::islandNumber; $ii++) {
	$j = $ii + 1;
	$island = $H2::islands[$ii];

	$id = $island->{'id'};
	$farm = $island->{'farm'};
	$factory = $island->{'factory'};
	$mountain = $island->{'mountain'};
	$farm = ($farm == 0) ? "保有せず" : "${farm}0$H2::unitPop";
	$factory = ($factory == 0) ? "保有せず" : "${factory}0$H2::unitPop";
	$mountain = ($mountain == 0) ? "保有せず" : "${mountain}0$H2::unitPop";
	$contribution = int($island->{'ext'}[1] / 10); # 貢献度
	if($island->{'absent'}  == 0) {
	    $name = "${H2::tagName_}$island->{'name'}島${H2::_tagName}";
	} else {
	    $name = "${H2::tagName2_}$island->{'name'}島($island->{'absent'})${H2::_tagName2}";
	}

	$prize = $island->{'prize'};
	my($flags, $monsters, $turns);
	$prize =~ /([0-9]*),([0-9]*),(.*)/;
	$flags = $1;
	$monsters= $2;
	$turns = $3;
	$prize = '';

	# ターン杯の表示
	while($turns =~ s/([0-9]*),//) {
	    $prize .= "<IMG SRC=\"prize0.gif\" ALT=\"$1${H2::prize[0]->{'name'}}\" WIDTH=16 HEIGHT=16> ";
	}

	# 名前に賞の文字を追加
	my($f) = 1;
	my($i);
	for($i = 1; $i < $H2::prizeNumber; $i++) {
	    if($flags & $f) {
		$prize .= "<IMG SRC=\"prize${i}.gif\" ALT=\"${H2::prize[$i]->{'name'}}\" WIDTH=16 HEIGHT=16> ";
	    }
	    $f *= 2;
	}

	# 倒した怪獣リスト
	$f = 1;
	my($max) = -1;
	my($mNameList) = '';
	for($i = 0; $i < $H2::monsterNumber; $i++) {
	    if($monsters & $f) {
		$mNameList .= "[$H2::monsterName[$i]] ";
		$max = $i;
	    }
	    $f *= 2;
	}
	if($max != -1) {
	    $prize .= "<IMG SRC=\"${H2::monsterImage[$max]}\" ALT=\"$mNameList\" WIDTH=16 HEIGHT=16> ";
	}

	my($mStr1) = '';
	if($H2::hideMoneyMode == 1) {
	    $mStr1 = "<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$island->{'money'}$H2::unitMoney</NOBR></TD>";
	} elsif($H2::hideMoneyMode == 2) {
	    my($mTmp) = aboutMoney($island->{'money'});
	    $mStr1 = "<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$mTmp</NOBR></TD>";
	}

	out(<<END);
<TR>
<TD $H2::bgNumberCell ROWSPAN=2 align=center nowrap=nowrap><NOBR>${H2::tagNumber_}$j${H2::_tagNumber}</NOBR></TD>
<TD $H2::bgNameCell ROWSPAN=2 align=left nowrap=nowrap>
<NOBR>
<A STYlE=\"text-decoration:none\" HREF="${H2::thisFile}?Sight=${id}">
$name
</A>
</NOBR><BR>
$prize
</TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap>
<NOBR>$island->{'pop'}$H2::unitPop</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$contribution</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$island->{'area'}$H2::unitArea</NOBR></TD>
$mStr1
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$island->{'food'}$H2::unitFood</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$farm</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$factory</NOBR></TD>
<TD $H2::bgInfoCell align=right nowrap=nowrap><NOBR>$mountain</NOBR></TD>
</TR>
<TR>
<TD $H2::bgCommentCell COLSPAN=8 align=left nowrap=nowrap><NOBR>${H2::tagTH_}コメント：${H2::_tagTH}$island->{'comment'}</NOBR></TD>
</TR>
END
    }

    out(<<END);
</TABLE>

<HR>
<H1>${H2::tagHeader_}新しい島を探す${H2::_tagHeader}</H1>
END

    if($H2::islandNumber < $H2::maxIsland) {
	out(<<END);
<FORM action="$H2::thisFile" method="POST">
END
	if ($H2::campSelectRule == 2) {
	    out(<<END);
陣営名を選択して下さい<BR>
<SELECT NAME="CAMPID">
$H2::campList
</SELECT><BR>
END
	}
	out(<<END);
どんな名前をつける予定？<BR>
<INPUT TYPE="text" NAME="ISLANDNAME" SIZE=32 MAXLENGTH=32>島<BR>
パスワードは？<BR>
<INPUT TYPE="password" NAME="PASSWORD" SIZE=32 MAXLENGTH=32><BR>
念のためパスワードをもう一回<BR>
<INPUT TYPE="password" NAME="PASSWORD2" SIZE=32 MAXLENGTH=32><BR>

<INPUT TYPE="submit" VALUE="探しに行く" NAME="NewIslandButton">
</FORM>
END
    } else {
	out(<<END);
        島の数が最大数です・・・現在登録できません。
END
    }

    out(<<END);
<HR>
<H1>${H2::tagHeader_}島の名前とパスワードの変更${H2::_tagHeader}</H1>
<P>
(注意)名前の変更には$H2::costChangeName${H2::unitMoney}かかります。
</P>
<FORM action="$H2::thisFile" method="POST">
どの島ですか？<BR>
<SELECT NAME="ISLANDID">
$H2::islandList
</SELECT>
<BR>
どんな名前に変えますか？(変更する場合のみ)<BR>
<INPUT TYPE="text" NAME="ISLANDNAME" SIZE=32 MAXLENGTH=32>島<BR>
パスワードは？(必須)<BR>
<INPUT TYPE="password" NAME="OLDPASS" SIZE=32 MAXLENGTH=32><BR>
新しいパスワードは？(変更する時のみ)<BR>
<INPUT TYPE="password" NAME="PASSWORD" SIZE=32 MAXLENGTH=32><BR>
念のためパスワードをもう一回(変更する時のみ)<BR>
<INPUT TYPE="password" NAME="PASSWORD2" SIZE=32 MAXLENGTH=32><BR>

<INPUT TYPE="submit" VALUE="変更する" NAME="ChangeInfoButton">
</FORM>

<HR>

<H1>${H2::tagHeader_}最近の出来事${H2::_tagHeader}</H1>
END
    logPrintTop();
    out(<<END);
<H1>${H2::tagHeader_}発見の記録${H2::_tagHeader}</H1>
END
    historyPrint();
}

# トップページ用ログ表示
sub logPrintTop {
    my($i);
    for($i = 0; $i < $H2::topLogTurn; $i++) {
	logFilePrint($i, 0, 0);
    }
}

# 記録ファイル表示
sub historyPrint {
    open(HIN, "${H2::dirName}/hakojima.his");
    my(@line, $l);
    while($l = <HIN>) {
	chomp($l);
	push(@line, $l);
    }
    @line = reverse(@line);

    foreach $l (@line) {
	$l =~ /^([0-9]*),(.*)$/;
	out("<NOBR>${H2::tagNumber_}ターン${1}${H2::_tagNumber}：${2}</NOBR><BR>\n");
    }
    close(HIN);
}

1;