OmaUF/Auras.lua

   1 -- Auras.lua
   2 local _;
   3 local CreateFrame = CreateFrame;
   4 local UnitAura = UnitAura;
   5 local GameTooltip = GameTooltip;
   6
   7 local auraFilters = {"HELPFUL", "HARMFUL"};
   8
   9 local M = {};
  10 OmaUFAuras = M;
  11
  12 local function updateTooltip(frame)
  13     if GameTooltip:IsOwned(frame) then
  14         GameTooltip:SetUnitAura(frame.unit, frame.index, frame.filter);
  15     else
  16         frame:SetScript("OnUpdate", nil);
  17     end
  18 end
  19
  20 local function showTooltip(frame)
  21     -- tooltip handling from FrameXML/TargetFrame.xml
  22     GameTooltip:SetOwner(frame, "ANCHOR_BOTTOMRIGHT", 15, -25);
  23     GameTooltip:SetUnitAura(frame.unit, frame.index, frame.filter);
  24     frame:SetScript("OnUpdate", updateTooltip);
  25 end
  26
  27 local function hideTooltip(frame)
  28     GameTooltip:Hide();
  29     frame:SetScript("OnUpdate", nil);
  30 end
  31
  32 local function createAura(parent, prev, anchor, name, unit)
  33     local aura = CreateFrame("Frame", name, parent);
  34     aura:SetPoint("TOPLEFT", prev, anchor);
  35     aura:SetWidth(20);
  36     aura:SetHeight(20);
  37     aura.icon = aura:CreateTexture(nil, "ARTWORK");
  38     aura.icon:SetAllPoints();
  39     aura.stack = aura:CreateFontString(nil, "OVERLAY", "NumberFontNormalSmall");
  40     aura.stack:SetPoint("BOTTOMRIGHT");
  41     aura.cd = CreateFrame("Cooldown", name.."CD", aura, "CooldownFrameTemplate");
  42     aura.cd:SetReverse(true);
  43     aura.cd:SetHideCountdownNumbers(true);
  44     aura.cd:SetAllPoints();
  45     aura.unit = unit;
  46     aura:SetScript("OnEnter", showTooltip);
  47     aura:SetScript("OnLeave", hideTooltip);
  48     aura:Hide();
  49     return aura;
  50 end
  51
  52 function M.CreateAuraFrame(parent, unit)
  53     local name = parent:GetName().."Auras";
  54     parent.auras = CreateFrame("Frame", name, parent);
  55     parent.auras:SetPoint("TOPLEFT", parent, "BOTTOMLEFT", 0, -8);
  56     parent.auras:SetWidth(10);
  57     parent.auras:SetHeight(10);
  58     local i = 1;
  59     -- max auras per row
  60     for x=1,10 do
  61         local auraName = name..i;
  62         if i == 1 then
  63             parent.auras[i] = createAura(parent.auras, parent.auras, "TOPLEFT", auraName, unit);
  64         else
  65             parent.auras[i] = createAura(parent.auras, parent.auras[i-1], "TOPRIGHT", auraName, unit);
  66         end
  67         i = i + 1;
  68     end
  69     -- max rows
  70     for y=0,0 do
  71         for x=1,10 do
  72             local auraName = name..i;
  73             parent.auras[i] = createAura(parent.auras, parent.auras[y*10+x], "BOTTOMLEFT", auraName, unit);
  74             i = i + 1;
  75         end
  76     end
  77 end
  78
  79 function M.UpdateAuras(frame, unit)
  80     local auras = frame.auras;
  81     for _, aura in ipairs(auras) do
  82         if not aura:IsShown() then break end
  83         aura:Hide();
  84     end
  85     local icon, count, duration, expires, caster, id;
  86     local pos = 1;
  87     for _, filter in ipairs(auraFilters) do
  88         local i = 1;
  89         while true do
  90             _, _, icon, count, _, duration, expires, caster, _, _, id = UnitAura(unit, i, filter);
  91             if not id or not auras[pos] then break end
  92             -- aura filter self-applied, player-applied, list of important auras TODO
  93             local aura = auras[pos];
  94             aura.icon:SetTexture(icon);
  95             aura.index = i;
  96             aura.filter = filter;
  97             if count > 1 then
  98                 aura.stack:SetText(count);
  99                 aura.stack:Show();
 100             else
 101                 aura.stack:Hide();
 102             end
 103             if expires > 0 then
 104                 aura.cd:SetCooldown(expires - duration, duration);
 105             else
 106                 aura.cd:Hide();
 107             end
 108             aura:Show();
 109             pos = pos + 1;
 110             i = i + 1;
 111         end
 112     end
 113 end