罪罰改造掲示板/64

# 国データ書き込み
sub cdat_write{
	$cdat = "cshu1;$cshu[1],cshu_rank1;$cshu_rank[1],cgen1;$cgen[1],cshu2;$cshu[2],cshu_rank2;$cshu_rank[2],cgen2;$cgen[2],cshu3;$cshu[3],cshu_rank3;$cshu_rank[3],cgen3;$cgen[3],cshu4;$cshu[4],cshu_rank4;$cshu_rank[4],cgen4;$cgen[4],cshu5;$cshu[5],cshu_rank5;$cshu_rank[5],cgen5;$cgen[5],cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
	$cdat = "horyo1;$horyo[1],horyo2;$horyo[2],horyo3;$horyo[3],horyo4;$horyo[4],horyo5;$horyo[5],cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,cn6;$cn6,cg6;$cg6,cf6;$cf6,cs6;$cs6,ce6;$ce6,c6;$c6,c6a;$c6a,set;$set,all_mem;$all_mem,goal_no;$goal_no,asya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";

# 国データ書き込み
sub cdat_write{
   $cdat ="cshu1;$cshu[1],cshu_rank1;$cshu_rank[1],cgen1;$cgen[1],cshu2;$cshu[2],cshu_rank2;$cshu_rank[2]";
   $cdat.=",horyo1;$horyo[1],horyo2;$horyo[2],horyo3;$horyo[3],horyo4;$horyo[4],horyo5;$horyo[5]";
   $cdat.=",cgen2;$cgen[2],cshu3;$cshu[3],cshu_rank3;$cshu_rank[3],cgen3;$cgen[3],cshu4;$cshu[4],cshu_rank4;$cshu_rank[4]";
   $cdat.=",cgen4;$cgen[4],cshu5;$cshu[5],cshu_rank5;$cshu_rank[5]";
   $cdat.=",cgen5;$cgen[5],cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a";
   $cdat.=",cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a";
   $cdat.=",cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a";
   $cdat.=",cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a";
   $cdat.=",cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a";
   $cdat.=",set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";