罪と罰++二律背反

# 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] ]

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