Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 32:416c307fd00b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add recipe tooltip for the crafted reagent in the external window
author contrebasse
date Thu, 28 Apr 2011 23:39:30 +0200
parents 22fa64c9b2de
children 218e1dd1b821
rev   line source
contrebasse@0 1 local addonName, A = ...
contrebasse@0 2
contrebasse@0 3 -- Create the menu frame
contrebasse@3 4 local MenuFrame = CreateFrame("Frame","ReagentMaker_ExternalFrame",UIParent) --, "ReagentMakerDropDownMenu"); -- Needs a global name ?
contrebasse@0 5 MenuFrame:Hide()
contrebasse@3 6 MenuFrame:SetSize(192,256)
contrebasse@2 7 MenuFrame:SetFrameStrata("DIALOG")
contrebasse@3 8 MenuFrame:EnableMouse(true)
contrebasse@3 9 MenuFrame:SetPoint("CENTER")
contrebasse@3 10 tinsert(UISpecialFrames,"ReagentMaker_ExternalFrame") -- make it closable with escape
contrebasse@2 11
contrebasse@20 12 local SCAN_DELAY = 0.2
contrebasse@20 13 local t_throttle = SCAN_DELAY
contrebasse@20 14 function MenuFrame.throttleUpdateCounts(self, t_elapsed)
contrebasse@20 15 t_throttle = t_throttle - t_elapsed
contrebasse@20 16 if t_throttle<0 then
contrebasse@20 17 self:SetScript("OnUpdate", nil)
contrebasse@20 18
contrebasse@20 19 -- Update counts
contrebasse@20 20 MenuFrame.updateCounts()
contrebasse@20 21 end
contrebasse@20 22 end
contrebasse@3 23 MenuFrame:SetScript("OnEvent",function(self,event,...)
contrebasse@20 24 if event == "BAG_UPDATE" then
contrebasse@20 25 t_throttle = SCAN_DELAY
contrebasse@20 26 self:SetScript("OnUpdate", MenuFrame.throttleUpdateCounts)
contrebasse@19 27 elseif event == "TRADE_SKILL_CLOSE" or event == "PLAYER_REGEN_DISABLED" then
contrebasse@3 28 MenuFrame:Hide()
contrebasse@3 29 end
contrebasse@3 30 end)
contrebasse@3 31 MenuFrame:RegisterEvent("TRADE_SKILL_CLOSE")
contrebasse@3 32 MenuFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@20 33 MenuFrame:RegisterEvent("BAG_UPDATE")
contrebasse@20 34 MenuFrame:SetScript("OnEnter",function(self)
contrebasse@20 35 if self.reagentLink then
contrebasse@20 36 GameTooltip:SetOwner(self)
contrebasse@20 37 GameTooltip:SetHyperlink(self.reagentLink)
contrebasse@20 38 GameTooltip:Show()
contrebasse@20 39 GameTooltip:ClearAllPoints()
contrebasse@20 40 GameTooltip:SetPoint("TOPRIGHT",self,"TOPLEFT",10,0)
contrebasse@32 41 if self.spellLink then
contrebasse@32 42 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@32 43 A.tooltipRecipe:SetHyperlink(self.spellLink)
contrebasse@32 44 A.tooltipRecipe:Show()
contrebasse@32 45 A.tooltipRecipe:ClearAllPoints()
contrebasse@32 46 A.tooltipRecipe:SetPoint("TOPRIGHT",GameTooltip,"BOTTOMRIGHT")
contrebasse@32 47 end
contrebasse@20 48 end
contrebasse@20 49 end)
contrebasse@20 50 MenuFrame:SetScript("OnLeave",function()
contrebasse@20 51 GameTooltip:Hide()
contrebasse@32 52 A.tooltipRecipe:Hide()
contrebasse@20 53 end)
contrebasse@3 54 A.MenuFrame = MenuFrame
contrebasse@3 55
contrebasse@3 56 -- Background adaptable vertically
contrebasse@3 57 local bg_top = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 58 bg_top:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 59 bg_top:SetSize(192,80)
contrebasse@3 60 bg_top:SetPoint("TOP")
contrebasse@3 61 bg_top:SetTexCoord(0,192/256,0,80/256)
contrebasse@3 62 local bg_bot = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 63 bg_bot:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 64 bg_bot:SetSize(192,16)
contrebasse@3 65 bg_bot:SetPoint("BOTTOM")
contrebasse@3 66 bg_bot:SetTexCoord(0,192/256,240/256,1)
contrebasse@3 67 local bg_mid = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 68 bg_mid:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 69 bg_mid:SetWidth(192)
contrebasse@3 70 bg_mid:SetPoint("TOP",bg_top,"BOTTOM")
contrebasse@3 71 bg_mid:SetPoint("BOTTOM",bg_bot,"TOP")
contrebasse@3 72 bg_mid:SetTexCoord(0,192/256,80/256,240/256)
contrebasse@3 73
contrebasse@3 74 -- Bouton de fermeture
contrebasse@3 75 local CloseButton = CreateFrame("Button",nil,MenuFrame,"UIPanelCloseButton");
contrebasse@3 76 CloseButton:SetPoint("TOPRIGHT",0,-10)
contrebasse@3 77
contrebasse@3 78 -- Main icon
contrebasse@3 79 local itemIcon = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,-1)
contrebasse@3 80 itemIcon:SetSize(64,64)
contrebasse@3 81 itemIcon:SetPoint("TOPLEFT",8,-4)
contrebasse@3 82
contrebasse@3 83 -- Title
contrebasse@3 84 local TitleText = MenuFrame:CreateFontString(nil,"ARTWORK","GameFontHighlight")
contrebasse@3 85 TitleText:SetSize(92,14)
contrebasse@3 86 TitleText:SetPoint("RIGHT",CloseButton,"LEFT",4,1)
contrebasse@3 87
contrebasse@3 88 local MENU_ENTRY_HEIGHT = 41
contrebasse@3 89 local MENU_ENTRY_WIDTH = 147
contrebasse@3 90 local MENU_ENTRY_ICON_RATIO = 40/48
contrebasse@2 91
contrebasse@0 92 local numActiveEntries = 0
contrebasse@0 93 local menuEntries = {}
contrebasse@0 94
contrebasse@3 95 -- Button hovering
contrebasse@5 96 local function btnEntered(btn)
contrebasse@20 97 if btn.numMakable and btn.numMakable>0 then
contrebasse@5 98 btn.textureHighlight:Show()
contrebasse@5 99 end
contrebasse@3 100
contrebasse@20 101 GameTooltip:SetOwner(btn,"ANCHOR_LEFT")
contrebasse@5 102 GameTooltip:SetHyperlink(btn.reagentLink)
contrebasse@5 103 GameTooltip:Show()
contrebasse@31 104 if btn.spellLink then
contrebasse@31 105 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@31 106 A.tooltipRecipe:SetHyperlink(btn.spellLink)
contrebasse@31 107 A.tooltipRecipe:Show()
contrebasse@31 108 A.tooltipRecipe:ClearAllPoints()
contrebasse@31 109 A.tooltipRecipe:SetPoint("TOPRIGHT",GameTooltip,"BOTTOMRIGHT")
contrebasse@20 110 end
contrebasse@3 111 end
contrebasse@5 112 local function btnLeft(btn)
contrebasse@5 113 btn.textureHighlight:Hide()
contrebasse@5 114 GameTooltip:Hide()
contrebasse@5 115 A.tooltipRecipe:Hide()
contrebasse@3 116 end
contrebasse@3 117 local function createMenuEntry()
contrebasse@3 118 local btn = CreateFrame("Button", nil, MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 119 table.insert(menuEntries,btn)
contrebasse@3 120
contrebasse@3 121 btn:Hide()
contrebasse@3 122 btn:SetSize(MENU_ENTRY_WIDTH,MENU_ENTRY_HEIGHT)
contrebasse@3 123 btn:SetFrameStrata("DIALOG")
contrebasse@3 124
contrebasse@3 125 -- Set its position
contrebasse@3 126 if #menuEntries>1 then
contrebasse@3 127 btn:SetPoint("TOP",menuEntries[#menuEntries-1],"BOTTOM",0,-2)
contrebasse@2 128 else
contrebasse@3 129 btn:SetPoint("TOPLEFT",MenuFrame,"TOPLEFT",24,-79)
contrebasse@2 130 end
contrebasse@3 131
contrebasse@3 132 local icon = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 133 icon:SetPoint("TOPLEFT")
contrebasse@3 134 icon:SetSize(39,39)
contrebasse@3 135 btn.icon = icon
contrebasse@3 136
contrebasse@3 137 local itemNameBG = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 138 itemNameBG:SetTexture("Interface\\QuestFrame\\UI-QuestItemNameFrame")
contrebasse@3 139 itemNameBG:SetSize(128,64)
contrebasse@3 140 itemNameBG:SetPoint("LEFT",icon,"RIGHT",-10,0)
contrebasse@3 141
contrebasse@3 142 local itemName = btn:CreateFontString(nil,"BACKGROUND","GameFontHighlight")
contrebasse@3 143 itemName:SetSize(90,36)
contrebasse@3 144 itemName:SetPoint("LEFT",itemNameBG,"LEFT",15,0)
contrebasse@3 145 itemName:SetJustifyH("LEFT")
contrebasse@3 146 itemName:SetWordWrap(true)
contrebasse@3 147 itemName:SetNonSpaceWrap(false)
contrebasse@3 148 btn.itemName = itemName
contrebasse@3 149
contrebasse@3 150 local textureHighlight = btn:CreateTexture(nil,"BORDER")
contrebasse@3 151 textureHighlight:Hide()
contrebasse@3 152 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@3 153 textureHighlight:SetBlendMode("ADD")
contrebasse@3 154 textureHighlight:SetAllPoints(icon)
contrebasse@3 155 btn.textureHighlight = textureHighlight
contrebasse@5 156
contrebasse@5 157 local countDetail = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@5 158 countDetail:SetPoint("BOTTOMRIGHT",icon,"BOTTOMRIGHT",-1,1)
contrebasse@5 159 countDetail:SetJustifyH("RIGHT")
contrebasse@5 160 countDetail:SetJustifyV("BOTTOM")
contrebasse@5 161 btn.countDetail = countDetail
contrebasse@5 162
contrebasse@10 163 local resultNumber = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@11 164 resultNumber:SetPoint("TOPLEFT",icon,"TOPLEFT",1,-3)
contrebasse@10 165 resultNumber:SetJustifyH("LEFT")
contrebasse@10 166 resultNumber:SetJustifyV("TOP")
contrebasse@11 167 resultNumber:SetFont("Fonts\\ARIALN.TTF", 12, "OUTLINE")
contrebasse@10 168 btn.resultNumber = resultNumber
contrebasse@10 169
contrebasse@20 170 btn:SetScript("OnEnter", btnEntered)
contrebasse@20 171 btn:SetScript("OnLeave", btnLeft)
contrebasse@3 172
contrebasse@3 173 return btn
contrebasse@2 174 end
contrebasse@1 175
contrebasse@3 176 local function menuCraftItem()
contrebasse@3 177 action(itemID,reagentIndex,IsShiftKeyDown())
contrebasse@0 178 end
contrebasse@0 179
contrebasse@19 180 function MenuFrame.updateCounts()
contrebasse@3 181 local anyMakable
contrebasse@0 182 for i=1,numActiveEntries do
contrebasse@3 183 btn = menuEntries[i]
contrebasse@3 184 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 185
contrebasse@3 186 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 187 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 188
contrebasse@3 189 if numMakable>0 then
contrebasse@3 190 anyMakable = true
contrebasse@5 191 btn.countDetail:SetTextColor(1, 1, 1, 1)
contrebasse@3 192 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 193 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 194 else
contrebasse@5 195 -- Do not disable the button, to be able to show the tooltip
contrebasse@5 196 btn.countDetail:SetTextColor(1, 0.1, 0.1, 1)
contrebasse@3 197 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 198 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 199 end
contrebasse@5 200
contrebasse@5 201 btn.numMakable = numMakable
contrebasse@3 202 end
contrebasse@3 203
contrebasse@5 204 local r,g,b = TitleText:GetTextColor()
contrebasse@3 205 if anyMakable then
contrebasse@3 206 itemIcon:SetVertexColor(1,1,1)
contrebasse@5 207 TitleText:SetTextColor(r,g,b,1)
contrebasse@3 208 else
contrebasse@3 209 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@5 210 TitleText:SetTextColor(r,g,b,0.7)
contrebasse@0 211 end
contrebasse@0 212 end
contrebasse@0 213
contrebasse@31 214 local function menuAddItem(action,itemID,reagent,spellLink)
contrebasse@0 215 local btn
contrebasse@0 216 -- Create a button only if necessary
contrebasse@0 217 if numActiveEntries >= #menuEntries then
contrebasse@3 218 btn = createMenuEntry()
contrebasse@0 219 else
contrebasse@0 220 btn = menuEntries[numActiveEntries+1]
contrebasse@0 221 end
contrebasse@0 222
contrebasse@3 223 -- Set text and icon
contrebasse@10 224 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(reagent[1])
contrebasse@3 225 if name then
contrebasse@3 226 btn.itemName:SetText(name)
contrebasse@3 227 else
contrebasse@10 228 A.DEBUG("No item name : "..reagent[1])
contrebasse@5 229 return
contrebasse@3 230 end
contrebasse@0 231
contrebasse@3 232 if texture then
contrebasse@3 233 btn.icon:SetTexture(texture)
contrebasse@3 234 else
contrebasse@10 235 A.DEBUG("No item texture : "..reagent[1])
contrebasse@5 236 return
contrebasse@3 237 end
contrebasse@3 238
contrebasse@10 239 -- Set chance to have the item or the number of items created
contrebasse@10 240 if reagent[3] then
contrebasse@10 241 if reagent[3]<1 then
contrebasse@10 242 btn.resultNumber:SetText((reagent[3]*100).."%")
contrebasse@11 243 elseif reagent[4] and reagent[3]~=reagent[4] then
contrebasse@11 244 btn.resultNumber:SetText(math.min(reagent[3],reagent[4]).."-"..math.max(reagent[3],reagent[4]))
contrebasse@10 245 elseif reagent[3]>1 then
contrebasse@10 246 btn.resultNumber:SetText(reagent[3])
contrebasse@10 247 end
contrebasse@10 248 end
contrebasse@10 249
contrebasse@3 250 -- Save params
contrebasse@3 251 btn.itemID = itemID
contrebasse@10 252 btn.reagentID = reagent[1]
contrebasse@5 253 btn.reagentLink = link
contrebasse@10 254 btn.reagentsForOneRecipe = reagent[2]
contrebasse@31 255 btn.spellLink = spellLink
contrebasse@3 256
contrebasse@3 257 -- Set action
contrebasse@0 258 if type(action)=="function" then
contrebasse@3 259 btn:SetScript("PreClick",action)
contrebasse@0 260 btn:SetAttribute("type", nil)
contrebasse@5 261 btn:SetAttribute("macrotext", nil)
contrebasse@3 262 else --if type(action)=="string" then
contrebasse@3 263 btn:SetScript("PreClick",nil)
contrebasse@3 264 btn:SetAttribute("type", "macro")
contrebasse@5 265 btn:SetAttribute("macrotext", action..name)
contrebasse@0 266 end -- if
contrebasse@0 267
contrebasse@3 268 btn:Show()
contrebasse@0 269
contrebasse@2 270 -- Increase the entry number
contrebasse@0 271 numActiveEntries = numActiveEntries + 1
contrebasse@0 272 end -- function
contrebasse@3 273
contrebasse@3 274 -- Fill the window and open it
contrebasse@3 275 function A.externalCraftWindow(itemID)
contrebasse@3 276 -- Do not open during combat
contrebasse@3 277 if InCombatLockdown() then return end
contrebasse@3 278
contrebasse@3 279 -- Save the tradeskill
contrebasse@3 280 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 281
contrebasse@3 282 -- Close the previous menu
contrebasse@3 283 MenuFrame:Hide()
contrebasse@3 284 for i=1,numActiveEntries do
contrebasse@3 285 menuEntries[i]:Hide()
contrebasse@3 286 end
contrebasse@3 287 numActiveEntries = 0
contrebasse@3 288
contrebasse@3 289 -- Fill the info of the reagent to make
contrebasse@3 290 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(itemID)
contrebasse@3 291 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 292 TitleText:SetText(name)
contrebasse@5 293 local color = ITEM_QUALITY_COLORS[quality]
contrebasse@5 294 TitleText:SetTextColor(color.r, color.g, color.b)
contrebasse@3 295
contrebasse@20 296 -- Save vars to show the tooltip later
contrebasse@20 297 MenuFrame.reagentLink = link
contrebasse@32 298 MenuFrame.spellLink = A.data[itemID].spellLink
contrebasse@20 299
contrebasse@3 300 -- Loop over the available recipes
contrebasse@3 301 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@29 302 if A.data[itemID].spell then
contrebasse@29 303 -- Special spell
contrebasse@31 304 menuAddItem(A.data[itemID].spell,itemID,reagent,A.data[itemID].spellLink)
contrebasse@29 305 else
contrebasse@29 306 -- Standard tradeskill spell UNTESTED
contrebasse@29 307 menuAddItem(A.craft,itemID,reagent)
contrebasse@29 308 end -- if
contrebasse@3 309 end -- for
contrebasse@3 310
contrebasse@3 311 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 312
contrebasse@3 313 MenuFrame:ClearAllPoints()
contrebasse@3 314 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 315
contrebasse@19 316 MenuFrame.updateCounts()
contrebasse@3 317
contrebasse@3 318 MenuFrame:Show()
contrebasse@3 319 end