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 function M.UpdateAuraTooltips()
  33     GameTooltip = _G["GameTooltip"];
  34 end
  35
  36 local function createAura(parent, prev, anchor, name, unit)
  37     local aura = CreateFrame("Frame", name, parent);
  38     aura:SetPoint("TOPLEFT", prev, anchor);
  39     aura:SetWidth(20);
  40     aura:SetHeight(20);
  41     aura.icon = aura:CreateTexture(nil, "ARTWORK");
  42     aura.icon:SetAllPoints();
  43     aura.cd = CreateFrame("Cooldown", name.."CD", aura, "CooldownFrameTemplate");
  44     aura.cd:SetReverse(true);
  45     aura.cd:SetHideCountdownNumbers(true);
  46     aura.cd:SetAllPoints();
  47     aura.unit = unit; -- TODO add aura.stack text
  48     aura:SetScript("OnEnter", showTooltip);
  49     aura:SetScript("OnLeave", hideTooltip);
  50     aura:Hide();
  51     return aura;
  52 end
  53
  54 function M.CreateAuraFrame(parent, unit)
  55     local name = parent:GetName().."Auras";
  56     parent.auras = CreateFrame("Frame", name, parent);
  57     parent.auras:SetPoint("TOPLEFT", parent, "BOTTOMLEFT", 0, -8);
  58     parent.auras:SetWidth(10);
  59     parent.auras:SetHeight(10);
  60     local i = 1;
  61     -- max auras per row
  62     for x=1,10 do
  63         local auraName = name..i;
  64         if i == 1 then
  65             parent.auras[i] = createAura(parent.auras, parent.auras, "TOPLEFT", auraName, unit);
  66         else
  67             parent.auras[i] = createAura(parent.auras, parent.auras[i-1], "TOPRIGHT", auraName, unit);
  68         end
  69         i = i + 1;
  70     end
  71     -- max rows
  72     for y=0,1 do
  73         for x=1,10 do
  74             local auraName = name..i;
  75             parent.auras[i] = createAura(parent.auras, parent.auras[y*10+x], "BOTTOMLEFT", auraName, unit);
  76             i = i + 1;
  77         end
  78     end
  79 end
  80
  81 function M.UpdateAuras(frame, unit)
  82     local auras = frame.auras;
  83     for _, aura in ipairs(auras) do
  84         if not aura:IsShown() then break end
  85         aura:Hide();
  86     end
  87     local icon, count, duration, expires, caster, id;
  88     local pos = 1;
  89     for _, filter in ipairs(auraFilters) do
  90         local i = 1;
  91         while true do
  92             _, _, icon, count, _, duration, expires, caster, _, _, id = UnitAura(unit, i, filter);
  93             if not id or not auras[pos] then break end
  94             -- aura filter self-applied, player-applied, list of important auras TODO
  95             local aura = auras[pos];
  96             aura.icon:SetTexture(icon);
  97             aura.index = i;
  98             aura.filter = filter;
  99             if expires > 0 then
 100                 aura.cd:SetCooldown(expires - duration, duration);
 101             else
 102                 aura.cd:Hide();
 103             end
 104             aura:Show();
 105             pos = pos + 1;
 106             i = i + 1;
 107         end
 108     end
 109 end