sanjeok77
151 lines
4.3 KiB
Perl
151 lines
4.3 KiB
Perl
#-----------------------------------------------------------#
|
|
# 罪と罰++ 二律背反 #
|
|
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
|
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
|
# BLANK BOARD [ http://pom.to/ ] #
|
|
#-----------------------------------------------------------#
|
|
# 表示 PC用パーツ1 Version 1.0 #
|
|
#--- [注意事項] --------------------------------------------#
|
|
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
|
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
|
#-----------------------------------------------------------#
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# 通常表示用
|
|
sub layout_flag_0{
|
|
print <<EOM;
|
|
<table width="740" border="0" cellspacing="0" cellpadding="0">
|
|
<tr>
|
|
<td align="left" valign="top" width="540">
|
|
EOM
|
|
|
|
if($log){
|
|
print <<"EOM";
|
|
<table width="100%" border="0" cellspacing="4" cellpadding="10" height="100" bgcolor="#444466">
|
|
<tr>
|
|
<td bgcolor="#000000" align="left" valign="top">
|
|
<tt class="moji1">
|
|
$log
|
|
</tt>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<br>
|
|
EOM
|
|
}
|
|
|
|
my @metu=('','(亡)');
|
|
my $reset_time_out = int(($set-$time)/(3600*24));
|
|
print <<"EOM";
|
|
<table width="100%" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
|
|
<tr>
|
|
<td bgcolor="#000000" align="center">
|
|
<tt class="moji1">
|
|
$bmes
|
|
</tt>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<br>
|
|
|
|
<table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#444466">
|
|
<tr>
|
|
<td bgcolor="#000000" align="left" valign="top">
|
|
<!-- $rstで作っていた表示 -->
|
|
<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
|
|
<tr>
|
|
<td bgcolor=#CCCCFF width=72> </td>
|
|
<td bgcolor=$color[1] align=center width=92>$cmp[1]$metu[$ce1]</td>
|
|
<td bgcolor=$color[2] align=center width=92>$cmp[2]$metu[$ce2]</td>
|
|
<td bgcolor=$color[3] align=center width=92>$cmp[3]$metu[$ce3]</td>
|
|
<td bgcolor=$color[4] align=center width=92>$cmp[4]$metu[$ce4]</td>
|
|
<td bgcolor=$color[5] align=center width=92>$cmp[5]$metu[$ce5]</td>
|
|
</tr>
|
|
<tr>
|
|
<td bgcolor=#CCCCFF>総国力</td>
|
|
<td bgcolor=$color[1] align=center>$cn1</td>
|
|
<td bgcolor=$color[2] align=center>$cn2</td>
|
|
<td bgcolor=$color[3] align=center>$cn3</td>
|
|
<td bgcolor=$color[4] align=center>$cn4</td>
|
|
<td bgcolor=$color[5] align=center>$cn5</td>
|
|
</tr>
|
|
<tr>
|
|
<td bgcolor=#CCCCFF>国家\予\算</td>
|
|
<td bgcolor=$color[1] align=center>$cg1</td>
|
|
<td bgcolor=$color[2] align=center>$cg2</td>
|
|
<td bgcolor=$color[3] align=center>$cg3</td>
|
|
<td bgcolor=$color[4] align=center>$cg4</td>
|
|
<td bgcolor=$color[5] align=center>$cg5</td>
|
|
</tr>
|
|
<tr>
|
|
<td bgcolor=#CCCCFF>総兵糧</td>
|
|
<td bgcolor=$color[1] align=center>$cf1</td>
|
|
<td bgcolor=$color[2] align=center>$cf2</td>
|
|
<td bgcolor=$color[3] align=center>$cf3</td>
|
|
<td bgcolor=$color[4] align=center>$cf4</td>
|
|
<td bgcolor=$color[5] align=center>$cf5</td>
|
|
</tr>
|
|
<tr><td bgcolor=#CCCCFF>総兵士数</td>
|
|
<td bgcolor=$color[1] align=center>$cs1</td>
|
|
<td bgcolor=$color[2] align=center>$cs2</td>
|
|
<td bgcolor=$color[3] align=center>$cs3</td>
|
|
<td bgcolor=$color[4] align=center>$cs4</td>
|
|
<td bgcolor=$color[5] align=center>$cs5</td>
|
|
</tr>
|
|
<tr>
|
|
<td bgcolor=#CCCCFF>所属人数</td>
|
|
<td bgcolor=$color[1] align=center>$c1/$c1a</td>
|
|
<td bgcolor=$color[2] align=center>$c2/$c2a</td>
|
|
<td bgcolor=$color[3] align=center>$c3/$c3a</td>
|
|
<td bgcolor=$color[4] align=center>$c4/$c4a</td>
|
|
<td bgcolor=$color[5] align=center>$c5/$c5a</td>
|
|
</tr>
|
|
</table>
|
|
<!-- ここまで -->
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
</td>
|
|
<td align="right" valign="top" width="190">
|
|
|
|
<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466" height="140">
|
|
<tr>
|
|
<td bgcolor="#000000" align="left" valign="top" class="moji2">
|
|
<div align="center">- System Infomation -</div>
|
|
<hr size="2" noshade color="#9999bb" width="100%">
|
|
第 $goal_no 期<br>
|
|
統一期限まで 後 $reset_time_out日
|
|
</div>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<br>
|
|
|
|
<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
|
|
<tr>
|
|
<td bgcolor="#000000" align="left" valign="top" class="moji2">
|
|
参加総数: $all_mem名 / $sanka人定員<br>
|
|
統一国力: $data_reset 難易度: $reset_point
|
|
<hr size="2" noshade color="#9999bb"width=160>
|
|
前回の覇者: $hasya [$cmp[$hcamp]]
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
EOM
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;
|