--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Spirit.lua	Tue Dec 15 08:07:21 2015 -0500
@@ -0,0 +1,276 @@
+-- User: Krakyn
+-- Created: 12/8/2015 7:30 PM
+local T = LibStub("AceAddon-3.0"):GetAddon("Turok")
+local TL = 'Spirit'
+local print = function(...) _G.print(TL, ...) end
+local LSM = LibStub("LibSharedMedia-3.0")
+local mod = T:NewModule("Spirit", "AceTimer-3.0")
+local time = _G.ct
+local auras = {
+  168811, -- sniper training
+  168809, -- sniper training: recently moved
+  13159,           -- aspect of the pack,
+  187615, -- Maalus
+}
+local spells = {
+  3045, -- rapid fire,
+  26297, -- berserking,
+  121818, -- stampede,
+
+}
+local FRAME_PREFIX = 'TkSpirit'
+local FADE_TIME = 0.5
+-- local repetitive tasks
+local function FindSpirit(id)
+  local db = T.db
+  local c = db.spirit
+  local isIcon = false
+  if db.spirit.progressbar[id] then
+    c = db.spirit.progressbar[id]
+  elseif db.spirit.icon[id] then
+    c = db.spirit.icon[id]
+    isIcon = true
+  end
+  local name, rank, icon, castingTime, minRange, maxRange, spellID = GetSpellInfo(id)
+  local s = {
+    name = name,
+    rank = rank,
+    icon = icon,
+    castingTime = castingTime,
+    minRange = minRange,
+    maxRange = maxRange,
+    spellID = spellID
+  }
+
+  return s, c, isIcon
+end
+
+function mod:OnEnable()
+  local db = _G.TurokData
+  self.aura_watch = {}
+  self.cooldown_watch = {}
+  self.item_watch = {}
+  self.myGUID = UnitGUID('player')
+
+
+  db.spirit = {
+    foreground_color = {1, 1, 1, 0.7},
+    foreground_texture = 'Cilo',
+    foreground_blend = 'BLEND',
+    foreground_inset = -1,
+    background_color = {0, 0, 0, 0.7},
+    background_blend = 'BLEND',
+    background_texture = 'Cilo',
+    icon_show = true,
+    width = 250, height = 20,
+    anchor = 'CENTER', parent = 'UIParent', anchorTo = 'CENTER',
+    posX = 0, posY = -150,
+    label_color = {1, 1, 1, 1},
+    label_font = 'turok',
+    label_size = 14,
+    label_inset = -2,
+    label_point = 'LEFT',
+    label_outline = 'OUTLINE',
+    label_string = '%n %p',
+    label_strata = 'HIGH',
+    expire_sound = LSM:Fetch('sound'),
+    strata = 'LOW',
+    icon = {
+      [13159] = {  -- Aspect of the Pack
+        posX = 20, posY = 20, width = 140, height = 140,
+      },
+      [3045] = {
+        parent = 13159, anchor = 'RIGHT', anchorTo = 'LEFT',
+        posx = 0, posY = 0, width = 64, height = 64,
+      }
+    },
+    progressbar = {
+      [168811] = { -- Sniper Training (duration)
+        background_color = {0,0,0,0},
+        foreground_color = {1,0,0,1},
+        anchor = 'BOTTOMLEFT', parent = 'TkFocusBar', anchorTo = 'TOPLEFT',
+        posX = 0, posY = 0, height = 16, width = 250,
+        label_string = '',
+        label_point = 'TOPLEFT',
+        strata = 'LOW',
+        attach = {{
+          width_relative = 0.5,
+          height_relative = 1,
+          background_color = {1,0,0,1},
+          foreground_color = {1,1,0.5, 1},
+          background_blend = 'ADD',
+          foreground_blend = 'ADD',
+
+          anchor = 'LEFT',
+          anchorTo = 'LEFT',
+          strata = 'MEDIUM',
+        }}
+      },
+      [168809] = { -- Sniper Training: Recently Moved
+        background_color = {0,0,0,0 },
+        foreground_color = {1,1,1,1},
+        foreground_blend = 'ADD',
+        anchor = 'BOTTOMLEFT', parent = 'TkFocusBar', anchorTo = 'TOPLEFT',
+        strata = 'HIGH',
+        posX = 0, posY = 0, height = 16, width = 125,
+        icon_show = false,
+        label_string = '',
+        exceptions = {
+          function(aura)
+            return (mod.aura_watch[168811].expires < aura.expires)
+          end
+        },
+      },
+    },
+  }
+
+  for _, id in pairs(auras) do
+    -- store spellinfo fetch
+    self.aura_watch[id] = self:CreateSpiritFrame(id)
+    self.aura_watch[id].count = 0
+    self.aura_watch[id].duration = 0
+    self.aura_watch[id].expires = 0
+    self.aura_watch[id].caster = 0
+    print('AURA', id, self.aura_watch[id].name)
+  end
+
+  for _, id in ipairs(spells) do
+    self.cooldown_watch[id] = self:CreateSpiritFrame(id)
+    print('COOLDOWN', id, self.cooldown_watch[id].name)
+  end
+
+  self:SpiritScan()
+  self:RegisterEvent('UNIT_AURA')
+  self:RegisterEvent('COMBAT_LOG_EVENT_UNFILTERED')
+  self:RegisterEvent('PLAYER_REGEN_DISABLED')
+  self:RegisterEvent('PLAYER_REGEN_ENABLED')
+end
+
+-- StatusBar factory
+function mod:CreateSpiritFrame(id)
+  local s, c, isIcon = FindSpirit(id)
+
+  -- how much frame do we need?
+  local f
+  if isIcon then
+    f = CreateFrame('Frame', FRAME_PREFIX..id, UIParent)
+    f.db = c
+    function f:Update() end
+  else
+    f = T:CreateBar('TkAuraBar'..id, c)
+    f.isTimer = true
+    if (c.label_string ~= '') then
+      print('has label, add it', id)
+      T:AddLabel(f, c)
+      end
+  end
+  f:Hide()
+
+  -- general display
+  f:SetPoint(c.anchor, c.parent, c.anchorTo, c.posX, c.posY)
+  f:SetSize(c.width, c.height)
+  f:SetFrameStrata(c.strata)
+
+  -- icon?
+  f.icon = s.icon
+  T:CreateStatusIcon(f)
+
+  -- attachment frames?
+  if c.attach then
+    for i, e in ipairs(c.attach) do
+      local ef = CreateFrame('Frame', 'TkExtra'..id, f)
+      f[i] = ef
+      ef:SetPoint(e.anchor, f, e.anchorTo)
+      ef:SetSize(c.width * e.width_relative or e.width, c.height * e.height_relative or e.height)
+      ef:SetFrameStrata(e.strata or c.strata)
+      T:CreateStatusTextures(ef, e)
+    end
+  end
+
+  -- setup suppression checking
+  if c.exceptions then
+    function s:ExceptionCheck ()
+      for i, func in ipairs(c.exceptions) do
+        if not func(self) then
+          return false, i
+        end
+      end
+      return true
+    end
+  else
+    function s:ExceptionCheck () return true end
+  end
+
+  -- access linkage
+  f.format = c.label_string
+  f.spirit = s
+  f.name = s.name
+  s.frame = f
+  return s
+end
+
+function mod:UNIT_AURA(e, unit)
+  if unit == 'player' then
+    self:SpiritScan()
+  end
+end
+
+-- Updates aura watches
+function mod:SpiritScan()
+  local db = _G.TurokData
+  for id, aura in pairs(self.aura_watch) do
+    local c = aura.conf
+    local f = aura.frame
+
+    local name, _, _, count, _, duration, expires, caster = UnitAura('player', aura.name)
+
+    if name then
+      aura.duration = duration
+      aura.expires = expires
+      aura.caster = caster
+      aura.count = count
+      local test, i = aura:ExceptionCheck()
+      print(name, duration, expires)
+      if not test then
+        print('suppressing '..aura.name..' (failed test #'..i..')')
+      else
+        f.name = name
+        f:Update(nil, duration, expires)
+        f:Show()
+      end
+    end
+  end
+end
+
+function mod:PLAYER_REGEN_ENABLED()
+  for id, aura in pairs(self.aura_watch) do
+    print('non-combat alpha for #', id, aura.name, 'is', aura.frame.db.alpha_ooc)
+    aura.frame.fadeTo = aura.frame.db.alpha_ooc
+    aura.frame.fadeDuration = FADE_TIME
+  end
+end
+
+function mod:PLAYER_REGEN_DISABLED()
+  for id, aura in pairs(self.aura_watch) do
+    print('combat alpha for #', id, aura.name, 'is', aura.frame.db.alpha)
+    aura.frame.fadeTo = aura.frame.db.alpha
+    aura.frame.fadeDuration = FADE_TIME
+  end
+end
+
+-- This is the most reliable way of catching item and spell uses, other events are delayed or too vague to be useful
+function mod:COMBAT_LOG_EVENT_UNFILTERED(e, ...)
+  local timestamp, combatEvent, hideCaster, sourceGUID, sourceName, sourceFlags, sourceRaidFlags, destGUID, destName, destFlags, destRaidFlags =
+  ...; -- Those arguments appear for all combat event variants.
+  local eventPrefix, eventSuffix = combatEvent:match("^(.-)_?([^_]*)$");
+  if eventPrefix ~= 'SPELL_' or sourceGUID ~= self.myGUID then
+    return
+  end
+
+  local spellid, name, count, type = select(13, select('#', ...), ...)
+  local kc = ''
+  for i=1,4 do
+    kc = kc .. string.format('%X',((string.byte(eventSuffix,i) % 8) + 8))
+  end
+  print('|cFFFF'..kc..eventSuffix..'|r', sourceName, destName, spellid, name)
+end
\ No newline at end of file