罪と罰++二律背反

  • # 称号の取得部分
    sub get_sogo(){       
        # $sogo3=$sogo2;   # 3つめの称号
        $sogo2=$sogo;
        $sogo = @_[0];    
    
        # 称号取得時の効果
        # たとえば、3回連続 覇者なら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'};   # 3つめの称号
# 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");

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