罪罰/称号レベルのバックアップ(No.1)

# 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"."   ... (省略) ...   ";

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

罪罰/称号レベル のバックアップ(No.1)