Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 3:ed0582126cae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The base features semms to work.
author contrebasse
date Sat, 02 Apr 2011 01:49:39 +0200
parents 04c5b817eead
children cea9633a6d4e
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@3 61 local function btnEntered(self)
contrebasse@3 62 --[[
contrebasse@3 63 -- Index of the reagent in the recipe, taken from the button name
contrebasse@3 64 local reagentRecipeIndex = A.buttonNumber(self)
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@3 73 self.textureHighlight:Show()
contrebasse@3 74
contrebasse@3 75 --[[
contrebasse@3 76 if #(A.data[reagentID]) == 1 and not A.data[reagentID].spell then
contrebasse@3 77 local numMakable = A.numMakable(reagentID)
contrebasse@3 78 self.itemName:SetText(numMakable)
contrebasse@3 79 if numMakable==0 then
contrebasse@3 80 self.itemName:SetTextColor(1, 0, 0, 1)
contrebasse@3 81 else
contrebasse@3 82 self.itemName:SetTextColor(0, 5, 0, 1)
contrebasse@3 83 end
contrebasse@3 84 self.itemName:Show()
contrebasse@3 85 end
contrebasse@3 86 --]]
contrebasse@3 87 end
contrebasse@3 88 local function btnLeft(self)
contrebasse@3 89 self.textureHighlight:Hide()
contrebasse@3 90 --self.itemName:Hide()
contrebasse@3 91 end
contrebasse@3 92 local function createMenuEntry()
contrebasse@3 93 --local btn = CreateFrame("Button", "ReagentMakerMenuButton"..(#menuEntries+1), MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 94 local btn = CreateFrame("Button", nil, MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 95 table.insert(menuEntries,btn)
contrebasse@3 96
contrebasse@3 97 btn:Hide()
contrebasse@3 98 btn:SetSize(MENU_ENTRY_WIDTH,MENU_ENTRY_HEIGHT)
contrebasse@3 99 btn:SetFrameStrata("DIALOG")
contrebasse@3 100
contrebasse@3 101 -- Set its position
contrebasse@3 102 if #menuEntries>1 then
contrebasse@3 103 btn:SetPoint("TOP",menuEntries[#menuEntries-1],"BOTTOM",0,-2)
contrebasse@2 104 else
contrebasse@3 105 btn:SetPoint("TOPLEFT",MenuFrame,"TOPLEFT",24,-79)
contrebasse@2 106 end
contrebasse@3 107
contrebasse@3 108 local icon = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 109 icon:SetPoint("TOPLEFT")
contrebasse@3 110 icon:SetSize(39,39)
contrebasse@3 111 btn.icon = icon
contrebasse@3 112
contrebasse@3 113 local itemNameBG = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 114 itemNameBG:SetTexture("Interface\\QuestFrame\\UI-QuestItemNameFrame")
contrebasse@3 115 itemNameBG:SetSize(128,64)
contrebasse@3 116 itemNameBG:SetPoint("LEFT",icon,"RIGHT",-10,0)
contrebasse@3 117
contrebasse@3 118 local itemName = btn:CreateFontString(nil,"BACKGROUND","GameFontHighlight")
contrebasse@3 119 itemName:SetSize(90,36)
contrebasse@3 120 itemName:SetPoint("LEFT",itemNameBG,"LEFT",15,0)
contrebasse@3 121 itemName:SetJustifyH("LEFT")
contrebasse@3 122 itemName:SetWordWrap(true)
contrebasse@3 123 itemName:SetNonSpaceWrap(false)
contrebasse@3 124 btn.itemName = itemName
contrebasse@3 125
contrebasse@3 126 local textureHighlight = btn:CreateTexture(nil,"BORDER")
contrebasse@3 127 textureHighlight:Hide()
contrebasse@3 128 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@3 129 textureHighlight:SetBlendMode("ADD")
contrebasse@3 130 textureHighlight:SetAllPoints(icon)
contrebasse@3 131 --textureHighlight:SetSize(MENU_ENTRY_HEIGHT,MENU_ENTRY_HEIGHT)
contrebasse@3 132 btn.textureHighlight = textureHighlight
contrebasse@3 133 btn:HookScript("OnEnter", btnEntered)
contrebasse@3 134 btn:HookScript("OnLeave", btnLeft)
contrebasse@3 135
contrebasse@3 136 local countTotal = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@3 137 --countTotal:SetSize(MENU_ENTRY_HEIGHT,MENU_ENTRY_HEIGHT/2)
contrebasse@3 138 countTotal:SetPoint("TOPLEFT",icon,"TOPLEFT",1,-1)
contrebasse@3 139 countTotal:SetJustifyH("LEFT")
contrebasse@3 140 countTotal:SetJustifyV("TOP")
contrebasse@3 141 --countTotal:SetFont("Fonts\\FRIZQT__.TTF", 10, "OUTLINE")
contrebasse@3 142 btn.countTotal = countTotal
contrebasse@3 143
contrebasse@3 144 local countDetail = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@3 145 --countDetail:SetSize(MENU_ENTRY_HEIGHT,MENU_ENTRY_HEIGHT/2)
contrebasse@3 146 countDetail:SetPoint("BOTTOMRIGHT",icon,"BOTTOMRIGHT",-1,1)
contrebasse@3 147 countDetail:SetJustifyH("RIGHT")
contrebasse@3 148 countDetail:SetJustifyV("BOTTOM")
contrebasse@3 149 --countDetail:SetFont("Fonts\\FRIZQT__.TTF", 12, "OUTLINE")
contrebasse@3 150 btn.countDetail = countDetail
contrebasse@3 151 return btn
contrebasse@2 152 end
contrebasse@1 153
contrebasse@1 154
contrebasse@3 155 local function menuCraftItem()
contrebasse@3 156 action(itemID,reagentIndex,IsShiftKeyDown())
contrebasse@0 157 end
contrebasse@0 158
contrebasse@3 159 local function updateCounts()
contrebasse@3 160 local anyMakable
contrebasse@0 161 for i=1,numActiveEntries do
contrebasse@3 162 btn = menuEntries[i]
contrebasse@3 163 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 164
contrebasse@3 165 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 166 btn.countTotal:SetText(numMakable)
contrebasse@3 167 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 168
contrebasse@3 169 if numMakable>0 then
contrebasse@3 170 anyMakable = true
contrebasse@3 171 btn.countTotal:SetTextColor(0, 5, 0, 1)
contrebasse@3 172 btn:Enable()
contrebasse@3 173 --btn.icon:SetDesaturated(false)
contrebasse@3 174 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 175 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 176 else
contrebasse@3 177 btn.countTotal:SetTextColor(1, 0, 0, 1)
contrebasse@3 178 btn:Disable()
contrebasse@3 179 --btn.icon:SetDesaturated(true)
contrebasse@3 180 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 181 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 182 end
contrebasse@3 183 end
contrebasse@3 184
contrebasse@3 185 if anyMakable then
contrebasse@3 186 itemIcon:SetVertexColor(1,1,1)
contrebasse@3 187 TitleText:SetTextColor(1,1,1,1)
contrebasse@3 188 else
contrebasse@3 189 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 190 TitleText:SetTextColor(1,1,1,0.5)
contrebasse@0 191 end
contrebasse@0 192 end
contrebasse@0 193
contrebasse@3 194 local function menuAddItem(action,itemID,reagentID,reagentsForOneRecipe)
contrebasse@0 195 local btn
contrebasse@0 196 -- Create a button only if necessary
contrebasse@0 197 if numActiveEntries >= #menuEntries then
contrebasse@3 198 btn = createMenuEntry()
contrebasse@0 199 else
contrebasse@0 200 btn = menuEntries[numActiveEntries+1]
contrebasse@0 201 end
contrebasse@0 202
contrebasse@3 203 -- Set text and icon
contrebasse@3 204 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(reagentID)
contrebasse@3 205 if name then
contrebasse@3 206 btn.itemName:SetText(name)
contrebasse@3 207 else
contrebasse@3 208 A.DEBUG("No item name : "..reagentID)
contrebasse@3 209 end
contrebasse@0 210
contrebasse@3 211 if texture then
contrebasse@3 212 btn.icon:SetTexture(texture)
contrebasse@3 213 else
contrebasse@3 214 A.DEBUG("No item texture : "..reagentID)
contrebasse@3 215 end
contrebasse@3 216
contrebasse@3 217 -- Save params
contrebasse@3 218 btn.itemID = itemID
contrebasse@3 219 btn.reagentID = reagentID
contrebasse@3 220 btn.reagentsForOneRecipe = reagentsForOneRecipe
contrebasse@3 221
contrebasse@3 222 -- Set action
contrebasse@0 223 if type(action)=="function" then
contrebasse@3 224 btn:SetScript("PreClick",action)
contrebasse@0 225 btn:SetAttribute("type", nil)
contrebasse@0 226 btn:SetAttribute("spell", nil)
contrebasse@3 227 btn:SetAttribute("target-item",nil)
contrebasse@3 228 else --if type(action)=="string" then
contrebasse@3 229 btn:SetScript("PreClick",nil)
contrebasse@3 230 btn:SetAttribute("type", "macro")
contrebasse@3 231 btn:SetAttribute("macrotext", action..GetItemInfo(reagentID))
contrebasse@3 232 --btn:SetAttribute("type", "macro")
contrebasse@3 233 --btn:SetAttribute("macrotext1","/cast Mouture\n/use Gangrelette")
contrebasse@0 234 end -- if
contrebasse@0 235
contrebasse@0 236 -- Reposition MenuFrame
contrebasse@1 237 --MenuFrame:SetPoint("BOTTOMRIGHT",btn,"BOTTOMRIGHT",0,0)
contrebasse@3 238 --MenuFrame:SetHeight((numActiveEntries+1)*MENU_ENTRY_HEIGHT)
contrebasse@3 239
contrebasse@3 240 btn:Show()
contrebasse@0 241
contrebasse@2 242 -- Increase the entry number
contrebasse@0 243 numActiveEntries = numActiveEntries + 1
contrebasse@0 244 end -- function
contrebasse@3 245
contrebasse@3 246 -- Fill the window and open it
contrebasse@3 247 function A.externalCraftWindow(itemID)
contrebasse@3 248 -- Do not open during combat
contrebasse@3 249 if InCombatLockdown() then return end
contrebasse@3 250
contrebasse@3 251 -- Save the tradeskill
contrebasse@3 252 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 253
contrebasse@3 254 -- Close the previous menu
contrebasse@3 255 MenuFrame:Hide()
contrebasse@3 256 for i=1,numActiveEntries do
contrebasse@3 257 menuEntries[i]:Hide()
contrebasse@3 258 end
contrebasse@3 259 numActiveEntries = 0
contrebasse@3 260
contrebasse@3 261 -- Fill the info of the reagent to make
contrebasse@3 262 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(itemID)
contrebasse@3 263 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 264 TitleText:SetText(name)
contrebasse@3 265
contrebasse@3 266 -- Loop over the available recipes
contrebasse@3 267 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@3 268 if A.data[itemID].spell then
contrebasse@3 269 -- Special spell
contrebasse@3 270 menuAddItem(A.data[itemID].spell,itemID,reagent[1],reagent[2])
contrebasse@3 271 else
contrebasse@3 272 -- Standard tradeskill spell UNTESTED
contrebasse@3 273 menuAddItem(A.craft,itemID,reagent[1],reagent[2])
contrebasse@3 274 end -- if
contrebasse@3 275 end -- for
contrebasse@3 276
contrebasse@3 277 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 278
contrebasse@3 279 MenuFrame:ClearAllPoints()
contrebasse@3 280 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 281
contrebasse@3 282 updateCounts()
contrebasse@3 283
contrebasse@3 284 MenuFrame:Show()
contrebasse@3 285 end