Mercurial > wow > itemauditor

annotate Modules/Events.lua @ 26:75d917ccd942

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed Bug #9 - If existing items have 0c invested, increase them all to match the first transaction that changes their price.
author Asa Ayers <Asa.Ayers@Gmail.com>
date Wed, 14 Jul 2010 00:28:44 -0700
parents 554b30908b33
children f5d384fe7e4a
rev   line source
Asa@3 1 local addonName, addonTable = ...;
Asa@3 2 local addon = _G[addonName]
Asa@3 3
Asa@3 4 local utils = addonTable.utils
Asa@3 5
Asa@3 6 function addon:PLAYER_ENTERING_WORLD()
Asa@3 7 self:RegisterEvent("MAIL_SHOW")
Asa@4 8 self:RegisterEvent("UNIT_SPELLCAST_START")
Asa@24 9 addon:UpdateCurrentInventory()
Asa@3 10 self:WatchBags()
Asa@9 11
Asa@13 12 -- addon:ConvertItems()
Asa@3 13 end
Asa@3 14
Asa@3 15 function addon:MAIL_SHOW()
Asa@3 16 self:Debug("MAIL_SHOW")
Asa@24 17 addon:UpdateCurrentInventory()
Asa@3 18 self.lastMailScan = self:ScanMail()
Asa@7 19
Asa@3 20 self:UnregisterEvent("MAIL_SHOW")
Asa@3 21 self:RegisterEvent("MAIL_CLOSED")
Asa@3 22 self:RegisterEvent("MAIL_INBOX_UPDATE")
Asa@3 23 end
Asa@3 24
Asa@3 25 function addon:MAIL_CLOSED()
Asa@23 26 self:Debug("MAIL_CLOSED")
Asa@3 27 addon:UnregisterEvent("MAIL_CLOSED")
Asa@7 28 self:MAIL_INBOX_UPDATE()
Asa@3 29 self:UnregisterEvent("MAIL_INBOX_UPDATE")
Asa@3 30 self:RegisterEvent("MAIL_SHOW")
Asa@3 31 end
Asa@3 32
Asa@26 33 local storedCountDiff
Asa@3 34 function addon:MAIL_INBOX_UPDATE()
Asa@23 35 self:Debug("MAIL_INBOX_UPDATE")
Asa@3 36 local newScan = addon:ScanMail()
Asa@3 37 local diff
Asa@6 38 for mailType, collection in pairs(self.lastMailScan) do
Asa@7 39 newScan[mailType] = (newScan[mailType] or {})
Asa@26 40 for itemName, data in pairs(collection) do
Asa@26 41 newScan[mailType][itemName] = (newScan[mailType][itemName] or {total=0,count=0})
Asa@26 42 local totalDiff = data.total - newScan[mailType][itemName].total
Asa@26 43 local countDiff = data.count - newScan[mailType][itemName].count
Asa@26 44 --[[
Asa@26 45 In one update the item will be taken and in the following update the invoice
Asa@26 46 will be gone. I need to store the item difference in order ot pass it into
Asa@26 47 SaveValue.
Asa@26 48 ]]
Asa@26 49 if countDiff ~= 0 then
Asa@26 50 storedCountDiff = countDiff
Asa@26 51 end
Asa@26 52
Asa@26 53 if totalDiff ~= 0 then
Asa@26 54 self:SaveValue(itemName, totalDiff, storedCountDiff)
Asa@26 55 storedCountDiff = 0
Asa@6 56 end
Asa@6 57
Asa@3 58 end
Asa@3 59 end
Asa@3 60
Asa@3 61 self.lastMailScan = newScan
Asa@3 62 end
Asa@3 63
Asa@4 64 function addon:UNIT_SPELLCAST_START(event, target, spell)
Asa@5 65 if target == "player" and spell == "Milling" or spell == "Prospecting" or spell == "Disenchanting" then
Asa@23 66 self:Debug(event .. " " .. spell)
Asa@4 67 self:UnwatchBags()
Asa@4 68 self:UpdateCurrentInventory()
Asa@4 69 self:RegisterEvent("UNIT_SPELLCAST_INTERRUPTED")
Asa@4 70 self:RegisterEvent("LOOT_CLOSED")
Asa@3 71 end
Asa@3 72 end
Asa@3 73
Asa@4 74 --[[
Asa@4 75 The item should be destroyed before this point, so the last inventory check
Asa@4 76 needs to be kept so it can be combined with the up coming loot.
Asa@4 77 ]]
Asa@4 78 function addon:LOOT_CLOSED()
Asa@23 79 self:Debug("LOOT_CLOSED")
Asa@4 80 self:UnregisterEvent("LOOT_CLOSED")
Asa@4 81 self:UnregisterEvent("UNIT_SPELLCAST_INTERRUPTED")
Asa@4 82 local inventory = self.lastInventory
Asa@4 83 self:WatchBags()
Asa@4 84 self.lastInventory = inventory
Asa@4 85 end
Asa@3 86
Asa@4 87 function addon:UNIT_SPELLCAST_INTERRUPTED(event, target, spell)
Asa@5 88 if target == "player" and spell == "Milling" or spell == "Prospecting" or spell == "Disenchanting" then
Asa@23 89 self:Debug(event .. " " .. spell)
Asa@4 90 self:UnregisterEvent("UNIT_SPELLCAST_INTERRUPTED")
Asa@4 91 self:UnregisterEvent("LOOT_CLOSED")
Asa@4 92 self:WatchBags()
Asa@4 93 end
Asa@4 94 end
Asa@4 95
Asa@4 96 function addon:UpdateCurrentInventory()
Asa@4 97 self.lastInventory = self:GetCurrentInventory()
Asa@3 98 end
Asa@3 99
Asa@3 100 function addon:UpdateAudit()
Asa@23 101 -- self:Debug("UpdateAudit " .. event)
Asa@3 102 local currentInventory = self:GetCurrentInventory()
Asa@3 103 local diff = addon:GetInventoryDiff(self.lastInventory, currentInventory)
Asa@3 104
Asa@5 105 local positive, negative = {}, {}
Asa@5 106 local positiveCount, negativeCount = 0, 0
Asa@5 107 for item, count in pairs(diff.items) do
Asa@5 108 if count > 0 then
Asa@5 109 positive[item] = count
Asa@5 110 positiveCount = positiveCount + count
Asa@5 111 elseif count < 0 then
Asa@5 112 negative[item] = count
Asa@5 113 negativeCount = negativeCount + abs(count)
Asa@5 114 end
Asa@5 115 end
Asa@5 116
Asa@23 117 if positiveCount + negativeCount == 0 then
Asa@23 118 return
Asa@23 119 end
Asa@23 120
Asa@15 121 if diff.money > 0 and self:tcount(positive) > 0 and self:tcount(negative) == 0 then
Asa@15 122 self:Debug("loot")
Asa@20 123 elseif abs(diff.money) > 0 and self:tcount(diff.items) == 1 then
Asa@15 124 self:Debug("purchase or sale")
Asa@3 125
Asa@9 126 for link, count in pairs(diff.items) do
Asa@26 127 self:SaveValue(link, 0 - diff.money, count)
Asa@3 128 end
Asa@23 129 elseif self:tcount(diff.items) > 1 and self:tcount(positive) > 0 and self:tcount(negative) > 0 then
Asa@23 130 -- we must have created/converted something
Asa@23 131 self:Debug("conversion")
Asa@3 132
Asa@23 133 local totalChange = 0
Asa@23 134 for link, change in pairs(negative) do
Asa@23 135 local _, itemCost, count = self:GetItemCost(link, change)
Asa@26 136 self:SaveValue(link, itemCost * change, change)
Asa@10 137
Asa@23 138 totalChange = totalChange + (itemCost * abs(change))
Asa@3 139 end
Asa@23 140
Asa@23 141 local valuePerItem = totalChange / positiveCount
Asa@23 142
Asa@23 143 for link, change in pairs(positive) do
Asa@26 144 self:SaveValue(link, valuePerItem * change, change)
Asa@23 145 end
Asa@23 146 else
Asa@23 147 self:Debug("No match in UpdateAudit.")
Asa@3 148 end
Asa@3 149
Asa@3 150 self.lastInventory = currentInventory
Asa@4 151 addon:WatchBags()
Asa@3 152 end