罪罰/称号

• # 称号の取得部分
  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");