Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 25:578b9c9479c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove errors for hidden recipes and show a '?' when count isn't available
author contrebasse
date Thu, 28 Apr 2011 19:31:01 +0200
parents 4ea38bae4174
children 15123d11fc64
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@3 296 if A.data[itemID].spell then
contrebasse@3 297 -- Special spell
contrebasse@10 298 menuAddItem(A.data[itemID].spell,itemID,reagent,A.data[itemID].spellID)
contrebasse@3 299 else
contrebasse@3 300 -- Standard tradeskill spell UNTESTED
contrebasse@10 301 menuAddItem(A.craft,itemID,reagent)
contrebasse@3 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