罪罰/自国情報の表示の変更点

追加された行はこの色です。
削除された行はこの色です。
罪罰/自国情報の表示へ行く。
[[罪罰改造]]

*自国情報表示 ./inc/ore_sub-base_pc-pi.cgi [#ke3083c0]
 
 <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>

*携帯の自国表示 ./inc/ore_sub-base_mv.cgi [#d63f978e]
 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);
 #------------------------------------------------------
 
 }
罪罰/自国情報の表示 の変更点
