tekIDmemo.lua @@ -3,15 +3,14 @@ -- Locals -- ---------------------- -local L = setmetatable({}, {__index=function(t,i) return i end}) -local defaults, db = {} +local db ------------------------------ -- Util Functions -- ------------------------------ -local function Print(...) ChatFrame1:AddMessage(string.join(" ", "|cFF33FF99Addon Template|r:", ...)) end +local function Print(...) print("|cFF33FF99NutCounter|r:", ...) end local debugf = tekDebug and tekDebug:GetFrame("NutCounter") local function Debug(...) if debugf then debugf:AddMessage(string.join(", ", tostringall(...))) end end @@ -29,32 +28,105 @@ f:RegisterEvent("ADDON_LOADED") function f:ADDON_LOADED(event, addon) if addon ~= "NutCounter" then return end - NutCounterDB = setmetatable(NutCounterDB or {min = {}, max = {}, last = {}}, {__index = defaults}) - db = NutCounterDB + local dbkey = GetRealmName().. " ".. UnitFactionGroup("player") - -- Do anything you need to do after addon has loaded + NutCounterDB = NutCounterDB or {} + NutCounterDB[dbkey] = NutCounterDB[dbkey] or {min = {}, max = {}, last = {}, sold = {}, failed = {}} + db = NutCounterDB[dbkey] - LibStub("tekKonfig-AboutPanel").new("NutCounter", "NutCounter") -- Remove first arg if no parent config panel + LibStub("tekKonfig-AboutPanel").new(nil, "NutCounter") + + self:RegisterEvent("MAIL_INBOX_UPDATE") self:UnregisterEvent("ADDON_LOADED") self.ADDON_LOADED = nil +end + + +local lastcount, lastitem, lastprice, cashingout, lastexpire - if IsLoggedIn() then self:PLAYER_LOGIN() else self:RegisterEvent("PLAYER_LOGIN") end +local orig = AutoLootMailItem +function AutoLootMailItem(i, ...) + Debug("AutoLootMailItem", i, ...) + + local _, _, _, subject = GetInboxHeaderInfo(i) + if subject:match("^Auction expired:") then lastexpire = GetInboxItem(i, 1) + else cashingout = i end + return orig(i, ...) end +function f:MAIL_INBOX_UPDATE() + local count = GetInboxNumItems() + Debug("MAIL_INBOX_UPDATE", count) + + if cashingout then + local invoiceType, itemName, _, bid, buyout = GetInboxInvoiceInfo(cashingout) + Debug("Detected cashout", invoiceType, bid, buyout) + if invoiceType then + if invoiceType == "seller" then + lastitem, lastprice = itemName, buyout or bid + end + cashingout = nil + end + elseif lastexpire and lastcount and count == lastcount - 1 then + Debug("Detected expired mail removal", lastexpire) + db.failed[lastexpire] = (db.failed[lastexpire] or 0) + 1 + lastexpire = nil + elseif lastprice and count == lastcount - 1 then + Debug("Detected mail removal", lastprice, lastitem) + db.min[lastitem] = math.min(lastprice, db.min[lastitem] or math.huge) + db.max[lastitem] = math.max(lastprice, db.max[lastitem] or 0) + db.last[lastitem] = lastprice + db.sold[lastitem] = (db.sold[lastitem] or 0) + 1 + lastprice, lastitem = nil + end + + lastcount = count +end -function f:PLAYER_LOGIN() - self:RegisterEvent("PLAYER_LOGOUT") - -- Do anything you need to do after the player has entered the world +----------------------------- +-- Tooltip stuff -- +----------------------------- + +local function GS(cash) + if not cash then return end + cash = cash/100 + local s = floor(cash%100) + local g = floor(cash/100) + if g > 0 then return string.format("|cffffd700%d.|cffc7c7cf%02d", g, s) + else return string.format("|cffc7c7cf%d", s) end +end + + +local origs = {} +local OnTooltipSetItem = function(frame, ...) + assert(frame, "arg 1 is nil, someone isn't hooking correctly") + + local name = frame:GetItem() + if name then + local min, max, last, sold, failed = db.min[name], db.max[name], db.last[name], db.sold[name], db.failed[name] + if min then frame:AddDoubleLine("Previous sales:", max and max ~= min and (GS(min).." - "..GS(max)) or GS(min)) end + if last then frame:AddDoubleLine("Last sale:", GS(last)) end + if sold or failed then frame:AddDoubleLine("Sellthrough:", string.format("%d%%", (sold or 0)/((sold or 0) + (failed or 0))*100)) end + end + + if origs[frame] then return origs[frame](frame, ...) end +end - self:UnregisterEvent("PLAYER_LOGIN") - self.PLAYER_LOGIN = nil +for i,frame in pairs{GameTooltip, ItemRefTooltip} do + origs[frame] = frame:GetScript("OnTooltipSetItem") + frame:SetScript("OnTooltipSetItem", OnTooltipSetItem) end -function f:PLAYER_LOGOUT() - for i,v in pairs(defaults) do if db[i] == v then db[i] = nil end end +-------------------------------- +-- GetAuctionBuyout -- +-------------------------------- - -- Do anything you need to do as the player logs out +local ids = LibStub("tekIDmemo") +local orig = GetAuctionBuyout +function GetAuctionBuyout(item) + local id = ids[item] + return orig and orig(item) or id and db.last[GetItemInfo(id)] end NutCounter.lua @@ -17,5 +17,6 @@ LibStub.lua tekKonfigAboutPanel.lua +tekIDmemo.lua NutCounter.lua NutCounter.toc 696871557e53e96f34bcc7ec0e87a2145610b9d6 Tekkub tekkub@gmail.com http://github.com/tekkub/nutcounter/commit/e68e59918839262e4c40ebc06784c747fa5229ec e68e59918839262e4c40ebc06784c747fa5229ec 2008-10-26T13:43:26-07:00 2008-10-26T13:43:26-07:00 Lookie lookie worky worky! e7903b15dd3cc72321767abe85f7bb3dd2b698ae Tekkub tekkub@gmail.com