罪罰改造板２/108

• sub get_sogo(){       
    if($sogo!=3){     # 借金王(3)のときは称号をスライドさせない
      $sogo3=$sogo2;
      $sogo2=$sogo;
    }
    $sogo = @_[0];    
  }

sub get_sogo(){       
  if($sogo!=3){
    $sogo3=$sogo2;
    $sogo2=$sogo;
    $sogo = @_[0];    

    # sogo 3の時にsogo2以降をスライドさせる場合
    # }else{
    #   $sogo3=$sogo2;
    #   $sogo2=@_[0];
  }
}

# 返済時に称号なしを設定（&get_sogo(0);の替わりに$sogo=0;）
$sogo=0;