Mercurial > wow > reagentmaker

annotate ReagentMaker.lua @ 80:48ed46f3e72e

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