罪罰/自国情報の表示

<table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#444466">
<tr>
<td bgcolor="#000000" align="left" valign="top">
<!-- $rstで作っていた表示 -->

#-------------------------------------------------ここから追加
EOM

if($camp){
   # 国データ
   @cdata = (
       [],
       [0,$cn1,$cg1,$cf1,$cs1,$ct1],
       [0,$cn2,$cg2,$cf2,$cs2,$ct2],
       [0,$cn3,$cg3,$cf3,$cs3,$ct3],
       [0,$cn4,$cg4,$cf4,$cs4,$ct4],
       [0,$cn5,$cg5,$cf5,$cs5,$ct5],
   );
   foreach(2..5){
     if($_==6){
       $cdisp .= qq|<td bgcolor="$color[$camp]" align="center">$cdata[$camp][$_]/$cdata[$camp][$_+1]</td>|;
     }else{
       $cdisp .= qq|<td bgcolor="$color[$camp]" align="center">$cdata[$camp][$_]</td>|;
     }
   }

  print <<"EOM";
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#444466">
<tr>
<td bgcolor=#CCCCFF align=center>総国力</td>
<td bgcolor=#CCCCFF align=center>国家予算</td>
<td bgcolor=#CCCCFF align=center>総兵糧</td>
<td bgcolor=#CCCCFF align=center>総兵士数</td>
</tr><tr>
$cdisp
</tr></table>
EOM
}

print <<"EOM";
#-------------------------------------------------ここまで追加

<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
<tr>
<td bgcolor=#CCCCFF width=72>&nbsp;</td>

my @metu=('','(亡)');

#------------------------------------------------------
$rst.=<<EOM;
$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1 兵士$cs1 人数$c1/$c1a
<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\算$cg2 兵糧$cf2 兵士$cs2 人数$c2/$c2a
<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\算$cg3 兵糧$cf3 兵士$cs3 人数$c3/$c3a
<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\算$cg4 兵糧$cf4 兵士$cs4 人数$c4/$c4a
<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\算$cg5 兵糧$cf5 兵士$cs5 人数$c5/$c5a
<hr color=white>
EOM
#------------------------------------------------------

}

my @metu=('','(亡)');

#------------------------------------------------------
$rst.= qq|$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1 兵士$cs1 人数$c1/$c1a| if($camp==1);
$rst.=qq|<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\算$cg2 兵糧$cf2 兵士$cs2 人数$c2/$c2a| if($camp==2);
$rst.=qq|<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\算$cg3 兵糧$cf3 兵士$cs3 人数$c3/$c3a| if($camp==3);
$rst.=qq|<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\算$cg4 兵糧$cf4 兵士$cs4 人数$c4/$c4a| if($camp==4);
$rst.=qq|<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\算$cg5 兵糧$cf5 兵士$cs5 人数$c5/$c5a| if($camp==5);
$rst .= qq|<hr color=white>|;

$rst.=qq|$cmp[1]$metu[$ce1] 国力$cn1 | if($camp!=1);
$rst.=qq|$cmp[2]$metu[$ce2] 国力$cn2 | if($camp!=2);
$rst.=qq|$cmp[3]$metu[$ce3] 国力$cn3 | if($camp!=3);
$rst.=qq|$cmp[4]$metu[$ce4] 国力$cn4 | if($camp!=4);
$rst.=qq|$cmp[5]$metu[$ce5] 国力$cn5 | if($camp!=5);
#------------------------------------------------------

}