罪罰/称号レベル

# sub hash_data
# 称号レベル読み込み

$sogo = $DAT{'sogo'};
foreach(0..$#sogo_p){
  $sogo_lv[$_]=$DAT{"sglv$_"};
}

# sub dat_write 
# 称号レベルを保存
# $dat_sogo_lv を保存すること
foreach(0..$#sogo_p){
  $dat_sogo_lv.="sglv$_;$sogo_lv[$_]," if($sogo_lv[$_]);
}

• $dat[0] = "$dat_sogo_lv"."la;$time,nm;$nm,   ... (省略) ...  ,info_mes;$info_mes,\n";

# 称号表示
称　号 [<b>$sogo_p[$sogo]</b> lv.$sogo_lv[$sogo] ]