Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 44:cefa203e2e51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v1.0beta0 for changeset 00c2282f073a
author contrebasse
date Sat, 30 Apr 2011 00:40:53 +0200
parents 5a6091dddf69
children 4e6492b19f4c
rev   line source
contrebasse@0 1 local addonName, A = ...
contrebasse@0 2
contrebasse@0 3 -- Create the menu frame
contrebasse@34 4 local MenuFrame = CreateFrame("Frame","ReagentMaker_ExternalFrame",UIParent)
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@32 41 if self.spellLink then
contrebasse@32 42 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@32 43 A.tooltipRecipe:SetHyperlink(self.spellLink)
contrebasse@32 44 A.tooltipRecipe:Show()
contrebasse@32 45 A.tooltipRecipe:ClearAllPoints()
contrebasse@32 46 A.tooltipRecipe:SetPoint("TOPRIGHT",GameTooltip,"BOTTOMRIGHT")
contrebasse@32 47 end
contrebasse@20 48 end
contrebasse@20 49 end)
contrebasse@20 50 MenuFrame:SetScript("OnLeave",function()
contrebasse@20 51 GameTooltip:Hide()
contrebasse@32 52 A.tooltipRecipe:Hide()
contrebasse@20 53 end)
contrebasse@33 54
contrebasse@33 55 -- Hide frame when selecting a recipe which doesn't need this reagent
contrebasse@33 56 hooksecurefunc("SelectTradeSkill",function()
contrebasse@33 57 local selectedIndex = GetTradeSkillSelectionIndex()
contrebasse@33 58 for reagentRecipeIndex = 1,GetTradeSkillNumReagents(selectedIndex) do
contrebasse@33 59 local reagentID = A.link2ID(GetTradeSkillReagentItemLink(selectedIndex, reagentRecipeIndex))
contrebasse@33 60 if reagentID == MenuFrame.itemID or (MenuFrame.superItemID and reagentID == MenuFrame.superItemID) then
contrebasse@33 61 return
contrebasse@33 62 end
contrebasse@33 63 end
contrebasse@33 64 MenuFrame:Hide()
contrebasse@33 65 end)
contrebasse@3 66 A.MenuFrame = MenuFrame
contrebasse@3 67
contrebasse@3 68 -- Background adaptable vertically
contrebasse@3 69 local bg_top = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 70 bg_top:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 71 bg_top:SetSize(192,80)
contrebasse@3 72 bg_top:SetPoint("TOP")
contrebasse@3 73 bg_top:SetTexCoord(0,192/256,0,80/256)
contrebasse@3 74 local bg_bot = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 75 bg_bot:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 76 bg_bot:SetSize(192,16)
contrebasse@3 77 bg_bot:SetPoint("BOTTOM")
contrebasse@3 78 bg_bot:SetTexCoord(0,192/256,240/256,1)
contrebasse@3 79 local bg_mid = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 80 bg_mid:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 81 bg_mid:SetWidth(192)
contrebasse@3 82 bg_mid:SetPoint("TOP",bg_top,"BOTTOM")
contrebasse@3 83 bg_mid:SetPoint("BOTTOM",bg_bot,"TOP")
contrebasse@3 84 bg_mid:SetTexCoord(0,192/256,80/256,240/256)
contrebasse@3 85
contrebasse@3 86 -- Bouton de fermeture
contrebasse@3 87 local CloseButton = CreateFrame("Button",nil,MenuFrame,"UIPanelCloseButton");
contrebasse@3 88 CloseButton:SetPoint("TOPRIGHT",0,-10)
contrebasse@3 89
contrebasse@3 90 -- Main icon
contrebasse@3 91 local itemIcon = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,-1)
contrebasse@3 92 itemIcon:SetSize(64,64)
contrebasse@3 93 itemIcon:SetPoint("TOPLEFT",8,-4)
contrebasse@3 94
contrebasse@3 95 -- Title
contrebasse@3 96 local TitleText = MenuFrame:CreateFontString(nil,"ARTWORK","GameFontHighlight")
contrebasse@3 97 TitleText:SetSize(92,14)
contrebasse@3 98 TitleText:SetPoint("RIGHT",CloseButton,"LEFT",4,1)
contrebasse@3 99
contrebasse@3 100 local MENU_ENTRY_HEIGHT = 41
contrebasse@3 101 local MENU_ENTRY_WIDTH = 147
contrebasse@3 102 local MENU_ENTRY_ICON_RATIO = 40/48
contrebasse@2 103
contrebasse@0 104 local numActiveEntries = 0
contrebasse@0 105 local menuEntries = {}
contrebasse@0 106
contrebasse@3 107 -- Button hovering
contrebasse@5 108 local function btnEntered(btn)
contrebasse@20 109 if btn.numMakable and btn.numMakable>0 then
contrebasse@5 110 btn.textureHighlight:Show()
contrebasse@5 111 end
contrebasse@3 112
contrebasse@20 113 GameTooltip:SetOwner(btn,"ANCHOR_LEFT")
contrebasse@5 114 GameTooltip:SetHyperlink(btn.reagentLink)
contrebasse@5 115 GameTooltip:Show()
contrebasse@31 116 if btn.spellLink then
contrebasse@31 117 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@31 118 A.tooltipRecipe:SetHyperlink(btn.spellLink)
contrebasse@31 119 A.tooltipRecipe:Show()
contrebasse@31 120 A.tooltipRecipe:ClearAllPoints()
contrebasse@31 121 A.tooltipRecipe:SetPoint("TOPRIGHT",GameTooltip,"BOTTOMRIGHT")
contrebasse@20 122 end
contrebasse@3 123 end
contrebasse@5 124 local function btnLeft(btn)
contrebasse@5 125 btn.textureHighlight:Hide()
contrebasse@5 126 GameTooltip:Hide()
contrebasse@5 127 A.tooltipRecipe:Hide()
contrebasse@3 128 end
contrebasse@3 129 local function createMenuEntry()
contrebasse@3 130 local btn = CreateFrame("Button", nil, MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 131 table.insert(menuEntries,btn)
contrebasse@3 132
contrebasse@3 133 btn:Hide()
contrebasse@3 134 btn:SetSize(MENU_ENTRY_WIDTH,MENU_ENTRY_HEIGHT)
contrebasse@3 135 btn:SetFrameStrata("DIALOG")
contrebasse@3 136
contrebasse@3 137 -- Set its position
contrebasse@3 138 if #menuEntries>1 then
contrebasse@3 139 btn:SetPoint("TOP",menuEntries[#menuEntries-1],"BOTTOM",0,-2)
contrebasse@2 140 else
contrebasse@3 141 btn:SetPoint("TOPLEFT",MenuFrame,"TOPLEFT",24,-79)
contrebasse@2 142 end
contrebasse@3 143
contrebasse@3 144 local icon = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 145 icon:SetPoint("TOPLEFT")
contrebasse@3 146 icon:SetSize(39,39)
contrebasse@3 147 btn.icon = icon
contrebasse@3 148
contrebasse@3 149 local itemNameBG = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 150 itemNameBG:SetTexture("Interface\\QuestFrame\\UI-QuestItemNameFrame")
contrebasse@3 151 itemNameBG:SetSize(128,64)
contrebasse@3 152 itemNameBG:SetPoint("LEFT",icon,"RIGHT",-10,0)
contrebasse@3 153
contrebasse@3 154 local itemName = btn:CreateFontString(nil,"BACKGROUND","GameFontHighlight")
contrebasse@3 155 itemName:SetSize(90,36)
contrebasse@3 156 itemName:SetPoint("LEFT",itemNameBG,"LEFT",15,0)
contrebasse@3 157 itemName:SetJustifyH("LEFT")
contrebasse@3 158 itemName:SetWordWrap(true)
contrebasse@3 159 itemName:SetNonSpaceWrap(false)
contrebasse@3 160 btn.itemName = itemName
contrebasse@3 161
contrebasse@3 162 local textureHighlight = btn:CreateTexture(nil,"BORDER")
contrebasse@3 163 textureHighlight:Hide()
contrebasse@3 164 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@3 165 textureHighlight:SetBlendMode("ADD")
contrebasse@3 166 textureHighlight:SetAllPoints(icon)
contrebasse@3 167 btn.textureHighlight = textureHighlight
contrebasse@5 168
contrebasse@5 169 local countDetail = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@5 170 countDetail:SetPoint("BOTTOMRIGHT",icon,"BOTTOMRIGHT",-1,1)
contrebasse@5 171 countDetail:SetJustifyH("RIGHT")
contrebasse@5 172 countDetail:SetJustifyV("BOTTOM")
contrebasse@5 173 btn.countDetail = countDetail
contrebasse@5 174
contrebasse@10 175 local resultNumber = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@11 176 resultNumber:SetPoint("TOPLEFT",icon,"TOPLEFT",1,-3)
contrebasse@10 177 resultNumber:SetJustifyH("LEFT")
contrebasse@10 178 resultNumber:SetJustifyV("TOP")
contrebasse@11 179 resultNumber:SetFont("Fonts\\ARIALN.TTF", 12, "OUTLINE")
contrebasse@10 180 btn.resultNumber = resultNumber
contrebasse@10 181
contrebasse@20 182 btn:SetScript("OnEnter", btnEntered)
contrebasse@20 183 btn:SetScript("OnLeave", btnLeft)
contrebasse@3 184
contrebasse@3 185 return btn
contrebasse@2 186 end
contrebasse@1 187
contrebasse@3 188 local function menuCraftItem()
contrebasse@3 189 action(itemID,reagentIndex,IsShiftKeyDown())
contrebasse@0 190 end
contrebasse@0 191
contrebasse@40 192 local function WarnNotMakable(btn)
contrebasse@40 193 A.Error("You do not have enough ["..btn.itemNameString.."] to craft ["..TitleText:GetText().."]")
contrebasse@40 194 end
contrebasse@40 195
contrebasse@40 196 -- Update counts and button actions
contrebasse@19 197 function MenuFrame.updateCounts()
contrebasse@3 198 local anyMakable
contrebasse@0 199 for i=1,numActiveEntries do
contrebasse@3 200 btn = menuEntries[i]
contrebasse@3 201 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 202
contrebasse@3 203 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 204 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 205
contrebasse@3 206 if numMakable>0 then
contrebasse@40 207 -- Set action
contrebasse@40 208 if type(action)=="function" then
contrebasse@40 209 btn:SetScript("PreClick",btn.action)
contrebasse@40 210 btn:SetAttribute("type", nil)
contrebasse@40 211 btn:SetAttribute("macrotext", nil)
contrebasse@40 212 else --if type(action)=="string" then
contrebasse@40 213 btn:SetScript("PreClick",nil)
contrebasse@40 214 btn:SetAttribute("type", "macro")
contrebasse@40 215 btn:SetAttribute("macrotext", btn.action..btn.itemNameString)
contrebasse@40 216 end -- if
contrebasse@40 217
contrebasse@3 218 anyMakable = true
contrebasse@5 219 btn.countDetail:SetTextColor(1, 1, 1, 1)
contrebasse@3 220 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 221 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 222 else
contrebasse@5 223 -- Do not disable the button, to be able to show the tooltip
contrebasse@40 224 -- Disable only the effects
contrebasse@40 225 btn:SetScript("PreClick",WarnNotMakable)
contrebasse@40 226 btn:SetAttribute("type", nil)
contrebasse@40 227 btn:SetAttribute("macrotext", nil)
contrebasse@40 228
contrebasse@5 229 btn.countDetail:SetTextColor(1, 0.1, 0.1, 1)
contrebasse@3 230 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 231 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 232 end
contrebasse@5 233
contrebasse@5 234 btn.numMakable = numMakable
contrebasse@3 235 end
contrebasse@3 236
contrebasse@5 237 local r,g,b = TitleText:GetTextColor()
contrebasse@3 238 if anyMakable then
contrebasse@3 239 itemIcon:SetVertexColor(1,1,1)
contrebasse@5 240 TitleText:SetTextColor(r,g,b,1)
contrebasse@3 241 else
contrebasse@3 242 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@5 243 TitleText:SetTextColor(r,g,b,0.7)
contrebasse@0 244 end
contrebasse@0 245 end
contrebasse@0 246
contrebasse@31 247 local function menuAddItem(action,itemID,reagent,spellLink)
contrebasse@0 248 local btn
contrebasse@0 249 -- Create a button only if necessary
contrebasse@0 250 if numActiveEntries >= #menuEntries then
contrebasse@3 251 btn = createMenuEntry()
contrebasse@0 252 else
contrebasse@0 253 btn = menuEntries[numActiveEntries+1]
contrebasse@0 254 end
contrebasse@0 255
contrebasse@3 256 -- Set text and icon
contrebasse@35 257 local name, link, _, _, _, _, _, _, _, texture = GetItemInfo(reagent[1])
contrebasse@3 258 if name then
contrebasse@3 259 btn.itemName:SetText(name)
contrebasse@3 260 else
contrebasse@34 261 --A.DEBUG("No item name : "..reagent[1])
contrebasse@5 262 return
contrebasse@3 263 end
contrebasse@0 264
contrebasse@3 265 if texture then
contrebasse@3 266 btn.icon:SetTexture(texture)
contrebasse@3 267 else
contrebasse@34 268 --A.DEBUG("No item texture : "..reagent[1])
contrebasse@5 269 return
contrebasse@3 270 end
contrebasse@3 271
contrebasse@10 272 -- Set chance to have the item or the number of items created
contrebasse@10 273 if reagent[3] then
contrebasse@10 274 if reagent[3]<1 then
contrebasse@10 275 btn.resultNumber:SetText((reagent[3]*100).."%")
contrebasse@11 276 elseif reagent[4] and reagent[3]~=reagent[4] then
contrebasse@11 277 btn.resultNumber:SetText(math.min(reagent[3],reagent[4]).."-"..math.max(reagent[3],reagent[4]))
contrebasse@10 278 elseif reagent[3]>1 then
contrebasse@10 279 btn.resultNumber:SetText(reagent[3])
contrebasse@10 280 end
contrebasse@10 281 end
contrebasse@10 282
contrebasse@3 283 -- Save params
contrebasse@3 284 btn.itemID = itemID
contrebasse@10 285 btn.reagentID = reagent[1]
contrebasse@5 286 btn.reagentLink = link
contrebasse@10 287 btn.reagentsForOneRecipe = reagent[2]
contrebasse@31 288 btn.spellLink = spellLink
contrebasse@40 289 btn.action = action
contrebasse@40 290 btn.itemNameString = name
contrebasse@0 291
contrebasse@3 292 btn:Show()
contrebasse@0 293
contrebasse@2 294 -- Increase the entry number
contrebasse@0 295 numActiveEntries = numActiveEntries + 1
contrebasse@34 296
contrebasse@34 297 -- Everything went well
contrebasse@34 298 return true
contrebasse@0 299 end -- function
contrebasse@3 300
contrebasse@34 301 -- Function used on OnUpdate tu update the frame if there were errors the previous time
contrebasse@34 302 local function reopen()
contrebasse@34 303 -- Release OnUpdate frame (could conflict with BAG_UPDATE)
contrebasse@34 304 MenuFrame:SetScript("OnUpdate",nil)
contrebasse@34 305
contrebasse@34 306 -- reopen
contrebasse@34 307 A.externalCraftWindow(MenuFrame.itemID,MenuFrame.superItemID)
contrebasse@34 308 end
contrebasse@34 309
contrebasse@3 310 -- Fill the window and open it
contrebasse@33 311 function A.externalCraftWindow(itemID,superItemID)
contrebasse@3 312 -- Do not open during combat
contrebasse@3 313 if InCombatLockdown() then return end
contrebasse@3 314
contrebasse@3 315 -- Save the tradeskill
contrebasse@3 316 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 317
contrebasse@3 318 -- Close the previous menu
contrebasse@3 319 MenuFrame:Hide()
contrebasse@3 320 for i=1,numActiveEntries do
contrebasse@3 321 menuEntries[i]:Hide()
contrebasse@3 322 end
contrebasse@3 323 numActiveEntries = 0
contrebasse@3 324
contrebasse@3 325 -- Fill the info of the reagent to make
contrebasse@35 326 local name, link, quality, _, _, _, _, _, _, texture = GetItemInfo(itemID)
contrebasse@3 327 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 328 TitleText:SetText(name)
contrebasse@5 329 local color = ITEM_QUALITY_COLORS[quality]
contrebasse@5 330 TitleText:SetTextColor(color.r, color.g, color.b)
contrebasse@3 331
contrebasse@20 332 -- Save vars to show the tooltip later
contrebasse@20 333 MenuFrame.reagentLink = link
contrebasse@32 334 MenuFrame.spellLink = A.data[itemID].spellLink
contrebasse@33 335 MenuFrame.itemID = itemID
contrebasse@33 336 MenuFrame.superItemID = superItemID -- optional
contrebasse@34 337
contrebasse@3 338 -- Loop over the available recipes
contrebasse@34 339 MenuFrame.state = true
contrebasse@3 340 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@29 341 if A.data[itemID].spell then
contrebasse@29 342 -- Special spell
contrebasse@39 343 MenuFrame.state = menuAddItem(A.data[itemID].spell,itemID,reagent,A.data[itemID].spellLink) and MenuFrame.state
contrebasse@29 344 else
contrebasse@29 345 -- Standard tradeskill spell UNTESTED
contrebasse@39 346 MenuFrame.state = menuAddItem(A.craft,itemID,reagent) and MenuFrame.state
contrebasse@29 347 end -- if
contrebasse@3 348 end -- for
contrebasse@3 349
contrebasse@3 350 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 351
contrebasse@3 352 MenuFrame:ClearAllPoints()
contrebasse@3 353 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 354
contrebasse@40 355 -- Update counts and set actions
contrebasse@19 356 MenuFrame.updateCounts()
contrebasse@3 357
contrebasse@3 358 MenuFrame:Show()
contrebasse@34 359
contrebasse@34 360 if not MenuFrame.state then
contrebasse@34 361 MenuFrame:SetScript("OnUpdate",reopen)
contrebasse@34 362 end
contrebasse@3 363 end