罪罰/管理画面/外交

<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>|;
}

• <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">秒

        $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;

	    
<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;

• <td align=center>$c4/$in{'c4a'}</td>
  <td align=center>$c5/$in{'c5a'}</td>
  </tr>
  $temp    # ここに追加
  </table>
  
  統一期限:あと $in{'set'} 秒