Mercurial > wow > ouroloot

annotate core.lua @ 17:d929c40cdb09

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