Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 18:c37c2a46723c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove debug printing
author contrebasse
date Fri, 08 Apr 2011 19:24:22 +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