Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 30:fd76c8951b7d

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