Mercurial > wow > itemauditor

annotate Core.lua @ 91:e2dab8e34b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed an issue where trading an item and gold in exchange for a different item was not considering the gold in the price of the new item.
author Asa Ayers <Asa.Ayers@Gmail.com>
date Wed, 11 Aug 2010 20:03:05 -0700
parents fab2c4341602
children 693f664aad2b
rev   line source
Asa@63 1 local ItemAuditor = select(2, ...)
Asa@63 2 ItemAuditor = LibStub("AceAddon-3.0"):NewAddon(ItemAuditor, "ItemAuditor", "AceEvent-3.0", "AceBucket-3.0")
Asa@65 3 --@debug@
Asa@65 4 _G['ItemAuditor'] = ItemAuditor
Asa@65 5 --@end-debug@
Asa@0 6
Asa@87 7 if not DevTools_Dump then
Asa@87 8 function DevTools_Dump()
Asa@87 9 end
Asa@87 10 end
Asa@87 11
Asa@0 12 local WHITE = "|cFFFFFFFF"
Asa@0 13 local RED = "|cFFFF0000"
Asa@0 14 local GREEN = "|cFF00FF00"
Asa@0 15 local YELLOW = "|cFFFFFF00"
Asa@0 16 local ORANGE = "|cFFFF7F00"
Asa@0 17 local TEAL = "|cFF00FF9A"
Asa@0 18 local GOLD = "|cFFFFD700"
Asa@0 19
Asa@67 20
Asa@67 21 ItemAuditor.Options = {
Asa@67 22 handler = ItemAuditor,
Asa@67 23 name = "ItemAuditor @project-version@",
Asa@67 24 type = 'group',
Asa@67 25 args = {
Asa@67 26 options = {
Asa@67 27 type = "execute",
Asa@67 28 name = "options",
Asa@67 29 desc = "Show Blizzard's options GUI",
Asa@67 30 func = "ShowOptionsGUI",
Asa@67 31 guiHidden = true,
Asa@67 32 },
Asa@67 33 debug = {
Asa@67 34 type = "execute",
Asa@67 35 name = "debug",
Asa@67 36 desc = "Shows the debug frame",
Asa@67 37 func = function() ItemAuditor_DebugFrame:Show() end,
Asa@67 38 guiHidden = true,
Asa@67 39 },
Asa@67 40 suspend = {
Asa@67 41 type = "toggle",
Asa@67 42 name = "suspend",
Asa@67 43 desc = "Suspends ItemAuditor",
Asa@67 44 get = "IsEnabled",
Asa@67 45 set = "SetEnabled",
Asa@67 46 guiHidden = true,
Asa@67 47 },
Asa@67 48 },
Asa@67 49 }
Asa@67 50
Asa@63 51 function ItemAuditor:OnInitialize()
Asa@0 52 local DB_defaults = {
Asa@0 53 char = {
Asa@13 54 ah = 1,
Asa@13 55 use_quick_auctions = false,
Asa@20 56 crafting_threshold = 1,
Asa@20 57 auction_threshold = 0.15,
Asa@71 58 qa_extra = 0,
Asa@55 59 output_chat_frame = nil,
Asa@0 60 },
Asa@16 61 profile = {
Asa@16 62 messages = {
Asa@16 63 cost_updates = true,
Asa@20 64 queue_skip = false,
Asa@23 65 },
Asa@63 66 ItemAuditor_enabled = true,
Asa@70 67 queue_destination = nil,
Asa@72 68 disabled_deciders = {},
Asa@90 69 pricing_method = 'low',
Asa@16 70 },
Asa@0 71 factionrealm = {
Asa@8 72 item_account = {},
Asa@8 73 items = {},
Asa@39 74 outbound_cod = {},
Asa@0 75 },
Asa@0 76 }
Asa@0 77 self.db = LibStub("AceDB-3.0"):New("ItemAuditorDB", DB_defaults, true)
Asa@0 78
Asa@67 79 self.optionsFrame = LibStub("AceConfigDialog-3.0"):AddToBlizOptions("ItemAuditor", "ItemAuditor")
Asa@67 80
Asa@67 81 LibStub("AceConfig-3.0"):RegisterOptionsTable("ItemAuditor", ItemAuditor.Options, {"ia"})
Asa@38 82 ItemAuditor:RegisterFrame(ItemAuditor_DebugFrame)
Asa@23 83
Asa@86 84 LibStub("AceConsole-3.0"):RegisterChatCommand('rl', ReloadUI)
Asa@86 85
Asa@65 86 --@debug@
Asa@59 87 -- ItemAuditor_DebugFrame:Show()
Asa@59 88 -- self:CreateFrame('tab_crafting')
Asa@74 89 self:RegisterEvent("TRADE_SKILL_SHOW", function()
Asa@74 90 ItemAuditor:CreateFrame('tab_crafting')
Asa@74 91 end)
Asa@65 92 --@end-debug@
Asa@0 93 end
Asa@0 94
Asa@67 95
Asa@67 96
Asa@38 97 local registeredEvents = {}
Asa@63 98 local originalRegisterEvent = ItemAuditor.RegisterEvent
Asa@63 99 function ItemAuditor:RegisterEvent(event, callback, arg)
Asa@38 100 registeredEvents[event] = true
Asa@38 101 if arg ~= nil then
Asa@38 102 return originalRegisterEvent(self, event, callback, arg)
Asa@38 103 elseif callback ~= nil then
Asa@38 104 return originalRegisterEvent(self, event, callback)
Asa@38 105 else
Asa@38 106 return originalRegisterEvent(self, event)
Asa@38 107 end
Asa@38 108 end
Asa@38 109
Asa@63 110 local originalUnregisterEvent = ItemAuditor.UnregisterEvent
Asa@63 111 function ItemAuditor:UnregisterEvent(event)
Asa@38 112 registeredEvents[event] = nil
Asa@38 113 return originalUnregisterEvent(self, event)
Asa@38 114 end
Asa@38 115
Asa@63 116 function ItemAuditor:UnregisterAllEvents()
Asa@38 117 for event in pairs(registeredEvents) do
Asa@38 118 self:UnregisterEvent(event)
Asa@38 119 end
Asa@38 120 end
Asa@38 121
Asa@38 122 local registeredFrames = {}
Asa@63 123 function ItemAuditor:RegisterFrame(frame)
Asa@38 124 tinsert(registeredFrames, frame)
Asa@38 125 end
Asa@38 126
Asa@63 127 function ItemAuditor:HideAllFrames()
Asa@38 128 for key, frame in pairs(registeredFrames) do
Asa@38 129 if frame then
Asa@38 130 frame:Hide()
Asa@38 131 end
Asa@38 132 end
Asa@38 133 end
Asa@38 134
Asa@63 135 function ItemAuditor:ConvertItems()
Asa@8 136 for itemName, value in pairs(self.db.factionrealm.item_account) do
Asa@15 137 local itemID = self:GetItemID(itemName)
Asa@8 138 if itemID ~= nil then
Asa@8 139 self:GetItem('item:' .. itemID)
Asa@8 140 end
Asa@8 141 if value == 0 then
Asa@8 142 self.db.factionrealm.item_account[itemName] = nil
Asa@8 143 end
Asa@8 144 end
Asa@8 145
Asa@8 146 for link, data in pairs(self.db.factionrealm.items) do
Asa@8 147 if self:GetItem(link).count == 0 or self:GetItem(link).invested == 0 then
Asa@8 148 self:RemoveItem(link)
Asa@8 149 end
Asa@10 150 end
Asa@10 151
Asa@12 152 self:RefreshQAGroups()
Asa@12 153 end
Asa@12 154
Asa@65 155 -- Options doesn't exist when this file is created the first time, so getOptions will
Asa@65 156 -- make one call to :GetModule and return the result and replace itself with a
Asa@65 157 -- function that simply returns the same object. The permanent solution will probably be
Asa@65 158 -- to move :Print to a different module.
Asa@65 159 local function getOptions()
Asa@65 160 local Options = ItemAuditor:GetModule("Options")
Asa@65 161 getOptions = function() return Options end
Asa@65 162 return Options
Asa@65 163 end
Asa@65 164
Asa@24 165 local printPrefix = "|cFFA3CEFFItemAuditor|r: "
Asa@63 166 function ItemAuditor:Print(message, ...)
Asa@24 167 message = format(message, ...)
Asa@65 168 getOptions().GetSelectedChatWindow():AddMessage( printPrefix .. tostring(message))
Asa@16 169 end
Asa@16 170
Asa@81 171 local bankOpen = false
Asa@81 172
Asa@81 173 function ItemAuditor:BankFrameChanged(event)
Asa@81 174 bankOpen = (event == 'BANKFRAME_OPENED')
Asa@81 175 ItemAuditor:UpdateCurrentInventory()
Asa@81 176 end
Asa@81 177
Asa@80 178 local function scanBag(bagID, i)
Asa@80 179 bagSize=GetContainerNumSlots(bagID)
Asa@80 180 for slotID = 0, bagSize do
Asa@80 181 local link= GetContainerItemLink(bagID, slotID);
Asa@80 182 link = link and ItemAuditor:GetSafeLink(link)
Asa@80 183
Asa@80 184 if link ~= nil and i[link] == nil then
Asa@81 185 i[link] = GetItemCount(link, bankOpen);
Asa@80 186 end
Asa@80 187 end
Asa@80 188 end
Asa@80 189
Asa@63 190 function ItemAuditor:GetCurrentInventory()
Asa@8 191 local i = {}
Asa@8 192 local bagID
Asa@8 193 local slotID
Asa@8 194
Asa@8 195 for bagID = 0, NUM_BAG_SLOTS do
Asa@80 196 scanBag(bagID, i)
Asa@8 197 end
Asa@80 198
Asa@81 199 if bankOpen then
Asa@81 200 scanBag(BANK_CONTAINER, i)
Asa@81 201 for bagID = NUM_BAG_SLOTS+1, NUM_BANKBAGSLOTS do
Asa@81 202 scanBag(bagID, i)
Asa@81 203 end
Asa@80 204 end
Asa@80 205
Asa@8 206 return {items = i, money = GetMoney()}
Asa@0 207 end
Asa@0 208
Asa@63 209 function ItemAuditor:GetInventoryDiff(pastInventory, current)
Asa@8 210 if current == nil then
Asa@8 211 current = self:GetCurrentInventory()
Asa@8 212 end
Asa@8 213 local diff = {}
Asa@8 214
Asa@8 215 for link, count in pairs(current.items) do
Asa@8 216 if pastInventory.items[link] == nil then
Asa@8 217 diff[link] = count
Asa@23 218 self:Debug("1 diff[" .. link .. "]=" .. diff[link])
Asa@8 219 elseif count - pastInventory.items[link] ~= 0 then
Asa@8 220 diff[link] = count - pastInventory.items[link]
Asa@23 221 self:Debug("2 diff[" .. link .. "]=" .. diff[link])
Asa@8 222 end
Asa@8 223 end
Asa@8 224
Asa@8 225 for link, count in pairs(pastInventory.items) do
Asa@8 226 if current.items[link] == nil then
Asa@8 227 diff[link] = -count
Asa@23 228 self:Debug("3 diff[" .. link .. "]=" .. diff[link])
Asa@8 229 elseif current.items[link] - count ~= 0 then
Asa@8 230 diff[link] = current.items[link] - pastInventory.items[link]
Asa@23 231 self:Debug("4 diff[" .. link .. "]=" .. diff[link])
Asa@8 232 end
Asa@8 233 end
Asa@8 234
Asa@8 235 local moneyDiff = current.money - pastInventory.money
Asa@23 236 if abs(moneyDiff) > 0 then
Asa@23 237 self:Debug("moneyDiff: " .. moneyDiff)
Asa@23 238 end
Asa@8 239
Asa@8 240 return {items = diff, money = moneyDiff}
Asa@0 241 end
Asa@0 242
Asa@39 243 local inboundCOD = {}
Asa@39 244 local skipMail = {}
Asa@63 245 function ItemAuditor:ScanMail()
Asa@0 246 local results = {}
Asa@39 247 local CODPaymentRegex = gsub(COD_PAYMENT, "%%s", "(.*)")
Asa@39 248
Asa@0 249 for mailIndex = 1, GetInboxNumItems() or 0 do
Asa@39 250 local sender, msgSubject, msgMoney, msgCOD, daysLeft, msgItem, _, _, msgText, _, isGM = select(3, GetInboxHeaderInfo(mailIndex))
Asa@15 251 local mailType = self:GetMailType(msgSubject)
Asa@6 252
Asa@39 253 local mailSignature = msgSubject .. '-' .. msgMoney .. '-' .. msgCOD .. '-' .. daysLeft
Asa@39 254
Asa@6 255 results[mailType] = (results[mailType] or {})
Asa@6 256
Asa@39 257 if skipMail[mailSignature] ~= nil then
Asa@39 258 -- do nothing
Asa@39 259 elseif mailType == "NonAHMail" and msgCOD > 0 then
Asa@6 260 mailType = 'COD'
Asa@6 261 results[mailType] = (results[mailType] or {})
Asa@5 262
Asa@5 263 local itemTypes = {}
Asa@5 264 for itemIndex = 1, ATTACHMENTS_MAX_RECEIVE do
Asa@5 265 local itemName, _, count, _, _= GetInboxItem(mailIndex, itemIndex)
Asa@5 266 if itemName ~= nil then
Asa@39 267 itemTypes[itemName] = (itemTypes[itemName] or 0) + count
Asa@5 268 end
Asa@5 269 end
Asa@5 270
Asa@15 271 if self:tcount(itemTypes) == 1 then
Asa@5 272 for itemName, count in pairs(itemTypes) do
Asa@39 273 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@39 274 results[mailType][itemName].total = results[mailType][itemName].total + msgCOD
Asa@39 275
Asa@39 276 if inboundCOD[mailSignature] == nil then
Asa@39 277 results[mailType][itemName].count = results[mailType][itemName].count + count
Asa@39 278 inboundCOD[mailSignature] = (inboundCOD[mailSignature] or 0) + count
Asa@39 279 else
Asa@39 280 results[mailType][itemName].count = inboundCOD[mailSignature]
Asa@39 281 end
Asa@39 282
Asa@39 283
Asa@5 284 end
Asa@5 285 else
Asa@5 286 self:Debug("Don't know what to do with more than one item type on COD mail.")
Asa@5 287 end
Asa@6 288 elseif mailType == "CODPayment" then
Asa@39 289 -- /dump ItemAuditor.db.factionrealm.outbound_cod
Asa@39 290 self:Debug(msgSubject)
Asa@39 291 self:Debug(CODPaymentRegex)
Asa@39 292 local outboundSubject = select(3, msgSubject:find(CODPaymentRegex))
Asa@39 293 local trackID
Asa@39 294 if outboundSubject ~= nil then
Asa@39 295 self:Debug(outboundSubject)
Asa@45 296 trackID = select(3, outboundSubject:find('[[]IA: (%d*)[]]'))
Asa@39 297
Asa@39 298 if trackID ~= nil then
Asa@45 299 trackID = tonumber(trackID)
Asa@45 300 self:Debug('COD ID: %s', trackID)
Asa@39 301 local cod = self.db.factionrealm.outbound_cod[trackID]
Asa@39 302 if cod == nil then
Asa@39 303 skipMail[mailSignature] = true
Asa@39 304 self:Print("WARNING: {%s} has an invalid ItemAuditor tracking number.", msgSubject)
Asa@39 305 else
Asa@39 306 itemName = trackID .. "|" .. cod['link']
Asa@39 307
Asa@39 308
Asa@39 309 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@39 310 results[mailType][itemName].total = results[mailType][itemName].total - msgMoney
Asa@39 311 results[mailType][itemName].count = results[mailType][itemName].count - cod.count
Asa@39 312 end
Asa@39 313 end
Asa@39 314 end
Asa@5 315
Asa@39 316 if trackID == nil then
Asa@39 317 skipMail[mailSignature] = true
Asa@39 318 self:Print("WARNING: {%s} is a COD payment but doesn't have an ItemAuditor tracking number.", msgSubject)
Asa@39 319 end
Asa@5 320
Asa@0 321 elseif mailType == "AHSuccess" then
Asa@0 322 local invoiceType, itemName, playerName, bid, buyout, deposit, consignment = GetInboxInvoiceInfo(mailIndex);
Asa@26 323 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@26 324 results[mailType][itemName].total = results[mailType][itemName].total - deposit - buyout + consignment
Asa@26 325
Asa@0 326
Asa@0 327 elseif mailType == "AHWon" then
Asa@0 328 local invoiceType, itemName, playerName, bid, buyout, deposit, consignment = GetInboxInvoiceInfo(mailIndex);
Asa@26 329 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@26 330 results[mailType][itemName].total = results[mailType][itemName].total + bid
Asa@26 331
Asa@26 332 local count = select(3, GetInboxItem(1,1))
Asa@26 333 results[mailType][itemName].count = results[mailType][itemName].count + count
Asa@5 334 elseif mailType == "AHExpired" or mailType == "AHCancelled" or mailType == "AHOutbid" then
Asa@0 335 -- These should be handled when you pay the deposit at the AH
Asa@0 336 else
Asa@24 337 -- self:Debug("Unhandled mail type: " .. mailType)
Asa@24 338 -- self:Debug(msgSubject)
Asa@0 339 end
Asa@0 340
Asa@0 341 end
Asa@23 342
Asa@23 343 for mailType, collection in pairs(results) do
Asa@26 344 for item, data in pairs(collection) do
Asa@26 345 self:Debug(format("|cFF00FF00MailScan|r: %s - %s - %s x %s", mailType, item, data.total, data.count))
Asa@23 346 end
Asa@23 347 end
Asa@23 348
Asa@0 349 return results
Asa@0 350 end
Asa@0 351
Asa@82 352 function ItemAuditor:GetItemCount(searchID)
Asa@82 353 local itemCounts = {}
Asa@82 354 local count = 0
Asa@82 355 for _, character in pairs(DataStore:GetCharacters()) do
Asa@82 356 bags, bank = DataStore:GetContainerItemCount(character, searchID)
Asa@82 357
Asa@82 358 count = count + bags + bank
Asa@84 359 + (DataStore:GetAuctionHouseItemCount(character, searchID) or 0)
Asa@84 360 + (DataStore:GetInventoryItemCount(character, searchID) or 0)
Asa@84 361 + (DataStore:GetCurrencyItemCount(character, searchID) or 0)
Asa@82 362 end
Asa@82 363 return count
Asa@82 364 end
Asa@82 365
Asa@63 366 function ItemAuditor:GetItem(link, viewOnly)
Asa@9 367 if viewOnly == nil then
Asa@9 368 viewOnly = false
Asa@9 369 end
Asa@8 370
Asa@9 371 local itemName = nil
Asa@9 372 if self:GetSafeLink(link) == nil then
Asa@9 373 itemName = link
Asa@9 374 else
Asa@9 375 link = self:GetSafeLink(link)
Asa@9 376 itemName = GetItemInfo(link)
Asa@9 377 end
Asa@9 378
Asa@12 379
Asa@9 380 if self.db.factionrealm.item_account[itemName] ~= nil then
Asa@65 381 self.db.factionrealm.items[link] = {
Asa@82 382 count = ItemAuditor:GetItemCount(self:GetIDFromLink(link)),
Asa@8 383 invested = abs(self.db.factionrealm.item_account[itemName] or 0),
Asa@8 384 }
Asa@8 385 self.db.factionrealm.item_account[itemName] = nil
Asa@8 386 end
Asa@8 387
Asa@65 388 if viewOnly == false and self.db.factionrealm.items[link] == nil then
Asa@24 389
Asa@65 390 self.db.factionrealm.items[link] = {
Asa@82 391 count = ItemAuditor:GetItemCount(self:GetIDFromLink(link)),
Asa@9 392 invested = abs(self.db.factionrealm.item_account[itemName] or 0),
Asa@9 393 }
Asa@9 394
Asa@9 395 end
Asa@9 396
Asa@65 397 if self.db.factionrealm.items[link] ~= nil then
Asa@82 398 self.db.factionrealm.items[link].count = ItemAuditor:GetItemCount(self:GetIDFromLink(link))
Asa@45 399
Asa@65 400 if self.db.factionrealm.items[link].invested == nil then
Asa@65 401 self.db.factionrealm.items[link].invested = 0
Asa@45 402 end
Asa@37 403 end
Asa@37 404
Asa@65 405 if viewOnly == true and self.db.factionrealm.items[link] == nil then
Asa@9 406 return {count = 0, invested = 0}
Asa@9 407 elseif viewOnly == true then
Asa@28 408
Asa@65 409 return {count = self.db.factionrealm.items[link].count, invested = self.db.factionrealm.items[link].invested}
Asa@9 410 end
Asa@37 411
Asa@28 412
Asa@28 413
Asa@65 414 return self.db.factionrealm.items[link]
Asa@8 415 end
Asa@8 416
Asa@63 417 function ItemAuditor:RemoveItem(link)
Asa@9 418 self.db.factionrealm.item_account[link] = nil
Asa@9 419 link = self:GetSafeLink(link)
Asa@9 420 if link ~= nil then
Asa@63 421 local item = ItemAuditor:GetItem(link)
Asa@35 422 item.invested = 0
Asa@24 423 else
Asa@24 424 self:Debug('Failed to convert link' .. tostring(link))
Asa@9 425 end
Asa@8 426 end
Asa@8 427
Asa@63 428 function ItemAuditor:SaveValue(link, value, countChange)
Asa@26 429 self:Debug("SaveValue(%s, %s, %s)", tostring(link), value, (countChange or 'default'))
Asa@26 430 countChange = countChange or 0
Asa@9 431 local item = nil
Asa@9 432 local realLink = self:GetSafeLink(link)
Asa@9 433 local itemName = nil
Asa@9 434 if realLink == nil then
Asa@26 435 itemName = link
Asa@23 436 self:Debug('SaveValue: GetSafeLink failed, falling back to storing by name: ' .. tostring(itemName))
Asa@9 437 self.db.factionrealm.item_account[itemName] = (self.db.factionrealm.item_account[itemName] or 0) + value
Asa@9 438 item = {invested = self.db.factionrealm.item_account[itemName], count = 1}
Asa@9 439 else
Asa@23 440
Asa@9 441 item = self:GetItem(realLink)
Asa@9 442 item.invested = item.invested + value
Asa@9 443 itemName = GetItemInfo(realLink)
Asa@9 444 end
Asa@8 445
Asa@26 446 if value > 0 and countChange > 0 and item.invested == value and item.count ~= countChange then
Asa@26 447 local costPerItem = value / countChange
Asa@26 448 value = costPerItem * item.count
Asa@26 449 item.invested = value
Asa@26 450 self:Print("You already owned %s %s with an unknown price, so they have also been updated to %s each", (item.count - countChange), itemName, self:FormatMoney(costPerItem))
Asa@26 451 end
Asa@26 452
Asa@7 453 if abs(value) > 0 then
Asa@22 454 if item.invested < 0 then
Asa@16 455 if self.db.profile.messages.cost_updates then
Asa@16 456 self:Print(format("Updated price of %s from %s to %s. %sYou just made a profit of %s.", itemName, self:FormatMoney(item.invested - value), self:FormatMoney(0), GREEN, self:FormatMoney(abs(item.invested))))
Asa@16 457 end
Asa@12 458 self:RemoveItem(link)
Asa@12 459 -- This doesn't work when you mail the only copy of an item you have to another character.
Asa@12 460 --[[
Asa@82 461 elseif item.count == 0 and realLink and ItemAuditor:GetItemCount(self:GetIDFromLink(realLink)) then
Asa@15 462 self:Print("You ran out of " .. itemName .. " and never recovered " .. self:FormatMoney(item.invested))
Asa@12 463 self:RemoveItem(link)
Asa@12 464 ]]
Asa@16 465 else
Asa@16 466 if self.db.profile.messages.cost_updates then
Asa@16 467 self:Print(format("Updated price of %s from %s to %s. (total change:%s)", itemName, self:FormatMoney(item.invested - value), self:FormatMoney(item.invested), self:FormatMoney(value)))
Asa@16 468 end
Asa@12 469 end
Asa@0 470 end
Asa@10 471
Asa@10 472 if realLink ~= nil then
Asa@63 473 ItemAuditor:UpdateQAThreshold(realLink)
Asa@10 474 end
Asa@35 475 UpdateInvestedData()
Asa@10 476 end
Asa@12 477
Asa@0 478
Asa@63 479 function ItemAuditor:WatchBags()
Asa@4 480 if self.watch_handle == nil then
Asa@63 481 ItemAuditor:UpdateCurrentInventory()
Asa@23 482 self.watch_handle = self:RegisterBucketEvent({"BAG_UPDATE", "PLAYER_MONEY"}, 0.3, "UpdateAudit")
Asa@4 483 end
Asa@0 484 end
Asa@0 485
Asa@63 486 function ItemAuditor:UnwatchBags()
Asa@4 487 if self.watch_handle ~= nil then
Asa@4 488 self:UnregisterBucket(self.watch_handle)
Asa@4 489 self.watch_handle = nil
Asa@4 490 end
Asa@0 491 end
Asa@0 492
Asa@9 493
Asa@63 494 function ItemAuditor:GetSafeLink(link)
Asa@9 495 local newLink = nil
Asa@9 496
Asa@24 497 if link and link == string.match(link, '.-:[-0-9]+[:0-9]*') then
Asa@24 498 newLink = link
Asa@24 499 elseif link then
Asa@9 500 newLink = link and string.match(link, "|H(.-):([-0-9]+):([0-9]+)|h")
Asa@9 501 end
Asa@9 502 if newLink == nil then
Asa@9 503 local itemID = self:GetItemID(link)
Asa@9 504 if itemID ~= nil then
Asa@9 505 _, newLink = GetItemInfo(itemID)
Asa@9 506 return self:GetSafeLink(newLink)
Asa@9 507 end
Asa@9 508 end
Asa@9 509 return newLink and string.gsub(newLink, ":0:0:0:0:0:0", "")
Asa@9 510 end
Asa@9 511
Asa@63 512 function ItemAuditor:GetIDFromLink(link)
Asa@9 513 local _, _, _, _, Id = string.find(link, "|?c?f?f?(%x*)|?H?([^:]*):?(%d+):?(%d*):?(%d*):?(%d*):?(%d*):?(%d*):?(%-?%d*):?(%-?%d*):?(%d*)|?h?%[?([^%[%]]*)%]?|?h?|?r?")
Asa@9 514 return tonumber(Id)
Asa@9 515 end
Asa@9 516
Asa@63 517 function ItemAuditor:GetItemCost(link, countModifier)
Asa@9 518 local item = self:GetItem(link, true)
Asa@8 519
Asa@9 520 if item.invested > 0 then
Asa@9 521 local count = item.count
Asa@9 522
Asa@9 523 if countModifier ~= nil then
Asa@9 524 count = count - countModifier
Asa@0 525 end
Asa@9 526 if count > 0 then
Asa@45 527 return ceil(item.invested), ceil(item.invested/count), count
Asa@9 528 end
Asa@9 529
Asa@0 530 end
Asa@82 531 return 0, 0, ItemAuditor:GetItemCount(ItemAuditor:GetIDFromLink(link))
Asa@0 532 end