Mercurial > wow > reagentmaker

annotate ReagentMaker.lua @ 107:d64a19e5a47d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bypass the filtering. Not fully tested, but mostly works.
author contrebasse
date Thu, 02 Jun 2011 00:57:17 +0200
parents c8d527a9fb3a
children 618163a6d970
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@107 6 -- @todo add support for hidden recipes, removing filtering => save the reagent count to be able to compute the number of craftable items
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@107 154 A.RestoreActiveFilters()
contrebasse@98 155 return
contrebasse@98 156 end
contrebasse@98 157 if numMakable>0 then
contrebasse@98 158 A.craft(recipeIndex,reagentRecipeIndex,reagentIndex,numMakable,chooseNumberToCraft)
contrebasse@107 159 A.RestoreActiveFilters()
contrebasse@98 160 return
contrebasse@98 161 end
contrebasse@98 162
contrebasse@98 163 -- If we can make the item needed to make the reagent, open a window to make it
contrebasse@98 164 -- one step recursion, enables to mill to create an ink
contrebasse@98 165 if A.data[reagentID][1][1] and A.data[A.data[reagentID][1][1]] then
contrebasse@98 166 if A.externalCraftWindow(A.data[reagentID][1][1],reagentID) ~= false then
contrebasse@107 167 A.RestoreActiveFilters()
contrebasse@98 168 return
contrebasse@98 169 end
contrebasse@98 170 end
contrebasse@98 171
contrebasse@98 172 A.Error(A.L["You do not have enough reagents to craft [%s]"]:format(GetItemInfo(reagentID) or "item #"..reagentID))
contrebasse@107 173 A.RestoreActiveFilters()
contrebasse@98 174 return
contrebasse@98 175 else
contrebasse@98 176 A.externalCraftWindow(reagentID)
contrebasse@98 177 end -- if
contrebasse@98 178 --A.RestoreActiveFilters()
contrebasse@98 179 end -- function
contrebasse@98 180
contrebasse@98 181
contrebasse@98 182 ---------------------------------------------------
contrebasse@98 183 -- Craft items
contrebasse@98 184 ---------------------------------------------------
contrebasse@98 185 -- function used after choosing the number of reagent to craft
contrebasse@98 186 function A.SplitStack(owner,split)
contrebasse@98 187 DoTradeSkill(owner.ReagentMaker_reagentIndex,tonumber(split))
contrebasse@98 188 owner.ReagentMaker_reagentIndex = nil
contrebasse@98 189 end
contrebasse@98 190
contrebasse@98 191 -- Craft the reagent of an item, given it's position in the recipe
contrebasse@98 192 function A.craft(recipeIndex,reagentRecipeIndex,reagentIndex,numReagentMakable,chooseNumber)
contrebasse@98 193 -- Look at how many we need to make one item for the selected recipe
contrebasse@98 194 local numToMake = 1
contrebasse@98 195 local _, _, reagentCount, playerReagentCount = GetTradeSkillReagentInfo(recipeIndex, reagentRecipeIndex)
contrebasse@98 196 -- make enough reagents to craft one more item
contrebasse@98 197 numToMake = math.min(math.floor(playerReagentCount/reagentCount+1)*reagentCount-playerReagentCount,numReagentMakable)
contrebasse@98 198
contrebasse@98 199 -- take into account that some recipe craft more than one item
contrebasse@98 200 -- use the mean between min and max, but make at least one...
contrebasse@98 201 local minMade, maxMade = GetTradeSkillNumMade(reagentIndex)
contrebasse@98 202 numToMake = math.max(math.floor(2*numToMake/(maxMade+minMade)),1)
contrebasse@101 203
contrebasse@98 204 -- Choose number or craft directly
contrebasse@98 205 if chooseNumber then
contrebasse@98 206 -- the dialog window is linked to the reagent button
contrebasse@98 207 local btn = _G["TradeSkillReagent"..reagentRecipeIndex]
contrebasse@98 208
contrebasse@98 209 -- Store info to be able to run the function later
contrebasse@98 210 btn.ReagentMaker_reagentIndex = reagentIndex
contrebasse@98 211
contrebasse@98 212 -- Open dialog
contrebasse@98 213 OpenStackSplitFrame(numReagentMakable, btn, "TOP", "BOTTOM")
contrebasse@98 214
contrebasse@98 215 -- Fill in the number to make
contrebasse@98 216 numToMake = tostring(numToMake)
contrebasse@98 217 for i = 1,numToMake:len() do
contrebasse@98 218 StackSplitFrame_OnChar(StackSplitFrame,numToMake:gsub(i,i))
contrebasse@98 219 end
contrebasse@98 220 StackSplitFrame.typing = 0 -- reinit the frame so tha the entered value will be erased on text entry
contrebasse@98 221 else
contrebasse@98 222 DoTradeSkill(reagentIndex,numToMake)
contrebasse@98 223 end -- if
contrebasse@98 224 end -- function
contrebasse@98 225
contrebasse@98 226
contrebasse@98 227 -- Button hovering
contrebasse@98 228 function A.btnEntered(btn)
contrebasse@98 229 -- Do not manage guild tradeskill
contrebasse@98 230 if IsTradeSkillGuild() or IsTradeSkillLinked() then return end
contrebasse@98 231
contrebasse@98 232 -- Index of the reagent in the recipe, taken from the button name
contrebasse@98 233 local reagentRecipeIndex = A.buttonNumber(btn)
contrebasse@98 234
contrebasse@98 235 -- ID of the reagent we want to craft
contrebasse@98 236 local reagentLink = GetTradeSkillReagentItemLink(GetTradeSkillSelectionIndex(), reagentRecipeIndex)
contrebasse@98 237 local reagentID = A.link2ID(reagentLink)
contrebasse@98 238
contrebasse@98 239 -- Continue only if the reagent is known
contrebasse@98 240 if not reagentID or not A.data[reagentID] then return end
contrebasse@98 241
contrebasse@98 242 btn.textureHighlight:Show()
contrebasse@98 243
contrebasse@98 244 -- Check if the item is made by only one recipe. If not, return
contrebasse@98 245 if not A.isRecipeUnique(A.data[reagentID]) then return end
contrebasse@98 246
contrebasse@98 247 -- Tooltips
contrebasse@98 248 local link = A.data[reagentID][1].spellLink
contrebasse@98 249 if link then
contrebasse@98 250 A.tooltipRecipe:SetOwner(btn)
contrebasse@98 251 A.tooltipRecipe:SetHyperlink(link)
contrebasse@98 252 A.tooltipRecipe:Show()
contrebasse@98 253 A.tooltipRecipe:ClearAllPoints()
contrebasse@98 254 A.tooltipRecipe:SetPoint("BOTTOMLEFT",GameTooltip,"BOTTOMRIGHT")
contrebasse@98 255 end
contrebasse@98 256 end
contrebasse@98 257
contrebasse@98 258 function A.btnLeft(btn)
contrebasse@98 259 btn.textureHighlight:Hide()
contrebasse@98 260 A.tooltipRecipe:Hide()
contrebasse@98 261 end -- function
contrebasse@98 262
contrebasse@98 263 function A.updateCounts(recipeIndex)
contrebasse@98 264 -- Needs an argument
contrebasse@98 265 if not recipeIndex then return end
contrebasse@98 266
contrebasse@98 267 -- Do not manage guild tradeskill
contrebasse@98 268 if IsTradeSkillGuild() or IsTradeSkillLinked() then
contrebasse@98 269 for reagentRecipeIndex = 1,GetTradeSkillNumReagents(recipeIndex) do
contrebasse@98 270 -- If the normal tradeskill hasn't been opened yet, the field 'label' doesn't exists yet
contrebasse@98 271 local label = _G["TradeSkillReagent"..reagentRecipeIndex].label
contrebasse@98 272 if label then
contrebasse@98 273 label:Hide()
contrebasse@98 274 end
contrebasse@98 275 end
contrebasse@98 276 return
contrebasse@98 277 end
contrebasse@98 278
contrebasse@98 279 -- Count makable items and show it
contrebasse@98 280 for reagentRecipeIndex = 1,GetTradeSkillNumReagents(recipeIndex) do
contrebasse@98 281 -- ID of the reagent we want to craft
contrebasse@98 282 local reagentLink = GetTradeSkillReagentItemLink(recipeIndex, reagentRecipeIndex)
contrebasse@98 283 local reagentID = A.link2ID(reagentLink)
contrebasse@98 284
contrebasse@98 285 local label = _G["TradeSkillReagent"..reagentRecipeIndex].label
contrebasse@98 286 if not label then break end -- Shouldn't happen...
contrebasse@98 287
contrebasse@98 288 -- Continue only if the reagent is known
contrebasse@98 289 if not reagentID or not A.data[reagentID] then
contrebasse@98 290 label:Hide()
contrebasse@98 291 else
contrebasse@98 292 -- Count and show
contrebasse@98 293 local numMakable = A.numMakable(reagentID)
contrebasse@98 294 if not numMakable or #(A.data[reagentID]) ~= 1 or A.data[reagentID][1].macro then
contrebasse@98 295 label:SetText("?")
contrebasse@98 296 label:SetTextColor(0, 0.5, 1, 1) -- blue
contrebasse@98 297 else
contrebasse@98 298 label:SetText(numMakable)
contrebasse@98 299 if numMakable==0 then
contrebasse@98 300 label:SetTextColor(1, 0, 0, 1) -- red
contrebasse@98 301 else
contrebasse@98 302 label:SetTextColor(0, 1, 0, 1) -- green
contrebasse@98 303 end
contrebasse@98 304 end -- if
contrebasse@98 305 label:Show()
contrebasse@98 306 end -- if
contrebasse@98 307 end -- for
contrebasse@98 308 end -- function
contrebasse@98 309 hooksecurefunc("SelectTradeSkill",A.updateCounts)