Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 19:f7b23db7bcc6

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