Mercurial > wow > itemauditor

annotate Modules/Crafting.lua @ 63:e7d287cc3b02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced all instances of addon with ItemAuditor and I moved ItemAuditor out of the global namespace. The conversion was mostly a search/replace offering no new functionality. That will come in a later commit.
author Asa Ayers <Asa.Ayers@Gmail.com>
date Tue, 27 Jul 2010 17:58:33 -0700
parents b24dbfbe2aef
children e92a5adf75bf
rev   line source
Asa@63 1 local ItemAuditor = select(2, ...)
Asa@63 2 local Crafting = ItemAuditor:NewModule("Crafting")
Asa@59 3
Asa@59 4 local AceGUI = LibStub("AceGUI-3.0")
Asa@59 5 local ScrollingTable = LibStub("ScrollingTable")
Asa@59 6
Asa@59 7 local validateMoney = ItemAuditor.validateMoney
Asa@59 8 local parseMoney = ItemAuditor.parseMoney
Asa@59 9
Asa@59 10 local realData = {}
Asa@59 11
Asa@59 12 local function displayMoney(rowFrame, cellFrame, data, cols, row, realrow, column, fShow, table, ...)
Asa@59 13 if fShow == true then
Asa@59 14 local money = data[realrow][column]
Asa@59 15 if money then
Asa@59 16 cellFrame.text:SetText(ItemAuditor:FormatMoney(tonumber(money)))
Asa@59 17 else
Asa@59 18 cellFrame.text:SetText("")
Asa@59 19 end
Asa@59 20
Asa@59 21 end
Asa@59 22 end
Asa@59 23
Asa@59 24 local craftingCols = {
Asa@59 25 { name= "Item", width = 200, defaultsort = "desc",
Asa@59 26 ['DoCellUpdate'] = function(rowFrame, cellFrame, data, cols, row, realrow, column, fShow, table, ...)
Asa@59 27 if fShow == true then
Asa@59 28 local data = realData[realrow]
Asa@59 29 cellFrame.text:SetText(data.link)
Asa@59 30 end
Asa@59 31 end,
Asa@59 32 },
Asa@59 33 { name= "Cost Each", width = 100, align = "RIGHT",
Asa@59 34 ['DoCellUpdate'] = displayMoney,
Asa@59 35 },
Asa@59 36 { name= "Est Sale Each", width = 100, align = "RIGHT",
Asa@59 37 ['DoCellUpdate'] = displayMoney,
Asa@59 38 },
Asa@59 39 { name= "Decided By", width = 100, align = "RIGHT",
Asa@59 40
Asa@59 41 },
Asa@59 42 { name= "craft", width = 50, align = "RIGHT",
Asa@59 43
Asa@59 44 },
Asa@59 45 { name= "Total Profit", width = 100, align = "RIGHT",
Asa@59 46 ['DoCellUpdate'] = displayMoney,
Asa@59 47 },
Asa@59 48 }
Asa@59 49
Asa@59 50 local function ExportToSkillet()
Asa@59 51 local index = 1
Asa@59 52 local data = ItemAuditor:GetCraftingRow(index)
Asa@59 53 while data do
Asa@59 54 local skillString = select(3, string.find(data.recipeLink, "^|%x+|H(.+)|h%[.+%]"))
Asa@59 55 local _, skillId = strsplit(":", skillString)
Asa@59 56
Asa@59 57 ItemAuditor:AddToQueue(skillId,tradeSkillIndex, data.queue)
Asa@61 58 index = index + 1
Asa@61 59 data = ItemAuditor:GetCraftingRow(index)
Asa@59 60
Asa@59 61 end
Asa@59 62 end
Asa@59 63
Asa@59 64 local craftingContent = false
Asa@59 65 local craftingTable = false
Asa@60 66 local btnProcess = false
Asa@59 67 local function ShowCrafting(container)
Asa@59 68 if craftingContent == false then
Asa@59 69 local window = container.frame
Asa@59 70 craftingContent = CreateFrame("Frame",nil,window)
Asa@59 71 craftingContent:SetBackdropColor(0, 0, 1, 0.5)
Asa@59 72 craftingContent:SetBackdropBorderColor(1, 0, 0, 1)
Asa@59 73
Asa@59 74 craftingContent:SetPoint("TOPLEFT", window, 10, -50)
Asa@59 75 craftingContent:SetPoint("BOTTOMRIGHT",window, -10, 10)
Asa@59 76
Asa@59 77 craftingTable = ScrollingTable:CreateST(craftingCols, 22, nil, nil, craftingContent )
Asa@59 78
Asa@59 79 IAcc = craftingContent
Asa@59 80 IAccWindow = window
Asa@59 81 craftingTable.frame:SetPoint("TOPLEFT",craftingContent, 0,0)
Asa@59 82 craftingTable.frame:SetPoint("BOTTOMRIGHT", craftingContent, 0, 30)
Asa@59 83
Asa@59 84 craftingTable:RegisterEvents({
Asa@59 85 ["OnEnter"] = function (rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Asa@59 86 if realrow then
Asa@59 87 local data = realData[realrow]
Asa@59 88
Asa@59 89 GameTooltip:SetOwner(rowFrame, "ANCHOR_CURSOR")
Asa@59 90 GameTooltip:SetHyperlink(data.link)
Asa@59 91 GameTooltip:Show()
Asa@59 92 end
Asa@59 93 end,
Asa@59 94 ["OnLeave"] = function (rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Asa@59 95 GameTooltip:Hide()
Asa@59 96 end,
Asa@59 97 });
Asa@59 98
Asa@59 99
Asa@59 100 btnProcess = CreateFrame("Button", nil, craftingContent, "UIPanelButtonTemplate")
Asa@59 101 btnProcess:SetText("Process")
Asa@59 102 btnProcess:SetSize(100, 25)
Asa@59 103 btnProcess:SetPoint("BOTTOMRIGHT", craftingContent, 0, 0)
Asa@59 104 btnProcess:RegisterForClicks("LeftButtonUp");
Asa@59 105
Asa@60 106 local function UpdateProcessTooltip(btn)
Asa@59 107 local data = ItemAuditor:GetCraftingRow(1)
Asa@59 108 if data then
Asa@59 109 GameTooltip:SetOwner(this, "ANCHOR_CURSOR")
Asa@59 110 GameTooltip:SetText(format('Create %sx%s', data.link, data.queue))
Asa@59 111 GameTooltip:Show()
Asa@59 112 end
Asa@60 113 end
Asa@60 114 btnProcess:SetScript("OnClick", function (self, button, down)
Asa@60 115 local data = ItemAuditor:GetCraftingRow(1)
Asa@60 116 if data then
Asa@60 117 ItemAuditor:Print('Crafting %sx%s', data.link, data.queue)
Asa@60 118 DoTradeSkill(data.tradeSkillIndex, data.queue)
Asa@60 119 data.queue = 0
Asa@60 120 ItemAuditor:RefreshCraftingTable()
Asa@60 121 UpdateProcessTooltip()
Asa@60 122 end
Asa@59 123 end)
Asa@59 124
Asa@60 125 btnProcess:SetScript("OnEnter", UpdateProcessTooltip)
Asa@60 126
Asa@59 127 btnProcess:SetScript("OnLeave", function()
Asa@59 128 GameTooltip:Hide()
Asa@59 129 end)
Asa@59 130
Asa@59 131 btnSkillet = CreateFrame("Button", nil, craftingContent, "UIPanelButtonTemplate")
Asa@59 132 btnSkillet:SetText("Queue in Skillet")
Asa@59 133 btnSkillet:SetSize(125, 25)
Asa@59 134 btnSkillet:SetPoint("BOTTOMRIGHT", btnProcess, 'BOTTOMLEFT', 0, 0)
Asa@59 135 btnSkillet:RegisterForClicks("LeftButtonUp");
Asa@59 136 btnSkillet:SetScript("OnClick", function (self, button, down)
Asa@59 137 ExportToSkillet()
Asa@59 138 end)
Asa@59 139
Asa@59 140 end
Asa@59 141 craftingContent:Show()
Asa@59 142
Asa@59 143 if container.parent then
Asa@59 144 local width = 80
Asa@59 145 for i, data in pairs(craftingCols) do
Asa@59 146 width = width + data.width
Asa@59 147 end
Asa@59 148 container.parent:SetWidth(width);
Asa@59 149 end
Asa@59 150
Asa@59 151 ItemAuditor:RegisterEvent("TRADE_SKILL_SHOW", function()
Asa@59 152 if craftingContent and craftingContent:IsVisible() then
Asa@59 153 ItemAuditor:UpdateCraftingTable()
Asa@59 154 end
Asa@59 155 end)
Asa@59 156 ItemAuditor:UpdateCraftingTable()
Asa@59 157
Asa@59 158 return craftingContent
Asa@59 159 end
Asa@59 160
Asa@59 161
Asa@59 162
Asa@59 163 ItemAuditor:RegisterTab('Crafting', 'tab_crafting', ShowCrafting)
Asa@59 164 function ItemAuditor:DisplayCrafting()
Asa@59 165 self:CreateFrame('tab_crafting')
Asa@59 166 end
Asa@59 167
Asa@59 168 local craftingDeciders = {}
Asa@59 169
Asa@59 170 function ItemAuditor:RegisterCraftingDecider(name, decider)
Asa@59 171 craftingDeciders[name] = decider
Asa@59 172 end
Asa@59 173
Asa@59 174 local lastWinnder = ""
Asa@59 175 local function Decide(data)
Asa@59 176 local newDecision = 0
Asa@59 177 for name, decider in pairs(craftingDeciders) do
Asa@59 178 if name ~= lastWinner then
Asa@59 179 newDecision = decider(data)
Asa@59 180 if newDecision > data.queue then
Asa@59 181 data.queue = newDecision
Asa@59 182 lastWinner = name
Asa@59 183 return Decide(data)
Asa@59 184 elseif newDecision < 0 then
Asa@59 185 lastWinner = ""
Asa@59 186 return 'VETO: '..name, 0
Asa@59 187 end
Asa@59 188 end
Asa@59 189 end
Asa@59 190
Asa@59 191 winner = lastWinner
Asa@59 192 lastWinner = ""
Asa@59 193
Asa@59 194 return winner, data.queue
Asa@59 195 end
Asa@59 196
Asa@59 197 local function isProfitable(data)
Asa@59 198 if data.profit > 0 and data.profit > ItemAuditor:GetCraftingThreshold() then
Asa@59 199 return 1
Asa@59 200 end
Asa@59 201 return -1
Asa@59 202 end
Asa@59 203 ItemAuditor:RegisterCraftingDecider('Is Profitable', isProfitable)
Asa@59 204
Asa@59 205 local function tableFilter(self, row, ...)
Asa@59 206 -- column 5 is how many should be crafted
Asa@59 207 return row[5] > 0
Asa@59 208 end
Asa@59 209
Asa@59 210 local tableData = {}
Asa@59 211 function ItemAuditor:UpdateCraftingTable()
Asa@59 212 if LSW == nil then
Asa@59 213 self:Print("This feature requires LilSparky's Workshop.")
Asa@59 214 return
Asa@59 215 end
Asa@59 216 if Skillet == nil then
Asa@59 217 self:Print("This feature requires Skillet.")
Asa@59 218 return
Asa@59 219 end
Asa@59 220 if GetAuctionBuyout ~= nil then
Asa@59 221 elseif AucAdvanced and AucAdvanced.Version then
Asa@59 222 else
Asa@59 223 self:Print("This feature requires Auctionator, Auctioneer, AuctionLite, or AuctionMaster.")
Asa@59 224 return
Asa@59 225 end
Asa@59 226 wipe(realData)
Asa@59 227 wipe(tableData)
Asa@59 228
Asa@59 229 local profitableItems = {}
Asa@59 230 local profitableIndex = 1
Asa@59 231 local numChecked = 0
Asa@59 232 local row = 1
Asa@59 233
Asa@59 234 for i = 1, GetNumTradeSkills() do
Asa@59 235 local itemLink = GetTradeSkillItemLink(i)
Asa@59 236 local itemId = Skillet:GetItemIDFromLink(itemLink)
Asa@59 237
Asa@59 238 --Figure out if its an enchant or not
Asa@59 239 _, _, _, _, altVerb = GetTradeSkillInfo(i)
Asa@59 240 if LSW.scrollData[itemId] ~= nil and altVerb == 'Enchant' then
Asa@59 241 -- Ask LSW for the correct scroll
Asa@59 242 itemId = LSW.scrollData[itemId]["scrollID"]
Asa@59 243 end
Asa@59 244
Asa@59 245 local recipeLink = GetTradeSkillRecipeLink(i)
Asa@59 246 local stackSize = 1
Asa@59 247 if recipeLink ~= nil and itemId ~= nil then
Asa@59 248 local skillName, skillType, numAvailable, isExpanded, altVerb = GetTradeSkillInfo(i)
Asa@59 249 local itemName, itemLink= GetItemInfo(itemId)
Asa@59 250
Asa@59 251 local count = Altoholic:GetItemCount(itemId)
Asa@59 252 local reagents = {}
Asa@59 253 local totalCost = 0
Asa@59 254 for reagentId = 1, GetTradeSkillNumReagents(i) do
Asa@59 255 local reagentName, _, reagentCount = GetTradeSkillReagentInfo(i, reagentId);
Asa@59 256 local reagentLink = GetTradeSkillReagentItemLink(i, reagentId)
Asa@59 257
Asa@59 258 reagents[reagentId] = {
Asa@59 259 name = reagentName,
Asa@59 260 count = reagentCount,
Asa@59 261 price = self:GetReagentCost(reagentLink, reagentCount),
Asa@59 262 }
Asa@59 263 totalCost = totalCost + self:GetReagentCost(reagentLink, reagentCount)
Asa@59 264 end
Asa@59 265
Asa@59 266 local data = {
Asa@59 267 recipeLink = recipeLink,
Asa@59 268 link = itemLink,
Asa@59 269 name = itemName,
Asa@59 270 count = count,
Asa@59 271 price = (self:GetAuctionPrice(itemLink) or 0),
Asa@59 272 cost = totalCost,
Asa@59 273 profit = (self:GetAuctionPrice(itemLink) or 0) - totalCost,
Asa@59 274 reagents = reagents,
Asa@59 275 count = count,
Asa@59 276 tradeSkillIndex = i,
Asa@59 277 queue = 0,
Asa@59 278 winner = "",
Asa@59 279 }
Asa@59 280
Asa@59 281 data.winner, data.queue = Decide(data)
Asa@59 282 data.queue = data.queue - count
Asa@59 283
Asa@59 284 -- If a tradeskill makes 5 at a time and something asks for 9, we should only
Asa@59 285 -- craft twice to get 10.
Asa@59 286 data.queue = ceil(data.queue / GetTradeSkillNumMade(i))
Asa@59 287
Asa@59 288 realData[row] = data
Asa@59 289 row = row + 1
Asa@59 290 end
Asa@59 291 end
Asa@59 292 table.sort(realData, function(a, b) return a.profit*a.queue > b.profit*b.queue end)
Asa@60 293 craftingTable:SetFilter(tableFilter)
Asa@60 294 self:RefreshCraftingTable()
Asa@60 295 end
Asa@60 296
Asa@60 297 function ItemAuditor:RefreshCraftingTable()
Asa@59 298 for key, data in pairs(realData) do
Asa@59 299 tableData[key] = {
Asa@59 300 data.name,
Asa@59 301 data.cost,
Asa@59 302 data.price,
Asa@59 303 data.winner,
Asa@59 304 data.queue,
Asa@59 305 data.profit*data.queue,
Asa@59 306 }
Asa@59 307 end
Asa@60 308 craftingTable:SetData(tableData, true)
Asa@59 309
Asa@60 310 if self:GetCraftingRow(1) then
Asa@60 311 btnProcess:Enable()
Asa@60 312 else
Asa@60 313 btnProcess:Disable()
Asa@60 314 end
Asa@59 315 end
Asa@59 316
Asa@59 317 function ItemAuditor:GetCraftingRow(row)
Asa@59 318 if craftingTable then
Asa@59 319 for _, index in pairs(craftingTable.sorttable) do
Asa@59 320 local tableRow = tableData[index]
Asa@59 321 if tableFilter(nil, tableRow) then
Asa@59 322 row = row - 1
Asa@59 323 if row == 0 then
Asa@59 324 return realData[index]
Asa@59 325 end
Asa@59 326 end
Asa@59 327 end
Asa@59 328 elseif realData then
Asa@59 329 return realData[row]
Asa@59 330 end
Asa@59 331 return nil
Asa@59 332 end