罪罰/国変数の追加

• # 国データ書き込み
  sub cdat_write{
  
          $cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2, 〜 見にくいので省略 〜 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";
  
          open (OUT,">>$cdatfile") || &error("open error:$cdatfile",1);

•         $cdat = "cn1;$cn1,kuhen;$kuhen,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2, 〜 見にくいので省略 〜 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";

# 国デ−タ読み込み
sub cdata_open{
       open (IN,"$cdatfile") || &error("国デ−タファイルが開けませんでした",1);
       @cdat = <IN>;
       close(IN)    or die "Can't close   : $!";

       # 50行超えてたら最終行を残してリセット
       if($#cdat >= 50){
               open (IO,">$cdatfile");
               print IO $cdat[$#cdat];
               close (IO);
       }

       %CP = '';
       my @prats = split(/,/,$cdat[$#cdat]);
       foreach $prats (@prats){
               my($k,$v) = split(/;/,$prats);
               $CP{$k} = $v;
       }

       $cn1=$CP{'cn1'};  # 国1の国力
       $cg1=$CP{'cg1'};  # 国1の財政
       $cf1=$CP{'cf1'};  # 国1の蓄米
       $cs1=$CP{'cs1'};  # 国1の予備兵
       $ce1=$CP{'ce1'};  # 国1の現状
       $c1     =$CP{'c1'};     # 国1の参加人数
       $c1a=$CP{'c1a'};# 国1の定員数

•        $kuhen=$CP{'kuhen'};  # 新しい変数
         $cn1=$CP{'cn1'};  # 国1の国力
         $cg1=$CP{'cg1'};  # 国1の財政
         $cf1=$CP{'cf1'};  # 国1の蓄米