Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 39:71e8b39f056e

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