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

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
罪罰/称号へ行く。
- 1 (2007-09-22 (土) 15:55:19)

# 称号の取得部分
sub get_sogo(){       
    # $sogo3=$sogo2;   # ３つめの称号
    $sogo2=$sogo;
    $sogo = @_[0];    

    # 称号取得時の効果
    # たとえば、３回連続 覇者なら10万G
    # if($sogo==1&&$sogo==$sogo2&&$sogo2==$sogo3){
    #    $gold+=100000;       
    # }

    # 称号レベルアップ
    # $sogo_lv[$sogo]++;
}

↑

# ./inc/ore_sub-system.cgi
# hash_data , dat_write それぞれの $sogo と同じように追加

# sub hash_data{
    $sogo2 = $DAT{'sogo2'};
    # $sogo3 = $DAT{'sogo3'};　　　# ３つめの称号

# sub dat_write{
    sogo2;$sogo2,
    # sogo3;$sogo3,

↑

# $sogo = 2;   # 今までの所をコメントアウト
&get_sogo(2);  # これを追加

↑

$log_last_flag++;
local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);

local($date,$nm,$camp,$com,$sogo,$addr,$host,$sogo2) = split(/<>/);

$nm = qq|$nm <small>[$sogo_p[$sogo]:[$sogo_p[$sogo2]]]</small>| if($sogo);

# ログの書き込み処理
sub regist{
  ... (省略) ...
  # ログ更新処理
  unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$DAT{'sogo2'}<>\n");

↑

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