罪と罰++二律背反
罪罰/自国情報の表示
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰改造]]
*自国情報表示 ./inc/ore_sub-base_pc-pi.cgi [#ke3083c0]
<table width="100%" border="0" cellspacing="4" cellpaddi...
<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="c...
}else{
$cdisp .= qq|<td bgcolor="$color[$camp]" align="c...
}
}
print <<"EOM";
<table width="100%" border="0" cellspacing="1" cellpaddi...
<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% a...
<tr>
<td bgcolor=#CCCCFF width=72> </td>
*携帯の自国表示 ./inc/ore_sub-base_mv.cgi [#d63f978e]
my @metu=('','(亡)');
#------------------------------------------------------
$rst.=<<EOM;
$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1 兵士$cs1 ...
<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\算$cg2 兵...
<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\算$cg3 兵...
<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\算$cg4 兵...
<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\算$cg5 兵...
<hr color=white>
EOM
#------------------------------------------------------
}
↓のように変更
my @metu=('','(亡)');
#------------------------------------------------------
$rst.= qq|$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1...
$rst.=qq|<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\...
$rst.=qq|<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\...
$rst.=qq|<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\...
$rst.=qq|<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\...
$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);
#------------------------------------------------------
}
終了行:
[[罪罰改造]]
*自国情報表示 ./inc/ore_sub-base_pc-pi.cgi [#ke3083c0]
<table width="100%" border="0" cellspacing="4" cellpaddi...
<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="c...
}else{
$cdisp .= qq|<td bgcolor="$color[$camp]" align="c...
}
}
print <<"EOM";
<table width="100%" border="0" cellspacing="1" cellpaddi...
<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% a...
<tr>
<td bgcolor=#CCCCFF width=72> </td>
*携帯の自国表示 ./inc/ore_sub-base_mv.cgi [#d63f978e]
my @metu=('','(亡)');
#------------------------------------------------------
$rst.=<<EOM;
$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1 兵士$cs1 ...
<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\算$cg2 兵...
<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\算$cg3 兵...
<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\算$cg4 兵...
<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\算$cg5 兵...
<hr color=white>
EOM
#------------------------------------------------------
}
↓のように変更
my @metu=('','(亡)');
#------------------------------------------------------
$rst.= qq|$cmp[1]$metu[$ce1] 国力$cn1 予\算$cg1 兵糧$cf1...
$rst.=qq|<hr color=white>$cmp[2]$metu[$ce2] 国力$cn2 予\...
$rst.=qq|<hr color=white>$cmp[3]$metu[$ce3] 国力$cn3 予\...
$rst.=qq|<hr color=white>$cmp[4]$metu[$ce4] 国力$cn4 予\...
$rst.=qq|<hr color=white>$cmp[5]$metu[$ce5] 国力$cn5 予\...
$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);
#------------------------------------------------------
}
ページ名: