Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 31:22fa64c9b2de

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