Mercurial > wow > reagentmaker

annotate data.lua @ 70:32ec6417874a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change the internal data format (not done yet for the external window)
author contrebasse
date Sat, 14 May 2011 20:19:22 +0200
parents 0675410645de
children e837f5681fbb
rev   line source
contrebasse@0 1 local addonName, A = ...
contrebasse@0 2
contrebasse@41 3 -- @todo: complete jewelcrafting items
contrebasse@67 4 -- @todo: enchants, elementals, prospecting
contrebasse@0 5
contrebasse@0 6 -- @todo improve scanning
contrebasse@0 7 -- @todo be sure that skillName is unique, or use something else
contrebasse@0 8 -- @todo add support for multi-reagents recipes
contrebasse@67 9
contrebasse@67 10 A.data = {}
contrebasse@67 11
contrebasse@15 12 do
contrebasse@15 13 -- lua functions
contrebasse@15 14 local print = print
contrebasse@15 15 local ipairs = ipairs
contrebasse@15 16 local tinsert = tinsert
contrebasse@67 17 local select = select
contrebasse@0 18
contrebasse@15 19 -- Wow functions
contrebasse@15 20 local GetNumTradeSkills = GetNumTradeSkills
contrebasse@15 21 local GetTradeSkillInfo = GetTradeSkillInfo
contrebasse@15 22 local GetTradeSkillNumReagents = GetTradeSkillNumReagents
contrebasse@15 23 local GetTradeSkillItemLink = GetTradeSkillItemLink
contrebasse@67 24 local GetTradeSkillRecipeLink = GetTradeSkillRecipeLink
contrebasse@15 25 local GetTradeSkillReagentItemLink = GetTradeSkillReagentItemLink
contrebasse@15 26 local GetTradeSkillReagentInfo = GetTradeSkillReagentInfo
contrebasse@15 27 local GetTradeSkillNumMade = GetTradeSkillNumMade
contrebasse@67 28 local GetSpellInfo = GetSpellInfo
contrebasse@67 29
contrebasse@67 30 -- Wow objects
contrebasse@67 31 local GetTradeSkillLine = GetTradeSkillLine
contrebasse@0 32
contrebasse@15 33 -- the function who scans the tradeskill
contrebasse@15 34 function A:ScanSimpleRecipes()
contrebasse@26 35 -- Check if the tradeskill is loaded
contrebasse@26 36 -- Has to have recipes and begin with a header
contrebasse@26 37 local NRecipes = GetNumTradeSkills()
contrebasse@26 38 if NRecipes==0 or select(2,GetTradeSkillInfo(1))~="header" then
contrebasse@26 39 return
contrebasse@26 40 end
contrebasse@70 41
contrebasse@70 42 tradeskillID = GetTradeSkillLine()
contrebasse@66 43
contrebasse@67 44 -- Check if the pseudo tradeskills have to be added
contrebasse@70 45 if tradeskillID == GetSpellInfo(25229) then -- Jewelcrafting
contrebasse@67 46 if not A.ProspectingDataLoaded then
contrebasse@68 47 for itemID,data in pairs(A.ProspectingData) do
contrebasse@67 48 A.data[itemID] = data
contrebasse@67 49 end
contrebasse@67 50 A.ProspectingDataLoaded = true
contrebasse@67 51 end
contrebasse@70 52 elseif tradeskillID == GetSpellInfo(45357) then -- Inscription
contrebasse@67 53 if not A.MillingDataLoaded then
contrebasse@68 54 for itemID,data in pairs(A.MillingData) do
contrebasse@67 55 A.data[itemID] = data
contrebasse@67 56 end
contrebasse@67 57 A.MillingDataLoaded = true
contrebasse@67 58 end
contrebasse@67 59 end
contrebasse@67 60
contrebasse@26 61 for i = 2,NRecipes do -- The first one is a header
contrebasse@70 62 -- skillName, skillType, numAvailable, isExpanded, serviceType, numSkillUps = GetTradeSkillInfo(index)
contrebasse@70 63 -- serviceType is nil if the recipe creates an item
contrebasse@70 64 local _, skillType, _, _, serviceType = GetTradeSkillInfo(i)
contrebasse@70 65 if skillType and skillType ~= "header" and serviceType==nil then
contrebasse@70 66 -- item ID
contrebasse@70 67 local itemID = A.link2ID(GetTradeSkillItemLink(i))
contrebasse@0 68
contrebasse@70 69 -- reagent ID, valid only if there's only one reagent as we take only the first one
contrebasse@70 70 local reagentID = A.link2ID(GetTradeSkillReagentItemLink(i, 1))
contrebasse@14 71
contrebasse@70 72 -- reagent number needed
contrebasse@70 73 local _, _, reagentCount, _ = GetTradeSkillReagentInfo(i, 1)
contrebasse@14 74
contrebasse@70 75 -- number of reagent created by the recipe
contrebasse@70 76 local minMade, maxMade = GetTradeSkillNumMade(i)
contrebasse@66 77
contrebasse@70 78 -- recipe link (for tooltips)
contrebasse@70 79 local recipeLink = GetTradeSkillRecipeLink(i)
contrebasse@0 80
contrebasse@70 81 -- error checking
contrebasse@70 82 if itemID and reagentID and reagentCount and minMade and maxMade and recipeLink then
contrebasse@70 83 -- remove unneeded minMade/maxMade
contrebasse@70 84 if maxMade==minMade then
contrebasse@70 85 maxMade = nil
contrebasse@70 86 if minMade==1 then
contrebasse@70 87 minMade = nil
contrebasse@70 88 end -- if
contrebasse@70 89 end -- if
contrebasse@66 90
contrebasse@70 91 -- As we scan multiple times, check if this recipe is already stored
contrebasse@70 92 local addSpell = true
contrebasse@70 93 if not A.data[itemID] then
contrebasse@70 94 A.data[itemID] = {}
contrebasse@70 95 else
contrebasse@37 96 for _,v in ipairs(A.data[itemID]) do
contrebasse@70 97 if v.spellLink==recipeLink then
contrebasse@70 98 addSpell = nil
contrebasse@37 99 break
contrebasse@37 100 end -- if
contrebasse@37 101 end -- for
contrebasse@15 102 end -- if
contrebasse@70 103
contrebasse@70 104 -- Cache the data
contrebasse@70 105 if addSpell then
contrebasse@70 106 local spell = {reagentID,reagentCount,minMade,maxMade}
contrebasse@70 107 spell.spellID = tradeskillID
contrebasse@70 108 spell.spellLink = recipeLink
contrebasse@70 109 spell.manyReagents = GetTradeSkillNumReagents(i)>1
contrebasse@70 110 tinsert(A.data[itemID],spell)
contrebasse@70 111 end
contrebasse@70 112
contrebasse@70 113 else -- Zap incomplete recipes, they will be scanned later
contrebasse@70 114 --@debug@
contrebasse@70 115 print("Erreur de scan :",itemID,reagentID,reagentCount,minMade,maxMade,recipeLink)
contrebasse@70 116 --@end-debug@
contrebasse@70 117 end -- if
contrebasse@0 118 end -- if
contrebasse@15 119 end -- for
contrebasse@66 120
contrebasse@70 121 zzz = A.data
contrebasse@26 122 -- the scanning is complete
contrebasse@26 123 return true
contrebasse@15 124 end -- function
contrebasse@15 125 end -- do