Mercurial > wow > itemauditor

annotate Core.lua @ 100:e6292f1a0cf3

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