罪と罰++二律背反
罪罰/管理画面/外交
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰外交]]
-罪罰外交で追加された国のパラメータ(友好度と対外関係)を...
**書き換えフォーム [#nc4135c8]
<td width="72">国名</td>
EOM
@cfs_str=('−','交戦','同盟');
for($v1=1;$v1<6;++$v1){
$temp.=qq|<tr>|;
for($v2=1;$v2<6;++$v2){
$temp.=qq|<td>$cmp[$v1]</td>| if($v2==1);
if($v1<$v2){
$sel0="";$sel1="";$sel2="";
$sel0="selected" if($cfs[$v1.$v2]==0);
$sel1="selected" if($cfs[$v1.$v2]==1);
$sel2="selected" if($cfs[$v1.$v2]==2);
$temp.=qq|<td><select name="cfs$v1$v2">\...
$temp.=qq|<option value="0" $sel0 >$cfs_...
$temp.=qq|<option value="1" $sel1 >$cfs_...
$temp.=qq|<option value="2" $sel2 >$cfs_...
$temp.=qq|</select></td>\n|;
}
$temp .= qq|<td style="background-color:black;">...
$temp .= qq|<td><input size=8 type=text name="cf...
}
$temp.=qq|</tr>|;
}
-下のほうに$tempを追加
<td align=center>$c5/<input type="text" name="c5a" value...
</tr>
$temp
</table>
統一期限:あと<input type="text" name="set" value="$set" ...
**値のポスト [#d156fa37]
$goal_no=$in{'goal_no'};
$set=$in{'set'}+$time;
# ----------------------------------------- ここ...
for($v1=1;$v1<6;++$v1){
for($v2=1;$v2<6;++$v2){
$cfs[$v1.$v2]=$in{"cfs".$v1.$v2};
}}
# ----------------------------------------- ここ...
&cdat_write;
**書き換え結果表示 [#sdd3c3b3]
<td width="72">国名</td>
EOM
# ----------------------------------------- ここから
$cfs_str=('−','交戦','同盟');
for($v1=1;$v1<6;++$v1){
$temp.=qq|<tr>|;
for($v2=1;$v2<6;++$v2){
$temp.=qq|<td>$cmp[$v1]</td>| if($v2==1);
if($v1<$v2){
$temp.=qq|<td>$cfs_str[$cfs[$v1.$v2]]</t...
}
$temp .= qq|<td style="background-color:black;">...
$temp .= qq|<td>$cfs[$v1.$v2]</td>| if($v1>$v2);
}
$temp.=qq|</tr>|;
}
# ----------------------------------------- ここまで
foreach(1 .. 5){
print qq|<td align="center" width="92">$...
}
print <<EOM;
-ここに$tempを追加
<td align=center>$c4/$in{'c4a'}</td>
<td align=center>$c5/$in{'c5a'}</td>
</tr>
$temp # ここに追加
</table>
統一期限:あと $in{'set'} 秒
終了行:
[[罪罰外交]]
-罪罰外交で追加された国のパラメータ(友好度と対外関係)を...
**書き換えフォーム [#nc4135c8]
<td width="72">国名</td>
EOM
@cfs_str=('−','交戦','同盟');
for($v1=1;$v1<6;++$v1){
$temp.=qq|<tr>|;
for($v2=1;$v2<6;++$v2){
$temp.=qq|<td>$cmp[$v1]</td>| if($v2==1);
if($v1<$v2){
$sel0="";$sel1="";$sel2="";
$sel0="selected" if($cfs[$v1.$v2]==0);
$sel1="selected" if($cfs[$v1.$v2]==1);
$sel2="selected" if($cfs[$v1.$v2]==2);
$temp.=qq|<td><select name="cfs$v1$v2">\...
$temp.=qq|<option value="0" $sel0 >$cfs_...
$temp.=qq|<option value="1" $sel1 >$cfs_...
$temp.=qq|<option value="2" $sel2 >$cfs_...
$temp.=qq|</select></td>\n|;
}
$temp .= qq|<td style="background-color:black;">...
$temp .= qq|<td><input size=8 type=text name="cf...
}
$temp.=qq|</tr>|;
}
-下のほうに$tempを追加
<td align=center>$c5/<input type="text" name="c5a" value...
</tr>
$temp
</table>
統一期限:あと<input type="text" name="set" value="$set" ...
**値のポスト [#d156fa37]
$goal_no=$in{'goal_no'};
$set=$in{'set'}+$time;
# ----------------------------------------- ここ...
for($v1=1;$v1<6;++$v1){
for($v2=1;$v2<6;++$v2){
$cfs[$v1.$v2]=$in{"cfs".$v1.$v2};
}}
# ----------------------------------------- ここ...
&cdat_write;
**書き換え結果表示 [#sdd3c3b3]
<td width="72">国名</td>
EOM
# ----------------------------------------- ここから
$cfs_str=('−','交戦','同盟');
for($v1=1;$v1<6;++$v1){
$temp.=qq|<tr>|;
for($v2=1;$v2<6;++$v2){
$temp.=qq|<td>$cmp[$v1]</td>| if($v2==1);
if($v1<$v2){
$temp.=qq|<td>$cfs_str[$cfs[$v1.$v2]]</t...
}
$temp .= qq|<td style="background-color:black;">...
$temp .= qq|<td>$cfs[$v1.$v2]</td>| if($v1>$v2);
}
$temp.=qq|</tr>|;
}
# ----------------------------------------- ここまで
foreach(1 .. 5){
print qq|<td align="center" width="92">$...
}
print <<EOM;
-ここに$tempを追加
<td align=center>$c4/$in{'c4a'}</td>
<td align=center>$c5/$in{'c5a'}</td>
</tr>
$temp # ここに追加
</table>
統一期限:あと $in{'set'} 秒
ページ名: