Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 10:b6a5902f376f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Display the percent chance to have an item while prospecting
author contrebasse
date Sat, 02 Apr 2011 22:42:53 +0200
parents cea9633a6d4e
children 2716889648bd
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@10 139 resultNumber:SetPoint("TOPLEFT",icon,"TOPLEFT",1,-1)
contrebasse@10 140 resultNumber:SetJustifyH("LEFT")
contrebasse@10 141 resultNumber:SetJustifyV("TOP")
contrebasse@10 142 btn.resultNumber = resultNumber
contrebasse@10 143
contrebasse@3 144 btn:HookScript("OnEnter", btnEntered)
contrebasse@3 145 btn:HookScript("OnLeave", btnLeft)
contrebasse@3 146
contrebasse@3 147 return btn
contrebasse@2 148 end
contrebasse@1 149
contrebasse@1 150
contrebasse@3 151 local function menuCraftItem()
contrebasse@3 152 action(itemID,reagentIndex,IsShiftKeyDown())
contrebasse@0 153 end
contrebasse@0 154
contrebasse@3 155 local function updateCounts()
contrebasse@3 156 local anyMakable
contrebasse@0 157 for i=1,numActiveEntries do
contrebasse@3 158 btn = menuEntries[i]
contrebasse@3 159 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 160
contrebasse@3 161 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 162 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 163
contrebasse@3 164 if numMakable>0 then
contrebasse@3 165 anyMakable = true
contrebasse@5 166 btn.countDetail:SetTextColor(1, 1, 1, 1)
contrebasse@3 167 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 168 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 169 else
contrebasse@5 170 -- Do not disable the button, to be able to show the tooltip
contrebasse@5 171 btn.countDetail:SetTextColor(1, 0.1, 0.1, 1)
contrebasse@3 172 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 173 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 174 end
contrebasse@5 175
contrebasse@5 176 btn.numMakable = numMakable
contrebasse@3 177 end
contrebasse@3 178
contrebasse@5 179 local r,g,b = TitleText:GetTextColor()
contrebasse@3 180 if anyMakable then
contrebasse@3 181 itemIcon:SetVertexColor(1,1,1)
contrebasse@5 182 TitleText:SetTextColor(r,g,b,1)
contrebasse@3 183 else
contrebasse@3 184 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@5 185 TitleText:SetTextColor(r,g,b,0.7)
contrebasse@0 186 end
contrebasse@0 187 end
contrebasse@0 188
contrebasse@10 189 local function menuAddItem(action,itemID,reagent,spellID)
contrebasse@0 190 local btn
contrebasse@0 191 -- Create a button only if necessary
contrebasse@0 192 if numActiveEntries >= #menuEntries then
contrebasse@3 193 btn = createMenuEntry()
contrebasse@0 194 else
contrebasse@0 195 btn = menuEntries[numActiveEntries+1]
contrebasse@0 196 end
contrebasse@0 197
contrebasse@3 198 -- Set text and icon
contrebasse@10 199 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(reagent[1])
contrebasse@3 200 if name then
contrebasse@3 201 btn.itemName:SetText(name)
contrebasse@3 202 else
contrebasse@10 203 A.DEBUG("No item name : "..reagent[1])
contrebasse@5 204 return
contrebasse@3 205 end
contrebasse@0 206
contrebasse@3 207 if texture then
contrebasse@3 208 btn.icon:SetTexture(texture)
contrebasse@3 209 else
contrebasse@10 210 A.DEBUG("No item texture : "..reagent[1])
contrebasse@5 211 return
contrebasse@3 212 end
contrebasse@3 213
contrebasse@10 214 -- Set chance to have the item or the number of items created
contrebasse@10 215 if reagent[3] then
contrebasse@10 216 if reagent[3]<1 then
contrebasse@10 217 btn.resultNumber:SetText((reagent[3]*100).."%")
contrebasse@10 218 elseif reagent[3]>1 then
contrebasse@10 219 btn.resultNumber:SetText(reagent[3])
contrebasse@10 220 end
contrebasse@10 221 end
contrebasse@10 222
contrebasse@3 223 -- Save params
contrebasse@3 224 btn.itemID = itemID
contrebasse@10 225 btn.reagentID = reagent[1]
contrebasse@5 226 btn.reagentLink = link
contrebasse@10 227 btn.reagentsForOneRecipe = reagent[2]
contrebasse@5 228 btn.spellID = spellID
contrebasse@3 229
contrebasse@3 230 -- Set action
contrebasse@0 231 if type(action)=="function" then
contrebasse@3 232 btn:SetScript("PreClick",action)
contrebasse@0 233 btn:SetAttribute("type", nil)
contrebasse@5 234 btn:SetAttribute("macrotext", nil)
contrebasse@3 235 else --if type(action)=="string" then
contrebasse@3 236 btn:SetScript("PreClick",nil)
contrebasse@3 237 btn:SetAttribute("type", "macro")
contrebasse@5 238 btn:SetAttribute("macrotext", action..name)
contrebasse@0 239 end -- if
contrebasse@0 240
contrebasse@3 241 btn:Show()
contrebasse@0 242
contrebasse@2 243 -- Increase the entry number
contrebasse@0 244 numActiveEntries = numActiveEntries + 1
contrebasse@0 245 end -- function
contrebasse@3 246
contrebasse@3 247 -- Fill the window and open it
contrebasse@3 248 function A.externalCraftWindow(itemID)
contrebasse@3 249 -- Do not open during combat
contrebasse@3 250 if InCombatLockdown() then return end
contrebasse@3 251
contrebasse@3 252 -- Save the tradeskill
contrebasse@3 253 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 254
contrebasse@3 255 -- Close the previous menu
contrebasse@3 256 MenuFrame:Hide()
contrebasse@3 257 for i=1,numActiveEntries do
contrebasse@3 258 menuEntries[i]:Hide()
contrebasse@3 259 end
contrebasse@3 260 numActiveEntries = 0
contrebasse@3 261
contrebasse@3 262 -- Fill the info of the reagent to make
contrebasse@3 263 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(itemID)
contrebasse@3 264 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 265 TitleText:SetText(name)
contrebasse@5 266 local color = ITEM_QUALITY_COLORS[quality]
contrebasse@5 267 TitleText:SetTextColor(color.r, color.g, color.b)
contrebasse@3 268
contrebasse@3 269 -- Loop over the available recipes
contrebasse@3 270 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@3 271 if A.data[itemID].spell then
contrebasse@3 272 -- Special spell
contrebasse@10 273 menuAddItem(A.data[itemID].spell,itemID,reagent,A.data[itemID].spellID)
contrebasse@3 274 else
contrebasse@3 275 -- Standard tradeskill spell UNTESTED
contrebasse@10 276 menuAddItem(A.craft,itemID,reagent)
contrebasse@3 277 end -- if
contrebasse@3 278 end -- for
contrebasse@3 279
contrebasse@3 280 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 281
contrebasse@3 282 MenuFrame:ClearAllPoints()
contrebasse@3 283 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 284
contrebasse@3 285 updateCounts()
contrebasse@3 286
contrebasse@3 287 MenuFrame:Show()
contrebasse@3 288 end