Mercurial > wow > reagentmaker

annotate ReagentMaker.lua @ 103:c8d527a9fb3a v1.0beta11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Better manage combat and secure buttons
author contrebasse
date Sat, 21 May 2011 14:19:33 +0200
parents 060f5d0f7a35
children d64a19e5a47d
rev   line source
contrebasse@98 1 local addonName, A = ...
contrebasse@98 2
contrebasse@98 3 -- @todo clean the A table
contrebasse@98 4 -- @todo check local copy of globals functions
contrebasse@98 5 -- @todo add support for dez ?
contrebasse@98 6 -- @todo add support for hidden recipes, removing filtering
contrebasse@98 7 -- @todo add support for cross tradeskill, like mining + forge/ingé
contrebasse@98 8 -- @todo when a reagent can not be crafted and the recipe has many reagents, do like ReverseEngeneering and go to this recipe (with a one step return button)
contrebasse@98 9 -- @todo scroll to the selected recipe on opening (usefull also for the previous todo)
contrebasse@98 10 -- @todo shift+clic on a reagent name while the serachbar is focused fills the serachbar with the reagent name (idem with the crafted item)
contrebasse@98 11 -- @todo add a button to clear search
contrebasse@98 12 -- @todo add a button to cast a campfire when coocking
contrebasse@98 13
contrebasse@98 14 ---------------------------------------------------
contrebasse@98 15 -- Variables
contrebasse@98 16 ---------------------------------------------------
contrebasse@98 17 -- Used by findglobals
contrebasse@98 18 -- GLOBALS: _G, CreateFrame, DEFAULT_CHAT_FRAME
contrebasse@98 19
contrebasse@98 20 -- Lua functions
contrebasse@98 21
contrebasse@98 22 -- Wow functions
contrebasse@98 23
contrebasse@98 24 -- constant vars
contrebasse@98 25
contrebasse@98 26 ---------------------------------------------------
contrebasse@98 27 -- Manage events
contrebasse@98 28 ---------------------------------------------------
contrebasse@98 29 A.EventsFrame = CreateFrame("Frame")
contrebasse@98 30
contrebasse@98 31 local SCAN_DELAY = 0.2
contrebasse@98 32 local t_throttle = SCAN_DELAY
contrebasse@98 33 local function throttleScan(self, t_elapsed)
contrebasse@98 34 t_throttle = t_throttle - t_elapsed
contrebasse@98 35 if t_throttle<0 then
contrebasse@98 36 self:SetScript("OnUpdate", nil)
contrebasse@98 37
contrebasse@98 38 -- Close the external window if the tradeskill changed
contrebasse@98 39 if A.currentTradeSkill ~= GetTradeSkillLine() then
contrebasse@98 40 A.MenuFrame:Hide()
contrebasse@98 41 end
contrebasse@98 42 if IsTradeSkillGuild() or IsTradeSkillLinked() then
contrebasse@98 43 A.MenuFrame:Hide()
contrebasse@98 44 return
contrebasse@98 45 end
contrebasse@98 46
contrebasse@98 47 -- Scan availabe recipes
contrebasse@98 48 -- Rescan in case of problem
contrebasse@98 49 if not A:ScanSimpleRecipes() then
contrebasse@98 50 t_throttle = SCAN_DELAY
contrebasse@98 51 self:SetScript("OnUpdate", throttleScan)
contrebasse@98 52 end
contrebasse@98 53
contrebasse@98 54 -- Show makables reagents
contrebasse@98 55 A.updateCounts(GetTradeSkillSelectionIndex())
contrebasse@98 56 end
contrebasse@98 57 end
contrebasse@98 58 A.EventsFrame:SetScript("OnEvent", function(self, event)
contrebasse@98 59 if event == "TRADE_SKILL_UPDATE" then
contrebasse@98 60 t_throttle = SCAN_DELAY
contrebasse@98 61 self:SetScript("OnUpdate", throttleScan)
contrebasse@101 62 A.ManageCampFireBtn()
contrebasse@101 63
contrebasse@101 64 elseif event == "PLAYER_REGEN_DISABLED" then
contrebasse@101 65 A.HideCampFireBtn()
contrebasse@101 66 elseif event == "PLAYER_REGEN_ENABLED" then
contrebasse@101 67 A.ManageCampFireBtn()
contrebasse@98 68
contrebasse@98 69 elseif event == "TRADE_SKILL_SHOW" then
contrebasse@98 70 A:Initialize()
contrebasse@98 71 A.EventsFrame:UnregisterEvent("TRADE_SKILL_SHOW")
contrebasse@98 72 end -- if
contrebasse@98 73 end) -- function
contrebasse@98 74 A.EventsFrame:RegisterEvent("TRADE_SKILL_SHOW")
contrebasse@98 75 A.EventsFrame:RegisterEvent("TRADE_SKILL_UPDATE")
contrebasse@98 76 A.EventsFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@98 77 A.EventsFrame:RegisterEvent("PLAYER_REGEN_DISABLED")
contrebasse@98 78
contrebasse@98 79 ---------------------------------------------------
contrebasse@98 80 -- Initialize
contrebasse@98 81 ---------------------------------------------------
contrebasse@98 82 function A:Initialize()
contrebasse@98 83
contrebasse@98 84 -- Register clics on reagent's buttons
contrebasse@98 85 for i=1,7 do
contrebasse@98 86 local btn = _G["TradeSkillReagent"..i]
contrebasse@98 87 btn:HookScript("OnDoubleClick", A.ProcessReagent)
contrebasse@98 88 btn:HookScript("OnEnter", A.btnEntered)
contrebasse@98 89 btn:HookScript("OnLeave", A.btnLeft)
contrebasse@98 90 btn.SplitStack = A.SplitStack
contrebasse@98 91
contrebasse@98 92 local textureHighlight = btn:CreateTexture()
contrebasse@98 93 textureHighlight:Hide()
contrebasse@98 94 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@98 95 textureHighlight:SetBlendMode("ADD")
contrebasse@98 96 textureHighlight:SetAllPoints("TradeSkillReagent"..i.."IconTexture")
contrebasse@98 97 btn.textureHighlight = textureHighlight
contrebasse@98 98
contrebasse@98 99 local label = btn:CreateFontString(nil,"ARTWORK","GameFontHighlight")
contrebasse@98 100 label:SetSize(100,20)
contrebasse@98 101 label:SetPoint("TOPLEFT",btn,"TOPLEFT",4,-4)
contrebasse@98 102 label:SetJustifyH("LEFT")
contrebasse@98 103 label:SetJustifyV("TOP")
contrebasse@98 104 label:SetFont("Fonts\\FRIZQT__.TTF", 10, "OUTLINE")
contrebasse@98 105 btn.label = label
contrebasse@98 106 end -- for
contrebasse@98 107
contrebasse@98 108 -- Secondary Tooltip
contrebasse@98 109 A.tooltipRecipe = CreateFrame("GameTooltip", "ReagentMaker_tooltipRecipe",UIParent, "GameTooltipTemplate")
contrebasse@98 110 A.tooltipRecipe:SetFrameStrata("TOOLTIP")
contrebasse@98 111 A.tooltipRecipe:Hide()
contrebasse@101 112
contrebasse@98 113 -- Button for enchanting directy on a scroll
contrebasse@98 114 A.LoadEnchantOnScroll()
contrebasse@98 115 end -- function
contrebasse@98 116
contrebasse@98 117 -- Function run after selecting a item in the tradeskill window
contrebasse@98 118 function A.ProcessReagent(btn, ...)
contrebasse@98 119
contrebasse@98 120 -- Do not manage guild tradeskill
contrebasse@98 121 if IsTradeSkillGuild() or IsTradeSkillLinked() then return end
contrebasse@98 122
contrebasse@98 123 -- We want no modifiers, or shift to choose the number of reagent to craft
contrebasse@98 124 if IsModifierKeyDown() and not IsShiftKeyDown() then return end
contrebasse@98 125 local chooseNumberToCraft = IsShiftKeyDown()
contrebasse@98 126
contrebasse@98 127 -- Index of the reagent in the recipe, taken from the button name
contrebasse@98 128 local reagentRecipeIndex = A.buttonNumber(btn)
contrebasse@98 129
contrebasse@98 130 -- ID of the reagent we want to craft
contrebasse@98 131 local recipeIndex = GetTradeSkillSelectionIndex()
contrebasse@98 132 local reagentID = A.link2ID(GetTradeSkillReagentItemLink(recipeIndex, reagentRecipeIndex))
contrebasse@98 133
contrebasse@98 134 -- Continue only if the reagent is known
contrebasse@98 135 if not reagentID or not A.data[reagentID] then return end
contrebasse@98 136
contrebasse@98 137 -- If only one recipe is known for the reagent, use it
contrebasse@98 138 if #(A.data[reagentID]) == 1 and not A.data[reagentID][1].macro then
contrebasse@98 139 if A.data[reagentID][1].spellName and A.data[reagentID][1].spellName ~= GetTradeSkillLine() then
contrebasse@98 140 A.Error(A.L["The recipe to make this reagent is in another tradeskill. Currently ReagentMaker can not manage such a case, sorry."])
contrebasse@98 141 return
contrebasse@98 142 end
contrebasse@98 143
contrebasse@98 144 local numMakable, reagentIndex = A.numMakable(reagentID)
contrebasse@98 145
contrebasse@98 146 -- Try to show the recipe by removing filters once if it was not found
contrebasse@98 147 if not reagentIndex then
contrebasse@98 148 A.SaveActiveFilters(A.data[reagentID][1].header)
contrebasse@98 149 numMakable, reagentIndex = A.numMakable(reagentID)
contrebasse@98 150 end
contrebasse@98 151
contrebasse@98 152 if not numMakable then
contrebasse@98 153 A.Error(A.L["The recipe to make the reagent seems to be hidden, it is not makable. Try to remove the filters on the recipes."])
contrebasse@98 154 return
contrebasse@98 155 end
contrebasse@98 156 if numMakable>0 then
contrebasse@98 157 A.craft(recipeIndex,reagentRecipeIndex,reagentIndex,numMakable,chooseNumberToCraft)
contrebasse@98 158 return
contrebasse@98 159 end
contrebasse@98 160
contrebasse@98 161 -- If we can make the item needed to make the reagent, open a window to make it
contrebasse@98 162 -- one step recursion, enables to mill to create an ink
contrebasse@98 163 if A.data[reagentID][1][1] and A.data[A.data[reagentID][1][1]] then
contrebasse@98 164 if A.externalCraftWindow(A.data[reagentID][1][1],reagentID) ~= false then
contrebasse@98 165 return
contrebasse@98 166 end
contrebasse@98 167 end
contrebasse@98 168
contrebasse@98 169 A.Error(A.L["You do not have enough reagents to craft [%s]"]:format(GetItemInfo(reagentID) or "item #"..reagentID))
contrebasse@98 170 return
contrebasse@98 171 else
contrebasse@98 172 A.externalCraftWindow(reagentID)
contrebasse@98 173 end -- if
contrebasse@98 174 --A.RestoreActiveFilters()
contrebasse@98 175 end -- function
contrebasse@98 176
contrebasse@98 177
contrebasse@98 178 ---------------------------------------------------
contrebasse@98 179 -- Craft items
contrebasse@98 180 ---------------------------------------------------
contrebasse@98 181 -- function used after choosing the number of reagent to craft
contrebasse@98 182 function A.SplitStack(owner,split)
contrebasse@98 183 DoTradeSkill(owner.ReagentMaker_reagentIndex,tonumber(split))
contrebasse@98 184 owner.ReagentMaker_reagentIndex = nil
contrebasse@98 185 end
contrebasse@98 186
contrebasse@98 187 -- Craft the reagent of an item, given it's position in the recipe
contrebasse@98 188 function A.craft(recipeIndex,reagentRecipeIndex,reagentIndex,numReagentMakable,chooseNumber)
contrebasse@98 189 -- Look at how many we need to make one item for the selected recipe
contrebasse@98 190 local numToMake = 1
contrebasse@98 191 local _, _, reagentCount, playerReagentCount = GetTradeSkillReagentInfo(recipeIndex, reagentRecipeIndex)
contrebasse@98 192 -- make enough reagents to craft one more item
contrebasse@98 193 numToMake = math.min(math.floor(playerReagentCount/reagentCount+1)*reagentCount-playerReagentCount,numReagentMakable)
contrebasse@98 194
contrebasse@98 195 -- take into account that some recipe craft more than one item
contrebasse@98 196 -- use the mean between min and max, but make at least one...
contrebasse@98 197 local minMade, maxMade = GetTradeSkillNumMade(reagentIndex)
contrebasse@98 198 numToMake = math.max(math.floor(2*numToMake/(maxMade+minMade)),1)
contrebasse@101 199
contrebasse@98 200 -- Choose number or craft directly
contrebasse@98 201 if chooseNumber then
contrebasse@98 202 -- the dialog window is linked to the reagent button
contrebasse@98 203 local btn = _G["TradeSkillReagent"..reagentRecipeIndex]
contrebasse@98 204
contrebasse@98 205 -- Store info to be able to run the function later
contrebasse@98 206 btn.ReagentMaker_reagentIndex = reagentIndex
contrebasse@98 207
contrebasse@98 208 -- Open dialog
contrebasse@98 209 OpenStackSplitFrame(numReagentMakable, btn, "TOP", "BOTTOM")
contrebasse@98 210
contrebasse@98 211 -- Fill in the number to make
contrebasse@98 212 numToMake = tostring(numToMake)
contrebasse@98 213 for i = 1,numToMake:len() do
contrebasse@98 214 StackSplitFrame_OnChar(StackSplitFrame,numToMake:gsub(i,i))
contrebasse@98 215 end
contrebasse@98 216 StackSplitFrame.typing = 0 -- reinit the frame so tha the entered value will be erased on text entry
contrebasse@98 217 else
contrebasse@98 218 DoTradeSkill(reagentIndex,numToMake)
contrebasse@98 219 end -- if
contrebasse@98 220 end -- function
contrebasse@98 221
contrebasse@98 222
contrebasse@98 223 -- Button hovering
contrebasse@98 224 function A.btnEntered(btn)
contrebasse@98 225 -- Do not manage guild tradeskill
contrebasse@98 226 if IsTradeSkillGuild() or IsTradeSkillLinked() then return end
contrebasse@98 227
contrebasse@98 228 -- Index of the reagent in the recipe, taken from the button name
contrebasse@98 229 local reagentRecipeIndex = A.buttonNumber(btn)
contrebasse@98 230
contrebasse@98 231 -- ID of the reagent we want to craft
contrebasse@98 232 local reagentLink = GetTradeSkillReagentItemLink(GetTradeSkillSelectionIndex(), reagentRecipeIndex)
contrebasse@98 233 local reagentID = A.link2ID(reagentLink)
contrebasse@98 234
contrebasse@98 235 -- Continue only if the reagent is known
contrebasse@98 236 if not reagentID or not A.data[reagentID] then return end
contrebasse@98 237
contrebasse@98 238 btn.textureHighlight:Show()
contrebasse@98 239
contrebasse@98 240 -- Check if the item is made by only one recipe. If not, return
contrebasse@98 241 if not A.isRecipeUnique(A.data[reagentID]) then return end
contrebasse@98 242
contrebasse@98 243 -- Tooltips
contrebasse@98 244 local link = A.data[reagentID][1].spellLink
contrebasse@98 245 if link then
contrebasse@98 246 A.tooltipRecipe:SetOwner(btn)
contrebasse@98 247 A.tooltipRecipe:SetHyperlink(link)
contrebasse@98 248 A.tooltipRecipe:Show()
contrebasse@98 249 A.tooltipRecipe:ClearAllPoints()
contrebasse@98 250 A.tooltipRecipe:SetPoint("BOTTOMLEFT",GameTooltip,"BOTTOMRIGHT")
contrebasse@98 251 end
contrebasse@98 252 end
contrebasse@98 253
contrebasse@98 254 function A.btnLeft(btn)
contrebasse@98 255 btn.textureHighlight:Hide()
contrebasse@98 256 A.tooltipRecipe:Hide()
contrebasse@98 257 end -- function
contrebasse@98 258
contrebasse@98 259 function A.updateCounts(recipeIndex)
contrebasse@98 260 -- Needs an argument
contrebasse@98 261 if not recipeIndex then return end
contrebasse@98 262
contrebasse@98 263 -- Do not manage guild tradeskill
contrebasse@98 264 if IsTradeSkillGuild() or IsTradeSkillLinked() then
contrebasse@98 265 for reagentRecipeIndex = 1,GetTradeSkillNumReagents(recipeIndex) do
contrebasse@98 266 -- If the normal tradeskill hasn't been opened yet, the field 'label' doesn't exists yet
contrebasse@98 267 local label = _G["TradeSkillReagent"..reagentRecipeIndex].label
contrebasse@98 268 if label then
contrebasse@98 269 label:Hide()
contrebasse@98 270 end
contrebasse@98 271 end
contrebasse@98 272 return
contrebasse@98 273 end
contrebasse@98 274
contrebasse@98 275 -- Count makable items and show it
contrebasse@98 276 for reagentRecipeIndex = 1,GetTradeSkillNumReagents(recipeIndex) do
contrebasse@98 277 -- ID of the reagent we want to craft
contrebasse@98 278 local reagentLink = GetTradeSkillReagentItemLink(recipeIndex, reagentRecipeIndex)
contrebasse@98 279 local reagentID = A.link2ID(reagentLink)
contrebasse@98 280
contrebasse@98 281 local label = _G["TradeSkillReagent"..reagentRecipeIndex].label
contrebasse@98 282 if not label then break end -- Shouldn't happen...
contrebasse@98 283
contrebasse@98 284 -- Continue only if the reagent is known
contrebasse@98 285 if not reagentID or not A.data[reagentID] then
contrebasse@98 286 label:Hide()
contrebasse@98 287 else
contrebasse@98 288 -- Count and show
contrebasse@98 289 local numMakable = A.numMakable(reagentID)
contrebasse@98 290 if not numMakable or #(A.data[reagentID]) ~= 1 or A.data[reagentID][1].macro then
contrebasse@98 291 label:SetText("?")
contrebasse@98 292 label:SetTextColor(0, 0.5, 1, 1) -- blue
contrebasse@98 293 else
contrebasse@98 294 label:SetText(numMakable)
contrebasse@98 295 if numMakable==0 then
contrebasse@98 296 label:SetTextColor(1, 0, 0, 1) -- red
contrebasse@98 297 else
contrebasse@98 298 label:SetTextColor(0, 1, 0, 1) -- green
contrebasse@98 299 end
contrebasse@98 300 end -- if
contrebasse@98 301 label:Show()
contrebasse@98 302 end -- if
contrebasse@98 303 end -- for
contrebasse@98 304 end -- function
contrebasse@98 305 hooksecurefunc("SelectTradeSkill",A.updateCounts)