罪罰/変数の追加

# キャラデータ書き込み
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'};           # レベル