罪と罰++二律背反


# 国データ書き込み
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";


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:27:12 (3028d)