罪と罰++二律背反 
[[罪罰外交]]

-罪罰外交で追加された国のパラメータ（友好度と対外関係）を管理画面で修正できるようにします

**書き換えフォーム [#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">\n|;
                 $temp.=qq|<option value="0" $sel0 >$cfs_str[0]</option>\n|;
                 $temp.=qq|<option value="1" $sel1 >$cfs_str[1]</option>\n|;
                 $temp.=qq|<option value="2" $sel2 >$cfs_str[2]</option>\n|;
                 $temp.=qq|</select></td>\n|;
         }
         $temp .= qq|<td style="background-color:black;">　</td>| if($v1==$v2);
         $temp .= qq|<td><input size=8 type=text name="cfs$v1$v2" value="$cfs[$v1.$v2]"></td>| if($v1>$v2);
     }
     $temp.=qq|</tr>|;
 }

-下のほうに$tempを追加
 <td align=center>$c5/<input type="text" name="c5a" value="$c5a" style="width:30px"></td>
 </tr>
 $temp
 </table>
 統一期限:あと<input type="text" name="set" value="$set" style="width:60px">秒

**値のポスト [#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]]</td>\n|;
         }
         $temp .= qq|<td style="background-color:black;">　</td>| if($v1==$v2);
         $temp .= qq|<td>$cfs[$v1.$v2]</td>| if($v1>$v2);
     }
     $temp.=qq|</tr>|;
 }
 
 # ----------------------------------------- ここまで
 
         foreach(1 .. 5){
                 print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
         }
         print <<EOM;

-ここに$tempを追加
 <td align=center>$c4/$in{'c4a'}</td>
 <td align=center>$c5/$in{'c5a'}</td>
 </tr>
 $temp    # ここに追加
 </table>
 
 統一期限:あと $in{'set'} 秒
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS