Mercurial > wow > ouroloot

annotate core.lua @ 19:f560cf82e7d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Smarter handling of missed item cache entries. Basic persistent logging of debug messages (options panel or /loot debug alsolog) and script to print same.
author Farmbuyer of US-Kilrogg <farmbuyer@gmail.com>
date Mon, 29 Aug 2011 01:29:13 +0000
parents ca797c0f32d4
children d89aeb6b9f9e
rev   line source
farmbuyer@17 1 local nametag, addon = ...
farmbuyer@1 2
farmbuyer@1 3 --[==[
farmbuyer@1 4 g_loot's numeric indices are loot entries (including titles, separators,
farmbuyer@1 5 etc); its named indices are:
farmbuyer@1 6 - forum: saved text from forum markup window, default nil
farmbuyer@1 7 - attend: saved text from raid attendence window, default nil
farmbuyer@16 8 - printed.FOO: last loot index formatted into text window FOO, default 0
farmbuyer@1 9
farmbuyer@1 10 Functions arranged like this, with these lables (for jumping to). As a
farmbuyer@1 11 rule, member functions with UpperCamelCase names are called directly by
farmbuyer@1 12 user-facing code, ones with lowercase names are "one step removed", and
farmbuyer@1 13 names with leading underscores are strictly internal helper functions.
farmbuyer@1 14 ------ Saved variables
farmbuyer@1 15 ------ Constants
farmbuyer@1 16 ------ Addon member data
farmbuyer@6 17 ------ Globals
farmbuyer@1 18 ------ Expiring caches
farmbuyer@1 19 ------ Ace3 framework stuff
farmbuyer@1 20 ------ Event handlers
farmbuyer@1 21 ------ Slash command handler
farmbuyer@1 22 ------ On/off
farmbuyer@1 23 ------ Behind the scenes routines
farmbuyer@1 24 ------ Saved texts
farmbuyer@1 25 ------ Loot histories
farmbuyer@1 26 ------ Player communication
farmbuyer@1 27
farmbuyer@1 28 This started off as part of a raid addon package written by somebody else.
farmbuyer@1 29 After he retired, I began modifying the code. Eventually I set aside the
farmbuyer@1 30 entire package and rewrote the loot tracker module from scratch. Many of the
farmbuyer@1 31 variable/function naming conventions (sv_*, g_*, and family) stayed across the
farmbuyer@16 32 rewrite.
farmbuyer@16 33
farmbuyer@16 34 Some variables are needlessly initialized to nil just to look uniform.
farmbuyer@1 35
farmbuyer@1 36 ]==]
farmbuyer@1 37
farmbuyer@1 38 ------ Saved variables
farmbuyer@16 39 OuroLootSV = nil -- possible copy of g_loot
farmbuyer@16 40 OuroLootSV_saved = nil -- table of copies of saved texts, default nil; keys
farmbuyer@16 41 -- are numeric indices of tables, subkeys of those
farmbuyer@16 42 -- are name/forum/attend/date
farmbuyer@16 43 OuroLootSV_opts = nil -- same as option_defaults until changed
farmbuyer@16 44 -- autoshard: optional name of disenchanting player, default nil
farmbuyer@16 45 -- threshold: optional loot threshold, default nil
farmbuyer@16 46 OuroLootSV_hist = nil
farmbuyer@19 47 OuroLootSV_log = {}
farmbuyer@1 48
farmbuyer@1 49
farmbuyer@1 50 ------ Constants
farmbuyer@1 51 local option_defaults = {
farmbuyer@1 52 ['popup_on_join'] = true,
farmbuyer@1 53 ['register_slashloot'] = true,
farmbuyer@1 54 ['scroll_to_bottom'] = true,
farmbuyer@1 55 ['chatty_on_kill'] = false,
farmbuyer@1 56 ['no_tracking_wipes'] = false,
farmbuyer@1 57 ['snarky_boss'] = true,
farmbuyer@1 58 ['keybinding'] = false,
farmbuyer@2 59 ['bossmod'] = "DBM",
farmbuyer@1 60 ['keybinding_text'] = 'CTRL-SHIFT-O',
farmbuyer@1 61 ['forum'] = {
farmbuyer@1 62 ['[url]'] = '[url=http://www.wowhead.com/?item=$I]$N[/url]$X - $T',
farmbuyer@1 63 ['[item] by name'] = '[item]$N[/item]$X - $T',
farmbuyer@1 64 ['[item] by ID'] = '[item]$I[/item]$X - $T',
farmbuyer@1 65 ['Custom...'] = '',
farmbuyer@1 66 },
farmbuyer@1 67 ['forum_current'] = '[item] by name',
farmbuyer@1 68 }
farmbuyer@1 69 local virgin = "First time loaded? Hi! Use the /ouroloot or /loot command"
farmbuyer@1 70 .." to show the main display. You should probably browse the instructions"
farmbuyer@1 71 .." if you've never used this before; %s to display the help window. This"
farmbuyer@1 72 .." welcome message will not intrude again."
farmbuyer@1 73 local qualnames = {
farmbuyer@1 74 ['gray'] = 0, ['grey'] = 0, ['poor'] = 0, ['trash'] = 0,
farmbuyer@1 75 ['white'] = 1, ['common'] = 1,
farmbuyer@1 76 ['green'] = 2, ['uncommon'] = 2,
farmbuyer@1 77 ['blue'] = 3, ['rare'] = 3,
farmbuyer@1 78 ['epic'] = 4, ['purple'] = 4,
farmbuyer@1 79 ['legendary'] = 5, ['orange'] = 5,
farmbuyer@1 80 ['artifact'] = 6,
farmbuyer@1 81 --['heirloom'] = 7,
farmbuyer@1 82 }
farmbuyer@1 83 local my_name = UnitName('player')
farmbuyer@1 84 local comm_cleanup_ttl = 5 -- seconds in the cache
farmbuyer@1 85
farmbuyer@1 86
farmbuyer@1 87 ------ Addon member data
farmbuyer@1 88 local flib = LibStub("LibFarmbuyer")
farmbuyer@1 89 addon.author_debug = flib.author_debug
farmbuyer@1 90
farmbuyer@6 91 -- Play cute games with namespaces here just to save typing. WTB Lua 5.2 PST.
farmbuyer@1 92 do local _G = _G setfenv (1, addon)
farmbuyer@1 93
farmbuyer@17 94 commrev = 15 -- number
farmbuyer@17 95 revision = _G.GetAddOnMetadata(nametag,"Version") or "?"
farmbuyer@1 96 ident = "OuroLoot2"
farmbuyer@1 97 identTg = "OuroLoot2Tg"
farmbuyer@1 98 status_text = nil
farmbuyer@1 99
farmbuyer@1 100 DEBUG_PRINT = false
farmbuyer@1 101 debug = {
farmbuyer@1 102 comm = false,
farmbuyer@1 103 loot = false,
farmbuyer@1 104 flow = false,
farmbuyer@1 105 notraid = false,
farmbuyer@1 106 cache = false,
farmbuyer@19 107 alsolog = false,
farmbuyer@1 108 }
farmbuyer@1 109 function dprint (t,...)
farmbuyer@19 110 if DEBUG_PRINT and debug[t] then
farmbuyer@19 111 local text = flib.safeprint("<"..t.."> ",...)
farmbuyer@19 112 if debug.alsolog then
farmbuyer@19 113 addon:log_with_timestamp(text)
farmbuyer@19 114 end
farmbuyer@19 115 end
farmbuyer@1 116 end
farmbuyer@1 117
farmbuyer@1 118 if author_debug then
farmbuyer@1 119 function pprint(t,...)
farmbuyer@19 120 local text = flib.safeprint("<<"..t..">> ",...)
farmbuyer@19 121 if debug.alsolog then
farmbuyer@19 122 addon:log_with_timestamp(text)
farmbuyer@19 123 end
farmbuyer@1 124 end
farmbuyer@1 125 else
farmbuyer@1 126 pprint = flib.nullfunc
farmbuyer@1 127 end
farmbuyer@1 128
farmbuyer@1 129 enabled = false
farmbuyer@1 130 rebroadcast = false
farmbuyer@1 131 display = nil -- display frame, when visible
farmbuyer@1 132 loot_clean = nil -- index of last GUI entry with known-current visual data
farmbuyer@1 133 sender_list = {active={},names={}} -- this should be reworked
farmbuyer@1 134 threshold = debug.loot and 0 or 3 -- rare by default
farmbuyer@1 135 sharder = nil -- name of person whose loot is marked as shards
farmbuyer@1 136
farmbuyer@1 137 -- The rest is also used in the GUI:
farmbuyer@1 138
farmbuyer@1 139 popped = nil -- non-nil when reminder has been shown, actual value unimportant
farmbuyer@1 140
farmbuyer@1 141 -- This is an amalgamation of all four LOOT_ITEM_* patterns.
farmbuyer@1 142 -- Captures: 1 person/You, 2 itemstring, 3 rest of string after final |r until '.'
farmbuyer@1 143 -- Can change 'loot' to 'item' to trigger on, e.g., extracting stuff from mail.
farmbuyer@1 144 loot_pattern = "(%S+) receives? loot:.*|cff%x+|H(.-)|h.*|r(.*)%.$"
farmbuyer@1 145
farmbuyer@2 146 bossmod_registered = nil
farmbuyer@2 147 bossmods = {}
farmbuyer@2 148
farmbuyer@1 149 requesting = nil -- for prompting for additional rebroadcasters
farmbuyer@1 150
farmbuyer@11 151 thresholds = {}
farmbuyer@1 152 for i = 0,6 do
farmbuyer@11 153 thresholds[i] = _G.ITEM_QUALITY_COLORS[i].hex .. _G["ITEM_QUALITY"..i.."_DESC"] .. "|r"
farmbuyer@1 154 end
farmbuyer@1 155
farmbuyer@1 156 _G.setfenv (1, _G)
farmbuyer@1 157 end
farmbuyer@1 158
farmbuyer@1 159 addon = LibStub("AceAddon-3.0"):NewAddon(addon, "Ouro Loot",
farmbuyer@1 160 "AceTimer-3.0", "AceComm-3.0", "AceConsole-3.0", "AceEvent-3.0")
farmbuyer@1 161
farmbuyer@1 162
farmbuyer@6 163 ------ Globals
farmbuyer@1 164 local g_loot = nil
farmbuyer@1 165 local g_restore_p = nil
farmbuyer@1 166 local g_wafer_thin = nil -- for prompting for additional rebroadcasters
farmbuyer@1 167 local g_today = nil -- "today" entry in g_loot
farmbuyer@16 168 local g_boss_signpost = nil
farmbuyer@1 169 local opts = nil
farmbuyer@1 170
farmbuyer@1 171 local pairs, ipairs, tinsert, tremove, tonumber = pairs, ipairs, table.insert, table.remove, tonumber
farmbuyer@1 172 local pprint, tabledump = addon.pprint, flib.tabledump
farmbuyer@10 173 local GetNumRaidMembers = GetNumRaidMembers
farmbuyer@1 174 -- En masse forward decls of symbols defined inside local blocks
farmbuyer@2 175 local _register_bossmod
farmbuyer@1 176 local makedate, create_new_cache, _init
farmbuyer@1 177
farmbuyer@1 178 -- Hypertext support, inspired by DBM broadcast pizza timers
farmbuyer@1 179 do
farmbuyer@1 180 local hypertext_format_str = "|HOuroRaid:%s|h%s[%s]|r|h"
farmbuyer@1 181
farmbuyer@1 182 function addon.format_hypertext (code, text, color)
farmbuyer@1 183 return hypertext_format_str:format (code,
farmbuyer@11 184 type(color)=='number' and ITEM_QUALITY_COLORS[color].hex or color,
farmbuyer@1 185 text)
farmbuyer@1 186 end
farmbuyer@1 187
farmbuyer@1 188 DEFAULT_CHAT_FRAME:HookScript("OnHyperlinkClick", function(self, link, string, mousebutton)
farmbuyer@1 189 local ltype, arg = strsplit(":",link)
farmbuyer@1 190 if ltype ~= "OuroRaid" then return end
farmbuyer@1 191 if arg == 'openloot' then
farmbuyer@1 192 addon:BuildMainDisplay()
farmbuyer@1 193 elseif arg == 'help' then
farmbuyer@1 194 addon:BuildMainDisplay('help')
farmbuyer@1 195 elseif arg == 'bcaston' then
farmbuyer@1 196 if not addon.rebroadcast then
farmbuyer@1 197 addon:Activate(nil,true)
farmbuyer@1 198 end
farmbuyer@1 199 addon:broadcast('bcast_responder')
farmbuyer@1 200 elseif arg == 'waferthin' then -- mint? it's wafer thin!
farmbuyer@1 201 g_wafer_thin = true -- fuck off, I'm full
farmbuyer@1 202 addon:broadcast('bcast_denied') -- remove once tested
farmbuyer@1 203 end
farmbuyer@1 204 end)
farmbuyer@1 205
farmbuyer@1 206 local old = ItemRefTooltip.SetHyperlink
farmbuyer@1 207 function ItemRefTooltip:SetHyperlink (link, ...)
farmbuyer@1 208 if link:match("^OuroRaid") then return end
farmbuyer@1 209 return old (self, link, ...)
farmbuyer@1 210 end
farmbuyer@1 211 end
farmbuyer@1 212
farmbuyer@1 213 do
farmbuyer@1 214 -- copied here because it's declared local to the calendar ui, thanks blizz ><
farmbuyer@1 215 local CALENDAR_FULLDATE_MONTH_NAMES = {
farmbuyer@1 216 FULLDATE_MONTH_JANUARY, FULLDATE_MONTH_FEBRUARY, FULLDATE_MONTH_MARCH,
farmbuyer@1 217 FULLDATE_MONTH_APRIL, FULLDATE_MONTH_MAY, FULLDATE_MONTH_JUNE,
farmbuyer@1 218 FULLDATE_MONTH_JULY, FULLDATE_MONTH_AUGUST, FULLDATE_MONTH_SEPTEMBER,
farmbuyer@1 219 FULLDATE_MONTH_OCTOBER, FULLDATE_MONTH_NOVEMBER, FULLDATE_MONTH_DECEMBER,
farmbuyer@1 220 }
farmbuyer@1 221 -- returns "dd Month yyyy", mm, dd, yyyy
farmbuyer@1 222 function makedate()
farmbuyer@1 223 Calendar_LoadUI()
farmbuyer@1 224 local _, M, D, Y = CalendarGetDate()
farmbuyer@1 225 local text = ("%d %s %d"):format(D, CALENDAR_FULLDATE_MONTH_NAMES[M], Y)
farmbuyer@1 226 return text, M, D, Y
farmbuyer@1 227 end
farmbuyer@1 228 end
farmbuyer@1 229
farmbuyer@1 230 -- Returns an instance name or abbreviation
farmbuyer@1 231 local function instance_tag()
farmbuyer@1 232 local name, typeof, diffcode, diffstr, _, perbossheroic, isdynamic = GetInstanceInfo()
farmbuyer@1 233 local t
farmbuyer@1 234 name = addon.instance_abbrev[name] or name
farmbuyer@1 235 if typeof == "none" then return name end
farmbuyer@1 236 -- diffstr is "5 Player", "10 Player (Heroic)", etc. ugh.
farmbuyer@1 237 if diffcode == 1 then
farmbuyer@1 238 t = ((GetNumRaidMembers()>0) and "10" or "5")
farmbuyer@1 239 elseif diffcode == 2 then
farmbuyer@1 240 t = ((GetNumRaidMembers()>0) and "25" or "5h")
farmbuyer@1 241 elseif diffcode == 3 then
farmbuyer@1 242 t = "10h"
farmbuyer@1 243 elseif diffcode == 4 then
farmbuyer@1 244 t = "25h"
farmbuyer@1 245 end
farmbuyer@1 246 -- dynamic difficulties always return normal "codes"
farmbuyer@1 247 if isdynamic and perbossheroic == 1 then
farmbuyer@1 248 t = t .. "h"
farmbuyer@1 249 end
farmbuyer@1 250 return name .. "(" .. t .. ")"
farmbuyer@1 251 end
farmbuyer@1 252 addon.instance_tag = instance_tag -- grumble
farmbuyer@1 253
farmbuyer@1 254
farmbuyer@1 255 ------ Expiring caches
farmbuyer@1 256 --[[
farmbuyer@1 257 foo = create_new_cache("myfoo",15[,cleanup]) -- ttl
farmbuyer@1 258 foo:add("blah")
farmbuyer@1 259 foo:test("blah") -- returns true
farmbuyer@1 260 ]]
farmbuyer@1 261 do
farmbuyer@1 262 local caches = {}
farmbuyer@1 263 local cleanup_group = AnimTimerFrame:CreateAnimationGroup()
farmbuyer@10 264 local time = _G.time
farmbuyer@1 265 cleanup_group:SetLooping("REPEAT")
farmbuyer@1 266 cleanup_group:SetScript("OnLoop", function(cg)
farmbuyer@1 267 addon.dprint('cache',"OnLoop firing")
farmbuyer@10 268 local now = time()
farmbuyer@1 269 local alldone = true
farmbuyer@1 270 -- this is ass-ugly
farmbuyer@1 271 for _,c in ipairs(caches) do
farmbuyer@1 272 while (#c > 0) and (now - c[1].t > c.ttl) do
farmbuyer@1 273 addon.dprint('cache', c.name, "cache removing",c[1].t, c[1].m)
farmbuyer@1 274 tremove(c,1)
farmbuyer@1 275 end
farmbuyer@1 276 alldone = alldone and (#c == 0)
farmbuyer@1 277 end
farmbuyer@1 278 if alldone then
farmbuyer@1 279 addon.dprint('cache',"OnLoop finishing animation group")
farmbuyer@1 280 cleanup_group:Finish()
farmbuyer@1 281 for _,c in ipairs(caches) do
farmbuyer@1 282 if c.func then c:func() end
farmbuyer@1 283 end
farmbuyer@1 284 end
farmbuyer@1 285 addon.dprint('cache',"OnLoop done")
farmbuyer@1 286 end)
farmbuyer@1 287
farmbuyer@1 288 local function _add (cache, x)
farmbuyer@10 289 tinsert(cache, {t=time(),m=x})
farmbuyer@1 290 if not cleanup_group:IsPlaying() then
farmbuyer@1 291 addon.dprint('cache', cache.name, "STARTING animation group")
farmbuyer@1 292 cache.cleanup:SetDuration(2) -- hmmm
farmbuyer@1 293 cleanup_group:Play()
farmbuyer@1 294 end
farmbuyer@1 295 end
farmbuyer@1 296 local function _test (cache, x)
farmbuyer@1 297 for _,v in ipairs(cache) do
farmbuyer@1 298 if v.m == x then return true end
farmbuyer@1 299 end
farmbuyer@1 300 end
farmbuyer@1 301 function create_new_cache (name, ttl, on_alldone)
farmbuyer@1 302 local c = {
farmbuyer@1 303 ttl = ttl,
farmbuyer@1 304 name = name,
farmbuyer@1 305 add = _add,
farmbuyer@1 306 test = _test,
farmbuyer@1 307 cleanup = cleanup_group:CreateAnimation("Animation"),
farmbuyer@1 308 func = on_alldone,
farmbuyer@1 309 }
farmbuyer@1 310 c.cleanup:SetOrder(1)
farmbuyer@1 311 -- setting OnFinished for cleanup fires at the end of each inner loop,
farmbuyer@1 312 -- with no 'requested' argument to distinguish cases. thus, on_alldone.
farmbuyer@1 313 tinsert (caches, c)
farmbuyer@1 314 return c
farmbuyer@1 315 end
farmbuyer@1 316 end
farmbuyer@1 317
farmbuyer@1 318
farmbuyer@1 319 ------ Ace3 framework stuff
farmbuyer@1 320 function addon:OnInitialize()
farmbuyer@1 321 -- VARIABLES_LOADED has fired by this point; test if we're doing something like
farmbuyer@1 322 -- relogging during a raid and already have collected loot data
farmbuyer@1 323 g_restore_p = OuroLootSV ~= nil
farmbuyer@1 324 self.dprint('flow', "oninit sets restore as", g_restore_p)
farmbuyer@1 325
farmbuyer@1 326 if OuroLootSV_opts == nil then
farmbuyer@1 327 OuroLootSV_opts = {}
farmbuyer@1 328 self:ScheduleTimer(function(s)
farmbuyer@1 329 s:Print(virgin, s.format_hypertext('help',"click here",ITEM_QUALITY_UNCOMMON))
farmbuyer@1 330 virgin = nil
farmbuyer@1 331 end,10,self)
farmbuyer@1 332 end
farmbuyer@1 333 opts = OuroLootSV_opts
farmbuyer@1 334 for opt,default in pairs(option_defaults) do
farmbuyer@1 335 if opts[opt] == nil then
farmbuyer@1 336 opts[opt] = default
farmbuyer@1 337 end
farmbuyer@1 338 end
farmbuyer@1 339 option_defaults = nil
farmbuyer@6 340 -- transition&remove old options
farmbuyer@1 341 opts["forum_use_itemid"] = nil
farmbuyer@1 342 if opts["forum_format"] then
farmbuyer@1 343 opts.forum["Custom..."] = opts["forum_format"]
farmbuyer@1 344 opts["forum_format"] = nil
farmbuyer@1 345 end
farmbuyer@16 346 if OuroLootSV then -- may not be the same as testing g_restore_p soon
farmbuyer@16 347 if OuroLootSV.saved then
farmbuyer@16 348 OuroLootSV_saved = OuroLootSV.saved; OuroLootSV.saved = nil
farmbuyer@16 349 end
farmbuyer@16 350 if OuroLootSV.threshold then
farmbuyer@16 351 opts.threshold = OuroLootSV.threshold; OuroLootSV.threshold = nil
farmbuyer@16 352 end
farmbuyer@16 353 if OuroLootSV.autoshard then
farmbuyer@16 354 opts.autoshard = OuroLootSV.autoshard; OuroLootSV.autoshard = nil
farmbuyer@16 355 end
farmbuyer@16 356 end
farmbuyer@1 357 -- get item filter table if needed
farmbuyer@1 358 if opts.itemfilter == nil then
farmbuyer@1 359 opts.itemfilter = addon.default_itemfilter
farmbuyer@1 360 end
farmbuyer@1 361 addon.default_itemfilter = nil
farmbuyer@1 362
farmbuyer@1 363 self:RegisterChatCommand("ouroloot", "OnSlash")
farmbuyer@1 364 -- maybe try to detect if this command is already in use...
farmbuyer@1 365 if opts.register_slashloot then
farmbuyer@1 366 SLASH_ACECONSOLE_OUROLOOT2 = "/loot"
farmbuyer@1 367 end
farmbuyer@1 368
farmbuyer@1 369 self.history_all = self.history_all or OuroLootSV_hist or {}
farmbuyer@4 370 local r = assert(GetRealmName())
farmbuyer@1 371 self.history_all[r] = self:_prep_new_history_category (self.history_all[r], r)
farmbuyer@1 372 self.history = self.history_all[r]
farmbuyer@6 373 --OuroLootSV_hist = nil
farmbuyer@1 374
farmbuyer@1 375 _init(self)
farmbuyer@1 376 self.OnInitialize = nil
farmbuyer@1 377 end
farmbuyer@1 378
farmbuyer@1 379 function addon:OnEnable()
farmbuyer@10 380 self:RegisterEvent("PLAYER_LOGOUT")
farmbuyer@10 381 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@1 382
farmbuyer@1 383 -- Cribbed from Talented. I like the way jerry thinks: the first argument
farmbuyer@1 384 -- can be a format spec for the remainder of the arguments. (The new
farmbuyer@1 385 -- AceConsole:Printf isn't used because we can't specify a prefix without
farmbuyer@1 386 -- jumping through ridonkulous hoops.) The part about overriding :Print
farmbuyer@1 387 -- with a version using prefix hyperlinks is my fault.
farmbuyer@1 388 do
farmbuyer@1 389 local AC = LibStub("AceConsole-3.0")
farmbuyer@1 390 local chat_prefix = self.format_hypertext('openloot',"Ouro Loot",--[[legendary]]5)
farmbuyer@1 391 function addon:Print (str, ...)
farmbuyer@1 392 if type(str) == 'string' and str:find("%", nil, --[[plainmatch=]]true) then
farmbuyer@1 393 return AC:Print (chat_prefix, str:format(...))
farmbuyer@1 394 else
farmbuyer@1 395 return AC:Print (chat_prefix, str, ...)
farmbuyer@1 396 end
farmbuyer@1 397 end
farmbuyer@1 398 end
farmbuyer@1 399
farmbuyer@1 400 if opts.keybinding then
farmbuyer@15 401 KeyBindingFrame_LoadUI()
farmbuyer@1 402 local btn = CreateFrame("Button", "OuroLootBindingOpen", nil, "SecureActionButtonTemplate")
farmbuyer@1 403 btn:SetAttribute("type", "macro")
farmbuyer@1 404 btn:SetAttribute("macrotext", "/ouroloot toggle")
farmbuyer@1 405 if SetBindingClick(opts.keybinding_text, "OuroLootBindingOpen") then
farmbuyer@15 406 -- a simple SaveBindings(GetCurrentBindingSet()) occasionally fails when GCBS
farmbuyer@15 407 -- decides to return neither 1 nor 2 during load
farmbuyer@15 408 local c = GetCurrentBindingSet()
farmbuyer@15 409 if c == ACCOUNT_BINDINGS or c == CHARACTER_BINDINGS then
farmbuyer@15 410 SaveBindings(c)
farmbuyer@15 411 end
farmbuyer@1 412 else
farmbuyer@2 413 self:Print("Error registering '%s' as a keybinding, check spelling!", opts.keybinding_text)
farmbuyer@1 414 end
farmbuyer@1 415 end
farmbuyer@1 416
farmbuyer@1 417 if self.debug.flow then self:Print"is in control-flow debug mode." end
farmbuyer@1 418 end
farmbuyer@1 419 --function addon:OnDisable() end
farmbuyer@1 420
farmbuyer@1 421
farmbuyer@1 422 ------ Event handlers
farmbuyer@1 423 function addon:_clear_SVs()
farmbuyer@1 424 g_loot = {} -- not saved, just fooling PLAYER_LOGOUT tests
farmbuyer@1 425 OuroLootSV = nil
farmbuyer@16 426 OuroLootSV_saved = nil
farmbuyer@1 427 OuroLootSV_opts = nil
farmbuyer@1 428 OuroLootSV_hist = nil
farmbuyer@8 429 ReloadUI()
farmbuyer@1 430 end
farmbuyer@1 431 function addon:PLAYER_LOGOUT()
farmbuyer@16 432 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 433 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@16 434
farmbuyer@16 435 local worth_saving = #g_loot > 0 or next(g_loot.raiders)
farmbuyer@16 436 if not worth_saving then for text in self:registered_textgen_iter() do
farmbuyer@16 437 worth_saving = worth_saving or g_loot.printed[text] > 0
farmbuyer@16 438 end end
farmbuyer@16 439 if worth_saving then
farmbuyer@16 440 opts.autoshard = self.sharder
farmbuyer@16 441 opts.threshold = self.threshold
farmbuyer@1 442 for i,e in ipairs(g_loot) do
farmbuyer@1 443 e.cols = nil
farmbuyer@1 444 end
farmbuyer@1 445 OuroLootSV = g_loot
farmbuyer@16 446 else
farmbuyer@16 447 OuroLootSV = nil
farmbuyer@1 448 end
farmbuyer@16 449
farmbuyer@6 450 for r,t in pairs(self.history_all) do if type(t) == 'table' then
farmbuyer@8 451 if #t == 0 then
farmbuyer@8 452 self.history_all[r] = nil
farmbuyer@8 453 else
farmbuyer@8 454 t.realm = nil
farmbuyer@8 455 t.st = nil
farmbuyer@8 456 t.byname = nil
farmbuyer@8 457 end
farmbuyer@6 458 end end
farmbuyer@1 459 OuroLootSV_hist = self.history_all
farmbuyer@19 460 OuroLootSV_log = #OuroLootSV_log > 0 and OuroLootSV_log or nil
farmbuyer@1 461 end
farmbuyer@1 462
farmbuyer@10 463 do
farmbuyer@10 464 local IsInInstance, UnitName, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@10 465 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo =
farmbuyer@10 466 IsInInstance, UnitName, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@10 467 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo
farmbuyer@10 468 local time, difftime = time, difftime
farmbuyer@10 469 local R_ACTIVE, R_OFFLINE, R_LEFT = 1, 2, 3
farmbuyer@10 470
farmbuyer@10 471 local lastevent, now = 0, 0
farmbuyer@16 472 local redo_count = 0
farmbuyer@16 473 local redo, timer_handle
farmbuyer@10 474
farmbuyer@10 475 function addon:CheckRoster (leaving_p, now_a)
farmbuyer@10 476 if not g_loot.raiders then return end -- bad transition
farmbuyer@10 477
farmbuyer@10 478 now = now_a or time()
farmbuyer@10 479
farmbuyer@10 480 if leaving_p then
farmbuyer@16 481 if timer_handle then
farmbuyer@16 482 self:CancelTimer(timer_handle)
farmbuyer@16 483 timer_handle = nil
farmbuyer@16 484 end
farmbuyer@10 485 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 486 r.leave = r.leave or now
farmbuyer@10 487 end
farmbuyer@10 488 return
farmbuyer@10 489 end
farmbuyer@10 490
farmbuyer@10 491 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 492 if r.online ~= R_LEFT and not UnitInRaid(name) then
farmbuyer@10 493 r.online = R_LEFT
farmbuyer@10 494 r.leave = now
farmbuyer@10 495 end
farmbuyer@10 496 end
farmbuyer@10 497
farmbuyer@16 498 if redo then
farmbuyer@16 499 redo_count = redo_count + 1
farmbuyer@16 500 end
farmbuyer@16 501 redo = false
farmbuyer@10 502 for i = 1, GetNumRaidMembers() do
farmbuyer@10 503 local unit = 'raid'..i
farmbuyer@10 504 local name = UnitName(unit)
farmbuyer@10 505 -- No, that's not my typo, it really is "uknownbeing" in Blizzard's code.
farmbuyer@10 506 if name and name ~= UNKNOWN and name ~= UNKNOWNOBJECT and name ~= UKNOWNBEING then
farmbuyer@10 507 if not g_loot.raiders[name] then
farmbuyer@10 508 g_loot.raiders[name] = { needinfo=true }
farmbuyer@10 509 end
farmbuyer@10 510 local r = g_loot.raiders[name]
farmbuyer@10 511 if r.needinfo and UnitIsVisible(unit) then
farmbuyer@10 512 r.needinfo = nil
farmbuyer@10 513 r.class = select(2,UnitClass(unit))
farmbuyer@10 514 r.race = select(2,UnitRace(unit))
farmbuyer@10 515 r.sex = UnitSex(unit)
farmbuyer@10 516 r.level = UnitLevel(unit)
farmbuyer@10 517 r.guild = GetGuildInfo(unit)
farmbuyer@10 518 end
farmbuyer@10 519 local connected = UnitIsConnected(unit)
farmbuyer@10 520 if connected and r.online ~= R_ACTIVE then
farmbuyer@10 521 r.join = r.join or now
farmbuyer@10 522 r.online = R_ACTIVE
farmbuyer@10 523 elseif (not connected) and r.online ~= R_OFFLINE then
farmbuyer@10 524 r.leave = now
farmbuyer@10 525 r.online = R_OFFLINE
farmbuyer@10 526 end
farmbuyer@10 527 redo = redo or r.needinfo
farmbuyer@10 528 end
farmbuyer@10 529 end
farmbuyer@16 530 if redo then -- XXX test redo_count here and eventually give up?
farmbuyer@16 531 if not timer_handle then
farmbuyer@16 532 timer_handle = self:ScheduleRepeatingTimer("RAID_ROSTER_UPDATE", 60)
farmbuyer@16 533 end
farmbuyer@16 534 else
farmbuyer@16 535 redo_count = 0
farmbuyer@16 536 if timer_handle then
farmbuyer@16 537 self:CancelTimer(timer_handle)
farmbuyer@16 538 timer_handle = nil
farmbuyer@16 539 end
farmbuyer@10 540 end
farmbuyer@10 541 end
farmbuyer@10 542
farmbuyer@10 543 function addon:RAID_ROSTER_UPDATE (event)
farmbuyer@10 544 if GetNumRaidMembers() == 0 then
farmbuyer@16 545 -- Leaving a raid group.
farmbuyer@10 546 -- Because of PLAYER_ENTERING_WORLD, this code also executes on load
farmbuyer@10 547 -- screens while soloing and in regular groups. Take care.
farmbuyer@16 548 self.dprint('flow', "GetNumRaidMembers == 0")
farmbuyer@16 549 if self.enabled and not self.debug.notraid then
farmbuyer@16 550 self.dprint('flow', "enabled, leaving raid")
farmbuyer@10 551 self.popped = nil
farmbuyer@16 552 self:Deactivate() -- self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@10 553 self:CheckRoster(--[[leaving raid]]true)
farmbuyer@10 554 end
farmbuyer@10 555 return
farmbuyer@10 556 end
farmbuyer@10 557
farmbuyer@1 558 local inside,whatkind = IsInInstance()
farmbuyer@1 559 if inside and (whatkind == "pvp" or whatkind == "arena") then
farmbuyer@1 560 return self.dprint('flow', "got RRU event but in pvp zone, bailing")
farmbuyer@1 561 end
farmbuyer@10 562
farmbuyer@10 563 local docheck = self.enabled
farmbuyer@1 564 if event == "Activate" then
farmbuyer@1 565 -- dispatched manually from Activate
farmbuyer@10 566 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 567 _register_bossmod(self)
farmbuyer@10 568 docheck = true
farmbuyer@1 569 elseif event == "RAID_ROSTER_UPDATE" then
farmbuyer@10 570 -- hot code path, be careful
farmbuyer@10 571
farmbuyer@1 572 -- event registration from onload, joined a raid, maybe show popup
farmbuyer@16 573 self.dprint('flow', "RRU check:", self.popped, opts.popup_on_join)
farmbuyer@10 574 if (not self.popped) and opts.popup_on_join then
farmbuyer@1 575 self.popped = StaticPopup_Show "OUROL_REMIND"
farmbuyer@1 576 self.popped.data = self
farmbuyer@10 577 return
farmbuyer@1 578 end
farmbuyer@1 579 end
farmbuyer@11 580 -- Throttle the checks fired by common events.
farmbuyer@10 581 if docheck and not InCombatLockdown() then
farmbuyer@10 582 now = time()
farmbuyer@10 583 if difftime(now,lastevent) > 45 then
farmbuyer@10 584 lastevent = now
farmbuyer@10 585 self:CheckRoster(false,now)
farmbuyer@10 586 end
farmbuyer@10 587 end
farmbuyer@1 588 end
farmbuyer@1 589 end
farmbuyer@1 590
farmbuyer@1 591 -- helper for CHAT_MSG_LOOT handler
farmbuyer@1 592 do
farmbuyer@1 593 -- Recent loot cache
farmbuyer@1 594 addon.recent_loot = create_new_cache ('loot', comm_cleanup_ttl)
farmbuyer@1 595
farmbuyer@6 596 local GetItemInfo, GetItemIcon = GetItemInfo, GetItemIcon
farmbuyer@1 597
farmbuyer@1 598 -- 'from' and onwards only present if this is triggered by a broadcast
farmbuyer@1 599 function addon:_do_loot (local_override, recipient, itemid, count, from, extratext)
farmbuyer@6 600 local itexture = GetItemIcon(itemid)
farmbuyer@6 601 local iname, ilink, iquality = GetItemInfo(itemid)
farmbuyer@19 602 local i
farmbuyer@6 603 if (not iname) or (not itexture) then
farmbuyer@19 604 i = true
farmbuyer@6 605 iname, ilink, iquality, itexture =
farmbuyer@6 606 UNKNOWN..': '..itemid, 'item:6948', ITEM_QUALITY_COMMON, [[ICONS\INV_Misc_QuestionMark]]
farmbuyer@6 607 end
farmbuyer@19 608 self.dprint('loot',">>_do_loot, R:", recipient, "I:", itemid, "C:", count, "frm:", from, "ex:", extratext, "q:", iquality)
farmbuyer@1 609
farmbuyer@19 610 itemid = tonumber(ilink:match("item:(%d+)") or 0)
farmbuyer@1 611 if local_override or ((iquality >= self.threshold) and not opts.itemfilter[itemid]) then
farmbuyer@1 612 if (self.rebroadcast and (not from)) and not local_override then
farmbuyer@1 613 self:broadcast('loot', recipient, itemid, count)
farmbuyer@1 614 end
farmbuyer@1 615 if self.enabled or local_override then
farmbuyer@1 616 local signature = recipient .. iname .. (count or "")
farmbuyer@1 617 if self.recent_loot:test(signature) then
farmbuyer@1 618 self.dprint('cache', "loot <",signature,"> already in cache, skipping")
farmbuyer@1 619 else
farmbuyer@1 620 self.recent_loot:add(signature)
farmbuyer@1 621 i = self._addLootEntry{ -- There is some redundancy here...
farmbuyer@1 622 kind = 'loot',
farmbuyer@1 623 person = recipient,
farmbuyer@1 624 person_class= select(2,UnitClass(recipient)),
farmbuyer@19 625 cache_miss = i and true or nil,
farmbuyer@1 626 quality = iquality,
farmbuyer@1 627 itemname = iname,
farmbuyer@1 628 id = itemid,
farmbuyer@1 629 itemlink = ilink,
farmbuyer@1 630 itexture = itexture,
farmbuyer@1 631 disposition = (recipient == self.sharder) and 'shard' or nil,
farmbuyer@1 632 count = count,
farmbuyer@1 633 bcast_from = from,
farmbuyer@1 634 extratext = extratext,
farmbuyer@1 635 is_heroic = self:is_heroic_item(ilink),
farmbuyer@1 636 }
farmbuyer@19 637 self.dprint('loot', "added loot entry", i)
farmbuyer@19 638 if not self.history_suppress then
farmbuyer@19 639 self:_addHistoryEntry(i)
farmbuyer@19 640 end
farmbuyer@1 641 if self.display then
farmbuyer@1 642 self:redisplay()
farmbuyer@1 643 --[[
farmbuyer@1 644 local st = self.display:GetUserData("eoiST")
farmbuyer@1 645 if st and st.frame:IsVisible() then
farmbuyer@1 646 st:OuroLoot_Refresh()
farmbuyer@1 647 end
farmbuyer@1 648 ]]
farmbuyer@1 649 end
farmbuyer@1 650 end
farmbuyer@1 651 end
farmbuyer@1 652 end
farmbuyer@1 653 self.dprint('loot',"<<_do_loot out")
farmbuyer@1 654 return i
farmbuyer@1 655 end
farmbuyer@1 656
farmbuyer@1 657 function addon:CHAT_MSG_LOOT (event, ...)
farmbuyer@1 658 if (not self.rebroadcast) and (not self.enabled) and (event ~= "manual") then return end
farmbuyer@1 659
farmbuyer@1 660 --[[
farmbuyer@1 661 iname: Hearthstone
farmbuyer@1 662 iquality: integer
farmbuyer@1 663 ilink: clickable formatted link
farmbuyer@1 664 itemstring: item:6948:....
farmbuyer@1 665 itexture: inventory icon texture
farmbuyer@1 666 ]]
farmbuyer@1 667
farmbuyer@1 668 if event == "CHAT_MSG_LOOT" then
farmbuyer@1 669 local msg = ...
farmbuyer@1 670 --ChatFrame2:AddMessage("original string: >"..(msg:gsub("\124","\124\124")).."<")
farmbuyer@1 671 local person, itemstring, remainder = msg:match(self.loot_pattern)
farmbuyer@1 672 self.dprint('loot', "CHAT_MSG_LOOT, person is", person, ", itemstring is", itemstring, ", rest is", remainder)
farmbuyer@1 673 if not person then return end -- "So-and-So selected Greed", etc, not actual looting
farmbuyer@1 674 local count = remainder and remainder:match(".*(x%d+)$")
farmbuyer@1 675
farmbuyer@1 676 -- Name might be colorized, remove the highlighting
farmbuyer@1 677 local p = person:match("|c%x%x%x%x%x%x%x%x(%S+)")
farmbuyer@1 678 person = p or person
farmbuyer@1 679 person = (person == UNIT_YOU) and my_name or person
farmbuyer@1 680
farmbuyer@1 681 local id = tonumber((select(2, strsplit(":", itemstring))))
farmbuyer@1 682
farmbuyer@1 683 return self:_do_loot (false, person, id, count)
farmbuyer@1 684
farmbuyer@1 685 elseif event == "broadcast" then
farmbuyer@1 686 return self:_do_loot(false, ...)
farmbuyer@1 687
farmbuyer@1 688 elseif event == "manual" then
farmbuyer@1 689 local r,i,n = ...
farmbuyer@1 690 return self:_do_loot(true, r,i,nil,nil,n)
farmbuyer@1 691 end
farmbuyer@1 692 end
farmbuyer@1 693 end
farmbuyer@1 694
farmbuyer@1 695
farmbuyer@1 696 ------ Slash command handler
farmbuyer@1 697 -- Thought about breaking this up into a table-driven dispatcher. But
farmbuyer@1 698 -- that would result in a pile of teensy functions, most of which would
farmbuyer@1 699 -- never be called. Too much overhead. (2.0: Most of these removed now
farmbuyer@1 700 -- that GUI is in place.)
farmbuyer@1 701 function addon:OnSlash (txt) --, editbox)
farmbuyer@1 702 txt = strtrim(txt:lower())
farmbuyer@1 703 local cmd, arg = ""
farmbuyer@1 704 do
farmbuyer@1 705 local s,e = txt:find("^%a+")
farmbuyer@1 706 if s then
farmbuyer@1 707 cmd = txt:sub(s,e)
farmbuyer@1 708 s = txt:find("%S", e+2)
farmbuyer@1 709 if s then arg = txt:sub(s,-1) end
farmbuyer@1 710 end
farmbuyer@1 711 end
farmbuyer@1 712
farmbuyer@1 713 if cmd == "" then
farmbuyer@1 714 if InCombatLockdown() then
farmbuyer@1 715 return self:Print("Can't display window in combat.")
farmbuyer@1 716 else
farmbuyer@1 717 return self:BuildMainDisplay()
farmbuyer@1 718 end
farmbuyer@1 719
farmbuyer@1 720 elseif cmd:find("^thre") then
farmbuyer@1 721 self:SetThreshold(arg)
farmbuyer@1 722
farmbuyer@1 723 elseif cmd == "on" then self:Activate(arg)
farmbuyer@1 724 elseif cmd == "off" then self:Deactivate()
farmbuyer@1 725 elseif cmd == "broadcast" or cmd == "bcast" then self:Activate(nil,true)
farmbuyer@1 726
farmbuyer@1 727 elseif cmd == "fake" then -- maybe comment this out for real users
farmbuyer@1 728 self:_mark_boss_kill (self._addLootEntry{
farmbuyer@1 729 kind='boss',reason='kill',bosskill="Baron Steamroller",instance=instance_tag(),duration=0
farmbuyer@1 730 })
farmbuyer@1 731 self:CHAT_MSG_LOOT ('manual', my_name, 54797)
farmbuyer@1 732 if self.display then
farmbuyer@1 733 self:redisplay()
farmbuyer@1 734 end
farmbuyer@1 735 self:Print "Baron Steamroller has been slain. Congratulations on your rug."
farmbuyer@1 736
farmbuyer@1 737 elseif cmd == "debug" then
farmbuyer@1 738 if arg then
farmbuyer@1 739 self.debug[arg] = not self.debug[arg]
farmbuyer@1 740 _G.print(arg,self.debug[arg])
farmbuyer@1 741 if self.debug[arg] then self.DEBUG_PRINT = true end
farmbuyer@1 742 else
farmbuyer@1 743 self.DEBUG_PRINT = not self.DEBUG_PRINT
farmbuyer@1 744 end
farmbuyer@1 745
farmbuyer@1 746 elseif cmd == "save" and arg and arg:len() > 0 then
farmbuyer@1 747 self:save_saveas(arg)
farmbuyer@1 748 elseif cmd == "list" then
farmbuyer@1 749 self:save_list()
farmbuyer@1 750 elseif cmd == "restore" and arg and arg:len() > 0 then
farmbuyer@1 751 self:save_restore(tonumber(arg))
farmbuyer@1 752 elseif cmd == "delete" and arg and arg:len() > 0 then
farmbuyer@1 753 self:save_delete(tonumber(arg))
farmbuyer@1 754
farmbuyer@1 755 elseif cmd == "help" then
farmbuyer@1 756 self:BuildMainDisplay('help')
farmbuyer@1 757 elseif cmd == "toggle" then
farmbuyer@1 758 if self.display then
farmbuyer@1 759 self.display:Hide()
farmbuyer@1 760 else
farmbuyer@1 761 return self:BuildMainDisplay()
farmbuyer@1 762 end
farmbuyer@1 763
farmbuyer@19 764 elseif cmd == "fixcache" then
farmbuyer@19 765 self:do_item_cache_fixup()
farmbuyer@19 766
farmbuyer@1 767 else
farmbuyer@1 768 if self:OpenMainDisplayToTab(cmd) then
farmbuyer@1 769 return
farmbuyer@1 770 end
farmbuyer@1 771 self:Print("Unknown command '%s'. %s to see the help window.",
farmbuyer@1 772 cmd, self.format_hypertext('help',"Click here",ITEM_QUALITY_UNCOMMON))
farmbuyer@1 773 end
farmbuyer@1 774 end
farmbuyer@1 775
farmbuyer@1 776 function addon:SetThreshold (arg, quiet_p)
farmbuyer@1 777 local q = tonumber(arg)
farmbuyer@1 778 if q then
farmbuyer@1 779 q = math.floor(q+0.001)
farmbuyer@1 780 if q<0 or q>6 then
farmbuyer@1 781 return self:Print("Threshold must be 0-6.")
farmbuyer@1 782 end
farmbuyer@1 783 else
farmbuyer@1 784 q = qualnames[arg]
farmbuyer@1 785 if not q then
farmbuyer@1 786 return self:Print("Unrecognized item quality argument.")
farmbuyer@1 787 end
farmbuyer@1 788 end
farmbuyer@1 789 self.threshold = q
farmbuyer@1 790 if not quiet_p then self:Print("Threshold now set to %s.", self.thresholds[q]) end
farmbuyer@1 791 end
farmbuyer@1 792
farmbuyer@1 793
farmbuyer@1 794 ------ On/off
farmbuyer@1 795 function addon:Activate (opt_threshold, opt_bcast_only)
farmbuyer@16 796 self.dprint('flow', ":Activate is running")
farmbuyer@10 797 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 798 self:RegisterEvent("PLAYER_ENTERING_WORLD",
farmbuyer@16 799 function() self:ScheduleTimer("RAID_ROSTER_UPDATE", 5, "PLAYER_ENTERING_WORLD") end)
farmbuyer@1 800 self.popped = true
farmbuyer@1 801 if GetNumRaidMembers() > 0 then
farmbuyer@16 802 self.dprint('flow', ">:Activate calling RRU")
farmbuyer@1 803 self:RAID_ROSTER_UPDATE("Activate")
farmbuyer@1 804 elseif self.debug.notraid then
farmbuyer@16 805 self.dprint('flow', ">:Activate registering loot and bossmods")
farmbuyer@10 806 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 807 _register_bossmod(self)
farmbuyer@1 808 elseif g_restore_p then
farmbuyer@1 809 g_restore_p = nil
farmbuyer@16 810 self.popped = nil -- get the reminder if later joining a raid
farmbuyer@16 811 if #g_loot == 0 then
farmbuyer@16 812 -- only generated text and raider join/leave data, not worth verbage
farmbuyer@16 813 self.dprint('flow', ">:Activate restored generated texts, un-popping")
farmbuyer@16 814 return
farmbuyer@16 815 end
farmbuyer@1 816 self:Print("Ouro Raid Loot restored previous data, but not in a raid",
farmbuyer@1 817 "and 5-person mode not active. |cffff0505NOT tracking loot|r;",
farmbuyer@1 818 "use 'enable' to activate loot tracking, or 'clear' to erase",
farmbuyer@1 819 "previous data, or 'help' to read about saved-texts commands.")
farmbuyer@1 820 return
farmbuyer@1 821 end
farmbuyer@1 822 self.rebroadcast = true -- hardcode to true; this used to be more complicated
farmbuyer@1 823 self.enabled = not opt_bcast_only
farmbuyer@1 824 if opt_threshold then
farmbuyer@1 825 self:SetThreshold (opt_threshold, --[[quiet_p=]]true)
farmbuyer@1 826 end
farmbuyer@1 827 self:Print("Ouro Raid Loot is %s. Threshold currently %s.",
farmbuyer@1 828 self.enabled and "tracking" or "only broadcasting",
farmbuyer@1 829 self.thresholds[self.threshold])
farmbuyer@1 830 end
farmbuyer@1 831
farmbuyer@1 832 -- Note: running '/loot off' will also avoid the popup reminder when
farmbuyer@1 833 -- joining a raid, but will not change the saved option setting.
farmbuyer@1 834 function addon:Deactivate()
farmbuyer@1 835 self.enabled = false
farmbuyer@1 836 self.rebroadcast = false
farmbuyer@10 837 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@10 838 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@10 839 self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@1 840 self:Print("Ouro Raid Loot deactivated.")
farmbuyer@1 841 end
farmbuyer@1 842
farmbuyer@1 843 function addon:Clear(verbose_p)
farmbuyer@1 844 local repopup, st
farmbuyer@1 845 if self.display then
farmbuyer@1 846 -- in the new version, this is likely to always be the case
farmbuyer@1 847 repopup = true
farmbuyer@1 848 st = self.display:GetUserData("eoiST")
farmbuyer@1 849 if not st then
farmbuyer@1 850 self.dprint('flow', "Clear: display visible but eoiST not set??")
farmbuyer@1 851 end
farmbuyer@1 852 self.display:Hide()
farmbuyer@1 853 end
farmbuyer@1 854 g_restore_p = nil
farmbuyer@1 855 OuroLootSV = nil
farmbuyer@1 856 self:_reset_timestamps()
farmbuyer@1 857 if verbose_p then
farmbuyer@16 858 if (OuroLootSV_saved and #OuroLootSV_saved>0) then
farmbuyer@16 859 self:Print("Current loot data cleared, %d saved sets remaining.", #OuroLootSV_saved)
farmbuyer@1 860 else
farmbuyer@1 861 self:Print("Current loot data cleared.")
farmbuyer@1 862 end
farmbuyer@1 863 end
farmbuyer@1 864 _init(self,st)
farmbuyer@1 865 if repopup then
farmbuyer@1 866 addon:BuildMainDisplay()
farmbuyer@1 867 end
farmbuyer@1 868 end
farmbuyer@1 869
farmbuyer@1 870
farmbuyer@1 871 ------ Behind the scenes routines
farmbuyer@19 872 -- Semi-experimental debugging aid.
farmbuyer@19 873 do
farmbuyer@19 874 local date = _G.date
farmbuyer@19 875 local log = OuroLootSV_log
farmbuyer@19 876 function addon:log_with_timestamp (msg)
farmbuyer@19 877 tinsert (log, date('%m:%d %H:%M:%S ')..msg)
farmbuyer@19 878 end
farmbuyer@19 879 end
farmbuyer@19 880
farmbuyer@1 881 -- Adds indices to traverse the tables in a nice sorted order.
farmbuyer@1 882 do
farmbuyer@1 883 local byindex, temp = {}, {}
farmbuyer@1 884 local function sort (src, dest)
farmbuyer@1 885 for k in pairs(src) do
farmbuyer@1 886 temp[#temp+1] = k
farmbuyer@1 887 end
farmbuyer@1 888 table.sort(temp)
farmbuyer@1 889 table.wipe(dest)
farmbuyer@1 890 for i = 1, #temp do
farmbuyer@1 891 dest[i] = src[temp[i]]
farmbuyer@1 892 end
farmbuyer@1 893 end
farmbuyer@1 894
farmbuyer@1 895 function addon.sender_list.sort()
farmbuyer@1 896 sort (addon.sender_list.active, byindex)
farmbuyer@1 897 table.wipe(temp)
farmbuyer@1 898 addon.sender_list.activeI = #byindex
farmbuyer@1 899 sort (addon.sender_list.names, byindex)
farmbuyer@1 900 table.wipe(temp)
farmbuyer@1 901 end
farmbuyer@1 902 addon.sender_list.namesI = byindex
farmbuyer@1 903 end
farmbuyer@1 904
farmbuyer@1 905 -- Message sending.
farmbuyer@1 906 -- See OCR_funcs.tag at the end of this file for incoming message treatment.
farmbuyer@1 907 do
farmbuyer@1 908 local function assemble(...)
farmbuyer@1 909 local msg = ...
farmbuyer@1 910 for i = 2, select('#',...) do
farmbuyer@1 911 msg = msg .. '\a' .. (select(i,...) or "")
farmbuyer@1 912 end
farmbuyer@1 913 return msg
farmbuyer@1 914 end
farmbuyer@1 915
farmbuyer@1 916 -- broadcast('tag', <stuff>)
farmbuyer@1 917 function addon:broadcast(...)
farmbuyer@1 918 local msg = assemble(...)
farmbuyer@1 919 self.dprint('comm', "<broadcast>:", msg)
farmbuyer@1 920 -- the "GUILD" here is just so that we can also pick up on it
farmbuyer@1 921 self:SendCommMessage(self.ident, msg, self.debug.comm and "GUILD" or "RAID")
farmbuyer@1 922 end
farmbuyer@1 923 -- whispercast(<to>, 'tag', <stuff>)
farmbuyer@1 924 function addon:whispercast(to,...)
farmbuyer@1 925 local msg = assemble(...)
farmbuyer@1 926 self.dprint('comm', "<whispercast>@", to, ":", msg)
farmbuyer@1 927 self:SendCommMessage(self.identTg, msg, "WHISPER", to)
farmbuyer@1 928 end
farmbuyer@1 929 end
farmbuyer@1 930
farmbuyer@1 931 -- Generic helpers
farmbuyer@1 932 function addon._find_next_after (kind, index)
farmbuyer@1 933 index = index + 1
farmbuyer@1 934 while index <= #g_loot do
farmbuyer@1 935 if g_loot[index].kind == kind then
farmbuyer@1 936 return index, g_loot[index]
farmbuyer@1 937 end
farmbuyer@1 938 index = index + 1
farmbuyer@1 939 end
farmbuyer@1 940 end
farmbuyer@1 941
farmbuyer@1 942 -- Iterate through g_loot entries according to the KIND field. Loop variables
farmbuyer@1 943 -- are g_loot indices and the corresponding entries (essentially ipairs + some
farmbuyer@1 944 -- conditionals).
farmbuyer@1 945 function addon:filtered_loot_iter (filter_kind)
farmbuyer@1 946 return self._find_next_after, filter_kind, 0
farmbuyer@1 947 end
farmbuyer@1 948
farmbuyer@1 949 do
farmbuyer@1 950 local itt
farmbuyer@1 951 local function create()
farmbuyer@1 952 local tip, lefts = CreateFrame("GameTooltip"), {}
farmbuyer@1 953 for i = 1, 2 do -- scanning idea here also snagged from Talented
farmbuyer@1 954 local L,R = tip:CreateFontString(), tip:CreateFontString()
farmbuyer@1 955 L:SetFontObject(GameFontNormal)
farmbuyer@1 956 R:SetFontObject(GameFontNormal)
farmbuyer@1 957 tip:AddFontStrings(L,R)
farmbuyer@1 958 lefts[i] = L
farmbuyer@1 959 end
farmbuyer@1 960 tip.lefts = lefts
farmbuyer@1 961 return tip
farmbuyer@1 962 end
farmbuyer@1 963 function addon:is_heroic_item(item) -- returns true or *nil*
farmbuyer@1 964 itt = itt or create()
farmbuyer@1 965 itt:SetOwner(UIParent,"ANCHOR_NONE")
farmbuyer@1 966 itt:ClearLines()
farmbuyer@1 967 itt:SetHyperlink(item)
farmbuyer@1 968 local t = itt.lefts[2]:GetText()
farmbuyer@1 969 itt:Hide()
farmbuyer@1 970 return (t == ITEM_HEROIC) or nil
farmbuyer@1 971 end
farmbuyer@1 972 end
farmbuyer@1 973
farmbuyer@1 974 -- Called when first loading up, and then also when a 'clear' is being
farmbuyer@16 975 -- performed. If SV's are present then g_restore_p will be true.
farmbuyer@1 976 function _init (self, possible_st)
farmbuyer@1 977 self.dprint('flow',"_init running")
farmbuyer@1 978 self.loot_clean = nil
farmbuyer@1 979 self.hist_clean = nil
farmbuyer@1 980 if g_restore_p then
farmbuyer@1 981 g_loot = OuroLootSV
farmbuyer@16 982 self.popped = #g_loot > 0
farmbuyer@1 983 self.dprint('flow', "restoring", #g_loot, "entries")
farmbuyer@16 984 self:ScheduleTimer("Activate", 12, opts.threshold)
farmbuyer@1 985 -- FIXME printed could be too large if entries were deleted, how much do we care?
farmbuyer@16 986 self.sharder = opts.autoshard
farmbuyer@1 987 else
farmbuyer@10 988 g_loot = { printed = {}, raiders = {} }
farmbuyer@1 989 end
farmbuyer@1 990
farmbuyer@16 991 self.threshold = opts.threshold or self.threshold -- in the case of restoring but not tracking
farmbuyer@1 992 self:gui_init(g_loot)
farmbuyer@16 993 opts.autoshard = nil
farmbuyer@16 994 opts.threshold = nil
farmbuyer@1 995
farmbuyer@1 996 if g_restore_p then
farmbuyer@1 997 self:zero_printed_fenceposts() -- g_loot.printed.* = previous/safe values
farmbuyer@1 998 else
farmbuyer@1 999 self:zero_printed_fenceposts(0) -- g_loot.printed.* = 0
farmbuyer@1 1000 end
farmbuyer@1 1001 if possible_st then
farmbuyer@1 1002 possible_st:SetData(g_loot)
farmbuyer@1 1003 end
farmbuyer@1 1004
farmbuyer@17 1005 self.status_text = ("%s communicating as ident %s commrev %d"):format(self.revision,self.ident,self.commrev)
farmbuyer@1 1006 self:RegisterComm(self.ident)
farmbuyer@1 1007 self:RegisterComm(self.identTg, "OnCommReceivedNocache")
farmbuyer@1 1008
farmbuyer@1 1009 if self.author_debug then
farmbuyer@1 1010 _G.OL = self
farmbuyer@1 1011 _G.Oloot = g_loot
farmbuyer@1 1012 end
farmbuyer@1 1013 end
farmbuyer@1 1014
farmbuyer@1 1015 -- Tie-ins with Deadly Boss Mods
farmbuyer@1 1016 do
farmbuyer@1 1017 local candidates, location
farmbuyer@1 1018 local function fixup_durations (cache)
farmbuyer@1 1019 if candidates == nil then return end -- this is called for *all* cache expirations, including non-boss
farmbuyer@1 1020 local boss, bossi
farmbuyer@1 1021 boss = candidates[1]
farmbuyer@1 1022 if #candidates == 1 then
farmbuyer@1 1023 -- (1) or (2)
farmbuyer@1 1024 boss.duration = boss.duration or 0
farmbuyer@19 1025 addon.dprint('loot', "only one boss candidate")
farmbuyer@1 1026 else
farmbuyer@1 1027 -- (3), should only be one 'cast entry and our local entry
farmbuyer@1 1028 if #candidates ~= 2 then
farmbuyer@1 1029 -- could get a bunch of 'cast entries on the heels of one another
farmbuyer@1 1030 -- before the local one ever fires, apparently... sigh
farmbuyer@1 1031 --addon:Print("<warning> s3 cache has %d entries, does that seem right to you?", #candidates)
farmbuyer@1 1032 end
farmbuyer@1 1033 if candidates[2].duration == nil then
farmbuyer@1 1034 --addon:Print("<warning> s3's second entry is not the local trigger, does that seem right to you?")
farmbuyer@1 1035 end
farmbuyer@1 1036 -- try and be generic anyhow
farmbuyer@1 1037 for i,c in ipairs(candidates) do
farmbuyer@1 1038 if c.duration then
farmbuyer@1 1039 boss = c
farmbuyer@19 1040 addon.dprint('loot', "fixup found boss candidate", i, "duration", c.duration)
farmbuyer@1 1041 break
farmbuyer@1 1042 end
farmbuyer@1 1043 end
farmbuyer@1 1044 end
farmbuyer@1 1045 bossi = addon._addLootEntry(boss)
farmbuyer@19 1046 -- addon.
farmbuyer@19 1047 bossi = addon._adjustBossOrder (bossi, g_boss_signpost) or bossi
farmbuyer@16 1048 g_boss_signpost = nil
farmbuyer@19 1049 addon.dprint('loot', "added boss entry", bossi)
farmbuyer@1 1050 if boss.reason == 'kill' then
farmbuyer@1 1051 addon:_mark_boss_kill (bossi)
farmbuyer@1 1052 if opts.chatty_on_kill then
farmbuyer@1 1053 addon:Print("Registered kill for '%s' in %s!", boss.bosskill, boss.instance)
farmbuyer@1 1054 end
farmbuyer@1 1055 end
farmbuyer@1 1056 candidates = nil
farmbuyer@1 1057 end
farmbuyer@1 1058 addon.recent_boss = create_new_cache ('boss', 10, fixup_durations)
farmbuyer@1 1059
farmbuyer@1 1060 -- Similar to _do_loot, but duration+ parms only present when locally generated.
farmbuyer@1 1061 local function _do_boss (self, reason, bossname, intag, duration, raiders)
farmbuyer@1 1062 self.dprint('loot',">>_do_boss, R:", reason, "B:", bossname, "T:", intag,
farmbuyer@1 1063 "D:", duration, "RL:", (raiders and #raiders or 'nil'))
farmbuyer@1 1064 if self.rebroadcast and duration then
farmbuyer@1 1065 self:broadcast('boss', reason, bossname, intag)
farmbuyer@1 1066 end
farmbuyer@1 1067 -- This is only a loop to make jumping out of it easy, and still do cleanup below.
farmbuyer@1 1068 while self.enabled do
farmbuyer@1 1069 if reason == 'wipe' and opts.no_tracking_wipes then break end
farmbuyer@1 1070 bossname = (opts.snarky_boss and self.boss_abbrev[bossname] or bossname) or bossname
farmbuyer@1 1071 local not_from_local = duration == nil
farmbuyer@1 1072 local signature = bossname .. reason
farmbuyer@1 1073 if not_from_local and self.recent_boss:test(signature) then
farmbuyer@1 1074 self.dprint('cache', "boss <",signature,"> already in cache, skipping")
farmbuyer@1 1075 else
farmbuyer@1 1076 self.recent_boss:add(signature)
farmbuyer@16 1077 g_boss_signpost = #g_loot + 1
farmbuyer@19 1078 self.dprint('loot', "added boss signpost", g_boss_signpost)
farmbuyer@1 1079 -- Possible scenarios: (1) we don't see a boss event at all (e.g., we're
farmbuyer@1 1080 -- outside the instance) and so this only happens once as a non-local event,
farmbuyer@1 1081 -- (2) we see a local event first and all non-local events are filtered
farmbuyer@1 1082 -- by the cache, (3) we happen to get some non-local events before doing
farmbuyer@1 1083 -- our local event (not because of network weirdness but because our local
farmbuyer@1 1084 -- DBM might not trigger for a while).
farmbuyer@1 1085 local c = {
farmbuyer@1 1086 kind = 'boss',
farmbuyer@1 1087 bosskill = bossname, -- minor misnomer, might not actually be a kill
farmbuyer@1 1088 reason = reason,
farmbuyer@1 1089 instance = intag,
farmbuyer@1 1090 duration = duration, -- these two deliberately may be nil
farmbuyer@1 1091 raiderlist = raiders and table.concat(raiders, ", ")
farmbuyer@1 1092 }
farmbuyer@1 1093 candidates = candidates or {}
farmbuyer@1 1094 tinsert(candidates,c)
farmbuyer@1 1095 end
farmbuyer@17 1096 break
farmbuyer@1 1097 end
farmbuyer@1 1098 self.dprint('loot',"<<_do_boss out")
farmbuyer@1 1099 end
farmbuyer@1 1100 -- No wrapping layer for now
farmbuyer@1 1101 addon.on_boss_broadcast = _do_boss
farmbuyer@1 1102
farmbuyer@1 1103 function addon:_mark_boss_kill (index)
farmbuyer@1 1104 local e = g_loot[index]
farmbuyer@17 1105 if not e then
farmbuyer@17 1106 self:Print("Something horribly wrong;", index, "is not a valid entry!")
farmbuyer@17 1107 return
farmbuyer@17 1108 end
farmbuyer@1 1109 if not e.bosskill then
farmbuyer@16 1110 self:Print("Something horribly wrong;", index, "is not a boss entry!")
farmbuyer@16 1111 return
farmbuyer@1 1112 end
farmbuyer@1 1113 if e.reason ~= 'wipe' then
farmbuyer@1 1114 -- enh, bail
farmbuyer@1 1115 self.loot_clean = index-1
farmbuyer@1 1116 end
farmbuyer@1 1117 local attempts = 1
farmbuyer@1 1118 local first
farmbuyer@1 1119
farmbuyer@1 1120 local i,d = 1,g_loot[1]
farmbuyer@1 1121 while d ~= e do
farmbuyer@1 1122 if d.bosskill and
farmbuyer@1 1123 d.bosskill == e.bosskill and
farmbuyer@1 1124 d.reason == 'wipe'
farmbuyer@1 1125 then
farmbuyer@1 1126 first = first or i
farmbuyer@1 1127 attempts = attempts + 1
farmbuyer@1 1128 assert(tremove(g_loot,i)==d,"_mark_boss_kill screwed up data badly")
farmbuyer@1 1129 else
farmbuyer@1 1130 i = i + 1
farmbuyer@1 1131 end
farmbuyer@1 1132 d = g_loot[i]
farmbuyer@1 1133 end
farmbuyer@1 1134 e.reason = 'kill'
farmbuyer@1 1135 e.attempts = attempts
farmbuyer@1 1136 self.loot_clean = first or index-1
farmbuyer@1 1137 end
farmbuyer@1 1138
farmbuyer@2 1139 function addon:register_boss_mod (name, registration_func, deregistration_func)
farmbuyer@2 1140 assert(type(name)=='string')
farmbuyer@2 1141 assert(type(registration_func)=='function')
farmbuyer@2 1142 if deregistration_func ~= nil then assert(type(deregistration_func)=='function') end
farmbuyer@2 1143 self.bossmods[#self.bossmods+1] = {
farmbuyer@2 1144 n = name,
farmbuyer@2 1145 r = registration_func,
farmbuyer@2 1146 d = deregistration_func,
farmbuyer@2 1147 }
farmbuyer@5 1148 self.bossmods[name] = self.bossmods[#self.bossmods]
farmbuyer@5 1149 assert(self.bossmods[name].n == self.bossmods[#self.bossmods].n)
farmbuyer@2 1150 end
farmbuyer@1 1151
farmbuyer@2 1152 function _register_bossmod (self, force_p)
farmbuyer@2 1153 local x = self.bossmod_registered and self.bossmods[self.bossmod_registered]
farmbuyer@2 1154 if x then
farmbuyer@2 1155 if x.n == opts.bossmod and not force_p then
farmbuyer@2 1156 -- trying to register with already-registered boss mod
farmbuyer@2 1157 return
farmbuyer@2 1158 else
farmbuyer@2 1159 -- deregister
farmbuyer@2 1160 if x.d then x.d(self) end
farmbuyer@2 1161 end
farmbuyer@1 1162 end
farmbuyer@1 1163
farmbuyer@2 1164 x = nil
farmbuyer@2 1165 for k,v in ipairs(self.bossmods) do
farmbuyer@2 1166 if v.n == opts.bossmod then
farmbuyer@2 1167 x = k
farmbuyer@2 1168 break
farmbuyer@2 1169 end
farmbuyer@1 1170 end
farmbuyer@1 1171
farmbuyer@2 1172 if not x then
farmbuyer@2 1173 self.status_text = "|cffff1010No boss-mod found!|r"
farmbuyer@2 1174 self:Print(self.status_text)
farmbuyer@2 1175 return
farmbuyer@1 1176 end
farmbuyer@1 1177
farmbuyer@2 1178 if self.bossmods[x].r (self, _do_boss) then
farmbuyer@5 1179 --self.bossmod_registered = x
farmbuyer@5 1180 self.bossmod_registered = self.bossmods[x].n
farmbuyer@1 1181 else
farmbuyer@2 1182 self:Print("|cffff1010Boss mod registration failed|r")
farmbuyer@1 1183 end
farmbuyer@1 1184 end
farmbuyer@2 1185 end
farmbuyer@1 1186
farmbuyer@1 1187 -- Adding entries to the loot record, and tracking the corresponding timestamp.
farmbuyer@1 1188 do
farmbuyer@1 1189 -- This shouldn't be required. /sadface
farmbuyer@1 1190 local loot_entry_mt = {
farmbuyer@1 1191 __index = function (e,key)
farmbuyer@1 1192 if key == 'cols' then
farmbuyer@15 1193 pprint('mt', e.kind, "key is", key)
farmbuyer@1 1194 --tabledump(e) -- not actually that useful
farmbuyer@1 1195 addon:_fill_out_eoi_data(1)
farmbuyer@1 1196 end
farmbuyer@1 1197 return rawget(e,key)
farmbuyer@1 1198 end
farmbuyer@1 1199 }
farmbuyer@1 1200
farmbuyer@1 1201 -- Given a loot index, searches backwards for a timestamp. Returns that
farmbuyer@1 1202 -- index and the time entry, or nil if it falls off the beginning. Pass an
farmbuyer@1 1203 -- optional second index to search no earlier than it.
farmbuyer@1 1204 -- May also be able to make good use of this in forum-generation routine.
farmbuyer@1 1205 function addon:find_previous_time_entry(i,stop)
farmbuyer@17 1206 stop = stop or 0
farmbuyer@1 1207 while i > stop do
farmbuyer@1 1208 if g_loot[i].kind == 'time' then
farmbuyer@1 1209 return i, g_loot[i]
farmbuyer@1 1210 end
farmbuyer@1 1211 i = i - 1
farmbuyer@1 1212 end
farmbuyer@1 1213 end
farmbuyer@1 1214
farmbuyer@1 1215 -- format_timestamp (["format_string"], Day, [Loot])
farmbuyer@1 1216 -- DAY is a loot entry with kind=='time', and controls the date printed.
farmbuyer@1 1217 -- LOOT may be any kind of entry in the g_loot table. If present, it
farmbuyer@1 1218 -- overrides the hour and minute printed; if absent, those values are
farmbuyer@1 1219 -- taken from the DAY entry.
farmbuyer@1 1220 -- FORMAT_STRING may contain $x (x in Y/M/D/h/m) tokens.
farmbuyer@1 1221 local format_timestamp_values, point2dee = {}, "%.2d"
farmbuyer@1 1222 function addon:format_timestamp (fmt_opt, day_entry, time_entry_opt)
farmbuyer@1 1223 if not time_entry_opt then
farmbuyer@1 1224 if type(fmt_opt) == 'table' then -- Two entries, default format
farmbuyer@1 1225 time_entry_opt, day_entry = day_entry, fmt_opt
farmbuyer@1 1226 fmt_opt = "$Y/$M/$D $h:$m"
farmbuyer@1 1227 --elseif type(fmt_opt) == "string" then -- Day entry only, specified format
farmbuyer@1 1228 end
farmbuyer@1 1229 end
farmbuyer@1 1230 --format_timestamp_values.Y = point2dee:format (day_entry.startday.year % 100)
farmbuyer@1 1231 format_timestamp_values.Y = ("%.4d"):format (day_entry.startday.year)
farmbuyer@1 1232 format_timestamp_values.M = point2dee:format (day_entry.startday.month)
farmbuyer@1 1233 format_timestamp_values.D = point2dee:format (day_entry.startday.day)
farmbuyer@1 1234 format_timestamp_values.h = point2dee:format ((time_entry_opt or day_entry).hour)
farmbuyer@1 1235 format_timestamp_values.m = point2dee:format ((time_entry_opt or day_entry).minute)
farmbuyer@1 1236 return fmt_opt:gsub ('%$([YMDhm])', format_timestamp_values)
farmbuyer@1 1237 end
farmbuyer@1 1238
farmbuyer@1 1239 local done_todays_date
farmbuyer@1 1240 function addon:_reset_timestamps()
farmbuyer@1 1241 done_todays_date = nil
farmbuyer@1 1242 end
farmbuyer@1 1243 local function do_todays_date()
farmbuyer@1 1244 local text, M, D, Y = makedate()
farmbuyer@1 1245 local found,ts = #g_loot+1
farmbuyer@1 1246 repeat
farmbuyer@1 1247 found,ts = addon:find_previous_time_entry(found-1)
farmbuyer@1 1248 if found and ts.startday.text == text then
farmbuyer@1 1249 done_todays_date = true
farmbuyer@1 1250 end
farmbuyer@1 1251 until done_todays_date or (not found)
farmbuyer@1 1252 if done_todays_date then
farmbuyer@1 1253 g_today = ts
farmbuyer@1 1254 else
farmbuyer@1 1255 done_todays_date = true
farmbuyer@1 1256 g_today = g_loot[addon._addLootEntry{
farmbuyer@1 1257 kind = 'time',
farmbuyer@1 1258 startday = {
farmbuyer@1 1259 text = text, month = M, day = D, year = Y
farmbuyer@1 1260 }
farmbuyer@1 1261 }]
farmbuyer@1 1262 end
farmbuyer@1 1263 addon:_fill_out_eoi_data(1)
farmbuyer@1 1264 end
farmbuyer@1 1265
farmbuyer@1 1266 -- Adding anything original to g_loot goes through this routine.
farmbuyer@1 1267 function addon._addLootEntry (e)
farmbuyer@1 1268 setmetatable(e,loot_entry_mt)
farmbuyer@1 1269
farmbuyer@1 1270 if not done_todays_date then do_todays_date() end
farmbuyer@1 1271
farmbuyer@1 1272 local h, m = GetGameTime()
farmbuyer@10 1273 --local localuptime = math.floor(GetTime())
farmbuyer@10 1274 local time_t = time()
farmbuyer@1 1275 e.hour = h
farmbuyer@1 1276 e.minute = m
farmbuyer@10 1277 e.stamp = time_t --localuptime
farmbuyer@1 1278 local index = #g_loot + 1
farmbuyer@1 1279 g_loot[index] = e
farmbuyer@1 1280 return index
farmbuyer@1 1281 end
farmbuyer@16 1282
farmbuyer@16 1283 -- Problem: (1) boss kill happens, (2) fast looting happens, (3) boss
farmbuyer@16 1284 -- cache cleanup fires. Result: loot shows up before boss kill entry.
farmbuyer@16 1285 -- Solution: We need to shuffle the boss entry above any of the loot
farmbuyer@16 1286 -- from that boss.
farmbuyer@16 1287 function addon._adjustBossOrder (is, should_be)
farmbuyer@16 1288 --pprint('loot', is, should_be)
farmbuyer@16 1289 if is == should_be then --pprint('loot', "equal, yay")
farmbuyer@16 1290 return
farmbuyer@16 1291 end
farmbuyer@17 1292 if (type(is)~='number') or (type(should_be)~='number') or (is < should_be) then
farmbuyer@19 1293 pprint('loot', is, should_be, "...the hell? bailing")
farmbuyer@16 1294 return
farmbuyer@16 1295 end
farmbuyer@16 1296 if g_loot[should_be].kind == 'time' then
farmbuyer@16 1297 should_be = should_be + 1
farmbuyer@16 1298 if is == should_be then
farmbuyer@16 1299 --pprint('loot', "needed to mark day entry, otherwise equal, yay")
farmbuyer@16 1300 return
farmbuyer@16 1301 end
farmbuyer@16 1302 end
farmbuyer@16 1303
farmbuyer@16 1304 assert(g_loot[is].kind == 'boss')
farmbuyer@16 1305 local boss = tremove (g_loot, is)
farmbuyer@16 1306 --pprint('loot', "MOVING", boss.bosskill)
farmbuyer@16 1307 tinsert (g_loot, should_be, boss)
farmbuyer@16 1308 return should_be
farmbuyer@16 1309 end
farmbuyer@1 1310 end
farmbuyer@1 1311
farmbuyer@19 1312 -- In the rare case of items getting put into the loot table without current
farmbuyer@19 1313 -- item cache data (which will have arrived by now).
farmbuyer@19 1314 function addon:do_item_cache_fixup()
farmbuyer@19 1315 self:Print("Fixing up missing item cache data...")
farmbuyer@19 1316
farmbuyer@19 1317 local numfound = 0
farmbuyer@19 1318 local borkedpat = '^'..UNKNOWN..': (%S+)'
farmbuyer@19 1319
farmbuyer@19 1320 for i,e in self:filtered_loot_iter('loot') do
farmbuyer@19 1321 if e.cache_miss then
farmbuyer@19 1322 local borked_id = e.itemname:match(borkedpat)
farmbuyer@19 1323 if borked_id then
farmbuyer@19 1324 numfound = numfound + 1
farmbuyer@19 1325 -- Best to use the safest and most flexible API here, which is GII and
farmbuyer@19 1326 -- its assload of return values.
farmbuyer@19 1327 local iname, ilink, iquality, _,_,_,_,_,_, itexture = GetItemInfo(borked_id)
farmbuyer@19 1328 if iname then
farmbuyer@19 1329 self:Print(" Entry %d patched up with %s.", i, ilink)
farmbuyer@19 1330 e.quality = iquality
farmbuyer@19 1331 e.itemname = iname
farmbuyer@19 1332 e.id = tonumber(ilink:match("item:(%d+)"))
farmbuyer@19 1333 e.itemlink = ilink
farmbuyer@19 1334 e.itexture = itexture
farmbuyer@19 1335 e.cache_miss = nil
farmbuyer@19 1336 end
farmbuyer@19 1337 end
farmbuyer@19 1338 end
farmbuyer@19 1339 end
farmbuyer@19 1340
farmbuyer@19 1341 self:Print("...finished. Found %d |4entry:entries; with weird data.", numfound)
farmbuyer@19 1342 end
farmbuyer@19 1343
farmbuyer@1 1344
farmbuyer@1 1345 ------ Saved texts
farmbuyer@1 1346 function addon:check_saved_table(silent_p)
farmbuyer@16 1347 local s = OuroLootSV_saved
farmbuyer@1 1348 if s and (#s > 0) then return s end
farmbuyer@16 1349 OuroLootSV_saved = nil
farmbuyer@1 1350 if not silent_p then self:Print("There are no saved loot texts.") end
farmbuyer@1 1351 end
farmbuyer@1 1352
farmbuyer@1 1353 function addon:save_list()
farmbuyer@1 1354 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1355 for i,t in ipairs(s) do
farmbuyer@1 1356 self:Print("#%d %s %d entries %s", i, t.date, t.count, t.name)
farmbuyer@1 1357 end
farmbuyer@1 1358 end
farmbuyer@1 1359
farmbuyer@1 1360 function addon:save_saveas(name)
farmbuyer@16 1361 OuroLootSV_saved = OuroLootSV_saved or {}
farmbuyer@16 1362 local SV = OuroLootSV_saved
farmbuyer@16 1363 local n = #SV + 1
farmbuyer@1 1364 local save = {
farmbuyer@1 1365 name = name,
farmbuyer@1 1366 date = makedate(),
farmbuyer@1 1367 count = #g_loot,
farmbuyer@1 1368 }
farmbuyer@10 1369 for text in self:registered_textgen_iter() do
farmbuyer@10 1370 save[text] = g_loot[text]
farmbuyer@10 1371 end
farmbuyer@1 1372 self:Print("Saving current loot texts to #%d '%s'", n, name)
farmbuyer@16 1373 SV[n] = save
farmbuyer@1 1374 return self:save_list()
farmbuyer@1 1375 end
farmbuyer@1 1376
farmbuyer@1 1377 function addon:save_restore(num)
farmbuyer@1 1378 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1379 if (not num) or (num > #s) then
farmbuyer@1 1380 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 1381 end
farmbuyer@1 1382 local save = s[num]
farmbuyer@1 1383 self:Print("Overwriting current loot data with saved text #%d '%s'", num, save.name)
farmbuyer@1 1384 self:Clear(--[[verbose_p=]]false)
farmbuyer@1 1385 -- Clear will already have displayed the window, and re-selected the first
farmbuyer@1 1386 -- tab. Set these up for when the text tabs are clicked.
farmbuyer@10 1387 for text in self:registered_textgen_iter() do
farmbuyer@10 1388 g_loot[text] = save[text]
farmbuyer@10 1389 end
farmbuyer@1 1390 end
farmbuyer@1 1391
farmbuyer@1 1392 function addon:save_delete(num)
farmbuyer@1 1393 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1394 if (not num) or (num > #s) then
farmbuyer@1 1395 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 1396 end
farmbuyer@1 1397 self:Print("Deleting saved text #"..num)
farmbuyer@1 1398 tremove(s,num)
farmbuyer@1 1399 return self:save_list()
farmbuyer@1 1400 end
farmbuyer@1 1401
farmbuyer@1 1402
farmbuyer@1 1403 ------ Loot histories
farmbuyer@1 1404 -- history_all = {
farmbuyer@1 1405 -- ["Kilrogg"] = {
farmbuyer@1 1406 -- ["realm"] = "Kilrogg", -- not saved
farmbuyer@1 1407 -- ["st"] = { lib-st display table }, -- not saved
farmbuyer@1 1408 -- ["byname"] = { -- not saved
farmbuyer@1 1409 -- ["OtherPlayer"] = 2,
farmbuyer@1 1410 -- ["Farmbuyer"] = 1,
farmbuyer@1 1411 -- }
farmbuyer@1 1412 -- [1] = {
farmbuyer@1 1413 -- ["name"] = "Farmbuyer",
farmbuyer@1 1414 -- [1] = { id = nnnnn, when = "formatted timestamp for displaying" } -- most recent loot
farmbuyer@1 1415 -- [2] = { ......., [count = "x3"] } -- previous loot
farmbuyer@1 1416 -- },
farmbuyer@1 1417 -- [2] = {
farmbuyer@1 1418 -- ["name"] = "OtherPlayer",
farmbuyer@1 1419 -- ......
farmbuyer@1 1420 -- }, ......
farmbuyer@1 1421 -- },
farmbuyer@1 1422 -- ["OtherRealm"] = ......
farmbuyer@1 1423 -- }
farmbuyer@1 1424 do
farmbuyer@6 1425 local tsort = table.sort
farmbuyer@6 1426 local comp = function(L,R) return L.when > R.when end
farmbuyer@6 1427
farmbuyer@4 1428 -- Builds the map of names to array indices, using passed table or
farmbuyer@4 1429 -- self.history, and stores the result into its 'byname' field. Also
farmbuyer@4 1430 -- called from the GUI code at least once.
farmbuyer@1 1431 function addon:_build_history_names (opt_hist)
farmbuyer@1 1432 local hist = opt_hist or self.history
farmbuyer@1 1433 local m = {}
farmbuyer@1 1434 for i = 1, #hist do
farmbuyer@1 1435 m[hist[i].name] = i
farmbuyer@1 1436 end
farmbuyer@1 1437 hist.byname = m
farmbuyer@1 1438 end
farmbuyer@1 1439
farmbuyer@1 1440 -- Prepares and returns table to be used as self.history.
farmbuyer@1 1441 function addon:_prep_new_history_category (prev_table, realmname)
farmbuyer@1 1442 local t = prev_table or {
farmbuyer@1 1443 --kind = 'realm',
farmbuyer@6 1444 --realm = realmname,
farmbuyer@1 1445 }
farmbuyer@6 1446 t.realm = realmname
farmbuyer@1 1447
farmbuyer@1 1448 --[[
farmbuyer@1 1449 t.cols = setmetatable({
farmbuyer@1 1450 { value = realmname },
farmbuyer@1 1451 }, self.time_column1_used_mt)
farmbuyer@1 1452 ]]
farmbuyer@1 1453
farmbuyer@1 1454 if not t.byname then
farmbuyer@1 1455 self:_build_history_names (t)
farmbuyer@1 1456 end
farmbuyer@1 1457
farmbuyer@1 1458 return t
farmbuyer@1 1459 end
farmbuyer@1 1460
farmbuyer@4 1461 -- Maps a name to an array index, creating new tables if needed. Returns
farmbuyer@6 1462 -- the index and the table at that index.
farmbuyer@4 1463 function addon:get_loot_history (name)
farmbuyer@4 1464 local i
farmbuyer@4 1465 i = self.history.byname[name]
farmbuyer@4 1466 if not i then
farmbuyer@4 1467 i = #self.history + 1
farmbuyer@4 1468 self.history[i] = { name=name }
farmbuyer@4 1469 self.history.byname[name] = i
farmbuyer@4 1470 end
farmbuyer@6 1471 return i, self.history[i]
farmbuyer@4 1472 end
farmbuyer@4 1473
farmbuyer@1 1474 function addon:_addHistoryEntry (lootindex)
farmbuyer@1 1475 local e = g_loot[lootindex]
farmbuyer@6 1476 if e.kind ~= 'loot' then return end
farmbuyer@6 1477
farmbuyer@6 1478 local i,h = self:get_loot_history(e.person)
farmbuyer@1 1479 local n = {
farmbuyer@1 1480 id = e.id,
farmbuyer@1 1481 when = self:format_timestamp (g_today, e),
farmbuyer@1 1482 count = e.count,
farmbuyer@1 1483 }
farmbuyer@6 1484 tinsert (h, 1, n)
farmbuyer@6 1485 end
farmbuyer@6 1486
farmbuyer@6 1487 function addon:rewrite_history (realmname)
farmbuyer@6 1488 local r = assert(realmname)
farmbuyer@6 1489 self.history_all[r] = self:_prep_new_history_category (nil, r)
farmbuyer@6 1490 self.history = self.history_all[r]
farmbuyer@6 1491
farmbuyer@6 1492 local g_today_real = g_today
farmbuyer@6 1493 for i,e in ipairs(g_loot) do
farmbuyer@6 1494 if e.kind == 'time' then
farmbuyer@6 1495 g_today = e
farmbuyer@6 1496 elseif e.kind == 'loot' then
farmbuyer@6 1497 self:_addHistoryEntry(i)
farmbuyer@6 1498 end
farmbuyer@6 1499 end
farmbuyer@6 1500 g_today = g_today_real
farmbuyer@6 1501 self.hist_clean = nil
farmbuyer@6 1502
farmbuyer@6 1503 -- safety measure: resort players' tables based on formatted timestamp
farmbuyer@6 1504 for i,h in ipairs(self.history) do
farmbuyer@6 1505 tsort (h, comp)
farmbuyer@6 1506 end
farmbuyer@6 1507 end
farmbuyer@6 1508
farmbuyer@6 1509 function addon:preen_history (realmname)
farmbuyer@6 1510 local r = assert(realmname)
farmbuyer@6 1511 for i,h in ipairs(self.history) do
farmbuyer@6 1512 tsort (h, comp)
farmbuyer@6 1513 while #h > 1 do
farmbuyer@6 1514 tremove (h)
farmbuyer@6 1515 end
farmbuyer@6 1516 end
farmbuyer@1 1517 end
farmbuyer@1 1518 end
farmbuyer@1 1519
farmbuyer@1 1520
farmbuyer@1 1521 ------ Player communication
farmbuyer@1 1522 do
farmbuyer@1 1523 local function adduser (name, status, active)
farmbuyer@1 1524 if status then addon.sender_list.names[name] = status end
farmbuyer@1 1525 if active then addon.sender_list.active[name] = active end
farmbuyer@1 1526 end
farmbuyer@1 1527
farmbuyer@1 1528 -- Incoming handler functions. All take the sender name and the incoming
farmbuyer@1 1529 -- tag as the first two arguments. All of these are active even when the
farmbuyer@1 1530 -- player is not tracking loot, so test for that when appropriate.
farmbuyer@1 1531 local OCR_funcs = {}
farmbuyer@1 1532
farmbuyer@1 1533 OCR_funcs.ping = function (sender)
farmbuyer@1 1534 pprint('comm', "incoming ping from", sender)
farmbuyer@1 1535 addon:whispercast (sender, 'pong', addon.revision,
farmbuyer@1 1536 addon.enabled and "tracking" or (addon.rebroadcast and "broadcasting" or "disabled"))
farmbuyer@1 1537 end
farmbuyer@1 1538 OCR_funcs.pong = function (sender, _, rev, status)
farmbuyer@17 1539 local s = ("|cff00ff00%s|r %s is |cff00ffff%s|r"):format(sender,rev,status)
farmbuyer@1 1540 addon:Print("Echo: ", s)
farmbuyer@1 1541 adduser (sender, s, status=="tracking" or status=="broadcasting" or nil)
farmbuyer@1 1542 end
farmbuyer@1 1543
farmbuyer@1 1544 OCR_funcs.loot = function (sender, _, recip, item, count, extratext)
farmbuyer@1 1545 addon.dprint('comm', "DOTloot, sender", sender, "recip", recip, "item", item, "count", count)
farmbuyer@1 1546 if not addon.enabled then return end
farmbuyer@1 1547 adduser (sender, nil, true)
farmbuyer@1 1548 addon:CHAT_MSG_LOOT ("broadcast", recip, item, count, sender, extratext)
farmbuyer@1 1549 end
farmbuyer@1 1550
farmbuyer@1 1551 OCR_funcs.boss = function (sender, _, reason, bossname, instancetag)
farmbuyer@1 1552 addon.dprint('comm', "DOTboss, sender", sender, "reason", reason, "name", bossname, "it", instancetag)
farmbuyer@1 1553 if not addon.enabled then return end
farmbuyer@1 1554 adduser (sender, nil, true)
farmbuyer@1 1555 addon:on_boss_broadcast (reason, bossname, instancetag)
farmbuyer@1 1556 end
farmbuyer@1 1557
farmbuyer@1 1558 OCR_funcs.bcast_req = function (sender)
farmbuyer@1 1559 if addon.debug.comm or ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 1560 then
farmbuyer@1 1561 addon:Print("%s has requested additional broadcasters! Choose %s to enable rebroadcasting, or %s to remain off and also ignore rebroadcast requests for as long as you're logged in. Or do nothing for now to see if other requests arrive.",
farmbuyer@1 1562 sender,
farmbuyer@1 1563 addon.format_hypertext('bcaston',"the red pill",'|cffff4040'),
farmbuyer@1 1564 addon.format_hypertext('waferthin',"the blue pill",'|cff0070dd'))
farmbuyer@1 1565 end
farmbuyer@18 1566 addon.popped = true
farmbuyer@1 1567 end
farmbuyer@1 1568
farmbuyer@1 1569 OCR_funcs.bcast_responder = function (sender)
farmbuyer@1 1570 if addon.debug.comm or addon.requesting or
farmbuyer@1 1571 ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 1572 then
farmbuyer@1 1573 addon:Print(sender, "has answered the call and is now broadcasting loot.")
farmbuyer@1 1574 end
farmbuyer@1 1575 end
farmbuyer@1 1576 -- remove this tag once it's all tested
farmbuyer@1 1577 OCR_funcs.bcast_denied = function (sender)
farmbuyer@1 1578 if addon.requesting then addon:Print(sender, "declines futher broadcast requests.") end
farmbuyer@1 1579 end
farmbuyer@1 1580
farmbuyer@1 1581 -- Incoming message dispatcher
farmbuyer@1 1582 local function dotdotdot (sender, tag, ...)
farmbuyer@1 1583 local f = OCR_funcs[tag]
farmbuyer@1 1584 addon.dprint('comm', ":... processing",tag,"from",sender)
farmbuyer@1 1585 if f then return f(sender,tag,...) end
farmbuyer@1 1586 addon.dprint('comm', "unknown comm message",tag",from", sender)
farmbuyer@1 1587 end
farmbuyer@1 1588 -- Recent message cache
farmbuyer@1 1589 addon.recent_messages = create_new_cache ('comm', comm_cleanup_ttl)
farmbuyer@1 1590
farmbuyer@1 1591 function addon:OnCommReceived (prefix, msg, distribution, sender)
farmbuyer@1 1592 if prefix ~= self.ident then return end
farmbuyer@1 1593 if not self.debug.comm then
farmbuyer@1 1594 if distribution ~= "RAID" and distribution ~= "WHISPER" then return end
farmbuyer@1 1595 if sender == my_name then return end
farmbuyer@1 1596 end
farmbuyer@1 1597 self.dprint('comm', ":OCR from", sender, "message is", msg)
farmbuyer@1 1598
farmbuyer@1 1599 if self.recent_messages:test(msg) then
farmbuyer@1 1600 return self.dprint('cache', "message <",msg,"> already in cache, skipping")
farmbuyer@1 1601 end
farmbuyer@1 1602 self.recent_messages:add(msg)
farmbuyer@1 1603
farmbuyer@1 1604 -- Nothing is actually returned, just (ab)using tail calls.
farmbuyer@1 1605 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 1606 end
farmbuyer@1 1607
farmbuyer@1 1608 function addon:OnCommReceivedNocache (prefix, msg, distribution, sender)
farmbuyer@1 1609 if prefix ~= self.identTg then return end
farmbuyer@1 1610 if not self.debug.comm then
farmbuyer@1 1611 if distribution ~= "WHISPER" then return end
farmbuyer@1 1612 if sender == my_name then return end
farmbuyer@1 1613 end
farmbuyer@1 1614 self.dprint('comm', ":OCRN from", sender, "message is", msg)
farmbuyer@1 1615 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 1616 end
farmbuyer@1 1617 end
farmbuyer@1 1618
farmbuyer@1 1619 -- vim:noet