Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 85:996aaa818d04 v1.0beta4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clarify error message with cross-tradeskill, and clarify the use of GetTradeSkillLine() internally
author contrebasse
date Sun, 15 May 2011 12:45:52 +0200
parents 9d487333bf10
children c369a2e16ab6
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@45 97 --TitleText:SetSize(92,14)
contrebasse@45 98 TitleText:SetSize(92,36)
contrebasse@45 99 TitleText:SetPoint("TOPRIGHT",CloseButton,"TOPLEFT",4,-8)
contrebasse@45 100 TitleText:SetWordWrap(true)
contrebasse@45 101 TitleText:SetNonSpaceWrap(false)
contrebasse@45 102 TitleText:SetJustifyV("TOP")
contrebasse@45 103
contrebasse@3 104
contrebasse@3 105 local MENU_ENTRY_HEIGHT = 41
contrebasse@3 106 local MENU_ENTRY_WIDTH = 147
contrebasse@3 107 local MENU_ENTRY_ICON_RATIO = 40/48
contrebasse@2 108
contrebasse@0 109 local numActiveEntries = 0
contrebasse@0 110 local menuEntries = {}
contrebasse@0 111
contrebasse@3 112 -- Button hovering
contrebasse@5 113 local function btnEntered(btn)
contrebasse@20 114 if btn.numMakable and btn.numMakable>0 then
contrebasse@5 115 btn.textureHighlight:Show()
contrebasse@5 116 end
contrebasse@3 117
contrebasse@20 118 GameTooltip:SetOwner(btn,"ANCHOR_LEFT")
contrebasse@5 119 GameTooltip:SetHyperlink(btn.reagentLink)
contrebasse@5 120 GameTooltip:Show()
contrebasse@31 121 if btn.spellLink then
contrebasse@31 122 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@31 123 A.tooltipRecipe:SetHyperlink(btn.spellLink)
contrebasse@31 124 A.tooltipRecipe:Show()
contrebasse@31 125 A.tooltipRecipe:ClearAllPoints()
contrebasse@31 126 A.tooltipRecipe:SetPoint("TOPRIGHT",GameTooltip,"BOTTOMRIGHT")
contrebasse@20 127 end
contrebasse@3 128 end
contrebasse@5 129 local function btnLeft(btn)
contrebasse@5 130 btn.textureHighlight:Hide()
contrebasse@5 131 GameTooltip:Hide()
contrebasse@5 132 A.tooltipRecipe:Hide()
contrebasse@3 133 end
contrebasse@3 134 local function createMenuEntry()
contrebasse@3 135 local btn = CreateFrame("Button", nil, MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 136 table.insert(menuEntries,btn)
contrebasse@3 137
contrebasse@3 138 btn:Hide()
contrebasse@3 139 btn:SetSize(MENU_ENTRY_WIDTH,MENU_ENTRY_HEIGHT)
contrebasse@3 140 btn:SetFrameStrata("DIALOG")
contrebasse@3 141
contrebasse@3 142 -- Set its position
contrebasse@3 143 if #menuEntries>1 then
contrebasse@3 144 btn:SetPoint("TOP",menuEntries[#menuEntries-1],"BOTTOM",0,-2)
contrebasse@2 145 else
contrebasse@3 146 btn:SetPoint("TOPLEFT",MenuFrame,"TOPLEFT",24,-79)
contrebasse@2 147 end
contrebasse@3 148
contrebasse@3 149 local icon = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 150 icon:SetPoint("TOPLEFT")
contrebasse@3 151 icon:SetSize(39,39)
contrebasse@3 152 btn.icon = icon
contrebasse@3 153
contrebasse@3 154 local itemNameBG = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 155 itemNameBG:SetTexture("Interface\\QuestFrame\\UI-QuestItemNameFrame")
contrebasse@3 156 itemNameBG:SetSize(128,64)
contrebasse@3 157 itemNameBG:SetPoint("LEFT",icon,"RIGHT",-10,0)
contrebasse@3 158
contrebasse@3 159 local itemName = btn:CreateFontString(nil,"BACKGROUND","GameFontHighlight")
contrebasse@3 160 itemName:SetSize(90,36)
contrebasse@3 161 itemName:SetPoint("LEFT",itemNameBG,"LEFT",15,0)
contrebasse@3 162 itemName:SetJustifyH("LEFT")
contrebasse@3 163 itemName:SetWordWrap(true)
contrebasse@3 164 itemName:SetNonSpaceWrap(false)
contrebasse@3 165 btn.itemName = itemName
contrebasse@3 166
contrebasse@3 167 local textureHighlight = btn:CreateTexture(nil,"BORDER")
contrebasse@3 168 textureHighlight:Hide()
contrebasse@3 169 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@3 170 textureHighlight:SetBlendMode("ADD")
contrebasse@3 171 textureHighlight:SetAllPoints(icon)
contrebasse@3 172 btn.textureHighlight = textureHighlight
contrebasse@5 173
contrebasse@5 174 local countDetail = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@5 175 countDetail:SetPoint("BOTTOMRIGHT",icon,"BOTTOMRIGHT",-1,1)
contrebasse@5 176 countDetail:SetJustifyH("RIGHT")
contrebasse@5 177 countDetail:SetJustifyV("BOTTOM")
contrebasse@5 178 btn.countDetail = countDetail
contrebasse@5 179
contrebasse@10 180 local resultNumber = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@11 181 resultNumber:SetPoint("TOPLEFT",icon,"TOPLEFT",1,-3)
contrebasse@10 182 resultNumber:SetJustifyH("LEFT")
contrebasse@10 183 resultNumber:SetJustifyV("TOP")
contrebasse@11 184 resultNumber:SetFont("Fonts\\ARIALN.TTF", 12, "OUTLINE")
contrebasse@10 185 btn.resultNumber = resultNumber
contrebasse@10 186
contrebasse@20 187 btn:SetScript("OnEnter", btnEntered)
contrebasse@20 188 btn:SetScript("OnLeave", btnLeft)
contrebasse@3 189
contrebasse@3 190 return btn
contrebasse@2 191 end
contrebasse@1 192
contrebasse@40 193 local function WarnNotMakable(btn)
contrebasse@71 194 A.Error(A.L["You do not have enough [%s] to craft [%s]"]:format(btn.itemNameString,TitleText:GetText()))
contrebasse@40 195 end
contrebasse@40 196
contrebasse@40 197 -- Update counts and button actions
contrebasse@19 198 function MenuFrame.updateCounts()
contrebasse@3 199 local anyMakable
contrebasse@0 200 for i=1,numActiveEntries do
contrebasse@3 201 btn = menuEntries[i]
contrebasse@3 202 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 203
contrebasse@3 204 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 205 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 206
contrebasse@3 207 if numMakable>0 then
contrebasse@40 208 -- Set action
contrebasse@73 209 if type(btn.action)=="function" then
contrebasse@40 210 btn:SetScript("PreClick",btn.action)
contrebasse@40 211 btn:SetAttribute("type", nil)
contrebasse@40 212 btn:SetAttribute("macrotext", nil)
contrebasse@40 213 else --if type(action)=="string" then
contrebasse@40 214 btn:SetScript("PreClick",nil)
contrebasse@40 215 btn:SetAttribute("type", "macro")
contrebasse@73 216 btn:SetAttribute("macrotext", btn.action:format(btn.itemNameString))
contrebasse@40 217 end -- if
contrebasse@40 218
contrebasse@3 219 anyMakable = true
contrebasse@5 220 btn.countDetail:SetTextColor(1, 1, 1, 1)
contrebasse@3 221 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 222 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 223 else
contrebasse@5 224 -- Do not disable the button, to be able to show the tooltip
contrebasse@40 225 -- Disable only the effects
contrebasse@40 226 btn:SetScript("PreClick",WarnNotMakable)
contrebasse@40 227 btn:SetAttribute("type", nil)
contrebasse@40 228 btn:SetAttribute("macrotext", nil)
contrebasse@40 229
contrebasse@5 230 btn.countDetail:SetTextColor(1, 0.1, 0.1, 1)
contrebasse@3 231 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 232 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 233 end
contrebasse@5 234
contrebasse@5 235 btn.numMakable = numMakable
contrebasse@3 236 end
contrebasse@3 237
contrebasse@5 238 local r,g,b = TitleText:GetTextColor()
contrebasse@3 239 if anyMakable then
contrebasse@3 240 itemIcon:SetVertexColor(1,1,1)
contrebasse@5 241 TitleText:SetTextColor(r,g,b,1)
contrebasse@3 242 else
contrebasse@3 243 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@5 244 TitleText:SetTextColor(r,g,b,0.7)
contrebasse@0 245 end
contrebasse@0 246 end
contrebasse@0 247
contrebasse@73 248 local function menuAddItem(action,itemID,reagent)
contrebasse@0 249 local btn
contrebasse@0 250 -- Create a button only if necessary
contrebasse@0 251 if numActiveEntries >= #menuEntries then
contrebasse@3 252 btn = createMenuEntry()
contrebasse@0 253 else
contrebasse@0 254 btn = menuEntries[numActiveEntries+1]
contrebasse@0 255 end
contrebasse@0 256
contrebasse@3 257 -- Set text and icon
contrebasse@35 258 local name, link, _, _, _, _, _, _, _, texture = GetItemInfo(reagent[1])
contrebasse@73 259 if not (name and link and texture) then
contrebasse@73 260 -- Will be retried on next OnUpdate
contrebasse@5 261 return
contrebasse@3 262 end
contrebasse@73 263 btn.itemName:SetText(name)
contrebasse@73 264 btn.icon:SetTexture(texture)
contrebasse@3 265
contrebasse@10 266 -- Set chance to have the item or the number of items created
contrebasse@10 267 if reagent[3] then
contrebasse@10 268 if reagent[3]<1 then
contrebasse@10 269 btn.resultNumber:SetText((reagent[3]*100).."%")
contrebasse@11 270 elseif reagent[4] and reagent[3]~=reagent[4] then
contrebasse@11 271 btn.resultNumber:SetText(math.min(reagent[3],reagent[4]).."-"..math.max(reagent[3],reagent[4]))
contrebasse@10 272 elseif reagent[3]>1 then
contrebasse@10 273 btn.resultNumber:SetText(reagent[3])
contrebasse@10 274 end
contrebasse@10 275 end
contrebasse@10 276
contrebasse@3 277 -- Save params
contrebasse@3 278 btn.itemID = itemID
contrebasse@10 279 btn.reagentID = reagent[1]
contrebasse@5 280 btn.reagentLink = link
contrebasse@10 281 btn.reagentsForOneRecipe = reagent[2]
contrebasse@73 282 btn.spellLink = reagent.spellLink
contrebasse@40 283 btn.action = action
contrebasse@40 284 btn.itemNameString = name
contrebasse@0 285
contrebasse@3 286 btn:Show()
contrebasse@0 287
contrebasse@2 288 -- Increase the entry number
contrebasse@0 289 numActiveEntries = numActiveEntries + 1
contrebasse@34 290
contrebasse@34 291 -- Everything went well
contrebasse@34 292 return true
contrebasse@0 293 end -- function
contrebasse@3 294
contrebasse@34 295 -- Function used on OnUpdate tu update the frame if there were errors the previous time
contrebasse@34 296 local function reopen()
contrebasse@34 297 -- Release OnUpdate frame (could conflict with BAG_UPDATE)
contrebasse@34 298 MenuFrame:SetScript("OnUpdate",nil)
contrebasse@34 299
contrebasse@34 300 -- reopen
contrebasse@34 301 A.externalCraftWindow(MenuFrame.itemID,MenuFrame.superItemID)
contrebasse@34 302 end
contrebasse@34 303
contrebasse@3 304 -- Fill the window and open it
contrebasse@33 305 function A.externalCraftWindow(itemID,superItemID)
contrebasse@3 306 -- Do not open during combat
contrebasse@3 307 if InCombatLockdown() then return end
contrebasse@3 308
contrebasse@3 309 -- Save the tradeskill
contrebasse@3 310 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 311
contrebasse@3 312 -- Close the previous menu
contrebasse@3 313 MenuFrame:Hide()
contrebasse@3 314 for i=1,numActiveEntries do
contrebasse@3 315 menuEntries[i]:Hide()
contrebasse@3 316 end
contrebasse@3 317 numActiveEntries = 0
contrebasse@3 318
contrebasse@3 319 -- Fill the info of the reagent to make
contrebasse@35 320 local name, link, quality, _, _, _, _, _, _, texture = GetItemInfo(itemID)
contrebasse@3 321 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 322 TitleText:SetText(name)
contrebasse@5 323 local color = ITEM_QUALITY_COLORS[quality]
contrebasse@5 324 TitleText:SetTextColor(color.r, color.g, color.b)
contrebasse@3 325
contrebasse@20 326 -- Save vars to show the tooltip later
contrebasse@20 327 MenuFrame.reagentLink = link
contrebasse@73 328 MenuFrame.spellLink = A.isRecipeUnique(A.data[itemID]) and A.data[itemID][1].spellLink
contrebasse@33 329 MenuFrame.itemID = itemID
contrebasse@73 330 MenuFrame.superItemID = superItemID -- optional, will be nil if not set
contrebasse@34 331
contrebasse@3 332 -- Loop over the available recipes
contrebasse@76 333 local noSkipped = true -- check if we have to reload the external frame to get all the data
contrebasse@76 334 local existsValidEntries -- check if the menu contains at least one item (cross-tradeskill problem)
contrebasse@3 335 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@73 336 if reagent.macro then
contrebasse@29 337 -- Special spell
contrebasse@76 338 existsValidEntries = true
contrebasse@76 339 noSkipped = menuAddItem(reagent.macro,itemID,reagent) and noSkipped
contrebasse@29 340 else
contrebasse@76 341 -- Standard tradeskill spell
contrebasse@85 342 if reagent.spellName == A.currentTradeSkill then
contrebasse@76 343 existsValidEntries = true
contrebasse@76 344 noSkipped = menuAddItem(A.craft,itemID,reagent) and noSkipped
contrebasse@76 345 end
contrebasse@29 346 end -- if
contrebasse@3 347 end -- for
contrebasse@3 348
contrebasse@76 349 -- do not show an empty menu
contrebasse@76 350 if not existsValidEntries then
contrebasse@76 351 return false
contrebasse@76 352 end
contrebasse@76 353
contrebasse@3 354 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 355
contrebasse@3 356 MenuFrame:ClearAllPoints()
contrebasse@3 357 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 358
contrebasse@40 359 -- Update counts and set actions
contrebasse@19 360 MenuFrame.updateCounts()
contrebasse@3 361
contrebasse@3 362 MenuFrame:Show()
contrebasse@34 363
contrebasse@76 364 if not noSkipped then
contrebasse@34 365 MenuFrame:SetScript("OnUpdate",reopen)
contrebasse@34 366 end
contrebasse@3 367 end