罪罰称号レベル

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

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

# sub dat_write 
# 称号レベルを保存
# $dat_sogo_lv を保存すること

if($sogo!=$sogo3){ $sogo_lv[$sogo]++; $sogo3=$sogo; }
$dat_sogo_lv = "sogo3;$sogo3,";
foreach(0..$#sogo_p){
  $dat_sogo_lv.="sglv$_;$sogo_lv[$_]," if($sogo_lv[$_]);
}

$dat[0] = "$dat_sogo_lv"."   ... (省略) ...   ";

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