罪と罰++二律背反

  • # 国データ書き込み
    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の蓄米
    

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