Mercurial > wow > kbf

annotate KBF.lua @ 3:bb1143608eb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correctly pull the index from the secure attribute in order to bind the right buff to the right frame
author Chris Mellon <arkanes@gmai.com>
date Tue, 12 Oct 2010 17:16:28 -0500
parents cf6e612a1c7e
children 75634f25a762
rev   line source
arkanes@0 1 local _, kbf = ...
arkanes@0 2
arkanes@0 3 KBF = kbf -- make global for debugging
arkanes@0 4
arkanes@0 5 local kbf = LibStub("AceAddon-3.0"):NewAddon(kbf, "KBF", "AceEvent-3.0", "AceConsole-3.0")
arkanes@0 6
arkanes@0 7
arkanes@0 8 function kbf:OnInitialize()
arkanes@0 9 self.options = {
arkanes@0 10 barWidth = 200 + 16 + 8,
arkanes@0 11 barHeight = 16 + 8
arkanes@0 12 }
arkanes@0 13 self.anchor = self:CreateAnchorFrame()
arkanes@2 14 self.buffBars = {}
arkanes@0 15 self.anchor:Show()
arkanes@0 16 self:RegisterEvent("UNIT_AURA")
arkanes@0 17 end
arkanes@1 18 -- naming convention
arkanes@1 19 -- "frame" is the secure aura button created by the group handler
arkanes@1 20 -- "bar" is the set of icon + status bars that we create to show the buff time
arkanes@0 21
arkanes@0 22 function kbf:UNIT_AURA(event, unit)
arkanes@2 23 if unit ~= self.secureFrame:GetAttribute("unit") then return end
arkanes@2 24 for idx=1,99 do
arkanes@0 25 local frame = self.secureFrame:GetAttribute("child"..idx)
arkanes@0 26 if not frame then break end
arkanes@3 27 self:BindBarToBuff(frame, unit)
arkanes@0 28 end
arkanes@0 29 end
arkanes@0 30
arkanes@3 31 function kbf:BindBarToBuff(parentFrame, unit)
arkanes@3 32 local index = parentFrame:GetAttribute("index")
arkanes@3 33 local filter = parentFrame:GetAttribute("filter")
arkanes@0 34 local name, rank, icon, count, debuffType, duration, expirationTime,
arkanes@3 35 unitCaster, isStealable, shouldConsolidate, spellId = UnitAura(unit, index, filter)
arkanes@2 36 -- This shouldn't be neccesary as the bar is parented to the frame, which is
arkanes@2 37 -- hidden by the group handler
arkanes@2 38 if not parentFrame.icon then
arkanes@2 39 self:ConstructBar(parentFrame)
arkanes@0 40 end
arkanes@2 41 parentFrame.icon:SetNormalTexture(icon)
arkanes@0 42 if stacks and stacks > 0 then
arkanes@2 43 parentFrame.text:SetText(string.format("%s(%d)", name, stacks))
arkanes@0 44 else
arkanes@2 45 parentFrame.text:SetText(name)
arkanes@0 46 end
arkanes@0 47 end
arkanes@0 48
arkanes@1 49 -- creates a icon + statusbar bar
arkanes@1 50 function kbf:ConstructBar(frame)
arkanes@0 51 local texture = "Interface\\TargetingFrame\\UI-StatusBar"
arkanes@1 52 -- Because of secureframe suckiness, these height & width numbers
arkanes@1 53 -- have to be consistent with the stuff in KBF.xml
arkanes@0 54 local height = 16
arkanes@1 55 local width = 200 -- this is the width *without* the icon
arkanes@0 56 local font, _ style = GameFontHighlight:GetFont()
arkanes@0 57 local bgcolor = {1, 0, 0, 0.5}
arkanes@0 58 local color = {0, 1, 0, 1}
arkanes@0 59 local fontsize = 11
arkanes@0 60 local timertextwidth = fontsize * 3.6
arkanes@0 61 local textcolor = {1, 1, 1, 1}
arkanes@0 62 local timertextcolor = {1, 1, 1, 1}
arkanes@1 63 --local bar = CreateFrame("Button", nil, UIParent) -- the "top level" frame that represents the bar as a whole
arkanes@1 64 local bar = frame
arkanes@0 65 bar.icon = CreateFrame("Button", nil, bar) -- the icon
arkanes@0 66 bar.statusbarbg = CreateFrame("StatusBar", nil, bar) -- the bars background
arkanes@0 67 bar.statusbar = CreateFrame("StatusBar", nil, bar) -- and the bars foreground
arkanes@0 68 bar.text = bar.statusbar:CreateFontString(nil, "OVERLAY") -- the label text
arkanes@0 69 bar.timertext = bar.statusbar:CreateFontString(nil, "OVERLAY") -- and the timer text
arkanes@0 70
arkanes@0 71 -- the icon
arkanes@0 72 bar.icon:ClearAllPoints()
arkanes@0 73 bar.icon:SetPoint("LEFT", bar, "LEFT", 0, 0)
arkanes@0 74 -- icons are square
arkanes@0 75 bar.icon:SetWidth(height)
arkanes@0 76 bar.icon:SetHeight(height)
arkanes@2 77 --bar.icon:EnableMouse(false)
arkanes@0 78 -- the status bar background & foreground
arkanes@0 79 local function setupStatusBar(sb, color)
arkanes@0 80 sb:ClearAllPoints()
arkanes@0 81 sb:SetHeight(height)
arkanes@0 82 sb:SetWidth(width)
arkanes@0 83 -- offset the height of the frame on the x-axis for the icon.
arkanes@0 84 sb:SetPoint("TOPLEFT", bar, "TOPLEFT", height, 0)
arkanes@0 85 sb:SetStatusBarTexture(texture)
arkanes@0 86 sb:GetStatusBarTexture():SetVertTile(false)
arkanes@0 87 sb:GetStatusBarTexture():SetHorizTile(false)
arkanes@0 88 sb:SetStatusBarColor(unpack(color))
arkanes@0 89 sb:SetMinMaxValues(0,1)
arkanes@0 90 sb:SetValue(1)
arkanes@0 91 end
arkanes@0 92 setupStatusBar(bar.statusbarbg, bgcolor)
arkanes@0 93 setupStatusBar(bar.statusbar, color)
arkanes@0 94 bar.statusbarbg:SetFrameLevel(bar.statusbarbg:GetFrameLevel()-1) -- make sure the bg frame stays in the back
arkanes@0 95 -- timer text
arkanes@0 96 bar.timertext:SetFontObject(GameFontHighlight)
arkanes@0 97 bar.timertext:SetFont(GameFontHighlight:GetFont())
arkanes@0 98 bar.timertext:SetHeight(height)
arkanes@0 99 bar.timertext:SetWidth(timertextwidth)
arkanes@0 100 bar.timertext:SetPoint("LEFT", bar.statusbar, "LEFT", 0, 0)
arkanes@0 101 bar.timertext:SetJustifyH("RIGHT")
arkanes@0 102 bar.timertext:SetText("time")
arkanes@0 103 bar.timertext:SetTextColor(timertextcolor[1], timertextcolor[2], timertextcolor[3], timertextcolor[4])
arkanes@0 104
arkanes@0 105 -- and the label text
arkanes@0 106 bar.text:SetFontObject(GameFontHighlight)
arkanes@0 107 bar.text:SetFont(GameFontHighlight:GetFont())
arkanes@0 108 bar.text:SetHeight(height)
arkanes@0 109 bar.text:SetWidth((width - timertextwidth) *.9)
arkanes@0 110 bar.text:SetPoint("RIGHT", bar.statusbar, "RIGHT", 0, 0)
arkanes@0 111 bar.text:SetJustifyH("LEFT")
arkanes@0 112 bar.text:SetText("text")
arkanes@0 113 bar.text:SetTextColor(textcolor[1], textcolor[2], textcolor[3], textcolor[4])
arkanes@0 114
arkanes@0 115 bar:EnableMouse(true)
arkanes@0 116 return bar
arkanes@0 117 end
arkanes@0 118
arkanes@0 119 function kbf:CreateAnchorFrame()
arkanes@0 120 -- give it a name so it'll remember its position
arkanes@0 121 local anchor = CreateFrame("FRAME", "KBFAnchorFrame", UIParent)
arkanes@0 122 anchor:SetClampedToScreen(true)
arkanes@0 123 anchor:SetBackdrop({bgFile = "Interface/Tooltips/UI-Tooltip-Background",
arkanes@0 124 edgeFile = "Interface/Tooltips/UI-Tooltip-Border",
arkanes@0 125 tile = true, tileSize = 16, edgeSize = 16,
arkanes@0 126 insets = { left = 4, right = 4, top = 4, bottom = 4 },
arkanes@0 127 })
arkanes@0 128 local text = anchor:CreateFontString(nil, "OVERLAY") -- the label text
arkanes@0 129 text:SetFontObject(GameFontHighlight)
arkanes@0 130 text:SetFont(GameFontHighlight:GetFont())
arkanes@0 131 text:SetPoint("TOPLEFT", anchor, "TOPLEFT", 0, 0)
arkanes@0 132 text:SetPoint("BOTTOMRIGHT", anchor, "BOTTOMRIGHT", 0, 0)
arkanes@0 133 text:SetText("KBF ANCHOR")
arkanes@0 134 anchor:SetWidth(self.options.barWidth)
arkanes@0 135 anchor:SetHeight(self.options.barHeight)
arkanes@0 136 -- movability
arkanes@0 137 anchor:EnableMouse(true)
arkanes@0 138 anchor:SetMovable(true)
arkanes@0 139 anchor:RegisterForDrag("LeftButton")
arkanes@0 140 anchor:SetScript("OnDragStart", anchor.StartMoving)
arkanes@0 141 anchor:SetScript("OnDragStop", anchor.StopMovingOrSizing)
arkanes@0 142 anchor:ClearAllPoints()
arkanes@0 143 anchor:SetPoint("CENTER", UIParent, "CENTER", 0, 0)
arkanes@0 144 anchor:Hide()
arkanes@0 145
arkanes@0 146 local frame = CreateFrame("FRAME", "KBFBuffFrame", anchor, "SecureAuraHeaderTemplate")
arkanes@0 147 --local frame = anchor
arkanes@0 148 frame:SetAttribute("filter", "HELPFUL")
arkanes@0 149 frame:SetAttribute("template", "KBFSecureUnitAuraTemplate")
arkanes@3 150 frame:SetAttribute("point", "TOP")
arkanes@0 151 frame:SetAttribute("wrapAfter", 100) -- required due to bugs in secure header
arkanes@0 152 frame:SetAttribute("consolidateTo", nil)
arkanes@0 153 --frame:SetAttribute("wrapXOffset", 0)
arkanes@0 154 --frame:SetAttribute("wrapYOffset", -34)
arkanes@2 155 frame:SetAttribute("xOffset", 0)
arkanes@3 156 frame:SetAttribute("yOffset", -16)
arkanes@3 157 frame:SetAttribute("minWidth", 216)
arkanes@3 158 frame:SetAttribute("minHeight", 16)
arkanes@2 159 frame:SetAttribute("unit", "player") -- TODO: figure out the vehicle swapping stuff
arkanes@3 160 frame:SetAttribute("sortMethod", "NAME")
arkanes@3 161 frame:SetAttribute("sortOrder", "-")
arkanes@3 162 frame:SetPoint("TOP", anchor, "BOTTOM", 0, 0)
arkanes@0 163 frame:SetBackdrop({bgFile = "Interface/Tooltips/UI-Tooltip-Background",
arkanes@0 164 edgeFile = "Interface/Tooltips/UI-Tooltip-Border",
arkanes@0 165 tile = true, tileSize = 16, edgeSize = 16,
arkanes@0 166 insets = { left = 4, right = 4, top = 4, bottom = 4 },
arkanes@0 167 })
arkanes@0 168 frame:Show()
arkanes@0 169 self.secureFrame = frame
arkanes@0 170 return anchor
arkanes@0 171 end