罪と罰++二律背反

  • # キャラデータ書き込み
    sub dat_write{
           &error("open error no such a file!",1) if(!$nm || !$id);
    
           $dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt; 〜見にくいので省略〜 $di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";
    
           $dat[1] = "$date<>$addr<>$host<>$agent<>\n";
           open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
  •       $dat[0] = "la;$time,nm;$nm,hensu;$hensu,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt; 〜見にくいので省略〜 $di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";
  • # ハッシュ割り当て
    sub hash_data{
           $pw             = $DAT{'pw'};           # パスワード
           $gold           = $DAT{'gold'};         # お金
           $nm             = $DAT{'nm'};           # 名前
           $lv             = $DAT{'lv'};           # レベル
           $sei            = $DAT{'sei'};          # 性別
           $hp             = $DAT{'hp'};           # 体力
           $max_hp         = $DAT{'max_hp'};       # 最大体力
  •        $nm             = $DAT{'nm'};           # 名前
           $hensu          = $DAT{'hensu'};        # 新しい変数
           $lv             = $DAT{'lv'};           # レベル

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