罪罰改造掲示板/75

# 国データ書き込み
sub cdat_write{
# 友好度
$cfs_temp = "";
for ($self=1;$self<6;$self++){
for ($other=1;$other<6;$other++){
	    $cfs_temp .= "cfs$self$other;$cfs[$self.$other],";
}}

$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1, ..(省略).. ,tya7;$tya7,tya8;$tya8,\n";
$cdat .= "ct1;$ct1,ct2;$ct2,ct3;$ct3,ct4;$ct4,ct5;$ct5,"; # 民統治
$cdat .= "$cfs_temp"; # 友好度

# 国データ書き込み
sub cdat_write{
# 友好度
$cfs_temp = "";
for ($self=1;$self<6;$self++){
for ($other=1;$other<6;$other++){
	    $cfs_temp .= "cfs$self$other;$cfs[$self.$other],";
}}

$cdat  = "ct1;$ct1,ct2;$ct2,ct3;$ct3,ct4;$ct4,ct5;$ct5,"; # 民統治
$cdat .= "$cfs_temp"; # 友好度
$cdat .= "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1, ..(省略).. ,tya7;$tya7,tya8;$tya8,\n";