Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 13:5eb02d3e1647

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