Mercurial > wow > itemauditor

annotate Core.lua @ 156:d108b0112be3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
I removed all of the vellums that were removed from the game. This also allowed me to make the one remaining vellum count toward the materials required to craft a scroll.
author Asa Ayers <Asa.Ayers@Gmail.com>
date Fri, 10 Dec 2010 00:48:20 -0800
parents cbb427a8d5a5
children 7ebe0a85d539
rev   line source
Asa@63 1 local ItemAuditor = select(2, ...)
Asa@137 2 local Utils
Asa@144 3 ItemAuditor = LibStub("AceAddon-3.0"):NewAddon(ItemAuditor, "ItemAuditor", "AceEvent-3.0", "AceBucket-3.0", "AceSerializer-3.0", "AceTimer-3.0")
Asa@65 4 --@debug@
Asa@65 5 _G['ItemAuditor'] = ItemAuditor
Asa@65 6 --@end-debug@
Asa@0 7
Asa@87 8 if not DevTools_Dump then
Asa@87 9 function DevTools_Dump()
Asa@87 10 end
Asa@87 11 end
Asa@87 12
Asa@144 13 ItemAuditor.TRACKING_DATA_DIVIDER = "\n==ItemAuditor Tracking Data==\n"
Asa@144 14
Asa@98 15 local allMailboxes = {}
Asa@98 16 local myMailbox = {}
Asa@67 17
Asa@67 18 ItemAuditor.Options = {
Asa@67 19 handler = ItemAuditor,
Asa@67 20 name = "ItemAuditor @project-version@",
Asa@67 21 type = 'group',
Asa@67 22 args = {
Asa@67 23 options = {
Asa@67 24 type = "execute",
Asa@67 25 name = "options",
Asa@67 26 desc = "Show Blizzard's options GUI",
Asa@67 27 func = "ShowOptionsGUI",
Asa@67 28 guiHidden = true,
Asa@67 29 },
Asa@67 30 debug = {
Asa@67 31 type = "execute",
Asa@67 32 name = "debug",
Asa@67 33 desc = "Shows the debug frame",
Asa@67 34 func = function() ItemAuditor_DebugFrame:Show() end,
Asa@67 35 guiHidden = true,
Asa@67 36 },
Asa@67 37 suspend = {
Asa@67 38 type = "toggle",
Asa@67 39 name = "suspend",
Asa@67 40 desc = "Suspends ItemAuditor",
Asa@67 41 get = "IsEnabled",
Asa@67 42 set = "SetEnabled",
Asa@67 43 guiHidden = true,
Asa@67 44 },
Asa@67 45 },
Asa@67 46 }
Asa@67 47
Asa@100 48 ItemAuditor.DB_defaults = {
Asa@100 49 char = {
Asa@100 50 ah = 1,
Asa@100 51 use_quick_auctions = false,
Asa@101 52 profitable_threshold = 10000,
Asa@100 53 auction_threshold = 0.15,
Asa@111 54 auction_threshold_value = 0,
Asa@100 55 qa_extra = 0,
Asa@100 56 output_chat_frame = nil,
Asa@109 57 cod_warnings = true,
Asa@144 58 incoming_tracking_ids = {}
Asa@100 59 },
Asa@100 60 profile = {
Asa@100 61 messages = {
Asa@100 62 cost_updates = true,
Asa@100 63 queue_skip = false,
Asa@100 64 },
Asa@100 65 ItemAuditor_enabled = true,
Asa@100 66 queue_destination = nil,
Asa@100 67 disabled_deciders = {},
Asa@100 68 pricing_method = 'low',
Asa@100 69 },
Asa@100 70 factionrealm = {
Asa@100 71 item_account = {},
Asa@100 72 items = {},
Asa@100 73 outbound_cod = {},
Asa@100 74 mailbox = {},
Asa@132 75 enabled_guilds = {},
Asa@100 76 },
Asa@100 77 }
Asa@100 78
Asa@63 79 function ItemAuditor:OnInitialize()
Asa@137 80 Utils = self:GetModule("Utils")
Asa@100 81 self.db = LibStub("AceDB-3.0"):New("ItemAuditorDB", ItemAuditor.DB_defaults, true)
Asa@98 82
Asa@98 83 allMailboxes = self.db.factionrealm.mailbox
Asa@98 84 if not allMailboxes[UnitName("player")] then
Asa@98 85 allMailboxes[UnitName("player")] = {}
Asa@98 86 end
Asa@98 87 myMailbox = allMailboxes[UnitName("player")]
Asa@98 88
Asa@67 89 self.optionsFrame = LibStub("AceConfigDialog-3.0"):AddToBlizOptions("ItemAuditor", "ItemAuditor")
Asa@133 90
Asa@67 91 LibStub("AceConfig-3.0"):RegisterOptionsTable("ItemAuditor", ItemAuditor.Options, {"ia"})
Asa@38 92 ItemAuditor:RegisterFrame(ItemAuditor_DebugFrame)
Asa@133 93
Asa@86 94 LibStub("AceConsole-3.0"):RegisterChatCommand('rl', ReloadUI)
Asa@100 95
Asa@101 96 if self.db.char.crafting_threshold then
Asa@101 97 local threshold = self.db.char.crafting_threshold
Asa@101 98 if threshold == 1 then
Asa@101 99 self.db.char.profitable_threshold = 5000
Asa@101 100 elseif threshold == 2 then
Asa@101 101 self.db.char.profitable_threshold = 10000
Asa@101 102 elseif threshold == 3 then
Asa@101 103 self.db.char.profitable_threshold = 50000
Asa@101 104 end
Asa@133 105
Asa@101 106 self.db.char.crafting_threshold = nil
Asa@101 107 end
Asa@101 108
Asa@119 109 ItemAuditor:IsQAEnabled()
Asa@112 110
Asa@65 111 --@debug@
Asa@59 112 -- ItemAuditor_DebugFrame:Show()
Asa@59 113 -- self:CreateFrame('tab_crafting')
Asa@74 114 self:RegisterEvent("TRADE_SKILL_SHOW", function()
Asa@93 115 ItemAuditor:DisplayCrafting()
Asa@74 116 end)
Asa@65 117 --@end-debug@
Asa@0 118 end
Asa@0 119
Asa@67 120
Asa@67 121
Asa@38 122 local registeredEvents = {}
Asa@133 123 local originalRegisterEvent = ItemAuditor.RegisterEvent
Asa@63 124 function ItemAuditor:RegisterEvent(event, callback, arg)
Asa@38 125 registeredEvents[event] = true
Asa@38 126 if arg ~= nil then
Asa@38 127 return originalRegisterEvent(self, event, callback, arg)
Asa@38 128 elseif callback ~= nil then
Asa@38 129 return originalRegisterEvent(self, event, callback)
Asa@38 130 else
Asa@38 131 return originalRegisterEvent(self, event)
Asa@38 132 end
Asa@38 133 end
Asa@38 134
Asa@63 135 local originalUnregisterEvent = ItemAuditor.UnregisterEvent
Asa@63 136 function ItemAuditor:UnregisterEvent(event)
Asa@38 137 registeredEvents[event] = nil
Asa@38 138 return originalUnregisterEvent(self, event)
Asa@38 139 end
Asa@38 140
Asa@63 141 function ItemAuditor:UnregisterAllEvents()
Asa@38 142 for event in pairs(registeredEvents) do
Asa@38 143 self:UnregisterEvent(event)
Asa@38 144 end
Asa@38 145 end
Asa@38 146
Asa@38 147 local registeredFrames = {}
Asa@63 148 function ItemAuditor:RegisterFrame(frame)
Asa@38 149 tinsert(registeredFrames, frame)
Asa@38 150 end
Asa@38 151
Asa@63 152 function ItemAuditor:HideAllFrames()
Asa@38 153 for key, frame in pairs(registeredFrames) do
Asa@38 154 if frame then
Asa@38 155 frame:Hide()
Asa@38 156 end
Asa@38 157 end
Asa@38 158 end
Asa@38 159
Asa@63 160 function ItemAuditor:ConvertItems()
Asa@8 161 for itemName, value in pairs(self.db.factionrealm.item_account) do
Asa@15 162 local itemID = self:GetItemID(itemName)
Asa@8 163 if itemID ~= nil then
Asa@8 164 self:GetItem('item:' .. itemID)
Asa@8 165 end
Asa@8 166 if value == 0 then
Asa@8 167 self.db.factionrealm.item_account[itemName] = nil
Asa@8 168 end
Asa@8 169 end
Asa@133 170
Asa@8 171 for link, data in pairs(self.db.factionrealm.items) do
Asa@8 172 if self:GetItem(link).count == 0 or self:GetItem(link).invested == 0 then
Asa@8 173 self:RemoveItem(link)
Asa@8 174 end
Asa@10 175 end
Asa@133 176
Asa@12 177 self:RefreshQAGroups()
Asa@12 178 end
Asa@12 179
Asa@133 180 -- Options doesn't exist when this file is created the first time, so getOptions will
Asa@133 181 -- make one call to :GetModule and return the result and replace itself with a
Asa@65 182 -- function that simply returns the same object. The permanent solution will probably be
Asa@65 183 -- to move :Print to a different module.
Asa@65 184 local function getOptions()
Asa@65 185 local Options = ItemAuditor:GetModule("Options")
Asa@65 186 getOptions = function() return Options end
Asa@65 187 return Options
Asa@65 188 end
Asa@65 189
Asa@24 190 local printPrefix = "|cFFA3CEFFItemAuditor|r: "
Asa@63 191 function ItemAuditor:Print(message, ...)
Asa@24 192 message = format(message, ...)
Asa@65 193 getOptions().GetSelectedChatWindow():AddMessage( printPrefix .. tostring(message))
Asa@16 194 end
Asa@16 195
Asa@81 196 local bankOpen = false
Asa@81 197
Asa@81 198 function ItemAuditor:BankFrameChanged(event)
Asa@81 199 bankOpen = (event == 'BANKFRAME_OPENED')
Asa@81 200 ItemAuditor:UpdateCurrentInventory()
Asa@81 201 end
Asa@81 202
Asa@152 203 local function getTotalFromBagsAndInventory(searchID)
Asa@152 204 local character = DataStore:GetCharacter()
Asa@152 205 local bags, bank = DataStore:GetContainerItemCount(character, searchID)
Asa@152 206 local count = (bags or 0)
Asa@152 207 if bankOpen then
Asa@152 208 count = count + bank
Asa@152 209 end
Asa@152 210 count = count + (DataStore:GetInventoryItemCount(character, searchID) or 0)
Asa@152 211
Asa@152 212 return count
Asa@152 213 end
Asa@152 214
Asa@80 215 local function scanBag(bagID, i)
Asa@152 216 local bag = DataStore:GetContainer(DataStore:GetCharacter(), bagID)
Asa@152 217 if bag then
Asa@152 218 for slotID = 0, bag.size do
Asa@152 219 local itemID = DataStore:GetSlotInfo(bag, slotID);
Asa@80 220
Asa@152 221 if itemID and i[itemID] == nil then
Asa@152 222 i[itemID] = getTotalFromBagsAndInventory(itemID);
Asa@152 223 end
Asa@80 224 end
Asa@80 225 end
Asa@80 226 end
Asa@80 227
Asa@152 228 local NUM_EQUIPMENT_SLOTS = 19
Asa@63 229 function ItemAuditor:GetCurrentInventory()
Asa@8 230 local i = {}
Asa@8 231 local bagID
Asa@8 232 local slotID
Asa@133 233
Asa@8 234 for bagID = 0, NUM_BAG_SLOTS do
Asa@80 235 scanBag(bagID, i)
Asa@8 236 end
Asa@133 237
Asa@81 238 if bankOpen then
Asa@81 239 scanBag(BANK_CONTAINER, i)
Asa@81 240 for bagID = NUM_BAG_SLOTS+1, NUM_BANKBAGSLOTS do
Asa@81 241 scanBag(bagID, i)
Asa@81 242 end
Asa@80 243 end
Asa@133 244
Asa@152 245 local character = DataStore:GetCharacter()
Asa@152 246 for slotID = 1, NUM_EQUIPMENT_SLOTS do
Asa@152 247 local link = DataStore:GetInventoryItem(character, slotID)
Asa@152 248 itemID = link and Utils.GetItemID(link)
Asa@152 249
Asa@152 250 if link and itemID and i[itemID] == nil then
Asa@152 251 i[itemID] = getTotalFromBagsAndInventory(itemID);
Asa@152 252 end
Asa@152 253 end
Asa@152 254
Asa@8 255 return {items = i, money = GetMoney()}
Asa@0 256 end
Asa@0 257
Asa@63 258 function ItemAuditor:GetInventoryDiff(pastInventory, current)
Asa@8 259 if current == nil then
Asa@8 260 current = self:GetCurrentInventory()
Asa@8 261 end
Asa@8 262 local diff = {}
Asa@8 263
Asa@137 264 for itemID, count in pairs(current.items) do
Asa@137 265 if pastInventory.items[itemID] == nil then
Asa@137 266 diff[itemID] = count
Asa@137 267 self:Debug("1 diff[" .. itemID .. "]=" .. diff[itemID])
Asa@137 268 elseif count - pastInventory.items[itemID] ~= 0 then
Asa@137 269 diff[itemID] = count - pastInventory.items[itemID]
Asa@137 270 self:Debug("2 diff[" .. itemID .. "]=" .. diff[itemID])
Asa@133 271 end
Asa@8 272 end
Asa@8 273
Asa@137 274 for itemID, count in pairs(pastInventory.items) do
Asa@137 275 if current.items[itemID] == nil then
Asa@137 276 diff[itemID] = -count
Asa@139 277 self:Debug("3 diff[" .. itemID .. "]=" .. diff[itemID])
Asa@137 278 elseif current.items[itemID] - count ~= 0 then
Asa@137 279 diff[itemID] = current.items[itemID] - pastInventory.items[itemID]
Asa@137 280 self:Debug("4 diff[" .. itemID .. "]=" .. diff[itemID])
Asa@8 281 end
Asa@8 282 end
Asa@8 283
Asa@8 284 local moneyDiff = current.money - pastInventory.money
Asa@23 285 if abs(moneyDiff) > 0 then
Asa@23 286 self:Debug("moneyDiff: " .. moneyDiff)
Asa@23 287 end
Asa@8 288
Asa@8 289 return {items = diff, money = moneyDiff}
Asa@0 290 end
Asa@0 291
Asa@39 292 local inboundCOD = {}
Asa@39 293 local skipMail = {}
Asa@63 294 function ItemAuditor:ScanMail()
Asa@0 295 local results = {}
Asa@39 296 local CODPaymentRegex = gsub(COD_PAYMENT, "%%s", "(.*)")
Asa@144 297 local ia_tracking = {}
Asa@133 298
Asa@0 299 for mailIndex = 1, GetInboxNumItems() or 0 do
Asa@39 300 local sender, msgSubject, msgMoney, msgCOD, daysLeft, msgItem, _, _, msgText, _, isGM = select(3, GetInboxHeaderInfo(mailIndex))
Asa@15 301 local mailType = self:GetMailType(msgSubject)
Asa@133 302
Asa@39 303 local mailSignature = msgSubject .. '-' .. msgMoney .. '-' .. msgCOD .. '-' .. daysLeft
Asa@133 304
Asa@6 305 results[mailType] = (results[mailType] or {})
Asa@133 306
Asa@39 307 if skipMail[mailSignature] ~= nil then
Asa@39 308 -- do nothing
Asa@39 309 elseif mailType == "NonAHMail" and msgCOD > 0 then
Asa@6 310 mailType = 'COD'
Asa@6 311 results[mailType] = (results[mailType] or {})
Asa@133 312
Asa@5 313 local itemTypes = {}
Asa@5 314 for itemIndex = 1, ATTACHMENTS_MAX_RECEIVE do
Asa@5 315 local itemName, _, count, _, _= GetInboxItem(mailIndex, itemIndex)
Asa@5 316 if itemName ~= nil then
Asa@39 317 itemTypes[itemName] = (itemTypes[itemName] or 0) + count
Asa@5 318 end
Asa@5 319 end
Asa@133 320
Asa@15 321 if self:tcount(itemTypes) == 1 then
Asa@5 322 for itemName, count in pairs(itemTypes) do
Asa@39 323 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@39 324 results[mailType][itemName].total = results[mailType][itemName].total + msgCOD
Asa@133 325
Asa@39 326 if inboundCOD[mailSignature] == nil then
Asa@39 327 results[mailType][itemName].count = results[mailType][itemName].count + count
Asa@39 328 inboundCOD[mailSignature] = (inboundCOD[mailSignature] or 0) + count
Asa@39 329 else
Asa@39 330 results[mailType][itemName].count = inboundCOD[mailSignature]
Asa@39 331 end
Asa@133 332
Asa@133 333
Asa@5 334 end
Asa@5 335 else
Asa@5 336 self:Debug("Don't know what to do with more than one item type on COD mail.")
Asa@5 337 end
Asa@133 338 elseif mailType == "CODPayment" then
Asa@39 339 -- /dump ItemAuditor.db.factionrealm.outbound_cod
Asa@39 340 self:Debug(msgSubject)
Asa@39 341 self:Debug(CODPaymentRegex)
Asa@39 342 local outboundSubject = select(3, msgSubject:find(CODPaymentRegex))
Asa@39 343 local trackID
Asa@39 344 if outboundSubject ~= nil then
Asa@39 345 self:Debug(outboundSubject)
Asa@45 346 trackID = select(3, outboundSubject:find('[[]IA: (%d*)[]]'))
Asa@133 347
Asa@39 348 if trackID ~= nil then
Asa@45 349 trackID = tonumber(trackID)
Asa@45 350 self:Debug('COD ID: %s', trackID)
Asa@39 351 local cod = self.db.factionrealm.outbound_cod[trackID]
Asa@39 352 if cod == nil then
Asa@39 353 skipMail[mailSignature] = true
Asa@39 354 self:Print("WARNING: {%s} has an invalid ItemAuditor tracking number.", msgSubject)
Asa@39 355 else
Asa@39 356 itemName = trackID .. "|" .. cod['link']
Asa@133 357
Asa@133 358
Asa@39 359 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@39 360 results[mailType][itemName].total = results[mailType][itemName].total - msgMoney
Asa@39 361 results[mailType][itemName].count = results[mailType][itemName].count - cod.count
Asa@39 362 end
Asa@39 363 end
Asa@39 364 end
Asa@133 365
Asa@39 366 if trackID == nil then
Asa@39 367 skipMail[mailSignature] = true
Asa@39 368 self:Print("WARNING: {%s} is a COD payment but doesn't have an ItemAuditor tracking number.", msgSubject)
Asa@39 369 end
Asa@133 370
Asa@0 371 elseif mailType == "AHSuccess" then
Asa@0 372 local invoiceType, itemName, playerName, bid, buyout, deposit, consignment = GetInboxInvoiceInfo(mailIndex);
Asa@26 373 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@26 374 results[mailType][itemName].total = results[mailType][itemName].total - deposit - buyout + consignment
Asa@133 375
Asa@0 376
Asa@0 377 elseif mailType == "AHWon" then
Asa@0 378 local invoiceType, itemName, playerName, bid, buyout, deposit, consignment = GetInboxInvoiceInfo(mailIndex);
Asa@26 379 results[mailType][itemName] = (results[mailType][itemName] or {total=0,count=0})
Asa@26 380 results[mailType][itemName].total = results[mailType][itemName].total + bid
Asa@133 381
Asa@98 382 local count = select(3, GetInboxItem(mailIndex,1))
Asa@26 383 results[mailType][itemName].count = results[mailType][itemName].count + count
Asa@5 384 elseif mailType == "AHExpired" or mailType == "AHCancelled" or mailType == "AHOutbid" then
Asa@0 385 -- These should be handled when you pay the deposit at the AH
Asa@0 386 else
Asa@144 387
Asa@144 388 local body = GetInboxText(mailIndex)
Asa@144 389 if body and body:find(ItemAuditor.TRACKING_DATA_DIVIDER) then
Asa@144 390 local serialized = body:gsub('.*'..ItemAuditor.TRACKING_DATA_DIVIDER, '')
Asa@144 391 local body = body:gsub(ItemAuditor.TRACKING_DATA_DIVIDER..'.*', '')
Asa@144 392 local success, trackingID, data = ItemAuditor:Deserialize(serialized)
Asa@144 393 if success then
Asa@144 394 if not self.db.char.incoming_tracking_ids[trackingID] then
Asa@144 395 for link, d in pairs(data) do
Asa@144 396 self:SaveValue(link, d.costEach * d.count, d.count)
Asa@144 397 end
Asa@144 398 end
Asa@144 399 if body == '' and msgItem == nil then
Asa@144 400 self.deleteQueue = self.deleteQueue or {}
Asa@144 401 local ni = #(self.deleteQueue)+1
Asa@144 402 print(deleteQueue, ni, mailIndex)
Asa@144 403 self.deleteQueue[ni] = mailIndex
Asa@144 404 end
Asa@144 405 ia_tracking[trackingID] = true
Asa@144 406 self.db.char.incoming_tracking_ids[trackingID] = true
Asa@144 407 end
Asa@144 408 end
Asa@144 409
Asa@0 410 end
Asa@0 411
Asa@0 412 end
Asa@98 413
Asa@98 414 wipe(myMailbox)
Asa@23 415 for mailType, collection in pairs(results) do
Asa@98 416 myMailbox[mailType] = {}
Asa@26 417 for item, data in pairs(collection) do
Asa@98 418 myMailbox[mailType][item] = {
Asa@98 419 total = data.total,
Asa@98 420 count = data.count,
Asa@98 421 }
Asa@98 422 -- self:Print(format("|cFF00FF00MailScan|r: %s - %s - %s x %s", mailType, item, data.total, data.count))
Asa@23 423 end
Asa@23 424 end
Asa@144 425 if self:tcount(ia_tracking) > 0 then
Asa@144 426 for id, _ in pairs(self.db.char.incoming_tracking_ids) do
Asa@144 427 self.db.char.incoming_tracking_ids[id] = ia_tracking[id]
Asa@144 428 end
Asa@144 429 end
Asa@144 430
Asa@133 431 return results
Asa@0 432 end
Asa@0 433
Asa@105 434 local realm = GetRealmName()
Asa@105 435 local ds_account = 'Default'
Asa@82 436 function ItemAuditor:GetItemCount(searchID)
Asa@141 437 self:Debug('ItemAuditor:GetItemCount(%s)', tostring(searchID))
Asa@105 438 local count = 0
Asa@105 439 for _, character in pairs(DataStore:GetCharacters(realm, ds_account)) do
Asa@136 440 if DataStore:GetCharacterFaction(character) == UnitFactionGroup("player") then
Asa@136 441 local bag, bank = DataStore:GetContainerItemCount(character, searchID)
Asa@136 442 count = count + (bag or 0) + (bank or 0)
Asa@136 443 count = count + (DataStore:GetAuctionHouseItemCount(character, searchID) or 0)
Asa@136 444 count = count + (DataStore:GetInventoryItemCount(character, searchID) or 0)
Asa@136 445 count = count + (DataStore:GetMailItemCount(character, searchID) or 0)
Asa@136 446 count = count + (DataStore:GetCurrencyItemCount(character, searchID) or 0)
Asa@141 447 else
Asa@141 448 self:Debug('Skipping %s', character)
Asa@136 449 end
Asa@105 450 end
Asa@141 451 self:Debug('before guild count: %s', count)
Asa@132 452 for guildName in pairs(self.db.factionrealm.enabled_guilds) do
Asa@132 453 count = count + DataStore:GetGuildBankItemCount(DataStore:GetGuilds()[guildName], searchID)
Asa@132 454 end
Asa@141 455 self:Debug('after guild count: %s', count)
Asa@132 456
Asa@98 457 local itemName = GetItemInfo(searchID)
Asa@98 458 for character, mailbox in pairs(allMailboxes) do
Asa@98 459 for type, items in pairs(mailbox) do
Asa@98 460 if type == 'AHWon' or type == 'COD' then
Asa@98 461 for name, data in pairs(items) do
Asa@98 462 if name == itemName then
Asa@98 463 count = count - data.count
Asa@141 464 self:Debug('removing mail %s %s %s', character, type, data.count)
Asa@98 465 end
Asa@98 466 end
Asa@98 467 end
Asa@98 468 end
Asa@82 469 end
Asa@82 470 return count
Asa@82 471 end
Asa@82 472
Asa@63 473 function ItemAuditor:GetItem(link, viewOnly)
Asa@9 474 if viewOnly == nil then
Asa@9 475 viewOnly = false
Asa@9 476 end
Asa@133 477
Asa@9 478 local itemName = nil
Asa@9 479 if self:GetSafeLink(link) == nil then
Asa@9 480 itemName = link
Asa@9 481 else
Asa@9 482 link = self:GetSafeLink(link)
Asa@9 483 itemName = GetItemInfo(link)
Asa@9 484 end
Asa@133 485
Asa@133 486
Asa@9 487 if self.db.factionrealm.item_account[itemName] ~= nil then
Asa@65 488 self.db.factionrealm.items[link] = {
Asa@82 489 count = ItemAuditor:GetItemCount(self:GetIDFromLink(link)),
Asa@8 490 invested = abs(self.db.factionrealm.item_account[itemName] or 0),
Asa@8 491 }
Asa@8 492 self.db.factionrealm.item_account[itemName] = nil
Asa@8 493 end
Asa@133 494
Asa@65 495 if viewOnly == false and self.db.factionrealm.items[link] == nil then
Asa@133 496
Asa@65 497 self.db.factionrealm.items[link] = {
Asa@82 498 count = ItemAuditor:GetItemCount(self:GetIDFromLink(link)),
Asa@9 499 invested = abs(self.db.factionrealm.item_account[itemName] or 0),
Asa@9 500 }
Asa@133 501
Asa@9 502 end
Asa@133 503
Asa@65 504 if self.db.factionrealm.items[link] ~= nil then
Asa@82 505 self.db.factionrealm.items[link].count = ItemAuditor:GetItemCount(self:GetIDFromLink(link))
Asa@133 506
Asa@65 507 if self.db.factionrealm.items[link].invested == nil then
Asa@65 508 self.db.factionrealm.items[link].invested = 0
Asa@45 509 end
Asa@37 510 end
Asa@133 511
Asa@65 512 if viewOnly == true and self.db.factionrealm.items[link] == nil then
Asa@9 513 return {count = 0, invested = 0}
Asa@9 514 elseif viewOnly == true then
Asa@133 515
Asa@65 516 return {count = self.db.factionrealm.items[link].count, invested = self.db.factionrealm.items[link].invested}
Asa@9 517 end
Asa@133 518
Asa@133 519
Asa@133 520
Asa@65 521 return self.db.factionrealm.items[link]
Asa@8 522 end
Asa@8 523
Asa@63 524 function ItemAuditor:RemoveItem(link)
Asa@9 525 self.db.factionrealm.item_account[link] = nil
Asa@9 526 link = self:GetSafeLink(link)
Asa@9 527 if link ~= nil then
Asa@63 528 local item = ItemAuditor:GetItem(link)
Asa@35 529 item.invested = 0
Asa@24 530 else
Asa@24 531 self:Debug('Failed to convert link' .. tostring(link))
Asa@9 532 end
Asa@8 533 end
Asa@8 534
Asa@63 535 function ItemAuditor:SaveValue(link, value, countChange)
Asa@26 536 self:Debug("SaveValue(%s, %s, %s)", tostring(link), value, (countChange or 'default'))
Asa@26 537 countChange = countChange or 0
Asa@9 538 local item = nil
Asa@9 539 local realLink = self:GetSafeLink(link)
Asa@9 540 local itemName = nil
Asa@9 541 if realLink == nil then
Asa@26 542 itemName = link
Asa@23 543 self:Debug('SaveValue: GetSafeLink failed, falling back to storing by name: ' .. tostring(itemName))
Asa@9 544 self.db.factionrealm.item_account[itemName] = (self.db.factionrealm.item_account[itemName] or 0) + value
Asa@9 545 item = {invested = self.db.factionrealm.item_account[itemName], count = 1}
Asa@9 546 else
Asa@133 547
Asa@9 548 item = self:GetItem(realLink)
Asa@9 549 item.invested = item.invested + value
Asa@9 550 itemName = GetItemInfo(realLink)
Asa@9 551 end
Asa@133 552
Asa@26 553 if value > 0 and countChange > 0 and item.invested == value and item.count ~= countChange then
Asa@26 554 local costPerItem = value / countChange
Asa@26 555 value = costPerItem * item.count
Asa@26 556 item.invested = value
Asa@26 557 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 558 end
Asa@133 559
Asa@7 560 if abs(value) > 0 then
Asa@22 561 if item.invested < 0 then
Asa@16 562 if self.db.profile.messages.cost_updates then
Asa@103 563 self:Print(format("Updated price of %s from %s to %s. |cFF00FF00You just made a profit of %s.", itemName, self:FormatMoney(item.invested - value), self:FormatMoney(0), self:FormatMoney(abs(item.invested))))
Asa@16 564 end
Asa@12 565 self:RemoveItem(link)
Asa@12 566 -- This doesn't work when you mail the only copy of an item you have to another character.
Asa@12 567 --[[
Asa@133 568 elseif item.count == 0 and realLink and ItemAuditor:GetItemCount(self:GetIDFromLink(realLink)) then
Asa@15 569 self:Print("You ran out of " .. itemName .. " and never recovered " .. self:FormatMoney(item.invested))
Asa@12 570 self:RemoveItem(link)
Asa@12 571 ]]
Asa@16 572 else
Asa@16 573 if self.db.profile.messages.cost_updates then
Asa@16 574 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 575 end
Asa@12 576 end
Asa@0 577 end
Asa@133 578
Asa@10 579 if realLink ~= nil then
Asa@63 580 ItemAuditor:UpdateQAThreshold(realLink)
Asa@112 581 self:SendMessage("IA_COST_CHANGED", realLink, unpack({ItemAuditor:GetItemCost(realLink)}))
Asa@10 582 end
Asa@35 583 UpdateInvestedData()
Asa@10 584 end
Asa@12 585
Asa@0 586
Asa@63 587 function ItemAuditor:WatchBags()
Asa@4 588 if self.watch_handle == nil then
Asa@63 589 ItemAuditor:UpdateCurrentInventory()
Asa@152 590 self.watch_handle = self:RegisterBucketEvent({"BAG_UPDATE", "PLAYER_MONEY", "UNIT_INVENTORY_CHANGED"}, 0.3, "UpdateAudit")
Asa@4 591 end
Asa@0 592 end
Asa@0 593
Asa@63 594 function ItemAuditor:UnwatchBags()
Asa@4 595 if self.watch_handle ~= nil then
Asa@4 596 self:UnregisterBucket(self.watch_handle)
Asa@4 597 self.watch_handle = nil
Asa@4 598 end
Asa@0 599 end
Asa@0 600
Asa@9 601
Asa@63 602 function ItemAuditor:GetSafeLink(link)
Asa@9 603 local newLink = nil
Asa@9 604
Asa@24 605 if link and link == string.match(link, '.-:[-0-9]+[:0-9]*') then
Asa@24 606 newLink = link
Asa@24 607 elseif link then
Asa@9 608 newLink = link and string.match(link, "|H(.-):([-0-9]+):([0-9]+)|h")
Asa@9 609 end
Asa@9 610 if newLink == nil then
Asa@9 611 local itemID = self:GetItemID(link)
Asa@9 612 if itemID ~= nil then
Asa@9 613 _, newLink = GetItemInfo(itemID)
Asa@9 614 return self:GetSafeLink(newLink)
Asa@9 615 end
Asa@9 616 end
Asa@146 617 return newLink and string.gsub(newLink, ":0:0:0:0:0:0:[0-9]+", "")
Asa@9 618 end
Asa@9 619
Asa@63 620 function ItemAuditor:GetIDFromLink(link)
Asa@9 621 local _, _, _, _, Id = string.find(link, "|?c?f?f?(%x*)|?H?([^:]*):?(%d+):?(%d*):?(%d*):?(%d*):?(%d*):?(%d*):?(%-?%d*):?(%-?%d*):?(%d*)|?h?%[?([^%[%]]*)%]?|?h?|?r?")
Asa@9 622 return tonumber(Id)
Asa@9 623 end
Asa@9 624
Asa@63 625 function ItemAuditor:GetItemCost(link, countModifier)
Asa@9 626 local item = self:GetItem(link, true)
Asa@8 627
Asa@9 628 if item.invested > 0 then
Asa@9 629 local count = item.count
Asa@133 630
Asa@9 631 if countModifier ~= nil then
Asa@9 632 count = count - countModifier
Asa@0 633 end
Asa@133 634 if count > 0 then
Asa@45 635 return ceil(item.invested), ceil(item.invested/count), count
Asa@9 636 end
Asa@121 637 return ceil(item.invested), 0, count
Asa@0 638 end
Asa@82 639 return 0, 0, ItemAuditor:GetItemCount(ItemAuditor:GetIDFromLink(link))
Asa@0 640 end
Asa@132 641
Asa@132 642 ItemAuditor.Options.args.misc= {
Asa@132 643 name = "Misc",
Asa@132 644 type = 'group',
Asa@132 645 args = {
Asa@132 646 },
Asa@132 647 }
Asa@132 648 local function GetGuild(info)
Asa@132 649 local guildName = info[#(info)]
Asa@132 650 return (ItemAuditor.db.factionrealm.enabled_guilds[guildName] == true)
Asa@132 651 end
Asa@132 652
Asa@132 653 local function SetGuild(info, value)
Asa@132 654 local guildName = info[#(info)]
Asa@132 655 ItemAuditor.db.factionrealm.enabled_guilds[guildName] = value or nil
Asa@132 656 end
Asa@132 657
Asa@132 658 for guildName in pairs(DataStore:GetGuilds()) do
Asa@132 659 ItemAuditor.Options.args.misc.args[guildName] = {
Asa@132 660 type = "toggle",
Asa@132 661 name = "Count "..guildName.." Guild Bank",
Asa@132 662 get = GetGuild,
Asa@132 663 set = SetGuild,
Asa@132 664 order = 11,
Asa@132 665 }
Asa@132 666 end