Mercurial > wow > ouroloot

annotate core.lua @ 77:a07c9dd79f3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Formalize the code handling unique ID collisions that turn out to not be avoidable with improv numbers. Turn on debug.comm and debug.loot with @debug@ markers.
author Farmbuyer of US-Kilrogg <farmbuyer@gmail.com>
date Mon, 11 Jun 2012 21:03:16 +0000
parents 124da015c4a2
children f8118aa5fbb8
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@61 6 - forum saved text from forum markup window, default nil
farmbuyer@61 7 - attend saved text from raid attendence window, default nil
farmbuyer@61 8 - printed.FOO last loot index formatted into text window FOO, default 0
farmbuyer@61 9 - raiders accumulating raid roster data as we see raid members; indexed
farmbuyer@57 10 by player name with subtable fields:
farmbuyer@61 11 - class capitalized English codename ("WARRIOR", "DEATHKNIGHT", etc)
farmbuyer@68 12 - subgroup 1-8 (NUM_RAID_GROUPS), NRG+1 if something's wrong
farmbuyer@61 13 - race English codename ("BloodElf", etc)
farmbuyer@61 14 - sex 1 = unknown/error, 2 = male, 3 = female
farmbuyer@61 15 - level can be 0 if player was offline at the time
farmbuyer@61 16 - guild guild name, or missing if unguilded
farmbuyer@61 17 - online 1 = online, 2 = offline, 3 = no longer in raid
farmbuyer@57 18 [both of these next two fields use time_t values:]
farmbuyer@61 19 - join time player joined the raid (or first time we've seen them)
farmbuyer@61 20 - leave time player left the raid (or time we've left the raid, if
farmbuyer@61 21 'online' is not 3)
farmbuyer@50 22
farmbuyer@54 23 Common g_loot entry indices:
farmbuyer@61 24 - kind time/boss/loot
farmbuyer@61 25 - hour 0-23, on the *physical instance server*, not the realm server
farmbuyer@61 26 - minute 0-59, ditto
farmbuyer@61 27 - stamp time_t on the local computer
farmbuyer@61 28 - cols graphical display data; cleared when logging out
farmbuyer@50 29
farmbuyer@50 30 Time specific g_loot indices:
farmbuyer@61 31 - startday table with month/day/year/text fields from makedate()
farmbuyer@57 32 text is always "dd Month yyyy"
farmbuyer@50 33
farmbuyer@50 34 Boss specific g_loot indices:
farmbuyer@61 35 - bossname name of boss/encounter;
farmbuyer@57 36 may be changed if "snarky boss names" option is enabled
farmbuyer@61 37 - reason wipe/kill ("pull" does not generate an entry)
farmbuyer@61 38 - instance name of instance, including size and difficulty
farmbuyer@61 39 - maxsize max raid size: 5/10/25, presumably also 15 and 40 could show
farmbuyer@61 40 up; can be 0 if we're outside an instance and the player
farmbuyer@61 41 inside has an older version
farmbuyer@61 42 - duration in seconds; may be missing (only present if local)
farmbuyer@69 43 - raidersnap copy of g_loot.raiders at the time of the boss event; may be
farmbuyer@69 44 empty for manual snapshots the player didn't want included
farmbuyer@69 45 (not necessarily an "error" if this is missing entirely)
farmbuyer@50 46
farmbuyer@50 47 Loot specific g_loot indices:
farmbuyer@61 48 - person recipient
farmbuyer@61 49 - person_class class of recipient if available; may be missing;
farmbuyer@57 50 will be classID-style (e.g., DEATHKNIGHT)
farmbuyer@61 51 - itemname not including square brackets
farmbuyer@61 52 - id itemID as number
farmbuyer@61 53 - itemlink full clickable link
farmbuyer@61 54 - itexture icon path (e.g., Interface\Icons\INV_Misc_Rune_01)
farmbuyer@61 55 - quality ITEM_QUALITY_* number
farmbuyer@71 56 - unique an almost-certainly-unique string, content meaningless
farmbuyer@61 57 - disposition offspec/gvault/shard; missing otherwise; can be set from
farmbuyer@57 58 the extratext field
farmbuyer@61 59 - count e.g., "x3"; missing otherwise; can be set/removed from
farmbuyer@57 60 extratext; triggers only for a stack of items, not "the boss
farmbuyer@57 61 dropped double axes today"
farmbuyer@66 62 - variant 1 = heroic item, 2 = LFR item; missing otherwise
farmbuyer@61 63 - cache_miss if GetItemInfo failed; SHOULD be missing (changes other fields)
farmbuyer@65 64 - bcast_from player's name if received rebroadcast from that player;
farmbuyer@65 65 missing otherwise; can be deleted as a result of in-game
farmbuyer@65 66 fiddling of loot data
farmbuyer@61 67 - extratext text in Note column, including disposition and rebroadcasting
farmbuyer@61 68 - extratext_byhand true if text edited by player directly; missing otherwise
farmbuyer@50 69
farmbuyer@1 70
farmbuyer@1 71 Functions arranged like this, with these lables (for jumping to). As a
farmbuyer@1 72 rule, member functions with UpperCamelCase names are called directly by
farmbuyer@1 73 user-facing code, ones with lowercase names are "one step removed", and
farmbuyer@1 74 names with leading underscores are strictly internal helper functions.
farmbuyer@1 75 ------ Saved variables
farmbuyer@1 76 ------ Constants
farmbuyer@1 77 ------ Addon member data
farmbuyer@6 78 ------ Globals
farmbuyer@1 79 ------ Expiring caches
farmbuyer@1 80 ------ Ace3 framework stuff
farmbuyer@1 81 ------ Event handlers
farmbuyer@1 82 ------ Slash command handler
farmbuyer@1 83 ------ On/off
farmbuyer@1 84 ------ Behind the scenes routines
farmbuyer@1 85 ------ Saved texts
farmbuyer@1 86 ------ Loot histories
farmbuyer@1 87 ------ Player communication
farmbuyer@1 88
farmbuyer@1 89 This started off as part of a raid addon package written by somebody else.
farmbuyer@1 90 After he retired, I began modifying the code. Eventually I set aside the
farmbuyer@1 91 entire package and rewrote the loot tracker module from scratch. Many of the
farmbuyer@1 92 variable/function naming conventions (sv_*, g_*, and family) stayed across the
farmbuyer@16 93 rewrite.
farmbuyer@16 94
farmbuyer@73 95 Some variables are needlessly initialized to nil just to look uniform and
farmbuyer@76 96 serve as a spelling reminder.
farmbuyer@1 97
farmbuyer@1 98 ]==]
farmbuyer@1 99
farmbuyer@1 100 ------ Saved variables
farmbuyer@16 101 OuroLootSV = nil -- possible copy of g_loot
farmbuyer@16 102 OuroLootSV_saved = nil -- table of copies of saved texts, default nil; keys
farmbuyer@16 103 -- are numeric indices of tables, subkeys of those
farmbuyer@16 104 -- are name/forum/attend/date
farmbuyer@16 105 OuroLootSV_opts = nil -- same as option_defaults until changed
farmbuyer@16 106 -- autoshard: optional name of disenchanting player, default nil
farmbuyer@16 107 -- threshold: optional loot threshold, default nil
farmbuyer@16 108 OuroLootSV_hist = nil
farmbuyer@19 109 OuroLootSV_log = {}
farmbuyer@1 110
farmbuyer@1 111
farmbuyer@1 112 ------ Constants
farmbuyer@1 113 local option_defaults = {
farmbuyer@71 114 ['datarev'] = 20, -- cheating, this isn't actually an option
farmbuyer@1 115 ['popup_on_join'] = true,
farmbuyer@1 116 ['register_slashloot'] = true,
farmbuyer@1 117 ['scroll_to_bottom'] = true,
farmbuyer@1 118 ['chatty_on_kill'] = false,
farmbuyer@1 119 ['no_tracking_wipes'] = false,
farmbuyer@1 120 ['snarky_boss'] = true,
farmbuyer@1 121 ['keybinding'] = false,
farmbuyer@2 122 ['bossmod'] = "DBM",
farmbuyer@1 123 ['keybinding_text'] = 'CTRL-SHIFT-O',
farmbuyer@1 124 ['forum'] = {
farmbuyer@25 125 ['[url] Wowhead'] = '[url=http://www.wowhead.com/?item=$I]$N[/url]$X - $T',
farmbuyer@25 126 ['[url] MMO/Wowstead'] = '[http://db.mmo-champion.com/i/$I]$X - $T',
farmbuyer@1 127 ['[item] by name'] = '[item]$N[/item]$X - $T',
farmbuyer@1 128 ['[item] by ID'] = '[item]$I[/item]$X - $T',
farmbuyer@1 129 ['Custom...'] = '',
farmbuyer@1 130 },
farmbuyer@1 131 ['forum_current'] = '[item] by name',
farmbuyer@57 132 ['display_disabled_LODs'] = false,
farmbuyer@65 133 ['display_bcast_from'] = true,
farmbuyer@73 134 ['precache_history_uniques'] = false,
farmbuyer@73 135 ['chatty_on_remote_changes'] = false,
farmbuyer@73 136 ['chatty_on_remote_changes_frame'] = 1,
farmbuyer@1 137 }
farmbuyer@1 138 local virgin = "First time loaded? Hi! Use the /ouroloot or /loot command"
farmbuyer@1 139 .." to show the main display. You should probably browse the instructions"
farmbuyer@1 140 .." if you've never used this before; %s to display the help window. This"
farmbuyer@1 141 .." welcome message will not intrude again."
farmbuyer@27 142 local newer_warning = "A newer version has been released. You can %s to display"
farmbuyer@27 143 .." a download URL for copy-and-pasting. You can %s to ping other raiders"
farmbuyer@27 144 .." for their installed versions (same as '/ouroloot ping' or clicking the"
farmbuyer@27 145 .." 'Ping!' button on the options panel)."
farmbuyer@77 146 local unique_collision = "|cffff1010%s:|r|nItem '%s' was carrying unique tag <%s>, but that was already in use; tried to generate a new tag and failed!|n|nRemote sender was '%s', previous cache entry was <%s/%s>.|n|nThis may require a live human to figure out; the loot in question has not been stored."
farmbuyer@73 147 local remote_chatty = "|cff00ff00%s|r changed %d/%s from %s%s|r to %s%s|r"
farmbuyer@1 148 local qualnames = {
farmbuyer@1 149 ['gray'] = 0, ['grey'] = 0, ['poor'] = 0, ['trash'] = 0,
farmbuyer@1 150 ['white'] = 1, ['common'] = 1,
farmbuyer@1 151 ['green'] = 2, ['uncommon'] = 2,
farmbuyer@1 152 ['blue'] = 3, ['rare'] = 3,
farmbuyer@1 153 ['epic'] = 4, ['purple'] = 4,
farmbuyer@1 154 ['legendary'] = 5, ['orange'] = 5,
farmbuyer@1 155 ['artifact'] = 6,
farmbuyer@1 156 --['heirloom'] = 7,
farmbuyer@1 157 }
farmbuyer@1 158 local my_name = UnitName('player')
farmbuyer@76 159 local comm_cleanup_ttl = 4 -- seconds in the communications cache
farmbuyer@27 160 local revision_large = nil -- defaults to 1, possibly changed by revision
farmbuyer@20 161 local g_LOOT_ITEM_ss, g_LOOT_ITEM_MULTIPLE_sss, g_LOOT_ITEM_SELF_s, g_LOOT_ITEM_SELF_MULTIPLE_ss
farmbuyer@1 162
farmbuyer@1 163
farmbuyer@1 164 ------ Addon member data
farmbuyer@1 165 local flib = LibStub("LibFarmbuyer")
farmbuyer@1 166 addon.author_debug = flib.author_debug
farmbuyer@1 167
farmbuyer@6 168 -- Play cute games with namespaces here just to save typing. WTB Lua 5.2 PST.
farmbuyer@1 169 do local _G = _G setfenv (1, addon)
farmbuyer@1 170
farmbuyer@71 171 commrev = '17'
farmbuyer@27 172 revision = _G.GetAddOnMetadata(nametag,"Version") or "?" -- "x.yy.z", etc
farmbuyer@1 173 ident = "OuroLoot2"
farmbuyer@1 174 identTg = "OuroLoot2Tg"
farmbuyer@1 175 status_text = nil
farmbuyer@1 176
farmbuyer@45 177 tekdebug = nil
farmbuyer@45 178 if _G.tekDebug then
farmbuyer@45 179 local tdframe = _G.tekDebug:GetFrame("Ouro Loot")
farmbuyer@45 180 function tekdebug (txt)
farmbuyer@45 181 -- tekDebug notices "<name passed to getframe>|r:"
farmbuyer@45 182 tdframe:AddMessage('|cff17ff0dOuro Loot|r:'..txt,1,1,1)
farmbuyer@45 183 end
farmbuyer@45 184 end
farmbuyer@45 185
farmbuyer@1 186 DEBUG_PRINT = false
farmbuyer@1 187 debug = {
farmbuyer@76 188 comm = false,
farmbuyer@76 189 loot = false,
farmbuyer@76 190 flow = false,
farmbuyer@76 191 notraid = false,
farmbuyer@76 192 cache = false,
farmbuyer@76 193 alsolog = false,
farmbuyer@1 194 }
farmbuyer@77 195 --@debug@
farmbuyer@77 196 DEBUG_PRINT = true
farmbuyer@77 197 debug.loot = true
farmbuyer@77 198 debug.comm = true
farmbuyer@77 199 --@end-debug@
farmbuyer@77 200
farmbuyer@45 201 -- This looks ugly, but it factors out the load-time decisions from
farmbuyer@73 202 -- the run-time ones. Args to [dp]print are concatenated with spaces.
farmbuyer@45 203 if tekdebug then
farmbuyer@45 204 function dprint (t,...)
farmbuyer@45 205 if DEBUG_PRINT and debug[t] then
farmbuyer@45 206 local text = flib.safefprint(tekdebug,"<"..t.."> ",...)
farmbuyer@45 207 if debug.alsolog then
farmbuyer@45 208 addon:log_with_timestamp(text)
farmbuyer@45 209 end
farmbuyer@45 210 end
farmbuyer@45 211 end
farmbuyer@45 212 else
farmbuyer@45 213 function dprint (t,...)
farmbuyer@45 214 if DEBUG_PRINT and debug[t] then
farmbuyer@45 215 local text = flib.safeprint("<"..t.."> ",...)
farmbuyer@45 216 if debug.alsolog then
farmbuyer@45 217 addon:log_with_timestamp(text)
farmbuyer@45 218 end
farmbuyer@19 219 end
farmbuyer@19 220 end
farmbuyer@1 221 end
farmbuyer@1 222
farmbuyer@45 223 if author_debug and tekdebug then
farmbuyer@45 224 function pprint (t,...)
farmbuyer@45 225 local text = flib.safefprint(tekdebug,"<<"..t..">> ",...)
farmbuyer@19 226 if debug.alsolog then
farmbuyer@19 227 addon:log_with_timestamp(text)
farmbuyer@19 228 end
farmbuyer@1 229 end
farmbuyer@1 230 else
farmbuyer@1 231 pprint = flib.nullfunc
farmbuyer@1 232 end
farmbuyer@1 233
farmbuyer@76 234 -- The same observable behavior as the Lua builtins, but with slightly
farmbuyer@76 235 -- different hardcoded strings and, more importantly, implicit logging.
farmbuyer@76 236 function error(txt,lvl)
farmbuyer@76 237 pprint('ERROR()', txt)
farmbuyer@76 238 pprint('DEBUGSTACK()', _G.debugstack())
farmbuyer@76 239 _G.error(txt,lvl)
farmbuyer@76 240 end
farmbuyer@76 241 function assert(cond,msg,...)
farmbuyer@76 242 if cond then
farmbuyer@76 243 return cond,msg,...
farmbuyer@76 244 else
farmbuyer@76 245 error('ASSERT() FAILED: '..tostring(msg or 'nil'))
farmbuyer@76 246 end
farmbuyer@76 247 end
farmbuyer@76 248
farmbuyer@1 249 enabled = false
farmbuyer@1 250 rebroadcast = false
farmbuyer@76 251 display = nil -- reference to display frame iff visible
farmbuyer@1 252 loot_clean = nil -- index of last GUI entry with known-current visual data
farmbuyer@1 253 threshold = debug.loot and 0 or 3 -- rare by default
farmbuyer@1 254 sharder = nil -- name of person whose loot is marked as shards
farmbuyer@1 255
farmbuyer@1 256 -- The rest is also used in the GUI:
farmbuyer@1 257
farmbuyer@76 258 sender_list = {active={},names={}} -- this should be reworked
farmbuyer@1 259 popped = nil -- non-nil when reminder has been shown, actual value unimportant
farmbuyer@1 260
farmbuyer@2 261 bossmod_registered = nil
farmbuyer@76 262 bossmods = {}
farmbuyer@2 263
farmbuyer@76 264 requesting = nil -- prompting for additional rebroadcasters
farmbuyer@1 265
farmbuyer@76 266 -- don't use NUM_ITEM_QUALITIES as the upper loop bound unless we expect
farmbuyer@76 267 -- heirlooms to show up
farmbuyer@76 268 thresholds = {}
farmbuyer@1 269 for i = 0,6 do
farmbuyer@11 270 thresholds[i] = _G.ITEM_QUALITY_COLORS[i].hex .. _G["ITEM_QUALITY"..i.."_DESC"] .. "|r"
farmbuyer@1 271 end
farmbuyer@1 272
farmbuyer@1 273 _G.setfenv (1, _G)
farmbuyer@1 274 end
farmbuyer@1 275
farmbuyer@1 276 addon = LibStub("AceAddon-3.0"):NewAddon(addon, "Ouro Loot",
farmbuyer@1 277 "AceTimer-3.0", "AceComm-3.0", "AceConsole-3.0", "AceEvent-3.0")
farmbuyer@1 278
farmbuyer@67 279 -- if given, MSG should be a complete-ish sentence
farmbuyer@67 280 function addon:load_assert (cond, msg, ...)
farmbuyer@67 281 if cond then
farmbuyer@67 282 return cond, msg, ...
farmbuyer@67 283 end
farmbuyer@67 284 msg = msg or "load-time assertion failed!"
farmbuyer@67 285 self.NOLOAD = msg
farmbuyer@67 286 self:Printf([[|cffff1010ERROR:|r <|cff00ff00%s|r> Ouro Loot cannot finish loading. You will need to type |cff30adff%s|r once these problems are resolved, and try again.]], msg, _G.SLASH_RELOAD1)
farmbuyer@67 287 SLASH_ACECONSOLE_OUROLOOT1 = nil
farmbuyer@67 288 SLASH_ACECONSOLE_OUROLOOT2 = nil
farmbuyer@76 289 self.error (msg, --[[level=]]2)
farmbuyer@67 290 end
farmbuyer@67 291
farmbuyer@67 292 -- Seriously? ORLY?
farmbuyer@67 293 -- YARLY. Go ahead and guess what was involved in tracking this down. If
farmbuyer@67 294 -- more such effects are added in the future, the "id==xxxxx" will need to
farmbuyer@67 295 -- change into a probe of a table of known-problematic IDs.
farmbuyer@67 296 for i = 1, 40 do -- BUFF_MAX_DISPLAY==32, enh
farmbuyer@67 297 local id = select(11,UnitAura('player', i, 'HELPFUL'))
farmbuyer@67 298 if id == 88715 then
farmbuyer@67 299 -- What I really want to do is pause until the thing is clicked off,
farmbuyer@67 300 -- then continue with the rest of the file. No can do. Could also
farmbuyer@67 301 -- just set some hooks and then re-OnInit/OnEnable after the aura
farmbuyer@67 302 -- expires, but that's a hassle. GAH. Punt.
farmbuyer@67 303 local text = UnitAura('player', i, 'HELPFUL')
farmbuyer@67 304 text = ([[Cannot initialize while |cff71d5ff|Hspell:88715|h[%s]|h|cff00ff00 is active!]]):
farmbuyer@67 305 format(text)
farmbuyer@67 306 addon:load_assert(nil,text)
farmbuyer@67 307 return -- were this C code running through lint, I'd put NOTREACHED
farmbuyer@67 308 end
farmbuyer@67 309 end
farmbuyer@67 310
farmbuyer@1 311
farmbuyer@6 312 ------ Globals
farmbuyer@1 313 local g_loot = nil
farmbuyer@1 314 local g_restore_p = nil
farmbuyer@76 315 local g_wafer_thin = nil -- prompting for additional rebroadcasters
farmbuyer@1 316 local g_today = nil -- "today" entry in g_loot
farmbuyer@16 317 local g_boss_signpost = nil
farmbuyer@73 318 local g_seeing_oldsigs = nil
farmbuyer@73 319 local g_uniques = nil -- memoization of unique loot events
farmbuyer@76 320 local g_unique_replace = nil
farmbuyer@1 321 local opts = nil
farmbuyer@1 322
farmbuyer@76 323 local error = addon.error
farmbuyer@76 324 local assert = addon.assert
farmbuyer@76 325
farmbuyer@73 326 -- for speeding up local loads, not because I think _G will change
farmbuyer@73 327 local _G = _G
farmbuyer@73 328 local type = _G.type
farmbuyer@73 329 local select = _G.select
farmbuyer@73 330 local pairs = _G.pairs
farmbuyer@73 331 local ipairs = _G.ipairs
farmbuyer@73 332 local tinsert = _G.table.insert
farmbuyer@73 333 local tremove = _G.table.remove
farmbuyer@73 334 local tostring = _G.tostring
farmbuyer@73 335 local tonumber = _G.tonumber
farmbuyer@73 336 local wipe = _G.table.wipe
farmbuyer@73 337
farmbuyer@1 338 local pprint, tabledump = addon.pprint, flib.tabledump
farmbuyer@73 339 local CopyTable, GetNumRaidMembers = _G.CopyTable, _G.GetNumRaidMembers
farmbuyer@1 340 -- En masse forward decls of symbols defined inside local blocks
farmbuyer@41 341 local _register_bossmod, makedate, create_new_cache, _init, _log
farmbuyer@76 342 local _history_by_loot_id, _notify_about_remote, _setup_unique_replace
farmbuyer@77 343 local _unavoidable_collision
farmbuyer@1 344
farmbuyer@27 345 -- Try to extract numbers from the .toc "Version" and munge them into an
farmbuyer@27 346 -- integral form for comparison. The result doesn't need to be meaningful as
farmbuyer@38 347 -- long as we can reliably feed two of them to "<" and get useful answers.
farmbuyer@29 348 --
farmbuyer@29 349 -- This makes/reinforces an assumption that revision_large of release packages
farmbuyer@29 350 -- (e.g., 2016001) will always be higher than those of development packages
farmbuyer@29 351 -- (e.g., 87), due to the tagging system versus subversion file revs. This
farmbuyer@29 352 -- is good, as local dev code will never trigger a false positive update
farmbuyer@62 353 -- warning for other users.
farmbuyer@27 354 do
farmbuyer@27 355 local r = 0
farmbuyer@27 356 for d in addon.revision:gmatch("%d+") do
farmbuyer@27 357 r = 1000*r + d
farmbuyer@27 358 end
farmbuyer@62 359 -- If it's a big enough number to obviously be a release, then make
farmbuyer@65 360 -- sure it's big enough to overcome many small previous point releases.
farmbuyer@62 361 while r > 2000 and r < 2000000 do
farmbuyer@62 362 r = 1000*r
farmbuyer@62 363 end
farmbuyer@27 364 revision_large = math.max(r,1)
farmbuyer@27 365 end
farmbuyer@27 366
farmbuyer@1 367 -- Hypertext support, inspired by DBM broadcast pizza timers
farmbuyer@1 368 do
farmbuyer@76 369 local hypertext_format_str = "|HOuroLoot:%d|h%s[%s]|r|h"
farmbuyer@76 370 local func_map = {} --_G.setmetatable({}, {__mode = 'k'})
farmbuyer@76 371 local text_map = {} --_G.setmetatable({}, {__mode = 'kv'})
farmbuyer@76 372 local base = _G.newproxy(true)
farmbuyer@76 373 _G.getmetatable(base).__tostring = function(ud) return text_map[ud] end
farmbuyer@76 374 --@debug@
farmbuyer@76 375 -- collecting these tokens is an interesting micro-optimization but not yet
farmbuyer@76 376 _G.getmetatable(base).__gc = function(ud)
farmbuyer@76 377 print("Collecting hyperlink object <",tostring(ud),">")
farmbuyer@76 378 end
farmbuyer@76 379 --@end-debug@
farmbuyer@1 380
farmbuyer@38 381 -- TEXT will automatically be surrounded by brackets
farmbuyer@76 382 -- COLOR can be ITEM_QUALITY_* or a formatting string ("|cff...")
farmbuyer@76 383 -- FUNC can be "MethodName", "tab_title", or a function
farmbuyer@76 384 --
farmbuyer@76 385 -- Returns an obaque token. Calling tostring() on the token will yield a
farmbuyer@76 386 -- formatted clickable string that can be displayed in chat. This is
farmbuyer@76 387 -- largely an excuse to fool around with Lua data constructs.
farmbuyer@76 388 function addon.format_hypertext (text, color, func)
farmbuyer@76 389 local ret = _G.newproxy(base)
farmbuyer@76 390 local num = #text_map + 1
farmbuyer@76 391 text_map[ret] = hypertext_format_str:format (num,
farmbuyer@76 392 type(color)=='number' and ITEM_QUALITY_COLORS[color].hex or color,
farmbuyer@76 393 text)
farmbuyer@76 394 text_map[num] = ret
farmbuyer@76 395 func_map[ret] = func
farmbuyer@76 396 return ret
farmbuyer@1 397 end
farmbuyer@1 398
farmbuyer@76 399 --[[
farmbuyer@76 400 link: OuroLoot:n
farmbuyer@76 401 fullstring: |HOuroLoot:n|h|cff.....[foo]|r|h
farmbuyer@76 402 mousebutton: "LeftButton", "MiddleButton", "RightButton"
farmbuyer@76 403
farmbuyer@76 404 amusingly, print()'ing the fullstring below as a debugging aid yields
farmbuyer@76 405 another clickable link, yay data reproducability
farmbuyer@76 406 ]]
farmbuyer@76 407 local strsplit = _G.strsplit
farmbuyer@76 408 DEFAULT_CHAT_FRAME:HookScript("OnHyperlinkClick", function(self, link, fullstring, mousebutton)
farmbuyer@1 409 local ltype, arg = strsplit(":",link)
farmbuyer@76 410 if ltype ~= "OuroLoot" then return end
farmbuyer@76 411 local f = func_map[text_map[tonumber(arg)]]
farmbuyer@76 412 if type(f) == 'function' then
farmbuyer@76 413 f()
farmbuyer@76 414 elseif type(f) == 'string' then
farmbuyer@76 415 if type(addon[f]) == 'function' then
farmbuyer@76 416 addon[f](addon) -- method name
farmbuyer@76 417 else
farmbuyer@76 418 addon:BuildMainDisplay(f) -- tab title fragment
farmbuyer@1 419 end
farmbuyer@1 420 end
farmbuyer@1 421 end)
farmbuyer@1 422
farmbuyer@1 423 local old = ItemRefTooltip.SetHyperlink
farmbuyer@1 424 function ItemRefTooltip:SetHyperlink (link, ...)
farmbuyer@76 425 if link:match("^OuroLoot") then return end
farmbuyer@1 426 return old (self, link, ...)
farmbuyer@1 427 end
farmbuyer@1 428 end
farmbuyer@1 429
farmbuyer@1 430 do
farmbuyer@1 431 -- copied here because it's declared local to the calendar ui, thanks blizz ><
farmbuyer@1 432 local CALENDAR_FULLDATE_MONTH_NAMES = {
farmbuyer@1 433 FULLDATE_MONTH_JANUARY, FULLDATE_MONTH_FEBRUARY, FULLDATE_MONTH_MARCH,
farmbuyer@1 434 FULLDATE_MONTH_APRIL, FULLDATE_MONTH_MAY, FULLDATE_MONTH_JUNE,
farmbuyer@1 435 FULLDATE_MONTH_JULY, FULLDATE_MONTH_AUGUST, FULLDATE_MONTH_SEPTEMBER,
farmbuyer@1 436 FULLDATE_MONTH_OCTOBER, FULLDATE_MONTH_NOVEMBER, FULLDATE_MONTH_DECEMBER,
farmbuyer@1 437 }
farmbuyer@1 438 -- returns "dd Month yyyy", mm, dd, yyyy
farmbuyer@1 439 function makedate()
farmbuyer@1 440 Calendar_LoadUI()
farmbuyer@1 441 local _, M, D, Y = CalendarGetDate()
farmbuyer@1 442 local text = ("%d %s %d"):format(D, CALENDAR_FULLDATE_MONTH_NAMES[M], Y)
farmbuyer@1 443 return text, M, D, Y
farmbuyer@1 444 end
farmbuyer@1 445 end
farmbuyer@1 446
farmbuyer@56 447 -- Returns an instance name or abbreviation, followed by the raid size
farmbuyer@1 448 local function instance_tag()
farmbuyer@61 449 -- possibly redo this with the new GetRaidDifficulty function
farmbuyer@1 450 local name, typeof, diffcode, diffstr, _, perbossheroic, isdynamic = GetInstanceInfo()
farmbuyer@56 451 local t, r
farmbuyer@1 452 name = addon.instance_abbrev[name] or name
farmbuyer@56 453 if typeof == "none" then return name, MAX_RAID_MEMBERS end
farmbuyer@1 454 -- diffstr is "5 Player", "10 Player (Heroic)", etc. ugh.
farmbuyer@35 455 if (GetLFGMode()) and (GetLFGModeType() == 'raid') then
farmbuyer@56 456 t,r = 'LFR', 25
farmbuyer@35 457 elseif diffcode == 1 then
farmbuyer@76 458 if GetNumRaidMembers() > 0 then
farmbuyer@76 459 t,r = "10",10
farmbuyer@76 460 else
farmbuyer@76 461 t,r = "5",5
farmbuyer@76 462 end
farmbuyer@1 463 elseif diffcode == 2 then
farmbuyer@76 464 if GetNumRaidMembers() > 0 then
farmbuyer@76 465 t,r = "25",25
farmbuyer@76 466 else
farmbuyer@76 467 t,r = "5h",5
farmbuyer@76 468 end
farmbuyer@1 469 elseif diffcode == 3 then
farmbuyer@56 470 t,r = "10h", 10
farmbuyer@1 471 elseif diffcode == 4 then
farmbuyer@56 472 t,r = "25h", 25
farmbuyer@1 473 end
farmbuyer@1 474 -- dynamic difficulties always return normal "codes"
farmbuyer@1 475 if isdynamic and perbossheroic == 1 then
farmbuyer@1 476 t = t .. "h"
farmbuyer@1 477 end
farmbuyer@56 478 return name .. "(" .. t .. ")", r
farmbuyer@1 479 end
farmbuyer@1 480 addon.instance_tag = instance_tag -- grumble
farmbuyer@42 481 addon.latest_instance = nil -- spelling reminder, assigned elsewhere
farmbuyer@1 482
farmbuyer@73 483 -- Memoizing cache of unique IDs as we generate or search for them. Keys are
farmbuyer@73 484 -- the uniques, values are the following:
farmbuyer@73 485 -- 'history' active index into self.history
farmbuyer@73 486 -- 'history_may' index into player's uniques list, CAN QUICKLY BE OUTDATED
farmbuyer@73 487 -- and will instantly be wrong after manual insertion
farmbuyer@73 488 -- 'loot' active index into g_loot
farmbuyer@73 489 -- with all but the history entry optional. Values of g_uniqes.NOTFOUND
farmbuyer@73 490 -- indicate a known missing status. Use g_uniques:RESET() to wipe the cache
farmbuyer@73 491 -- and return to searching mode.
farmbuyer@73 492 do
farmbuyer@73 493 local notfound = -1
farmbuyer@73 494 local notfound_ret = { history = notfound }
farmbuyer@73 495 local mt
farmbuyer@73 496
farmbuyer@73 497 -- This can either be its own function or a slightly redundant __index.
farmbuyer@73 498 local function m_probe_only (t, k)
farmbuyer@73 499 return rawget(t,k) or notfound_ret
farmbuyer@73 500 end
farmbuyer@73 501
farmbuyer@73 502 -- Expensive search.
farmbuyer@73 503 local function m_full_search (t, k)
farmbuyer@73 504 local L, H, HU, loot
farmbuyer@73 505 -- Try active loot entries first
farmbuyer@73 506 for i,e in addon:filtered_loot_iter('loot') do
farmbuyer@73 507 if k == e.unique then
farmbuyer@73 508 L,loot = i,e
farmbuyer@73 509 break
farmbuyer@73 510 end
farmbuyer@73 511 end
farmbuyer@73 512 -- If it's active, try looking through that player's history first.
farmbuyer@73 513 if L then
farmbuyer@73 514 local hi,h = addon:get_loot_history (loot.person)
farmbuyer@73 515 for ui,u in ipairs(h.unique) do
farmbuyer@73 516 if k == u then
farmbuyer@73 517 H, HU = hi, ui
farmbuyer@73 518 break
farmbuyer@73 519 end
farmbuyer@73 520 end
farmbuyer@73 521 else
farmbuyer@73 522 -- No luck? Ugh, may have been reassigned and we're probing from
farmbuyer@73 523 -- older data. Search the rest of current realm's history.
farmbuyer@73 524 for hi,h in ipairs(addon.history) do
farmbuyer@73 525 for ui,u in ipairs(h.unique) do
farmbuyer@73 526 if k == u then
farmbuyer@73 527 H, HU = hi, ui
farmbuyer@73 528 break
farmbuyer@73 529 end
farmbuyer@73 530 end
farmbuyer@73 531 end
farmbuyer@73 532 end
farmbuyer@73 533 local ret = { loot = L, history = H or notfound, history_may = HU }
farmbuyer@73 534 t[k] = ret
farmbuyer@73 535 return ret
farmbuyer@73 536 end
farmbuyer@73 537
farmbuyer@73 538 local function m_setmode (self, mode)
farmbuyer@73 539 mt.__index = (mode == 'probe') and m_probe_only or
farmbuyer@73 540 (mode == 'search') and m_full_search or
farmbuyer@73 541 nil -- maybe error() here?
farmbuyer@73 542 end
farmbuyer@73 543
farmbuyer@73 544 local function m_reset (self)
farmbuyer@73 545 wipe(self)
farmbuyer@73 546 self[''] = notfound_ret -- special case for receiving older broadcast
farmbuyer@73 547 self.NOTFOUND = notfound
farmbuyer@73 548 self.RESET = m_reset
farmbuyer@73 549 self.SEARCH = m_full_search
farmbuyer@73 550 self.TEST = m_probe_only
farmbuyer@73 551 self.SETMODE = m_setmode
farmbuyer@73 552 mt.__index = m_full_search
farmbuyer@73 553 return self
farmbuyer@73 554 end
farmbuyer@73 555
farmbuyer@73 556 -- If unique keys ever change into objects instead of strings, change
farmbuyer@73 557 -- this into a weakly-keyed table.
farmbuyer@73 558 mt = { __metatable = 'Should be using setmode.' }
farmbuyer@73 559
farmbuyer@73 560 g_uniques = setmetatable (m_reset{}, mt)
farmbuyer@73 561 end
farmbuyer@73 562
farmbuyer@1 563
farmbuyer@1 564 ------ Expiring caches
farmbuyer@1 565 --[[
farmbuyer@73 566 cache = create_new_cache ("mycache", 15 [,cleanup])
farmbuyer@73 567 cache:add(foo)
farmbuyer@73 568 cache:test(foo) -- returns true
farmbuyer@73 569 ....5 seconds pass
farmbuyer@73 570 cache:add(bar)
farmbuyer@73 571 ....10 seconds pass
farmbuyer@73 572 cache:test(foo) -- returns false
farmbuyer@73 573 cache:test(bar) -- returns true
farmbuyer@73 574 ....5 seconds pass
farmbuyer@73 575 ....bar also gone, cleanup() called
farmbuyer@1 576 ]]
farmbuyer@1 577 do
farmbuyer@1 578 local caches = {}
farmbuyer@25 579 local cleanup_group = _G.AnimTimerFrame:CreateAnimationGroup()
farmbuyer@10 580 local time = _G.time
farmbuyer@1 581 cleanup_group:SetLooping("REPEAT")
farmbuyer@1 582 cleanup_group:SetScript("OnLoop", function(cg)
farmbuyer@1 583 addon.dprint('cache',"OnLoop firing")
farmbuyer@10 584 local now = time()
farmbuyer@1 585 local alldone = true
farmbuyer@1 586 -- this is ass-ugly
farmbuyer@25 587 for name,c in pairs(caches) do
farmbuyer@25 588 local fifo = c.fifo
farmbuyer@25 589 local active = #fifo > 0
farmbuyer@73 590 while (#fifo > 0) and (now > fifo[1].t) do
farmbuyer@40 591 addon.dprint('cache', name, "cache removing", fifo[1].t, "<", fifo[1].m, ">")
farmbuyer@25 592 tremove(fifo,1)
farmbuyer@1 593 end
farmbuyer@25 594 if active and #fifo == 0 and c.func then
farmbuyer@25 595 addon.dprint('cache', name, "empty, firing cleanup")
farmbuyer@25 596 c:func()
farmbuyer@25 597 end
farmbuyer@25 598 alldone = alldone and (#fifo == 0)
farmbuyer@1 599 end
farmbuyer@1 600 if alldone then
farmbuyer@40 601 addon.dprint('cache',"OnLoop FINISHING animation group")
farmbuyer@1 602 cleanup_group:Finish()
farmbuyer@73 603 _G.collectgarbage()
farmbuyer@40 604 else
farmbuyer@40 605 addon.dprint('cache',"OnLoop done, not yet finished")
farmbuyer@1 606 end
farmbuyer@1 607 end)
farmbuyer@1 608
farmbuyer@1 609 local function _add (cache, x)
farmbuyer@73 610 local datum = { t=time()+cache.ttl, m=x }
farmbuyer@25 611 cache.hash[x] = datum
farmbuyer@25 612 tinsert (cache.fifo, datum)
farmbuyer@1 613 if not cleanup_group:IsPlaying() then
farmbuyer@41 614 addon.dprint('cache', cache.name, "with entry", datum.t, "<", datum.m, "> STARTING animation group")
farmbuyer@40 615 cache.cleanup:SetDuration(1) -- hmmm
farmbuyer@1 616 cleanup_group:Play()
farmbuyer@1 617 end
farmbuyer@1 618 end
farmbuyer@1 619 local function _test (cache, x)
farmbuyer@40 620 -- FIXME This can return false positives, if called after the onloop
farmbuyer@40 621 -- fifo has been removed but before the GC has removed the weak entry.
farmbuyer@76 622 -- What to do, what to do... try forcing a GC during alldone.
farmbuyer@25 623 return cache.hash[x] ~= nil
farmbuyer@1 624 end
farmbuyer@25 625
farmbuyer@1 626 function create_new_cache (name, ttl, on_alldone)
farmbuyer@25 627 -- setting OnFinished for cleanup fires at the end of each inner loop,
farmbuyer@25 628 -- with no 'requested' argument to distinguish cases. thus, on_alldone.
farmbuyer@76 629 -- FWIW, on_alldone is passed this table as its sole argument:
farmbuyer@1 630 local c = {
farmbuyer@1 631 ttl = ttl,
farmbuyer@1 632 name = name,
farmbuyer@1 633 add = _add,
farmbuyer@1 634 test = _test,
farmbuyer@1 635 cleanup = cleanup_group:CreateAnimation("Animation"),
farmbuyer@1 636 func = on_alldone,
farmbuyer@25 637 fifo = {},
farmbuyer@25 638 hash = setmetatable({}, {__mode='kv'}),
farmbuyer@1 639 }
farmbuyer@1 640 c.cleanup:SetOrder(1)
farmbuyer@25 641 caches[name] = c
farmbuyer@1 642 return c
farmbuyer@1 643 end
farmbuyer@1 644 end
farmbuyer@1 645
farmbuyer@1 646
farmbuyer@1 647 ------ Ace3 framework stuff
farmbuyer@1 648 function addon:OnInitialize()
farmbuyer@67 649 if self.author_debug then
farmbuyer@67 650 _G.OL = self
farmbuyer@73 651 _G.g_uniques = g_uniques
farmbuyer@67 652 end
farmbuyer@73 653 _log = _G.OuroLootSV_log
farmbuyer@41 654
farmbuyer@1 655 -- VARIABLES_LOADED has fired by this point; test if we're doing something like
farmbuyer@1 656 -- relogging during a raid and already have collected loot data
farmbuyer@73 657 local OuroLootSV = _G.OuroLootSV
farmbuyer@1 658 g_restore_p = OuroLootSV ~= nil
farmbuyer@1 659 self.dprint('flow', "oninit sets restore as", g_restore_p)
farmbuyer@1 660
farmbuyer@73 661 if _G.OuroLootSV_opts == nil then
farmbuyer@73 662 _G.OuroLootSV_opts = {}
farmbuyer@76 663 local vclick = self.format_hypertext ([[click here]], ITEM_QUALITY_UNCOMMON, 'help')
farmbuyer@1 664 self:ScheduleTimer(function(s)
farmbuyer@76 665 s:Print(virgin, tostring(vclick))
farmbuyer@1 666 virgin = nil
farmbuyer@1 667 end,10,self)
farmbuyer@65 668 else
farmbuyer@65 669 virgin = nil
farmbuyer@1 670 end
farmbuyer@73 671 opts = _G.OuroLootSV_opts
farmbuyer@66 672 local stored_datarev = opts.datarev or 14
farmbuyer@1 673 for opt,default in pairs(option_defaults) do
farmbuyer@1 674 if opts[opt] == nil then
farmbuyer@1 675 opts[opt] = default
farmbuyer@1 676 end
farmbuyer@1 677 end
farmbuyer@56 678 opts.datarev = option_defaults.datarev
farmbuyer@38 679
farmbuyer@25 680 -- transition&remove old options
farmbuyer@25 681 opts['forum_use_itemid'] = nil
farmbuyer@25 682 if opts['forum_format'] then
farmbuyer@25 683 opts.forum['Custom...'] = opts['forum_format']
farmbuyer@25 684 opts['forum_format'] = nil
farmbuyer@25 685 end
farmbuyer@25 686 if opts.forum['[url]'] then
farmbuyer@25 687 opts.forum['[url] Wowhead'] = opts.forum['[url]']
farmbuyer@25 688 opts.forum['[url]'] = nil
farmbuyer@25 689 opts.forum['[url] MMO/Wowstead'] = option_defaults.forum['[url] MMO/Wowstead']
farmbuyer@25 690 if opts['forum_current'] == '[url]' then
farmbuyer@25 691 opts['forum_current'] = '[url] Wowhead'
farmbuyer@25 692 end
farmbuyer@25 693 end
farmbuyer@1 694 option_defaults = nil
farmbuyer@16 695 if OuroLootSV then -- may not be the same as testing g_restore_p soon
farmbuyer@16 696 if OuroLootSV.saved then
farmbuyer@16 697 OuroLootSV_saved = OuroLootSV.saved; OuroLootSV.saved = nil
farmbuyer@16 698 end
farmbuyer@16 699 if OuroLootSV.threshold then
farmbuyer@16 700 opts.threshold = OuroLootSV.threshold; OuroLootSV.threshold = nil
farmbuyer@16 701 end
farmbuyer@16 702 if OuroLootSV.autoshard then
farmbuyer@16 703 opts.autoshard = OuroLootSV.autoshard; OuroLootSV.autoshard = nil
farmbuyer@16 704 end
farmbuyer@16 705 end
farmbuyer@38 706
farmbuyer@1 707 -- get item filter table if needed
farmbuyer@1 708 if opts.itemfilter == nil then
farmbuyer@67 709 opts.itemfilter = self.default_itemfilter
farmbuyer@1 710 end
farmbuyer@67 711 self.default_itemfilter = nil
farmbuyer@70 712 if opts.itemvault == nil then
farmbuyer@70 713 opts.itemvault = self.default_itemvault
farmbuyer@70 714 end
farmbuyer@70 715 self.default_itemvault = nil
farmbuyer@1 716
farmbuyer@1 717 self:RegisterChatCommand("ouroloot", "OnSlash")
farmbuyer@1 718 if opts.register_slashloot then
farmbuyer@50 719 -- NOTA BENE: do not use /loot in the LoadOn list, ChatTypeInfo gets confused
farmbuyer@50 720 -- maybe try to detect if this command is already in use...
farmbuyer@73 721 _G.SLASH_ACECONSOLE_OUROLOOT2 = "/loot"
farmbuyer@1 722 end
farmbuyer@1 723
farmbuyer@73 724 self.history_all = self.history_all or _G.OuroLootSV_hist or {}
farmbuyer@73 725 local r = self:load_assert (_G.GetRealmName(), "how the freak does GetRealmName() fail?")
farmbuyer@1 726 self.history_all[r] = self:_prep_new_history_category (self.history_all[r], r)
farmbuyer@1 727 self.history = self.history_all[r]
farmbuyer@71 728
farmbuyer@71 729 local histformat = self.history_all.HISTFORMAT
farmbuyer@71 730 self.history_all.HISTFORMAT = nil -- don't keep this in live data
farmbuyer@73 731 if _G.OuroLootSV_hist
farmbuyer@73 732 and (histformat == nil or histformat < 4)
farmbuyer@73 733 then -- some big honkin' loops
farmbuyer@38 734 for rname,realm in pairs(self.history_all) do
farmbuyer@38 735 for pk,player in ipairs(realm) do
farmbuyer@73 736 if histformat == nil or histformat < 3 then
farmbuyer@73 737 for lk,loot in ipairs(player) do
farmbuyer@73 738 if loot.count == "" then
farmbuyer@73 739 loot.count = nil
farmbuyer@73 740 end
farmbuyer@73 741 if not loot.unique then
farmbuyer@73 742 loot.unique = loot.id .. ' ' .. loot.when
farmbuyer@73 743 end
farmbuyer@71 744 end
farmbuyer@38 745 end
farmbuyer@73 746 -- format 3 to format 4 was a major revamp of per-player data
farmbuyer@76 747 self:_uplift_history_format(player)
farmbuyer@38 748 end
farmbuyer@38 749 end
farmbuyer@38 750 end
farmbuyer@73 751 self._uplift_history_format = nil
farmbuyer@6 752 --OuroLootSV_hist = nil
farmbuyer@1 753
farmbuyer@56 754 -- Handle changes to the stored data format in stages from oldest to newest.
farmbuyer@73 755 -- bumpers[X] is responsible for updating from X to X+1.
farmbuyer@73 756 -- (This is turning into a lot of loops over the same table. Consolidate?)
farmbuyer@56 757 if OuroLootSV then
farmbuyer@56 758 local dirty = false
farmbuyer@66 759 local bumpers = {}
farmbuyer@66 760 bumpers[14] = function()
farmbuyer@56 761 for i,e in ipairs(OuroLootSV) do
farmbuyer@56 762 if e.bosskill then
farmbuyer@56 763 e.bossname, e.bosskill = e.bosskill, nil
farmbuyer@56 764 end
farmbuyer@55 765 end
farmbuyer@55 766 end
farmbuyer@66 767
farmbuyer@66 768 bumpers[15] = function()
farmbuyer@56 769 for i,e in ipairs(OuroLootSV) do
farmbuyer@56 770 if e.kind == 'boss' then
farmbuyer@56 771 e.maxsize, e.raiderlist, e.raidersnap = 0, nil, {}
farmbuyer@56 772 end
farmbuyer@56 773 end
farmbuyer@56 774 OuroLootSV.raiders = OuroLootSV.raiders or {}
farmbuyer@56 775 for name,r in pairs(OuroLootSV.raiders) do
farmbuyer@56 776 r.subgroup = 0
farmbuyer@56 777 end
farmbuyer@56 778 end
farmbuyer@66 779
farmbuyer@66 780 bumpers[16] = function()
farmbuyer@61 781 for i,e in ipairs(OuroLootSV) do
farmbuyer@61 782 if e.kind == 'boss' then -- brown paper bag bugs
farmbuyer@61 783 e.raidersnap = e.raidersnap or {}
farmbuyer@61 784 e.maxsize = e.maxsize or 0
farmbuyer@61 785 end
farmbuyer@61 786 end
farmbuyer@66 787 end
farmbuyer@66 788
farmbuyer@66 789 bumpers[17] = function()
farmbuyer@66 790 for i,e in ipairs(OuroLootSV) do
farmbuyer@66 791 if e.kind == 'loot' and e.is_heroic then
farmbuyer@66 792 e.variant, e.is_heroic = 1, nil
farmbuyer@66 793 -- Could try detecting any previous LFR loot here, but... gah
farmbuyer@66 794 end
farmbuyer@66 795 end
farmbuyer@66 796 end
farmbuyer@66 797
farmbuyer@69 798 bumpers[18] = bumpers[16]
farmbuyer@69 799 -- In the not-very-many days between 16 and 19, I managed to break
farmbuyer@69 800 -- the exact same data in the exact same way. At least they're
farmbuyer@69 801 -- not actually running the same loop twice... probably... sigh.
farmbuyer@69 802
farmbuyer@71 803 bumpers[19] = function()
farmbuyer@73 804 local date = _G.date
farmbuyer@71 805 for i,e in ipairs(OuroLootSV) do
farmbuyer@73 806 if e.kind == 'loot' then
farmbuyer@73 807 if e.history_unique then
farmbuyer@73 808 e.unique, e.history_unique = e.history_unique, nil
farmbuyer@73 809 end
farmbuyer@73 810 if e.unique == nil or #e.unique == 0 then
farmbuyer@73 811 e.unique = e.id .. ' ' .. date("%Y/%m/%d %H:%M",e.stamp)
farmbuyer@73 812 end
farmbuyer@71 813 end
farmbuyer@71 814 end
farmbuyer@71 815 end
farmbuyer@71 816
farmbuyer@66 817 --[===[
farmbuyer@66 818 local real = bumpers
farmbuyer@66 819 bumpers = newproxy(true)
farmbuyer@66 820 local mt = getmetatable(bumpers)
farmbuyer@66 821 mt.__index = real
farmbuyer@66 822 mt.__gc = function() print"whadda ya know, garbage collection works" end ]===]
farmbuyer@66 823
farmbuyer@66 824 while stored_datarev < opts.datarev do
farmbuyer@66 825 self:Printf("Transitioning saved data format to %d...", stored_datarev+1)
farmbuyer@66 826 dirty = true
farmbuyer@66 827 bumpers[stored_datarev]()
farmbuyer@66 828 stored_datarev = stored_datarev + 1
farmbuyer@61 829 end
farmbuyer@56 830 if dirty then self:Print("Saved data has been massaged into shape.") end
farmbuyer@55 831 end
farmbuyer@55 832
farmbuyer@1 833 _init(self)
farmbuyer@27 834 self.dprint('flow', "version strings:", revision_large, self.status_text)
farmbuyer@67 835 self.load_assert = nil
farmbuyer@66 836 self.OnInitialize = nil -- free up ALL the things!
farmbuyer@1 837 end
farmbuyer@1 838
farmbuyer@1 839 function addon:OnEnable()
farmbuyer@10 840 self:RegisterEvent("PLAYER_LOGOUT")
farmbuyer@10 841 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@1 842
farmbuyer@73 843 -- Cribbed from Talented. I like the way jerry thinks: the first string
farmbuyer@73 844 -- argument can be a format spec for the remainder of the arguments.
farmbuyer@1 845 -- AceConsole:Printf isn't used because we can't specify a prefix without
farmbuyer@73 846 -- jumping through ridonkulous hoops. The part about overriding :Print
farmbuyer@1 847 -- with a version using prefix hyperlinks is my fault.
farmbuyer@37 848 --
farmbuyer@73 849 -- CFPrint added instead of the usual Print testing of the first arg for
farmbuyer@73 850 -- frame-ness, which would slow down all printing and only rarely be useful.
farmbuyer@73 851 --
farmbuyer@37 852 -- There is no ITEM_QUALITY_LEGENDARY constant. Sigh.
farmbuyer@1 853 do
farmbuyer@1 854 local AC = LibStub("AceConsole-3.0")
farmbuyer@76 855 local chat_prefix = self.format_hypertext ("Ouro Loot", --[[legendary]]5,
farmbuyer@76 856 --[[empty -> nil -> main tab]]'')
farmbuyer@76 857 local chat_prefix_s = tostring(chat_prefix)
farmbuyer@1 858 function addon:Print (str, ...)
farmbuyer@1 859 if type(str) == 'string' and str:find("%", nil, --[[plainmatch=]]true) then
farmbuyer@76 860 return AC:Print (chat_prefix_s, str:format(...))
farmbuyer@1 861 else
farmbuyer@76 862 return AC:Print (chat_prefix_s, str, ...)
farmbuyer@1 863 end
farmbuyer@1 864 end
farmbuyer@73 865 function addon:CFPrint (frame, str, ...)
farmbuyer@73 866 assert(type(frame)=='table' and frame.AddMessage)
farmbuyer@73 867 if type(str) == 'string' and str:find("%", nil, --[[plainmatch=]]true) then
farmbuyer@76 868 return AC:Print (frame, chat_prefix_s, str:format(...))
farmbuyer@73 869 else
farmbuyer@76 870 return AC:Print (frame, chat_prefix_s, str, ...)
farmbuyer@73 871 end
farmbuyer@73 872 end
farmbuyer@1 873 end
farmbuyer@1 874
farmbuyer@51 875 while opts.keybinding do
farmbuyer@51 876 if InCombatLockdown() then
farmbuyer@76 877 local reload = self.format_hypertext ([[the options tab]],
farmbuyer@76 878 ITEM_QUALITY_UNCOMMON, 'opt')
farmbuyer@51 879 self:Print("Cannot create '%s' as a keybinding while in combat!",
farmbuyer@51 880 opts.keybinding_text)
farmbuyer@76 881 self:Print("The rest of the addon will continue to work, but you will need to reload out of combat to get the keybinding. Either type /reload or use the button on %s in the lower right.",
farmbuyer@76 882 tostring(reload))
farmbuyer@51 883 break
farmbuyer@51 884 end
farmbuyer@51 885
farmbuyer@15 886 KeyBindingFrame_LoadUI()
farmbuyer@1 887 local btn = CreateFrame("Button", "OuroLootBindingOpen", nil, "SecureActionButtonTemplate")
farmbuyer@1 888 btn:SetAttribute("type", "macro")
farmbuyer@1 889 btn:SetAttribute("macrotext", "/ouroloot toggle")
farmbuyer@1 890 if SetBindingClick(opts.keybinding_text, "OuroLootBindingOpen") then
farmbuyer@73 891 -- a simple SaveBindings(GetCurrentBindingSet()) occasionally fails when
farmbuyer@73 892 -- GCBS() decides to return neither 1 nor 2 during load, for reasons nobody
farmbuyer@73 893 -- has ever learned
farmbuyer@15 894 local c = GetCurrentBindingSet()
farmbuyer@15 895 if c == ACCOUNT_BINDINGS or c == CHARACTER_BINDINGS then
farmbuyer@15 896 SaveBindings(c)
farmbuyer@15 897 end
farmbuyer@1 898 else
farmbuyer@51 899 self:Print("Error registering '%s' as a keybinding, check spelling!",
farmbuyer@51 900 opts.keybinding_text)
farmbuyer@1 901 end
farmbuyer@51 902 break
farmbuyer@1 903 end
farmbuyer@1 904
farmbuyer@20 905 --[[
farmbuyer@20 906 The four loot format patterns of interest, changed into relatively tight
farmbuyer@20 907 string match patterns. Done at enable-time rather than load-time against
farmbuyer@20 908 the slim chance that one of the non-US "delocalizers" needs to mess with
farmbuyer@20 909 the global patterns before we transform them.
farmbuyer@20 910
farmbuyer@20 911 The SELF variants can be replaced with LOOT_ITEM_PUSHED_SELF[_MULTIPLE] to
farmbuyer@20 912 trigger on 'receive item' instead, which would detect extracting stuff
farmbuyer@20 913 from mail, or s/PUSHED/CREATED/ for things like healthstones and guild
farmbuyer@20 914 cauldron flasks.
farmbuyer@76 915
farmbuyer@76 916 ??? do something with LOOT_ITEM_WHILE_PLAYER_INELIGIBLE for locked LFRs?
farmbuyer@20 917 ]]
farmbuyer@20 918
farmbuyer@20 919 -- LOOT_ITEM = "%s receives loot: %s." --> (.+) receives loot: (.+)%.
farmbuyer@20 920 g_LOOT_ITEM_ss = _G.LOOT_ITEM:gsub('%.$','%%.'):gsub('%%s','(.+)')
farmbuyer@20 921
farmbuyer@20 922 -- LOOT_ITEM_MULTIPLE = "%s receives loot: %sx%d." --> (.+) receives loot: (.+)(x%d+)%.
farmbuyer@20 923 g_LOOT_ITEM_MULTIPLE_sss = _G.LOOT_ITEM_MULTIPLE:gsub('%.$','%%.'):gsub('%%s','(.+)'):gsub('x%%d','(x%%d+)')
farmbuyer@20 924
farmbuyer@20 925 -- LOOT_ITEM_SELF = "You receive loot: %s." --> You receive loot: (.+)%.
farmbuyer@20 926 g_LOOT_ITEM_SELF_s = _G.LOOT_ITEM_SELF:gsub('%.$','%%.'):gsub('%%s','(.+)')
farmbuyer@20 927
farmbuyer@20 928 -- LOOT_ITEM_SELF_MULTIPLE = "You receive loot: %sx%d." --> You receive loot: (.+)(x%d+)%.
farmbuyer@20 929 g_LOOT_ITEM_SELF_MULTIPLE_ss = _G.LOOT_ITEM_SELF_MULTIPLE:gsub('%.$','%%.'):gsub('%%s','(.+)'):gsub('x%%d','(x%%d+)')
farmbuyer@20 930
farmbuyer@44 931 --[[
farmbuyer@44 932 Stick something in the Blizzard addons options list, where most users
farmbuyer@44 933 will probably look these days. Try to be conservative about needless
farmbuyer@44 934 frame creation.
farmbuyer@44 935 ]]
farmbuyer@44 936 local bliz = CreateFrame("Frame")
farmbuyer@44 937 bliz.name = "Ouro Loot"
farmbuyer@44 938 bliz:SetScript("OnShow", function(_b)
farmbuyer@44 939 local button = CreateFrame("Button",nil,_b,"UIPanelButtonTemplate")
farmbuyer@44 940 button:SetWidth(150)
farmbuyer@44 941 button:SetHeight(22)
farmbuyer@44 942 button:SetScript("OnClick", function()
farmbuyer@44 943 _G.InterfaceOptionsFrameCancel:Click()
farmbuyer@44 944 _G.HideUIPanel(GameMenuFrame)
farmbuyer@44 945 addon:OpenMainDisplayToTab"Options"
farmbuyer@44 946 end)
farmbuyer@44 947 button:SetText('"/ouroloot opt"')
farmbuyer@44 948 button:SetPoint("TOPLEFT",20,-20)
farmbuyer@44 949 _b:SetScript("OnShow",nil)
farmbuyer@44 950 end)
farmbuyer@44 951 _G.InterfaceOptions_AddCategory(bliz)
farmbuyer@44 952
farmbuyer@73 953 -- Maybe load up g_uniques now?
farmbuyer@73 954 if opts.precache_history_uniques then
farmbuyer@73 955 self:_cache_history_uniques()
farmbuyer@73 956 end
farmbuyer@73 957
farmbuyer@49 958 self:_scan_LOD_modules()
farmbuyer@49 959
farmbuyer@73 960 self:_set_remote_change_chatframe (opts.chatty_on_remote_changes_frame, --[[silent_p=]]true)
farmbuyer@73 961
farmbuyer@1 962 if self.debug.flow then self:Print"is in control-flow debug mode." end
farmbuyer@1 963 end
farmbuyer@1 964 --function addon:OnDisable() end
farmbuyer@1 965
farmbuyer@58 966 do
farmbuyer@58 967 local prototype = {}
farmbuyer@58 968 local function module_OnEnable (plugin)
farmbuyer@58 969 if plugin.option_defaults then
farmbuyer@58 970 local SVname = 'OuroLoot'..plugin:GetName()..'_opts'
farmbuyer@58 971 if not _G[SVname] then
farmbuyer@58 972 _G[SVname] = {}
farmbuyer@58 973 if type(plugin.OnFirstTime) == 'function' then
farmbuyer@58 974 plugin:OnFirstTime()
farmbuyer@58 975 end
farmbuyer@58 976 end
farmbuyer@58 977 plugin.opts = _G[SVname]
farmbuyer@58 978 for option,default in pairs(plugin.option_defaults) do
farmbuyer@58 979 if plugin.opts[option] == nil then
farmbuyer@58 980 plugin.opts[option] = default
farmbuyer@58 981 end
farmbuyer@58 982 end
farmbuyer@58 983 plugin.option_defaults = nil
farmbuyer@58 984 end
farmbuyer@58 985 end
farmbuyer@58 986
farmbuyer@58 987 -- By default, no plugins. First plugin to use the special registration
farmbuyer@58 988 -- sets up code for any subsequent plugins.
farmbuyer@58 989 addon.is_plugin = flib.nullfunc
farmbuyer@58 990 local function module_rtg (plugin, text_type, ...)
farmbuyer@58 991 local registry = { [text_type]=plugin }
farmbuyer@58 992 addon.is_plugin = function(a,t) return registry[t] end
farmbuyer@58 993 prototype.register_text_generator = function(p,t,...)
farmbuyer@58 994 registry[t] = p
farmbuyer@58 995 return addon:register_text_generator(t,...)
farmbuyer@58 996 end
farmbuyer@58 997 return addon:register_text_generator(text_type,...)
farmbuyer@58 998 end
farmbuyer@58 999
farmbuyer@58 1000 prototype.OnEnable = module_OnEnable
farmbuyer@58 1001 prototype.default_OnEnable = module_OnEnable
farmbuyer@58 1002 prototype.register_text_generator = module_rtg
farmbuyer@58 1003
farmbuyer@58 1004 addon:SetDefaultModuleLibraries("AceConsole-3.0")
farmbuyer@58 1005 addon:SetDefaultModulePrototype(prototype)
farmbuyer@58 1006 -- Fires before the plugin's own OnEnable (inherited or otherwise).
farmbuyer@58 1007 --function addon:OnModuleCreated (plugin)
farmbuyer@58 1008 -- print("created plugin", plugin:GetName())
farmbuyer@58 1009 --end
farmbuyer@63 1010
farmbuyer@63 1011 local olrev = tonumber("@project-revision@") or 0
farmbuyer@64 1012 local err = [[Module '%s' cannot register itself because it failed a required condition: '%s']]
farmbuyer@63 1013 function addon:ConstrainedNewModule (modname, minrev, mincomm, mindata)
farmbuyer@63 1014 if not addon.author_debug then
farmbuyer@64 1015 if minrev and minrev > olrev then
farmbuyer@63 1016 self:Print(err,modname,
farmbuyer@63 1017 "revision "..olrev.." older than minimum "..minrev)
farmbuyer@63 1018 return false
farmbuyer@63 1019 end
farmbuyer@64 1020 if mincomm and mincomm > tonumber(self.commrev) then
farmbuyer@63 1021 self:Print(err,modname,
farmbuyer@63 1022 "commrev "..self.commrev.." older than minimum "..mincomm)
farmbuyer@63 1023 return false
farmbuyer@63 1024 end
farmbuyer@64 1025 if mindata and mindata > opts.datarev then
farmbuyer@63 1026 self:Print(err,modname,
farmbuyer@63 1027 "datarev "..opts.datarev.." older than minimum "..mindata)
farmbuyer@63 1028 return false
farmbuyer@63 1029 end
farmbuyer@63 1030 end
farmbuyer@63 1031 return self:NewModule(modname)
farmbuyer@63 1032 end
farmbuyer@58 1033 end
farmbuyer@58 1034
farmbuyer@1 1035
farmbuyer@1 1036 ------ Event handlers
farmbuyer@1 1037 function addon:_clear_SVs()
farmbuyer@1 1038 g_loot = {} -- not saved, just fooling PLAYER_LOGOUT tests
farmbuyer@73 1039 _G.OuroLootSV = nil
farmbuyer@73 1040 _G.OuroLootSV_saved = nil
farmbuyer@73 1041 _G.OuroLootSV_opts = nil
farmbuyer@73 1042 _G.OuroLootSV_hist = nil
farmbuyer@73 1043 _G.OuroLootSV_log = nil
farmbuyer@73 1044 _G.ReloadUI()
farmbuyer@1 1045 end
farmbuyer@1 1046 function addon:PLAYER_LOGOUT()
farmbuyer@16 1047 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 1048 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@16 1049
farmbuyer@73 1050 local worth_saving = #g_loot > 0 or _G.next(g_loot.raiders)
farmbuyer@16 1051 if not worth_saving then for text in self:registered_textgen_iter() do
farmbuyer@16 1052 worth_saving = worth_saving or g_loot.printed[text] > 0
farmbuyer@16 1053 end end
farmbuyer@16 1054 if worth_saving then
farmbuyer@16 1055 opts.autoshard = self.sharder
farmbuyer@16 1056 opts.threshold = self.threshold
farmbuyer@1 1057 for i,e in ipairs(g_loot) do
farmbuyer@1 1058 e.cols = nil
farmbuyer@1 1059 end
farmbuyer@73 1060 _G.OuroLootSV = g_loot
farmbuyer@16 1061 else
farmbuyer@73 1062 _G.OuroLootSV = nil
farmbuyer@1 1063 end
farmbuyer@16 1064
farmbuyer@38 1065 worth_saving = false
farmbuyer@6 1066 for r,t in pairs(self.history_all) do if type(t) == 'table' then
farmbuyer@8 1067 if #t == 0 then
farmbuyer@8 1068 self.history_all[r] = nil
farmbuyer@8 1069 else
farmbuyer@38 1070 worth_saving = true
farmbuyer@8 1071 t.realm = nil
farmbuyer@8 1072 t.st = nil
farmbuyer@8 1073 t.byname = nil
farmbuyer@8 1074 end
farmbuyer@6 1075 end end
farmbuyer@38 1076 if worth_saving then
farmbuyer@73 1077 _G.OuroLootSV_hist = self.history_all
farmbuyer@73 1078 _G.OuroLootSV_hist.HISTFORMAT = 4
farmbuyer@38 1079 else
farmbuyer@73 1080 _G.OuroLootSV_hist = nil
farmbuyer@38 1081 end
farmbuyer@73 1082 _G.OuroLootSV_log = #_G.OuroLootSV_log > 0 and _G.OuroLootSV_log or nil
farmbuyer@1 1083 end
farmbuyer@1 1084
farmbuyer@10 1085 do
farmbuyer@67 1086 local IsInInstance, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@56 1087 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo, GetRaidRosterInfo =
farmbuyer@67 1088 IsInInstance, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@56 1089 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo, GetRaidRosterInfo
farmbuyer@10 1090 local time, difftime = time, difftime
farmbuyer@10 1091 local R_ACTIVE, R_OFFLINE, R_LEFT = 1, 2, 3
farmbuyer@10 1092
farmbuyer@10 1093 local lastevent, now = 0, 0
farmbuyer@16 1094 local redo_count = 0
farmbuyer@16 1095 local redo, timer_handle
farmbuyer@10 1096
farmbuyer@10 1097 function addon:CheckRoster (leaving_p, now_a)
farmbuyer@10 1098 if not g_loot.raiders then return end -- bad transition
farmbuyer@10 1099
farmbuyer@10 1100 now = now_a or time()
farmbuyer@10 1101
farmbuyer@10 1102 if leaving_p then
farmbuyer@16 1103 if timer_handle then
farmbuyer@16 1104 self:CancelTimer(timer_handle)
farmbuyer@16 1105 timer_handle = nil
farmbuyer@16 1106 end
farmbuyer@10 1107 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 1108 r.leave = r.leave or now
farmbuyer@10 1109 end
farmbuyer@10 1110 return
farmbuyer@10 1111 end
farmbuyer@10 1112
farmbuyer@10 1113 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 1114 if r.online ~= R_LEFT and not UnitInRaid(name) then
farmbuyer@10 1115 r.online = R_LEFT
farmbuyer@10 1116 r.leave = now
farmbuyer@10 1117 end
farmbuyer@10 1118 end
farmbuyer@10 1119
farmbuyer@16 1120 if redo then
farmbuyer@16 1121 redo_count = redo_count + 1
farmbuyer@16 1122 end
farmbuyer@16 1123 redo = false
farmbuyer@10 1124 for i = 1, GetNumRaidMembers() do
farmbuyer@10 1125 local unit = 'raid'..i
farmbuyer@67 1126 -- We grab a bunch of return values here, but only pay attention to
farmbuyer@67 1127 -- them under specific circumstances.
farmbuyer@67 1128 local name, connected, subgroup, level, class, _
farmbuyer@67 1129 name, _, subgroup, level, _, class, connected = GetRaidRosterInfo(i)
farmbuyer@10 1130 -- No, that's not my typo, it really is "uknownbeing" in Blizzard's code.
farmbuyer@10 1131 if name and name ~= UNKNOWN and name ~= UNKNOWNOBJECT and name ~= UKNOWNBEING then
farmbuyer@10 1132 if not g_loot.raiders[name] then
farmbuyer@10 1133 g_loot.raiders[name] = { needinfo=true }
farmbuyer@10 1134 end
farmbuyer@10 1135 local r = g_loot.raiders[name]
farmbuyer@68 1136 r.subgroup = subgroup or (NUM_RAID_GROUPS+1)
farmbuyer@10 1137 if r.needinfo and UnitIsVisible(unit) then
farmbuyer@10 1138 r.needinfo = nil
farmbuyer@56 1139 r.class = class --select(2,UnitClass(unit))
farmbuyer@10 1140 r.race = select(2,UnitRace(unit))
farmbuyer@10 1141 r.sex = UnitSex(unit)
farmbuyer@56 1142 r.level = level --UnitLevel(unit)
farmbuyer@10 1143 r.guild = GetGuildInfo(unit)
farmbuyer@10 1144 end
farmbuyer@56 1145 --local connected = UnitIsConnected(unit)
farmbuyer@10 1146 if connected and r.online ~= R_ACTIVE then
farmbuyer@10 1147 r.join = r.join or now
farmbuyer@10 1148 r.online = R_ACTIVE
farmbuyer@10 1149 elseif (not connected) and r.online ~= R_OFFLINE then
farmbuyer@10 1150 r.leave = now
farmbuyer@10 1151 r.online = R_OFFLINE
farmbuyer@10 1152 end
farmbuyer@10 1153 redo = redo or r.needinfo
farmbuyer@10 1154 end
farmbuyer@10 1155 end
farmbuyer@16 1156 if redo then -- XXX test redo_count here and eventually give up?
farmbuyer@16 1157 if not timer_handle then
farmbuyer@16 1158 timer_handle = self:ScheduleRepeatingTimer("RAID_ROSTER_UPDATE", 60)
farmbuyer@16 1159 end
farmbuyer@16 1160 else
farmbuyer@16 1161 redo_count = 0
farmbuyer@16 1162 if timer_handle then
farmbuyer@16 1163 self:CancelTimer(timer_handle)
farmbuyer@16 1164 timer_handle = nil
farmbuyer@16 1165 end
farmbuyer@10 1166 end
farmbuyer@10 1167 end
farmbuyer@10 1168
farmbuyer@10 1169 function addon:RAID_ROSTER_UPDATE (event)
farmbuyer@10 1170 if GetNumRaidMembers() == 0 then
farmbuyer@16 1171 -- Leaving a raid group.
farmbuyer@10 1172 -- Because of PLAYER_ENTERING_WORLD, this code also executes on load
farmbuyer@10 1173 -- screens while soloing and in regular groups. Take care.
farmbuyer@16 1174 self.dprint('flow', "GetNumRaidMembers == 0")
farmbuyer@16 1175 if self.enabled and not self.debug.notraid then
farmbuyer@16 1176 self.dprint('flow', "enabled, leaving raid")
farmbuyer@10 1177 self.popped = nil
farmbuyer@16 1178 self:Deactivate() -- self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@10 1179 self:CheckRoster(--[[leaving raid]]true)
farmbuyer@10 1180 end
farmbuyer@10 1181 return
farmbuyer@10 1182 end
farmbuyer@10 1183
farmbuyer@1 1184 local inside,whatkind = IsInInstance()
farmbuyer@1 1185 if inside and (whatkind == "pvp" or whatkind == "arena") then
farmbuyer@41 1186 self.dprint('flow', "got RRU event but in pvp zone, bailing")
farmbuyer@41 1187 return
farmbuyer@1 1188 end
farmbuyer@10 1189
farmbuyer@10 1190 local docheck = self.enabled
farmbuyer@1 1191 if event == "Activate" then
farmbuyer@1 1192 -- dispatched manually from Activate
farmbuyer@10 1193 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 1194 _register_bossmod(self)
farmbuyer@10 1195 docheck = true
farmbuyer@1 1196 elseif event == "RAID_ROSTER_UPDATE" then
farmbuyer@10 1197 -- hot code path, be careful
farmbuyer@10 1198
farmbuyer@1 1199 -- event registration from onload, joined a raid, maybe show popup
farmbuyer@16 1200 self.dprint('flow', "RRU check:", self.popped, opts.popup_on_join)
farmbuyer@10 1201 if (not self.popped) and opts.popup_on_join then
farmbuyer@1 1202 self.popped = StaticPopup_Show "OUROL_REMIND"
farmbuyer@1 1203 self.popped.data = self
farmbuyer@10 1204 return
farmbuyer@1 1205 end
farmbuyer@1 1206 end
farmbuyer@11 1207 -- Throttle the checks fired by common events.
farmbuyer@10 1208 if docheck and not InCombatLockdown() then
farmbuyer@10 1209 now = time()
farmbuyer@10 1210 if difftime(now,lastevent) > 45 then
farmbuyer@10 1211 lastevent = now
farmbuyer@10 1212 self:CheckRoster(false,now)
farmbuyer@10 1213 end
farmbuyer@10 1214 end
farmbuyer@1 1215 end
farmbuyer@1 1216 end
farmbuyer@1 1217
farmbuyer@73 1218 --[=[ CHAT_MSG_LOOT handler and its helpers.
farmbuyer@73 1219 Situations for "unique tag" generation, given N people seeing local loot
farmbuyer@73 1220 events, M people seeing remote rebroadcasts, and player Z adding manually:
farmbuyer@73 1221
farmbuyer@73 1222 + Local tracking: All LOCALs should see the same itemstring, thus the same
farmbuyer@73 1223 unique ID stripped out of field #9. LOCALn includes this in the broadcast
farmbuyer@73 1224 to REMOTEm. Tag is a large number, meaningless for clients and players.
farmbuyer@73 1225
farmbuyer@73 1226 + Local broadcasting, remote tracking: same as local tracking. Possibly
farmbuyer@73 1227 some weirdness if all local versions are significantly older than the remote
farmbuyer@73 1228 versions; in this case each REMOTEn will generate their own tags of the form
farmbuyer@73 1229 itemID+formatted_date, which will not be "unique" for the next 60 seconds.
farmbuyer@73 1230 As long as at least one LOCALn is recent enough to strip and broadcast a
farmbuyer@73 1231 proper ID, multiple items of the same visible name will not be "lost".
farmbuyer@73 1232
farmbuyer@73 1233 + Z manually inserts a loot entry: Z generates a tag, preserved locally.
farmbuyer@73 1234 If Z rebrodcasts that entry, all REMOTEs will see it. Tag is of the form
farmbuyer@73 1235 "n" followed by a random number.
farmbuyer@73 1236 ]=]
farmbuyer@1 1237 do
farmbuyer@73 1238 local counter, _do_loot
farmbuyer@73 1239 do
farmbuyer@73 1240 local count = 0
farmbuyer@73 1241 function counter() count = count + 1; return count; end
farmbuyer@73 1242 end
farmbuyer@73 1243
farmbuyer@42 1244 local function maybe_trash_kill_entry()
farmbuyer@42 1245 -- this is set on various boss interactions, so we've got a kill/wipe
farmbuyer@73 1246 -- entry already -- XXX maybe clear it after a delay, so that loot
farmbuyer@73 1247 -- from trash after a boss isn't grouped with that boss?
farmbuyer@42 1248 if addon.latest_instance then return end
farmbuyer@69 1249 --addon.latest_instance = instance_tag()
farmbuyer@69 1250 local ss, max, inst = addon:snapshot_raid()
farmbuyer@69 1251 addon.latest_instance = inst
farmbuyer@69 1252 addon:_mark_boss_kill (addon._addBossEntry{
farmbuyer@61 1253 kind='boss', reason='kill', bossname=[[trash]],
farmbuyer@61 1254 instance=addon.latest_instance, duration=0,
farmbuyer@61 1255 raidersnap=ss, maxsize=max
farmbuyer@42 1256 })
farmbuyer@42 1257 end
farmbuyer@42 1258
farmbuyer@76 1259 -- Alert other trackers that unique tag EXISTING in subsequent 'casts
farmbuyer@76 1260 -- should be replaced by REPLACE instead. If multiple players all saw
farmbuyer@76 1261 -- the same loot event, this will cause a flurry of cross-improvs.
farmbuyer@76 1262 local function _announce_unique_improvisation (existing, replace)
farmbuyer@76 1263 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 1264 g_unique_replace.new_entry (g_unique_replace.me, existing, replace, 'improv')
farmbuyer@76 1265 addon:vbroadcast('improv', g_unique_replace.me, existing, replace)
farmbuyer@76 1266 end
farmbuyer@76 1267
farmbuyer@73 1268 local random = _G.math.random
farmbuyer@76 1269 local function _many_uniques_handle_it (u, prefix)
farmbuyer@76 1270 if u then
farmbuyer@73 1271 -- Check and alert for an existing value.
farmbuyer@73 1272 u = tostring(u)
farmbuyer@73 1273 if g_uniques[u].history ~= g_uniques.NOTFOUND then
farmbuyer@76 1274 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 1275 local maybe = g_unique_replace.get_previous_replacement (u)
farmbuyer@76 1276 if maybe then
farmbuyer@76 1277 addon.dprint('loot',"previous replaced tag ("..u
farmbuyer@76 1278 ..") with ("..maybe.."), using that instead")
farmbuyer@76 1279 return false, u, maybe
farmbuyer@76 1280 end
farmbuyer@76 1281 local can_replace_p,improv = _many_uniques_handle_it (nil, 'c')
farmbuyer@76 1282 if can_replace_p then
farmbuyer@76 1283 _announce_unique_improvisation (u, improv)
farmbuyer@76 1284 return false, u, improv
farmbuyer@76 1285 end
farmbuyer@76 1286 return false, u
farmbuyer@73 1287 end
farmbuyer@73 1288 addon.dprint('loot',"verified unique tag ("..u..")")
farmbuyer@73 1289 else
farmbuyer@73 1290 -- Need to *find* an unused value. For now use a range of
farmbuyer@73 1291 -- J*10^4 where J is Jenny's Constant. Thank you, xkcd.com/1047.
farmbuyer@76 1292 prefix = prefix or 'n'
farmbuyer@73 1293 repeat
farmbuyer@76 1294 u = prefix .. random(8675309)
farmbuyer@76 1295 until g_uniques:TEST(u).history == g_uniques.NOTFOUND
farmbuyer@76 1296 addon.dprint('loot',"created unique tag ("..u..")")
farmbuyer@73 1297 end
farmbuyer@73 1298 return true, u
farmbuyer@73 1299 end
farmbuyer@73 1300
farmbuyer@1 1301 -- Recent loot cache
farmbuyer@25 1302 local candidates = {}
farmbuyer@73 1303 local sigmap = {}
farmbuyer@73 1304 local function preempt_older_signature (oldersig, newersig)
farmbuyer@76 1305 --pprint("preempt", oldersig, "::", newersig)
farmbuyer@76 1306 local origin = candidates[oldersig] and candidates[oldersig].bcast_from
farmbuyer@76 1307 --pprint("preempt", "candidate", candidates[oldersig], "bcast:", origin)
farmbuyer@73 1308 if origin and g_seeing_oldsigs[origin] then
farmbuyer@73 1309 -- replace entry from older client with this newer one
farmbuyer@73 1310 candidates[oldersig] = nil
farmbuyer@76 1311 addon.dprint('loot', "preempting signature <", oldersig, "> from", origin)
farmbuyer@73 1312 end
farmbuyer@73 1313 return false
farmbuyer@73 1314 end
farmbuyer@73 1315
farmbuyer@25 1316 local function prefer_local_loots (cache)
farmbuyer@25 1317 -- The function name is a bit of a misnomer, as local entries overwrite
farmbuyer@25 1318 -- remote entries as the candidate table is populated. This routine is
farmbuyer@39 1319 -- here to extract the final results once the cache timers have expired.
farmbuyer@38 1320 --
farmbuyer@34 1321 -- Keep this sync'd with the local_override branch below.
farmbuyer@25 1322 for i,sig in ipairs(candidates) do
farmbuyer@25 1323 addon.dprint('loot', "processing candidate entry", i, sig)
farmbuyer@25 1324 local loot = candidates[sig]
farmbuyer@25 1325 if loot then
farmbuyer@42 1326 maybe_trash_kill_entry() -- Generate *some* kind of boss/location entry
farmbuyer@25 1327 candidates[sig] = nil
farmbuyer@25 1328 local looti = addon._addLootEntry(loot)
farmbuyer@73 1329 addon.dprint('loot', "entry", i, "was found, added at index", looti)
farmbuyer@25 1330 if (loot.disposition ~= 'shard')
farmbuyer@25 1331 and (loot.disposition ~= 'gvault')
farmbuyer@25 1332 and (not addon.history_suppress)
farmbuyer@25 1333 then
farmbuyer@25 1334 addon:_addHistoryEntry(looti)
farmbuyer@76 1335 elseif #loot.unique > 0 then
farmbuyer@76 1336 g_uniques[loot.unique] = -- stub entry
farmbuyer@76 1337 { loot = looti, history = g_uniques.NOTFOUND }
farmbuyer@25 1338 end
farmbuyer@25 1339 end
farmbuyer@25 1340 end
farmbuyer@25 1341
farmbuyer@25 1342 if addon.display then
farmbuyer@25 1343 addon:redisplay()
farmbuyer@25 1344 end
farmbuyer@47 1345 wipe(candidates)
farmbuyer@73 1346 wipe(sigmap)
farmbuyer@25 1347 end
farmbuyer@73 1348 local recent_loot = create_new_cache ('loot', comm_cleanup_ttl+3, prefer_local_loots)
farmbuyer@1 1349
farmbuyer@73 1350 local strsplit, GetItemInfo, GetItemIcon, UnitClass =
farmbuyer@73 1351 _G.strsplit, _G.GetItemInfo, _G.GetItemIcon, _G.UnitClass
farmbuyer@1 1352
farmbuyer@71 1353 -- 'from' only present if this is triggered by a broadcast
farmbuyer@73 1354 function _do_loot (self, local_override, recipient, unique, itemid, count, from, extratext)
farmbuyer@73 1355 local prefix = "_do_loot[" .. counter() .. "]"
farmbuyer@6 1356 local itexture = GetItemIcon(itemid)
farmbuyer@6 1357 local iname, ilink, iquality = GetItemInfo(itemid)
farmbuyer@73 1358 local cache_miss
farmbuyer@6 1359 if (not iname) or (not itexture) then
farmbuyer@73 1360 cache_miss = true
farmbuyer@6 1361 iname, ilink, iquality, itexture =
farmbuyer@6 1362 UNKNOWN..': '..itemid, 'item:6948', ITEM_QUALITY_COMMON, [[ICONS\INV_Misc_QuestionMark]]
farmbuyer@6 1363 end
farmbuyer@73 1364 self.dprint('loot',">>"..prefix, "R:", recipient, "U:", unique, "I:",
farmbuyer@71 1365 itemid, "C:", count, "frm:", from, "ex:", extratext, "q:", iquality)
farmbuyer@1 1366
farmbuyer@19 1367 itemid = tonumber(ilink:match("item:(%d+)") or 0)
farmbuyer@73 1368
farmbuyer@73 1369 -- This is only a 'while' to make jumping out of it easy.
farmbuyer@76 1370 local i, unique_okay, replacement, ret1, ret2
farmbuyer@73 1371 while local_override
farmbuyer@73 1372 or ((iquality >= self.threshold) and not opts.itemfilter[itemid])
farmbuyer@73 1373 do
farmbuyer@76 1374 unique_okay, unique, replacement =
farmbuyer@76 1375 _many_uniques_handle_it ((not local_override) and unique)
farmbuyer@73 1376 if not unique_okay then
farmbuyer@76 1377 if replacement then
farmbuyer@76 1378 -- collision, but we've generated a placeholder for now
farmbuyer@76 1379 -- and broadcast the fact
farmbuyer@76 1380 self.dprint('loot', "substituting", unique, "with", replacement)
farmbuyer@76 1381 else
farmbuyer@76 1382 i = g_uniques[unique]
farmbuyer@76 1383 local err = unique_collision:format (ERROR_CAPS, iname, unique,
farmbuyer@76 1384 tostring(from), tostring(i.loot), tostring(i.history))
farmbuyer@77 1385 _unavoidable_collision (err)
farmbuyer@76 1386 -- Make sure this is logged one way or another
farmbuyer@76 1387 ;(self.debug.loot and self.dprint or pprint)('loot', "COLLISION", prefix, err);
farmbuyer@76 1388 ret1, ret2 = nil, err
farmbuyer@76 1389 break
farmbuyer@76 1390 end
farmbuyer@73 1391 end
farmbuyer@73 1392
farmbuyer@1 1393 if (self.rebroadcast and (not from)) and not local_override then
farmbuyer@71 1394 self:vbroadcast('loot', recipient, unique, itemid, count)
farmbuyer@1 1395 end
farmbuyer@25 1396 if (not self.enabled) and (not local_override) then break end
farmbuyer@73 1397
farmbuyer@73 1398 local oldersig = recipient .. iname .. (count or "")
farmbuyer@73 1399 local signature, seenit
farmbuyer@73 1400 if #unique > 0 then
farmbuyer@73 1401 -- newer case
farmbuyer@73 1402 signature = unique .. oldersig
farmbuyer@76 1403 --pprint("newer", "mapping older <", oldersig, "> to newer <", signature, ">")
farmbuyer@73 1404 sigmap[oldersig] = signature
farmbuyer@76 1405 --pprint("newer", "testing recent for", signature, "yields", recent_loot:test(signature))
farmbuyer@76 1406 seenit = (from and recent_loot:test(signature))
farmbuyer@73 1407 -- The following clause is what handles older 'casts arriving
farmbuyer@73 1408 -- earlier. All this is tested inside-out to maximize short
farmbuyer@76 1409 -- circuit evaluation; the preempt function always returns
farmbuyer@76 1410 -- false to force seenit off.
farmbuyer@76 1411 or (g_seeing_oldsigs and preempt_older_signature(oldersig,signature))
farmbuyer@25 1412 else
farmbuyer@73 1413 -- older case, only remote
farmbuyer@73 1414 assert(from)
farmbuyer@73 1415 signature = sigmap[oldersig] or oldersig
farmbuyer@76 1416 --pprint("older", "testing signature will be", signature)
farmbuyer@73 1417 seenit = recent_loot:test(signature)
farmbuyer@73 1418 end
farmbuyer@73 1419
farmbuyer@73 1420 if seenit then
farmbuyer@73 1421 self.dprint('cache', "remote", prefix, "<", signature,
farmbuyer@73 1422 "> already in cache, skipping from", from)
farmbuyer@73 1423 break
farmbuyer@73 1424 end
farmbuyer@73 1425
farmbuyer@73 1426 -- There is some redundancy in all this, in the interests of ease-of-coding
farmbuyer@73 1427 i = {
farmbuyer@73 1428 kind = 'loot',
farmbuyer@73 1429 person = recipient,
farmbuyer@73 1430 person_class= select(2,UnitClass(recipient)),
farmbuyer@73 1431 cache_miss = cache_miss,
farmbuyer@73 1432 quality = iquality,
farmbuyer@73 1433 itemname = iname,
farmbuyer@73 1434 id = itemid,
farmbuyer@73 1435 itemlink = ilink,
farmbuyer@73 1436 itexture = itexture,
farmbuyer@76 1437 unique = replacement or unique,
farmbuyer@73 1438 count = (count and count ~= "") and count or nil,
farmbuyer@73 1439 bcast_from = from,
farmbuyer@73 1440 extratext = extratext,
farmbuyer@73 1441 variant = self:is_variant_item(ilink),
farmbuyer@73 1442 }
farmbuyer@73 1443 if opts.itemvault[itemid] then
farmbuyer@73 1444 i.disposition = 'gvault'
farmbuyer@73 1445 elseif recipient == self.sharder then
farmbuyer@73 1446 i.disposition = 'shard'
farmbuyer@73 1447 end
farmbuyer@73 1448 if local_override then
farmbuyer@73 1449 -- player is adding loot by hand, don't wait for network cache timeouts
farmbuyer@73 1450 -- keep this sync'd with prefer_local_loots above
farmbuyer@73 1451 if i.extratext == 'shard'
farmbuyer@73 1452 or i.extratext == 'gvault'
farmbuyer@73 1453 or i.extratext == 'offspec'
farmbuyer@73 1454 then
farmbuyer@73 1455 i.disposition = i.extratext
farmbuyer@70 1456 end
farmbuyer@73 1457 local looti = self._addLootEntry(i)
farmbuyer@73 1458 if (i.disposition ~= 'shard')
farmbuyer@73 1459 and (i.disposition ~= 'gvault')
farmbuyer@73 1460 and (not self.history_suppress)
farmbuyer@73 1461 then
farmbuyer@73 1462 self:_addHistoryEntry(looti)
farmbuyer@76 1463 else
farmbuyer@76 1464 g_uniques[i.unique] = -- stub entry
farmbuyer@76 1465 { loot = looti, history = g_uniques.NOTFOUND }
farmbuyer@34 1466 end
farmbuyer@73 1467 ret1 = looti -- return value mostly for gui's manual entry
farmbuyer@76 1468 self.dprint('loot', "manual", looti)
farmbuyer@73 1469 else
farmbuyer@73 1470 recent_loot:add(signature)
farmbuyer@73 1471 candidates[signature] = i
farmbuyer@73 1472 tinsert (candidates, signature)
farmbuyer@73 1473 self.dprint('cache', prefix, "<", signature,
farmbuyer@73 1474 "> added to cache as candidate", #candidates)
farmbuyer@1 1475 end
farmbuyer@25 1476 break
farmbuyer@1 1477 end
farmbuyer@73 1478 self.dprint('loot',"<<"..prefix, "out")
farmbuyer@73 1479 return ret1, ret2
farmbuyer@1 1480 end
farmbuyer@1 1481
farmbuyer@73 1482 -- Returns the index of the resulting new loot entry, or nil after
farmbuyer@73 1483 -- displaying any errors.
farmbuyer@1 1484 function addon:CHAT_MSG_LOOT (event, ...)
farmbuyer@1 1485 if (not self.rebroadcast) and (not self.enabled) and (event ~= "manual") then return end
farmbuyer@1 1486
farmbuyer@1 1487 --[[
farmbuyer@1 1488 iname: Hearthstone
farmbuyer@1 1489 iquality: integer
farmbuyer@1 1490 ilink: clickable formatted link
farmbuyer@1 1491 itemstring: item:6948:....
farmbuyer@1 1492 itexture: inventory icon texture
farmbuyer@1 1493 ]]
farmbuyer@1 1494
farmbuyer@1 1495 if event == "CHAT_MSG_LOOT" then
farmbuyer@1 1496 local msg = ...
farmbuyer@20 1497 local person, itemstring, count
farmbuyer@21 1498 --ChatFrame2:AddMessage("original string: >"..(msg:gsub("\124","\124\124")).."<")
farmbuyer@20 1499
farmbuyer@20 1500 -- test in most likely order: other people get more loot than "you" do
farmbuyer@20 1501 person, itemstring, count = msg:match(g_LOOT_ITEM_MULTIPLE_sss)
farmbuyer@20 1502 if not person then
farmbuyer@20 1503 person, itemstring = msg:match(g_LOOT_ITEM_ss)
farmbuyer@20 1504 end
farmbuyer@20 1505 if not person then
farmbuyer@20 1506 itemstring, count = msg:match(g_LOOT_ITEM_SELF_MULTIPLE_ss)
farmbuyer@20 1507 if not itemstring then
farmbuyer@20 1508 itemstring = msg:match(g_LOOT_ITEM_SELF_s)
farmbuyer@20 1509 end
farmbuyer@20 1510 end
farmbuyer@20 1511
farmbuyer@65 1512 self.dprint('loot', "CHAT_MSG_LOOT, person is", person,
farmbuyer@65 1513 ", itemstring is", itemstring, ", count is", count)
farmbuyer@73 1514 if not itemstring then return end -- "PlayerX selected Greed", etc, not looting
farmbuyer@1 1515
farmbuyer@1 1516 -- Name might be colorized, remove the highlighting
farmbuyer@20 1517 if person then
farmbuyer@20 1518 person = person:match("|c%x%x%x%x%x%x%x%x(%S+)") or person
farmbuyer@20 1519 else
farmbuyer@38 1520 person = my_name -- UNIT_YOU / You
farmbuyer@20 1521 end
farmbuyer@1 1522
farmbuyer@71 1523 --local id = tonumber(itemstring:match('|Hitem:(%d+):'))
farmbuyer@71 1524 local id,unique,_
farmbuyer@71 1525 _,id,_,_,_,_,_,_,unique = strsplit (":", itemstring)
farmbuyer@71 1526 if unique == 0 then unique = nil end
farmbuyer@1 1527
farmbuyer@73 1528 return _do_loot (self, false, person, unique, id, count)
farmbuyer@1 1529
farmbuyer@1 1530 elseif event == "broadcast" then
farmbuyer@73 1531 return _do_loot(self, false, ...)
farmbuyer@1 1532
farmbuyer@1 1533 elseif event == "manual" then
farmbuyer@1 1534 local r,i,n = ...
farmbuyer@73 1535 return _do_loot(self, true, r, --[[unique=]]nil, i,
farmbuyer@71 1536 --[[count=]]nil, --[[from=]]nil, n)
farmbuyer@1 1537 end
farmbuyer@1 1538 end
farmbuyer@1 1539 end
farmbuyer@1 1540
farmbuyer@1 1541
farmbuyer@1 1542 ------ Slash command handler
farmbuyer@1 1543 -- Thought about breaking this up into a table-driven dispatcher. But
farmbuyer@1 1544 -- that would result in a pile of teensy functions, most of which would
farmbuyer@1 1545 -- never be called. Too much overhead. (2.0: Most of these removed now
farmbuyer@1 1546 -- that GUI is in place.)
farmbuyer@76 1547 do
farmbuyer@76 1548 local green_help_link = addon.format_hypertext ([[Click here]],
farmbuyer@76 1549 ITEM_QUALITY_UNCOMMON, 'help')
farmbuyer@76 1550 function addon:OnSlash (txt) --, editbox)
farmbuyer@76 1551 txt = strtrim(txt:lower())
farmbuyer@76 1552 local cmd, arg = ""
farmbuyer@76 1553 do
farmbuyer@76 1554 local s,e = txt:find("^%a+")
farmbuyer@76 1555 if s then
farmbuyer@76 1556 cmd = txt:sub(s,e)
farmbuyer@76 1557 s = txt:find("%S", e+2)
farmbuyer@76 1558 if s then arg = txt:sub(s,-1) end
farmbuyer@76 1559 end
farmbuyer@1 1560 end
farmbuyer@1 1561
farmbuyer@76 1562 if cmd == "" then
farmbuyer@76 1563 if InCombatLockdown() then
farmbuyer@76 1564 return self:Print("Shouldn't display window in combat.")
farmbuyer@76 1565 else
farmbuyer@76 1566 return self:BuildMainDisplay()
farmbuyer@76 1567 end
farmbuyer@1 1568
farmbuyer@76 1569 elseif cmd:find("^thre") then
farmbuyer@76 1570 self:SetThreshold(arg)
farmbuyer@1 1571
farmbuyer@76 1572 elseif cmd == "on" then self:Activate(arg)
farmbuyer@76 1573 elseif cmd == "off" then self:Deactivate()
farmbuyer@76 1574 elseif cmd == "broadcast" or cmd == "bcast" then self:Activate(nil,true)
farmbuyer@76 1575
farmbuyer@76 1576 elseif cmd == "toggle" then
farmbuyer@76 1577 if self.display then
farmbuyer@76 1578 self.display:Hide()
farmbuyer@76 1579 else
farmbuyer@76 1580 return self:BuildMainDisplay()
farmbuyer@76 1581 end
farmbuyer@76 1582
farmbuyer@76 1583 elseif cmd == "fake" then -- maybe comment this out for real users
farmbuyer@76 1584 self:_mark_boss_kill (self._addBossEntry{
farmbuyer@76 1585 kind='boss',reason='kill',bossname="Baron Steamroller",duration=0
farmbuyer@76 1586 })
farmbuyer@76 1587 self:CHAT_MSG_LOOT ('manual', my_name, 54797)
farmbuyer@76 1588 if self.display then
farmbuyer@76 1589 self:redisplay()
farmbuyer@76 1590 end
farmbuyer@76 1591 self:Print "Baron Steamroller has been slain. Congratulations on your rug."
farmbuyer@76 1592
farmbuyer@76 1593 elseif cmd == "debug" then
farmbuyer@76 1594 if arg then
farmbuyer@76 1595 self.debug[arg] = not self.debug[arg]
farmbuyer@76 1596 _G.print(arg,self.debug[arg])
farmbuyer@76 1597 if self.debug[arg] then self.DEBUG_PRINT = true end
farmbuyer@76 1598 else
farmbuyer@76 1599 self.DEBUG_PRINT = not self.DEBUG_PRINT
farmbuyer@76 1600 end
farmbuyer@76 1601
farmbuyer@76 1602 elseif cmd == "save" and arg and arg:len() > 0 then
farmbuyer@76 1603 self:save_saveas(arg)
farmbuyer@76 1604 elseif cmd == "list" then
farmbuyer@76 1605 self:save_list()
farmbuyer@76 1606 elseif cmd == "restore" and arg and arg:len() > 0 then
farmbuyer@76 1607 self:save_restore(tonumber(arg))
farmbuyer@76 1608 elseif cmd == "delete" and arg and arg:len() > 0 then
farmbuyer@76 1609 self:save_delete(tonumber(arg))
farmbuyer@76 1610
farmbuyer@76 1611 elseif cmd == "help" then
farmbuyer@76 1612 self:BuildMainDisplay('help')
farmbuyer@76 1613 elseif cmd == "ping" then
farmbuyer@76 1614 self:DoPing()
farmbuyer@76 1615
farmbuyer@76 1616 elseif cmd == "fixcache" then
farmbuyer@76 1617 self:do_item_cache_fixup()
farmbuyer@76 1618
farmbuyer@23 1619 else
farmbuyer@76 1620 if self:OpenMainDisplayToTab(cmd) then
farmbuyer@76 1621 return
farmbuyer@76 1622 end
farmbuyer@76 1623 self:Print("Unknown command '%s'. %s to see the help window.",
farmbuyer@76 1624 cmd, tostring(green_help_link))
farmbuyer@23 1625 end
farmbuyer@1 1626 end
farmbuyer@1 1627 end
farmbuyer@1 1628
farmbuyer@1 1629 function addon:SetThreshold (arg, quiet_p)
farmbuyer@1 1630 local q = tonumber(arg)
farmbuyer@1 1631 if q then
farmbuyer@76 1632 q = math.floor(q+0.1)
farmbuyer@1 1633 if q<0 or q>6 then
farmbuyer@1 1634 return self:Print("Threshold must be 0-6.")
farmbuyer@1 1635 end
farmbuyer@1 1636 else
farmbuyer@1 1637 q = qualnames[arg]
farmbuyer@1 1638 if not q then
farmbuyer@1 1639 return self:Print("Unrecognized item quality argument.")
farmbuyer@1 1640 end
farmbuyer@1 1641 end
farmbuyer@1 1642 self.threshold = q
farmbuyer@1 1643 if not quiet_p then self:Print("Threshold now set to %s.", self.thresholds[q]) end
farmbuyer@1 1644 end
farmbuyer@1 1645
farmbuyer@1 1646
farmbuyer@1 1647 ------ On/off
farmbuyer@1 1648 function addon:Activate (opt_threshold, opt_bcast_only)
farmbuyer@16 1649 self.dprint('flow', ":Activate is running")
farmbuyer@10 1650 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 1651 self:RegisterEvent("PLAYER_ENTERING_WORLD",
farmbuyer@16 1652 function() self:ScheduleTimer("RAID_ROSTER_UPDATE", 5, "PLAYER_ENTERING_WORLD") end)
farmbuyer@1 1653 self.popped = true
farmbuyer@1 1654 if GetNumRaidMembers() > 0 then
farmbuyer@16 1655 self.dprint('flow', ">:Activate calling RRU")
farmbuyer@1 1656 self:RAID_ROSTER_UPDATE("Activate")
farmbuyer@1 1657 elseif self.debug.notraid then
farmbuyer@76 1658 self.dprint('flow', ">:(notraid) Activate registering loot and bossmods")
farmbuyer@10 1659 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 1660 _register_bossmod(self)
farmbuyer@1 1661 elseif g_restore_p then
farmbuyer@1 1662 g_restore_p = nil
farmbuyer@16 1663 self.popped = nil -- get the reminder if later joining a raid
farmbuyer@16 1664 if #g_loot == 0 then
farmbuyer@16 1665 -- only generated text and raider join/leave data, not worth verbage
farmbuyer@16 1666 self.dprint('flow', ">:Activate restored generated texts, un-popping")
farmbuyer@16 1667 return
farmbuyer@16 1668 end
farmbuyer@1 1669 self:Print("Ouro Raid Loot restored previous data, but not in a raid",
farmbuyer@48 1670 "and 5-player mode not active. |cffff0505NOT tracking loot|r;",
farmbuyer@1 1671 "use 'enable' to activate loot tracking, or 'clear' to erase",
farmbuyer@1 1672 "previous data, or 'help' to read about saved-texts commands.")
farmbuyer@1 1673 return
farmbuyer@1 1674 end
farmbuyer@1 1675 self.rebroadcast = true -- hardcode to true; this used to be more complicated
farmbuyer@1 1676 self.enabled = not opt_bcast_only
farmbuyer@73 1677 g_seeing_oldsigs = nil
farmbuyer@1 1678 if opt_threshold then
farmbuyer@1 1679 self:SetThreshold (opt_threshold, --[[quiet_p=]]true)
farmbuyer@1 1680 end
farmbuyer@1 1681 self:Print("Ouro Raid Loot is %s. Threshold currently %s.",
farmbuyer@1 1682 self.enabled and "tracking" or "only broadcasting",
farmbuyer@1 1683 self.thresholds[self.threshold])
farmbuyer@27 1684 self:broadcast('revcheck',revision_large)
farmbuyer@1 1685 end
farmbuyer@1 1686
farmbuyer@1 1687 -- Note: running '/loot off' will also avoid the popup reminder when
farmbuyer@1 1688 -- joining a raid, but will not change the saved option setting.
farmbuyer@1 1689 function addon:Deactivate()
farmbuyer@1 1690 self.enabled = false
farmbuyer@1 1691 self.rebroadcast = false
farmbuyer@10 1692 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@10 1693 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@10 1694 self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@1 1695 self:Print("Ouro Raid Loot deactivated.")
farmbuyer@1 1696 end
farmbuyer@1 1697
farmbuyer@1 1698 function addon:Clear(verbose_p)
farmbuyer@1 1699 local repopup, st
farmbuyer@1 1700 if self.display then
farmbuyer@1 1701 -- in the new version, this is likely to always be the case
farmbuyer@1 1702 repopup = true
farmbuyer@1 1703 st = self.display:GetUserData("eoiST")
farmbuyer@1 1704 if not st then
farmbuyer@1 1705 self.dprint('flow', "Clear: display visible but eoiST not set??")
farmbuyer@1 1706 end
farmbuyer@1 1707 self.display:Hide()
farmbuyer@1 1708 end
farmbuyer@1 1709 g_restore_p = nil
farmbuyer@73 1710 _G.OuroLootSV = nil
farmbuyer@1 1711 self:_reset_timestamps()
farmbuyer@1 1712 if verbose_p then
farmbuyer@73 1713 if (_G.OuroLootSV_saved and #_G.OuroLootSV_saved>0) then
farmbuyer@73 1714 self:Print("Current loot data cleared, %d saved sets remaining.", #_G.OuroLootSV_saved)
farmbuyer@1 1715 else
farmbuyer@1 1716 self:Print("Current loot data cleared.")
farmbuyer@1 1717 end
farmbuyer@1 1718 end
farmbuyer@1 1719 _init(self,st)
farmbuyer@1 1720 if repopup then
farmbuyer@1 1721 addon:BuildMainDisplay()
farmbuyer@1 1722 end
farmbuyer@1 1723 end
farmbuyer@1 1724
farmbuyer@1 1725
farmbuyer@1 1726 ------ Behind the scenes routines
farmbuyer@19 1727 -- Semi-experimental debugging aid.
farmbuyer@19 1728 do
farmbuyer@76 1729 -- Declaring _log as local to here can result in this sequence:
farmbuyer@41 1730 -- 1) logging happens, followed by reload or logout/login
farmbuyer@41 1731 -- 2) _log points to SV_log
farmbuyer@41 1732 -- 3) VARIABLES_LOADED replaces SV_log pointer with restored version
farmbuyer@41 1733 -- 4) logging happens to _log table (now with no other references)
farmbuyer@41 1734 -- 5) at logout, nothing new has been entered in the table being saved
farmbuyer@19 1735 local date = _G.date
farmbuyer@19 1736 function addon:log_with_timestamp (msg)
farmbuyer@73 1737 tinsert (_log, date('%m/%d %H:%M:%S ')..msg)
farmbuyer@19 1738 end
farmbuyer@19 1739 end
farmbuyer@19 1740
farmbuyer@49 1741 -- Check for plugins which haven't already been loaded, and add hooks for
farmbuyer@49 1742 -- them. Credit to DBM for the approach here.
farmbuyer@49 1743 function addon:_scan_LOD_modules()
farmbuyer@49 1744 for i = 1, GetNumAddOns() do
farmbuyer@49 1745 if GetAddOnMetadata (i, "X-OuroLoot-Plugin")
farmbuyer@49 1746 and IsAddOnLoadOnDemand(i)
farmbuyer@49 1747 and not IsAddOnLoaded(i)
farmbuyer@49 1748 then
farmbuyer@49 1749 local folder, _, _, enabled, _, reason = GetAddOnInfo(i)
farmbuyer@57 1750 if enabled or opts.display_disabled_LODs then
farmbuyer@57 1751 local tabtitle = GetAddOnMetadata (i, "X-OuroLoot-Plugin")
farmbuyer@57 1752 self:_gui_add_LOD_tab (tabtitle, folder, i, enabled, reason)
farmbuyer@57 1753 end
farmbuyer@49 1754 end
farmbuyer@49 1755 end
farmbuyer@49 1756 end
farmbuyer@49 1757
farmbuyer@73 1758 -- Routines for printing changes made by remote users.
farmbuyer@73 1759 do
farmbuyer@73 1760 local remote_change_chatframe
farmbuyer@73 1761
farmbuyer@73 1762 function addon:_set_remote_change_chatframe (arg, silent_p)
farmbuyer@73 1763 local frame
farmbuyer@73 1764 if type(arg) == 'number' then
farmbuyer@73 1765 arg = _G.math.min (arg, _G.NUM_CHAT_WINDOWS)
farmbuyer@73 1766 frame = _G['ChatFrame'..arg]
farmbuyer@73 1767 elseif type(arg) == 'string' then
farmbuyer@73 1768 frame = _G[arg]
farmbuyer@73 1769 end
farmbuyer@73 1770 if type(frame) == 'table' and type(frame.AddMessage) == 'function' then
farmbuyer@73 1771 remote_change_chatframe = frame
farmbuyer@73 1772 if not silent_p then
farmbuyer@73 1773 local msg = "Now printing to chat frame " .. arg
farmbuyer@73 1774 if frame.GetName then
farmbuyer@73 1775 msg = msg .. " (" .. tostring(frame:GetName()) .. ")"
farmbuyer@73 1776 end
farmbuyer@73 1777 self:Print(msg)
farmbuyer@73 1778 if frame ~= _G.DEFAULT_CHAT_FRAME then
farmbuyer@73 1779 self:CFPrint (frame, msg)
farmbuyer@73 1780 end
farmbuyer@73 1781 end
farmbuyer@73 1782 return frame
farmbuyer@73 1783 else
farmbuyer@73 1784 self:Print("'%s' was not a valid chat frame number/name, no change has been made.", arg)
farmbuyer@73 1785 end
farmbuyer@73 1786 end
farmbuyer@73 1787
farmbuyer@73 1788 function _notify_about_remote (sender, index, from_whom, olddisp)
farmbuyer@73 1789 local e = g_loot[index]
farmbuyer@73 1790 local from_color, from_text, to_color, to_text
farmbuyer@73 1791 if from_whom then
farmbuyer@73 1792 -- FIXME need to return previous name/class from reassign_loot
farmbuyer@73 1793
farmbuyer@73 1794 else
farmbuyer@73 1795 if olddisp then
farmbuyer@73 1796 from_text = addon.disposition_colors[olddisp].text
farmbuyer@73 1797 else
farmbuyer@73 1798 olddisp = "normal"
farmbuyer@73 1799 from_text = "normal"
farmbuyer@73 1800 end
farmbuyer@73 1801 from_color = addon.disposition_colors[olddisp].hex
farmbuyer@73 1802 if e.disposition then
farmbuyer@73 1803 to_text = addon.disposition_colors[e.disposition].text
farmbuyer@73 1804 else
farmbuyer@73 1805 to_text = "normal"
farmbuyer@73 1806 end
farmbuyer@73 1807 to_color = addon.disposition_colors[e.disposition or "normal"].hex
farmbuyer@73 1808 end
farmbuyer@73 1809
farmbuyer@76 1810 addon.dprint ('loot', "notifying:", sender, index,
farmbuyer@76 1811 e.itemlink, from_color, from_text, to_color, to_text)
farmbuyer@73 1812 addon:CFPrint (remote_change_chatframe, remote_chatty, sender, index,
farmbuyer@73 1813 e.itemlink, from_color, from_text, to_color, to_text)
farmbuyer@73 1814 end
farmbuyer@73 1815 end
farmbuyer@73 1816
farmbuyer@1 1817 -- Adds indices to traverse the tables in a nice sorted order.
farmbuyer@1 1818 do
farmbuyer@1 1819 local byindex, temp = {}, {}
farmbuyer@1 1820 local function sort (src, dest)
farmbuyer@1 1821 for k in pairs(src) do
farmbuyer@1 1822 temp[#temp+1] = k
farmbuyer@1 1823 end
farmbuyer@73 1824 _G.table.sort(temp)
farmbuyer@47 1825 wipe(dest)
farmbuyer@1 1826 for i = 1, #temp do
farmbuyer@1 1827 dest[i] = src[temp[i]]
farmbuyer@1 1828 end
farmbuyer@1 1829 end
farmbuyer@1 1830
farmbuyer@1 1831 function addon.sender_list.sort()
farmbuyer@1 1832 sort (addon.sender_list.active, byindex)
farmbuyer@47 1833 wipe(temp)
farmbuyer@1 1834 addon.sender_list.activeI = #byindex
farmbuyer@1 1835 sort (addon.sender_list.names, byindex)
farmbuyer@47 1836 wipe(temp)
farmbuyer@1 1837 end
farmbuyer@1 1838 addon.sender_list.namesI = byindex
farmbuyer@1 1839 end
farmbuyer@1 1840
farmbuyer@23 1841 function addon:DoPing()
farmbuyer@23 1842 self:Print("Give me a ping, Vasili. One ping only, please.")
farmbuyer@23 1843 self.sender_list.active = {}
farmbuyer@23 1844 self.sender_list.names = {}
farmbuyer@23 1845 self:broadcast('ping')
farmbuyer@27 1846 self:broadcast('revcheck',revision_large)
farmbuyer@27 1847 end
farmbuyer@27 1848
farmbuyer@27 1849 function addon:_check_revision (otherrev)
farmbuyer@27 1850 self.dprint('comm', "revchecking against", otherrev)
farmbuyer@27 1851 otherrev = tonumber(otherrev)
farmbuyer@27 1852 if otherrev == revision_large then
farmbuyer@27 1853 -- normal case
farmbuyer@27 1854
farmbuyer@27 1855 elseif otherrev < revision_large then
farmbuyer@27 1856 self.dprint('comm', "ours is newer, notifying")
farmbuyer@27 1857 self:broadcast('revcheck',revision_large)
farmbuyer@27 1858
farmbuyer@27 1859 else
farmbuyer@76 1860 self.dprint('comm', "ours is older, (possibly) yammering")
farmbuyer@27 1861 if newer_warning then
farmbuyer@76 1862 local pop = addon.format_hypertext ([[click here]], ITEM_QUALITY_UNCOMMON,
farmbuyer@76 1863 function()
farmbuyer@76 1864 -- Sadly, this is not generated by the packager, so hardcode it for now.
farmbuyer@76 1865 -- The 'data' field is handled differently for onshow than for other callbacks.
farmbuyer@76 1866 StaticPopup_Show("OUROL_URL", --[[text_arg1=]]nil, --[[text_arg2=]]nil,
farmbuyer@76 1867 --[[data=]][[http://www.curse.com/addons/wow/ouroloot]])
farmbuyer@76 1868 end)
farmbuyer@76 1869 local ping = addon.format_hypertext ([[click here]], ITEM_QUALITY_UNCOMMON, 'DoPing')
farmbuyer@76 1870 self:Print(newer_warning, tostring(pop), tostring(ping))
farmbuyer@27 1871 newer_warning = nil
farmbuyer@27 1872 end
farmbuyer@27 1873 end
farmbuyer@23 1874 end
farmbuyer@23 1875
farmbuyer@1 1876 -- Generic helpers
farmbuyer@28 1877 -- Returns index and entry at that index, or nil if not found.
farmbuyer@1 1878 function addon._find_next_after (kind, index)
farmbuyer@1 1879 index = index + 1
farmbuyer@1 1880 while index <= #g_loot do
farmbuyer@1 1881 if g_loot[index].kind == kind then
farmbuyer@1 1882 return index, g_loot[index]
farmbuyer@1 1883 end
farmbuyer@1 1884 index = index + 1
farmbuyer@1 1885 end
farmbuyer@1 1886 end
farmbuyer@28 1887 -- Essentially a _find_next_after('time'-or-'boss'), but if KIND is
farmbuyer@28 1888 -- 'boss', will also stop upon finding a timestamp. Returns nil if
farmbuyer@28 1889 -- appropriate fencepost is not found.
farmbuyer@28 1890 function addon._find_timeboss_fencepost (kind, index)
farmbuyer@28 1891 local fencepost
farmbuyer@28 1892 local closest_time = addon._find_next_after('time',index)
farmbuyer@28 1893 if kind == 'time' then
farmbuyer@28 1894 fencepost = closest_time
farmbuyer@28 1895 elseif kind == 'boss' then
farmbuyer@28 1896 local closest_boss = addon._find_next_after('boss',index)
farmbuyer@28 1897 if not closest_boss then
farmbuyer@28 1898 fencepost = closest_time
farmbuyer@28 1899 elseif not closest_time then
farmbuyer@28 1900 fencepost = closest_boss
farmbuyer@28 1901 else
farmbuyer@73 1902 fencepost = _G.math.min(closest_time,closest_boss)
farmbuyer@28 1903 end
farmbuyer@28 1904 end
farmbuyer@28 1905 return fencepost
farmbuyer@28 1906 end
farmbuyer@1 1907
farmbuyer@1 1908 -- Iterate through g_loot entries according to the KIND field. Loop variables
farmbuyer@1 1909 -- are g_loot indices and the corresponding entries (essentially ipairs + some
farmbuyer@1 1910 -- conditionals).
farmbuyer@1 1911 function addon:filtered_loot_iter (filter_kind)
farmbuyer@1 1912 return self._find_next_after, filter_kind, 0
farmbuyer@1 1913 end
farmbuyer@1 1914
farmbuyer@1 1915 do
farmbuyer@1 1916 local itt
farmbuyer@1 1917 local function create()
farmbuyer@1 1918 local tip, lefts = CreateFrame("GameTooltip"), {}
farmbuyer@1 1919 for i = 1, 2 do -- scanning idea here also snagged from Talented
farmbuyer@1 1920 local L,R = tip:CreateFontString(), tip:CreateFontString()
farmbuyer@1 1921 L:SetFontObject(GameFontNormal)
farmbuyer@1 1922 R:SetFontObject(GameFontNormal)
farmbuyer@1 1923 tip:AddFontStrings(L,R)
farmbuyer@1 1924 lefts[i] = L
farmbuyer@1 1925 end
farmbuyer@1 1926 tip.lefts = lefts
farmbuyer@1 1927 return tip
farmbuyer@1 1928 end
farmbuyer@66 1929 function addon:is_variant_item(item) -- returns number or *nil*
farmbuyer@1 1930 itt = itt or create()
farmbuyer@1 1931 itt:SetOwner(UIParent,"ANCHOR_NONE")
farmbuyer@1 1932 itt:ClearLines()
farmbuyer@1 1933 itt:SetHyperlink(item)
farmbuyer@1 1934 local t = itt.lefts[2]:GetText()
farmbuyer@1 1935 itt:Hide()
farmbuyer@66 1936 return (t == ITEM_HEROIC and 1)
farmbuyer@66 1937 or (t == RAID_FINDER and 2) -- no ITEM_ for this, apparently
farmbuyer@66 1938 or nil
farmbuyer@1 1939 end
farmbuyer@1 1940 end
farmbuyer@1 1941
farmbuyer@1 1942 -- Called when first loading up, and then also when a 'clear' is being
farmbuyer@16 1943 -- performed. If SV's are present then g_restore_p will be true.
farmbuyer@1 1944 function _init (self, possible_st)
farmbuyer@1 1945 self.dprint('flow',"_init running")
farmbuyer@1 1946 self.loot_clean = nil
farmbuyer@1 1947 self.hist_clean = nil
farmbuyer@1 1948 if g_restore_p then
farmbuyer@73 1949 g_loot = _G.OuroLootSV
farmbuyer@16 1950 self.popped = #g_loot > 0
farmbuyer@1 1951 self.dprint('flow', "restoring", #g_loot, "entries")
farmbuyer@16 1952 self:ScheduleTimer("Activate", 12, opts.threshold)
farmbuyer@1 1953 -- FIXME printed could be too large if entries were deleted, how much do we care?
farmbuyer@16 1954 self.sharder = opts.autoshard
farmbuyer@1 1955 else
farmbuyer@10 1956 g_loot = { printed = {}, raiders = {} }
farmbuyer@1 1957 end
farmbuyer@1 1958
farmbuyer@16 1959 self.threshold = opts.threshold or self.threshold -- in the case of restoring but not tracking
farmbuyer@1 1960 self:gui_init(g_loot)
farmbuyer@16 1961 opts.autoshard = nil
farmbuyer@16 1962 opts.threshold = nil
farmbuyer@1 1963
farmbuyer@1 1964 if g_restore_p then
farmbuyer@73 1965 self:zero_printed_fenceposts() -- g_loot.printed.* = previous/safe values
farmbuyer@1 1966 else
farmbuyer@73 1967 self:zero_printed_fenceposts(0) -- g_loot.printed.* = 0
farmbuyer@1 1968 end
farmbuyer@1 1969 if possible_st then
farmbuyer@1 1970 possible_st:SetData(g_loot)
farmbuyer@1 1971 end
farmbuyer@1 1972
farmbuyer@73 1973 self.status_text = ("%s communicating as ident %s commrev %s"):
farmbuyer@73 1974 format (self.revision, self.ident, self.commrev)
farmbuyer@1 1975 self:RegisterComm(self.ident)
farmbuyer@1 1976 self:RegisterComm(self.identTg, "OnCommReceivedNocache")
farmbuyer@1 1977
farmbuyer@1 1978 if self.author_debug then
farmbuyer@1 1979 _G.Oloot = g_loot
farmbuyer@1 1980 end
farmbuyer@1 1981 end
farmbuyer@1 1982
farmbuyer@61 1983 -- Raid roster snapshots
farmbuyer@61 1984 do
farmbuyer@61 1985 function addon:snapshot_raid (only_inraid_p)
farmbuyer@61 1986 local ss = CopyTable(g_loot.raiders)
farmbuyer@61 1987 local instance,maxsize = instance_tag()
farmbuyer@61 1988 if only_inraid_p then
farmbuyer@73 1989 for name,info in _G.next, ss do
farmbuyer@61 1990 if info.online == 3 then
farmbuyer@61 1991 ss[name] = nil
farmbuyer@61 1992 end
farmbuyer@61 1993 end
farmbuyer@61 1994 end
farmbuyer@73 1995 return ss, maxsize, instance, _G.time()
farmbuyer@61 1996 end
farmbuyer@61 1997 end
farmbuyer@61 1998
farmbuyer@25 1999 -- Tie-in with Deadly Boss Mods (or other such addons)
farmbuyer@1 2000 do
farmbuyer@25 2001 local candidates = {}
farmbuyer@25 2002 local location
farmbuyer@1 2003 local function fixup_durations (cache)
farmbuyer@1 2004 local boss, bossi
farmbuyer@1 2005 boss = candidates[1]
farmbuyer@1 2006 if #candidates == 1 then
farmbuyer@1 2007 -- (1) or (2)
farmbuyer@1 2008 boss.duration = boss.duration or 0
farmbuyer@19 2009 addon.dprint('loot', "only one boss candidate")
farmbuyer@1 2010 else
farmbuyer@1 2011 -- (3), should only be one 'cast entry and our local entry
farmbuyer@1 2012 if #candidates ~= 2 then
farmbuyer@1 2013 -- could get a bunch of 'cast entries on the heels of one another
farmbuyer@1 2014 -- before the local one ever fires, apparently... sigh
farmbuyer@1 2015 --addon:Print("<warning> s3 cache has %d entries, does that seem right to you?", #candidates)
farmbuyer@1 2016 end
farmbuyer@1 2017 if candidates[2].duration == nil then
farmbuyer@1 2018 --addon:Print("<warning> s3's second entry is not the local trigger, does that seem right to you?")
farmbuyer@1 2019 end
farmbuyer@1 2020 -- try and be generic anyhow
farmbuyer@1 2021 for i,c in ipairs(candidates) do
farmbuyer@1 2022 if c.duration then
farmbuyer@1 2023 boss = c
farmbuyer@19 2024 addon.dprint('loot', "fixup found boss candidate", i, "duration", c.duration)
farmbuyer@1 2025 break
farmbuyer@1 2026 end
farmbuyer@1 2027 end
farmbuyer@1 2028 end
farmbuyer@69 2029 bossi = addon._addBossEntry(boss)
farmbuyer@19 2030 -- addon.
farmbuyer@19 2031 bossi = addon._adjustBossOrder (bossi, g_boss_signpost) or bossi
farmbuyer@16 2032 g_boss_signpost = nil
farmbuyer@42 2033 addon.latest_instance = boss.instance
farmbuyer@19 2034 addon.dprint('loot', "added boss entry", bossi)
farmbuyer@1 2035 if boss.reason == 'kill' then
farmbuyer@1 2036 addon:_mark_boss_kill (bossi)
farmbuyer@1 2037 if opts.chatty_on_kill then
farmbuyer@55 2038 addon:Print("Registered kill for '%s' in %s!", boss.bossname, boss.instance)
farmbuyer@1 2039 end
farmbuyer@1 2040 end
farmbuyer@47 2041 wipe(candidates)
farmbuyer@1 2042 end
farmbuyer@73 2043 local recent_boss = create_new_cache ('boss', 10, fixup_durations)
farmbuyer@1 2044
farmbuyer@1 2045 -- Similar to _do_loot, but duration+ parms only present when locally generated.
farmbuyer@56 2046 local function _do_boss (self, reason, bossname, intag, maxsize, duration)
farmbuyer@56 2047 self.dprint('loot',">>_do_boss, R:", reason, "B:", bossname,
farmbuyer@56 2048 "T:", intag, "MS:", maxsize, "D:", duration)
farmbuyer@1 2049 if self.rebroadcast and duration then
farmbuyer@56 2050 self:vbroadcast('boss', reason, bossname, intag, maxsize)
farmbuyer@1 2051 end
farmbuyer@1 2052 -- This is only a loop to make jumping out of it easy, and still do cleanup below.
farmbuyer@1 2053 while self.enabled do
farmbuyer@1 2054 if reason == 'wipe' and opts.no_tracking_wipes then break end
farmbuyer@1 2055 bossname = (opts.snarky_boss and self.boss_abbrev[bossname] or bossname) or bossname
farmbuyer@1 2056 local not_from_local = duration == nil
farmbuyer@1 2057 local signature = bossname .. reason
farmbuyer@73 2058 if not_from_local and recent_boss:test(signature) then
farmbuyer@39 2059 self.dprint('cache', "remote boss <",signature,"> already in cache, skipping")
farmbuyer@1 2060 else
farmbuyer@73 2061 recent_boss:add(signature)
farmbuyer@16 2062 g_boss_signpost = #g_loot + 1
farmbuyer@19 2063 self.dprint('loot', "added boss signpost", g_boss_signpost)
farmbuyer@1 2064 -- Possible scenarios: (1) we don't see a boss event at all (e.g., we're
farmbuyer@1 2065 -- outside the instance) and so this only happens once as a non-local event,
farmbuyer@1 2066 -- (2) we see a local event first and all non-local events are filtered
farmbuyer@1 2067 -- by the cache, (3) we happen to get some non-local events before doing
farmbuyer@1 2068 -- our local event (not because of network weirdness but because our local
farmbuyer@1 2069 -- DBM might not trigger for a while).
farmbuyer@1 2070 local c = {
farmbuyer@1 2071 kind = 'boss',
farmbuyer@55 2072 bossname = bossname,
farmbuyer@1 2073 reason = reason,
farmbuyer@1 2074 instance = intag,
farmbuyer@56 2075 duration = duration, -- deliberately may be nil
farmbuyer@61 2076 raidersnap = self:snapshot_raid(),
farmbuyer@56 2077 maxsize = maxsize,
farmbuyer@1 2078 }
farmbuyer@1 2079 tinsert(candidates,c)
farmbuyer@1 2080 end
farmbuyer@17 2081 break
farmbuyer@1 2082 end
farmbuyer@1 2083 self.dprint('loot',"<<_do_boss out")
farmbuyer@1 2084 end
farmbuyer@56 2085 -- This exposes the function to OCR, and can be a wrapper layer later.
farmbuyer@1 2086 addon.on_boss_broadcast = _do_boss
farmbuyer@1 2087
farmbuyer@1 2088 function addon:_mark_boss_kill (index)
farmbuyer@1 2089 local e = g_loot[index]
farmbuyer@17 2090 if not e then
farmbuyer@17 2091 self:Print("Something horribly wrong;", index, "is not a valid entry!")
farmbuyer@17 2092 return
farmbuyer@17 2093 end
farmbuyer@55 2094 if not e.bossname then
farmbuyer@16 2095 self:Print("Something horribly wrong;", index, "is not a boss entry!")
farmbuyer@16 2096 return
farmbuyer@1 2097 end
farmbuyer@1 2098 if e.reason ~= 'wipe' then
farmbuyer@1 2099 -- enh, bail
farmbuyer@1 2100 self.loot_clean = index-1
farmbuyer@1 2101 end
farmbuyer@1 2102 local attempts = 1
farmbuyer@1 2103 local first
farmbuyer@1 2104
farmbuyer@69 2105 -- Maybe redo this to only collapse *contiguous* wipes...?
farmbuyer@1 2106 local i,d = 1,g_loot[1]
farmbuyer@1 2107 while d ~= e do
farmbuyer@55 2108 if d.bossname and
farmbuyer@55 2109 d.bossname == e.bossname and
farmbuyer@53 2110 d.instance == e.instance and
farmbuyer@1 2111 d.reason == 'wipe'
farmbuyer@1 2112 then
farmbuyer@1 2113 first = first or i
farmbuyer@1 2114 attempts = attempts + 1
farmbuyer@1 2115 assert(tremove(g_loot,i)==d,"_mark_boss_kill screwed up data badly")
farmbuyer@1 2116 else
farmbuyer@1 2117 i = i + 1
farmbuyer@1 2118 end
farmbuyer@1 2119 d = g_loot[i]
farmbuyer@1 2120 end
farmbuyer@1 2121 e.reason = 'kill'
farmbuyer@1 2122 e.attempts = attempts
farmbuyer@1 2123 self.loot_clean = first or index-1
farmbuyer@1 2124 end
farmbuyer@1 2125
farmbuyer@2 2126 function addon:register_boss_mod (name, registration_func, deregistration_func)
farmbuyer@2 2127 assert(type(name)=='string')
farmbuyer@2 2128 assert(type(registration_func)=='function')
farmbuyer@76 2129 if deregistration_func ~= nil then
farmbuyer@76 2130 assert(type(deregistration_func)=='function')
farmbuyer@76 2131 end
farmbuyer@2 2132 self.bossmods[#self.bossmods+1] = {
farmbuyer@2 2133 n = name,
farmbuyer@2 2134 r = registration_func,
farmbuyer@2 2135 d = deregistration_func,
farmbuyer@2 2136 }
farmbuyer@5 2137 self.bossmods[name] = self.bossmods[#self.bossmods]
farmbuyer@5 2138 assert(self.bossmods[name].n == self.bossmods[#self.bossmods].n)
farmbuyer@2 2139 end
farmbuyer@1 2140
farmbuyer@2 2141 function _register_bossmod (self, force_p)
farmbuyer@2 2142 local x = self.bossmod_registered and self.bossmods[self.bossmod_registered]
farmbuyer@2 2143 if x then
farmbuyer@2 2144 if x.n == opts.bossmod and not force_p then
farmbuyer@2 2145 -- trying to register with already-registered boss mod
farmbuyer@2 2146 return
farmbuyer@2 2147 else
farmbuyer@2 2148 -- deregister
farmbuyer@2 2149 if x.d then x.d(self) end
farmbuyer@2 2150 end
farmbuyer@1 2151 end
farmbuyer@1 2152
farmbuyer@2 2153 x = nil
farmbuyer@2 2154 for k,v in ipairs(self.bossmods) do
farmbuyer@2 2155 if v.n == opts.bossmod then
farmbuyer@2 2156 x = k
farmbuyer@2 2157 break
farmbuyer@2 2158 end
farmbuyer@1 2159 end
farmbuyer@1 2160
farmbuyer@2 2161 if not x then
farmbuyer@2 2162 self.status_text = "|cffff1010No boss-mod found!|r"
farmbuyer@2 2163 self:Print(self.status_text)
farmbuyer@2 2164 return
farmbuyer@1 2165 end
farmbuyer@1 2166
farmbuyer@2 2167 if self.bossmods[x].r (self, _do_boss) then
farmbuyer@5 2168 self.bossmod_registered = self.bossmods[x].n
farmbuyer@1 2169 else
farmbuyer@2 2170 self:Print("|cffff1010Boss mod registration failed|r")
farmbuyer@1 2171 end
farmbuyer@1 2172 end
farmbuyer@2 2173 end
farmbuyer@1 2174
farmbuyer@1 2175 -- Adding entries to the loot record, and tracking the corresponding timestamp.
farmbuyer@1 2176 do
farmbuyer@73 2177 local rawget, setmetatable = _G.rawget, _G.setmetatable
farmbuyer@73 2178
farmbuyer@1 2179 -- This shouldn't be required. /sadface
farmbuyer@1 2180 local loot_entry_mt = {
farmbuyer@1 2181 __index = function (e,key)
farmbuyer@1 2182 if key == 'cols' then
farmbuyer@15 2183 pprint('mt', e.kind, "key is", key)
farmbuyer@1 2184 --tabledump(e) -- not actually that useful
farmbuyer@1 2185 addon:_fill_out_eoi_data(1)
farmbuyer@1 2186 end
farmbuyer@1 2187 return rawget(e,key)
farmbuyer@1 2188 end
farmbuyer@1 2189 }
farmbuyer@1 2190
farmbuyer@1 2191 -- Given a loot index, searches backwards for a timestamp. Returns that
farmbuyer@1 2192 -- index and the time entry, or nil if it falls off the beginning. Pass an
farmbuyer@65 2193 -- optional second index to search no earlier than that.
farmbuyer@1 2194 -- May also be able to make good use of this in forum-generation routine.
farmbuyer@1 2195 function addon:find_previous_time_entry(i,stop)
farmbuyer@17 2196 stop = stop or 0
farmbuyer@1 2197 while i > stop do
farmbuyer@1 2198 if g_loot[i].kind == 'time' then
farmbuyer@1 2199 return i, g_loot[i]
farmbuyer@1 2200 end
farmbuyer@1 2201 i = i - 1
farmbuyer@1 2202 end
farmbuyer@1 2203 end
farmbuyer@1 2204
farmbuyer@1 2205 -- format_timestamp (["format_string"], Day, [Loot])
farmbuyer@1 2206 -- DAY is a loot entry with kind=='time', and controls the date printed.
farmbuyer@1 2207 -- LOOT may be any kind of entry in the g_loot table. If present, it
farmbuyer@1 2208 -- overrides the hour and minute printed; if absent, those values are
farmbuyer@1 2209 -- taken from the DAY entry.
farmbuyer@1 2210 -- FORMAT_STRING may contain $x (x in Y/M/D/h/m) tokens.
farmbuyer@1 2211 local format_timestamp_values, point2dee = {}, "%.2d"
farmbuyer@1 2212 function addon:format_timestamp (fmt_opt, day_entry, time_entry_opt)
farmbuyer@1 2213 if not time_entry_opt then
farmbuyer@1 2214 if type(fmt_opt) == 'table' then -- Two entries, default format
farmbuyer@1 2215 time_entry_opt, day_entry = day_entry, fmt_opt
farmbuyer@1 2216 fmt_opt = "$Y/$M/$D $h:$m"
farmbuyer@41 2217 --elseif type(fmt_opt) == "string" then -- Day entry only, caller-specified format
farmbuyer@1 2218 end
farmbuyer@1 2219 end
farmbuyer@1 2220 --format_timestamp_values.Y = point2dee:format (day_entry.startday.year % 100)
farmbuyer@1 2221 format_timestamp_values.Y = ("%.4d"):format (day_entry.startday.year)
farmbuyer@1 2222 format_timestamp_values.M = point2dee:format (day_entry.startday.month)
farmbuyer@1 2223 format_timestamp_values.D = point2dee:format (day_entry.startday.day)
farmbuyer@1 2224 format_timestamp_values.h = point2dee:format ((time_entry_opt or day_entry).hour)
farmbuyer@1 2225 format_timestamp_values.m = point2dee:format ((time_entry_opt or day_entry).minute)
farmbuyer@1 2226 return fmt_opt:gsub ('%$([YMDhm])', format_timestamp_values)
farmbuyer@1 2227 end
farmbuyer@1 2228
farmbuyer@1 2229 local done_todays_date
farmbuyer@1 2230 function addon:_reset_timestamps()
farmbuyer@1 2231 done_todays_date = nil
farmbuyer@1 2232 end
farmbuyer@1 2233 local function do_todays_date()
farmbuyer@1 2234 local text, M, D, Y = makedate()
farmbuyer@1 2235 local found,ts = #g_loot+1
farmbuyer@1 2236 repeat
farmbuyer@1 2237 found,ts = addon:find_previous_time_entry(found-1)
farmbuyer@1 2238 if found and ts.startday.text == text then
farmbuyer@1 2239 done_todays_date = true
farmbuyer@1 2240 end
farmbuyer@1 2241 until done_todays_date or (not found)
farmbuyer@1 2242 if done_todays_date then
farmbuyer@1 2243 g_today = ts
farmbuyer@1 2244 else
farmbuyer@1 2245 done_todays_date = true
farmbuyer@1 2246 g_today = g_loot[addon._addLootEntry{
farmbuyer@1 2247 kind = 'time',
farmbuyer@1 2248 startday = {
farmbuyer@1 2249 text = text, month = M, day = D, year = Y
farmbuyer@1 2250 }
farmbuyer@1 2251 }]
farmbuyer@1 2252 end
farmbuyer@1 2253 addon:_fill_out_eoi_data(1)
farmbuyer@1 2254 end
farmbuyer@1 2255
farmbuyer@1 2256 -- Adding anything original to g_loot goes through this routine.
farmbuyer@1 2257 function addon._addLootEntry (e)
farmbuyer@1 2258 setmetatable(e,loot_entry_mt)
farmbuyer@1 2259
farmbuyer@1 2260 if not done_todays_date then do_todays_date() end
farmbuyer@1 2261
farmbuyer@73 2262 local h, m = _G.GetGameTime()
farmbuyer@10 2263 --local localuptime = math.floor(GetTime())
farmbuyer@73 2264 local time_t = _G.time()
farmbuyer@1 2265 e.hour = h
farmbuyer@1 2266 e.minute = m
farmbuyer@10 2267 e.stamp = time_t --localuptime
farmbuyer@1 2268 local index = #g_loot + 1
farmbuyer@1 2269 g_loot[index] = e
farmbuyer@1 2270 return index
farmbuyer@1 2271 end
farmbuyer@16 2272
farmbuyer@69 2273 -- Safety wrapper only.
farmbuyer@69 2274 -- XXX Maybe pprint something here.
farmbuyer@69 2275 function addon._addBossEntry (e)
farmbuyer@69 2276 local ret = addon._addLootEntry(e)
farmbuyer@69 2277 assert(e.kind=='boss')
farmbuyer@69 2278 local needSize = e.maxsize == nil
farmbuyer@69 2279 local needSnap = e.raidersnap == nil
farmbuyer@69 2280 local needInst = e.instance == nil
farmbuyer@69 2281 if needSize or needSnap then
farmbuyer@69 2282 local ss, max, inst = addon:snapshot_raid()
farmbuyer@69 2283 if needSize then e.maxsize = max end
farmbuyer@69 2284 if needSnap then e.raidersnap = ss end
farmbuyer@69 2285 if needInst then e.instance = inst end
farmbuyer@69 2286 end
farmbuyer@69 2287 return ret
farmbuyer@69 2288 end
farmbuyer@69 2289
farmbuyer@16 2290 -- Problem: (1) boss kill happens, (2) fast looting happens, (3) boss
farmbuyer@16 2291 -- cache cleanup fires. Result: loot shows up before boss kill entry.
farmbuyer@16 2292 -- Solution: We need to shuffle the boss entry above any of the loot
farmbuyer@16 2293 -- from that boss.
farmbuyer@16 2294 function addon._adjustBossOrder (is, should_be)
farmbuyer@16 2295 --pprint('loot', is, should_be)
farmbuyer@16 2296 if is == should_be then --pprint('loot', "equal, yay")
farmbuyer@16 2297 return
farmbuyer@16 2298 end
farmbuyer@17 2299 if (type(is)~='number') or (type(should_be)~='number') or (is < should_be) then
farmbuyer@19 2300 pprint('loot', is, should_be, "...the hell? bailing")
farmbuyer@16 2301 return
farmbuyer@16 2302 end
farmbuyer@16 2303 if g_loot[should_be].kind == 'time' then
farmbuyer@16 2304 should_be = should_be + 1
farmbuyer@16 2305 if is == should_be then
farmbuyer@16 2306 --pprint('loot', "needed to mark day entry, otherwise equal, yay")
farmbuyer@16 2307 return
farmbuyer@16 2308 end
farmbuyer@16 2309 end
farmbuyer@16 2310
farmbuyer@16 2311 assert(g_loot[is].kind == 'boss')
farmbuyer@16 2312 local boss = tremove (g_loot, is)
farmbuyer@55 2313 --pprint('loot', "MOVING", boss.bossname)
farmbuyer@16 2314 tinsert (g_loot, should_be, boss)
farmbuyer@16 2315 return should_be
farmbuyer@16 2316 end
farmbuyer@1 2317 end
farmbuyer@1 2318
farmbuyer@19 2319 -- In the rare case of items getting put into the loot table without current
farmbuyer@19 2320 -- item cache data (which will have arrived by now).
farmbuyer@19 2321 function addon:do_item_cache_fixup()
farmbuyer@19 2322 self:Print("Fixing up missing item cache data...")
farmbuyer@19 2323
farmbuyer@19 2324 local numfound = 0
farmbuyer@19 2325 local borkedpat = '^'..UNKNOWN..': (%S+)'
farmbuyer@19 2326
farmbuyer@73 2327 -- 'while true' so that we can use (inner) break as (outer) continue
farmbuyer@73 2328 for i,e in self:filtered_loot_iter('loot') do while true do
farmbuyer@73 2329 if not e.cache_miss then break end
farmbuyer@73 2330 local borked_id = e.itemname:match(borkedpat)
farmbuyer@73 2331 if not borked_id then break end
farmbuyer@73 2332 numfound = numfound + 1
farmbuyer@73 2333 -- Best to use the safest and most flexible API here, which is GII and
farmbuyer@73 2334 -- its assload of return values.
farmbuyer@73 2335 local iname, ilink, iquality, _,_,_,_,_,_, itexture = GetItemInfo(borked_id)
farmbuyer@73 2336 if iname then
farmbuyer@73 2337 local msg = [[ Entry %d patched up with %s.]]
farmbuyer@73 2338 e.quality = iquality
farmbuyer@73 2339 e.itemname = iname
farmbuyer@73 2340 e.id = tonumber(ilink:match("item:(%d+)"))
farmbuyer@73 2341 e.itemlink = ilink
farmbuyer@73 2342 e.itexture = itexture
farmbuyer@73 2343 e.cache_miss = nil
farmbuyer@73 2344 if e.unique then
farmbuyer@73 2345 local gu = g_uniques[e.unique]
farmbuyer@73 2346 local player_i, player_h, hist_i = _history_by_loot_id (e.unique, "fixcache")
farmbuyer@73 2347 if gu.loot ~= i then -- is this an actual problem?
farmbuyer@76 2348 pprint ('loot',
farmbuyer@76 2349 ("Unique value '%s' had iterator value %d but g_uniques index %s."):
farmbuyer@76 2350 format(e.unique,i,tostring(gu.loot)))
farmbuyer@73 2351 end
farmbuyer@73 2352 if player_i then
farmbuyer@73 2353 player_h.id[e.unique] = e.id
farmbuyer@73 2354 msg = [[ Entry %d (and history) patched up with %s.]]
farmbuyer@19 2355 end
farmbuyer@19 2356 end
farmbuyer@73 2357 self:Print(msg, i, ilink)
farmbuyer@19 2358 end
farmbuyer@73 2359 break
farmbuyer@73 2360 end end
farmbuyer@19 2361
farmbuyer@19 2362 self:Print("...finished. Found %d |4entry:entries; with weird data.", numfound)
farmbuyer@19 2363 end
farmbuyer@19 2364
farmbuyer@76 2365 do
farmbuyer@76 2366 local gur
farmbuyer@76 2367
farmbuyer@76 2368 -- Strictly speaking, we'd want to handle individual 'exist' entries
farmbuyer@76 2369 -- as they expire, rather then waiting for all of them to expire and then
farmbuyer@76 2370 -- doing them as a group. But, if there're more than one of these per
farmbuyer@76 2371 -- boss, something else is funky anyhow and certainly not a hurry.
farmbuyer@76 2372 local function fixup_unique_replacements()
farmbuyer@76 2373 --print("replacements fixup happening!")
farmbuyer@76 2374 --tabledump(g_unique_replace.replacements)
farmbuyer@76 2375 --_G.GRR = g_unique_replace.replacements
farmbuyer@76 2376 for exist,info in pairs(gur.replacements) do
farmbuyer@76 2377 local winning_index = 1
farmbuyer@76 2378 local winner = info[1]
farmbuyer@76 2379 info[1] = nil
farmbuyer@76 2380 pprint('improv', "fixup for", exist, "starting with", winner[1],
farmbuyer@76 2381 "with", winner[2], "out of", #info, "total entries")
farmbuyer@76 2382 -- Lowest player GUID wins. Seniority gotta count for something.
farmbuyer@76 2383 for i = 2, #info do
farmbuyer@76 2384 if winner[1] <= info[i][1] then
farmbuyer@76 2385 pprint('improv', "champ wins against", i, info[i][1])
farmbuyer@76 2386 flib.del(info[i])
farmbuyer@76 2387 else
farmbuyer@76 2388 pprint('improv', "challenger wins with", i, info[i][1])
farmbuyer@76 2389 flib.del(winner)
farmbuyer@76 2390 winner = info[i]
farmbuyer@76 2391 winning_index = i
farmbuyer@76 2392 end
farmbuyer@76 2393 info[i] = nil
farmbuyer@76 2394 end
farmbuyer@76 2395 pprint('improv', "final:", winner[1], winner[2])
farmbuyer@76 2396 --[[
farmbuyer@76 2397 A: winner was generated locally
farmbuyer@76 2398 >g_loot and history already has the replacement value
farmbuyer@76 2399 >winning_index == 1
farmbuyer@76 2400 B: winner was generated remotely
farmbuyer@76 2401 >need to scan and replace
farmbuyer@76 2402 ]]
farmbuyer@76 2403 if winning_index ~= 1 then
farmbuyer@76 2404 --XXX still needs to be debugged:
farmbuyer@76 2405 local cache = g_uniques[exist]
farmbuyer@76 2406 local looti = assert(cache.loot) -- can't possibly be missing...
farmbuyer@76 2407 if g_loot[looti].unique ~= exist then
farmbuyer@76 2408 pprint('improv', "WTF. entry", looti,
farmbuyer@76 2409 "does not match original unique tag! instead",
farmbuyer@76 2410 g_loot[looti].unique)
farmbuyer@76 2411 else
farmbuyer@76 2412 pprint('improv', "found and replaced loot entry", looti)
farmbuyer@76 2413 g_loot[looti].unique = winner[2]
farmbuyer@76 2414 end
farmbuyer@76 2415 local hi,ui = cache.history, cache.history_may
farmbuyer@76 2416 if hi ~= g_uniques.NOTFOUND then
farmbuyer@76 2417 local hist = addon.history[hi]
farmbuyer@76 2418 if ui and hist.unique[ui] == exist then
farmbuyer@76 2419 -- ui is valid
farmbuyer@76 2420 else
farmbuyer@76 2421 ui = nil
farmbuyer@76 2422 for i,ui2 in ipairs(hist.unique) do
farmbuyer@76 2423 if ui2 == exist then
farmbuyer@76 2424 ui = i
farmbuyer@76 2425 break
farmbuyer@76 2426 end
farmbuyer@76 2427 end
farmbuyer@76 2428 end
farmbuyer@76 2429 if ui then
farmbuyer@76 2430 pprint('improv', "found and replacing history entry", hi,
farmbuyer@76 2431 ui, hist.name)
farmbuyer@76 2432 hist.when[winner[2]] = hist.when[exist]
farmbuyer@76 2433 hist.id[winner[2]] = hist.id[exist]
farmbuyer@76 2434 hist.count[winner[2]] = hist.count[exist]
farmbuyer@76 2435 hist.unique[ui] = winner[2]
farmbuyer@76 2436 hist.when[exist] = nil
farmbuyer@76 2437 hist.id[exist] = nil
farmbuyer@76 2438 hist.count[exist] = nil
farmbuyer@76 2439 end
farmbuyer@76 2440 end
farmbuyer@76 2441 end
farmbuyer@76 2442 pprint('improv', "finished with", exist, "into", winner[2])
farmbuyer@76 2443 flib.del(winner)
farmbuyer@76 2444 flib.del(info)
farmbuyer@76 2445 gur.replacements[exist] = nil
farmbuyer@76 2446 end
farmbuyer@76 2447 end
farmbuyer@76 2448
farmbuyer@76 2449 local function new_entry (id, exist, repl, is_local)
farmbuyer@76 2450 pprint('improv', "new_entry", id, exist, repl, is_local)
farmbuyer@76 2451 gur.replacements[exist] = gur.replacements[exist] or flib.new()
farmbuyer@76 2452 tinsert (gur.replacements[exist], flib.new (tonumber(id), repl))
farmbuyer@76 2453 if is_local then
farmbuyer@76 2454 gur.replacements[exist].LOCAL = repl
farmbuyer@76 2455 end
farmbuyer@76 2456 gur.cache:add (exist)
farmbuyer@76 2457 end
farmbuyer@76 2458
farmbuyer@76 2459 local function get_previous_replacement (exist)
farmbuyer@76 2460 local l = gur.replacements[exist]
farmbuyer@76 2461 if l and l.LOCAL then
farmbuyer@76 2462 pprint('improv', "check for previous", exist, "returns valid",
farmbuyer@76 2463 l.LOCAL)
farmbuyer@76 2464 return l.LOCAL
farmbuyer@76 2465 end
farmbuyer@76 2466 pprint('improv', "check for previous", exist, "returns nil")
farmbuyer@76 2467 end
farmbuyer@76 2468
farmbuyer@76 2469 function _setup_unique_replace ()
farmbuyer@76 2470 gur = {}
farmbuyer@76 2471 gur.cache = create_new_cache ('improv', 10, fixup_unique_replacements)
farmbuyer@76 2472 gur.me = tonumber(_G.UnitGUID('player'):sub(-7),16)
farmbuyer@76 2473 gur.replacements = {}
farmbuyer@76 2474 gur.new_entry = new_entry
farmbuyer@76 2475 gur.get_previous_replacement = get_previous_replacement
farmbuyer@76 2476 g_unique_replace = gur
farmbuyer@76 2477 _setup_unique_replace = nil
farmbuyer@76 2478 end
farmbuyer@76 2479 end
farmbuyer@76 2480
farmbuyer@77 2481 do
farmbuyer@77 2482 local clicky
farmbuyer@77 2483 function _unavoidable_collision (err)
farmbuyer@77 2484 -- This should happen so rarely that it's not worth moving into gui.lua
farmbuyer@77 2485 if not StaticPopupDialogs["OUROL_COLLISION"] then
farmbuyer@77 2486 StaticPopupDialogs["OUROL_COLLISION"] = flib.StaticPopup{
farmbuyer@77 2487 button1 = OKAY,
farmbuyer@77 2488 }
farmbuyer@77 2489 clicky = addon.format_hypertext(
farmbuyer@77 2490 [[ SYSTEM FAILURE -- RELEASE RINZLER ]], "|cffff0000",
farmbuyer@77 2491 function() StaticPopup_Show "OUROL_COLLISION" end)
farmbuyer@77 2492 end
farmbuyer@77 2493 StaticPopupDialogs["OUROL_COLLISION"].text = err
farmbuyer@77 2494 _G.PlaySoundFile ([[Interface\AddOns\Ouro_Loot\sfrr.ogg]], "Master")
farmbuyer@77 2495 addon:Print (" ")
farmbuyer@77 2496 addon:Print (" ", clicky)
farmbuyer@77 2497 addon:Print (" ")
farmbuyer@77 2498 end
farmbuyer@77 2499 end
farmbuyer@77 2500 --function DOTEST()
farmbuyer@77 2501 -- local err = unique_collision:format (ERROR_CAPS,
farmbuyer@77 2502 -- "Codpiece of the Grimacing Lunatic",
farmbuyer@77 2503 -- 'n3183021', 'Farmbuyer', '14', '78')
farmbuyer@77 2504 -- _unavoidable_collision (err)
farmbuyer@77 2505 -- pprint('ohfuck', "COLLISION", err)
farmbuyer@77 2506 --end
farmbuyer@77 2507
farmbuyer@1 2508
farmbuyer@1 2509 ------ Saved texts
farmbuyer@1 2510 function addon:check_saved_table(silent_p)
farmbuyer@73 2511 local s = _G.OuroLootSV_saved
farmbuyer@1 2512 if s and (#s > 0) then return s end
farmbuyer@73 2513 _G.OuroLootSV_saved = nil
farmbuyer@1 2514 if not silent_p then self:Print("There are no saved loot texts.") end
farmbuyer@1 2515 end
farmbuyer@1 2516
farmbuyer@1 2517 function addon:save_list()
farmbuyer@1 2518 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 2519 for i,t in ipairs(s) do
farmbuyer@1 2520 self:Print("#%d %s %d entries %s", i, t.date, t.count, t.name)
farmbuyer@1 2521 end
farmbuyer@1 2522 end
farmbuyer@1 2523
farmbuyer@1 2524 function addon:save_saveas(name)
farmbuyer@73 2525 _G.OuroLootSV_saved = _G.OuroLootSV_saved or {}
farmbuyer@73 2526 local SV = _G.OuroLootSV_saved
farmbuyer@16 2527 local n = #SV + 1
farmbuyer@1 2528 local save = {
farmbuyer@1 2529 name = name,
farmbuyer@1 2530 date = makedate(),
farmbuyer@1 2531 count = #g_loot,
farmbuyer@1 2532 }
farmbuyer@10 2533 for text in self:registered_textgen_iter() do
farmbuyer@10 2534 save[text] = g_loot[text]
farmbuyer@10 2535 end
farmbuyer@1 2536 self:Print("Saving current loot texts to #%d '%s'", n, name)
farmbuyer@16 2537 SV[n] = save
farmbuyer@1 2538 return self:save_list()
farmbuyer@1 2539 end
farmbuyer@1 2540
farmbuyer@1 2541 function addon:save_restore(num)
farmbuyer@1 2542 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 2543 if (not num) or (num > #s) then
farmbuyer@1 2544 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 2545 end
farmbuyer@1 2546 local save = s[num]
farmbuyer@1 2547 self:Print("Overwriting current loot data with saved text #%d '%s'", num, save.name)
farmbuyer@1 2548 self:Clear(--[[verbose_p=]]false)
farmbuyer@1 2549 -- Clear will already have displayed the window, and re-selected the first
farmbuyer@1 2550 -- tab. Set these up for when the text tabs are clicked.
farmbuyer@10 2551 for text in self:registered_textgen_iter() do
farmbuyer@10 2552 g_loot[text] = save[text]
farmbuyer@10 2553 end
farmbuyer@1 2554 end
farmbuyer@1 2555
farmbuyer@1 2556 function addon:save_delete(num)
farmbuyer@1 2557 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 2558 if (not num) or (num > #s) then
farmbuyer@1 2559 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 2560 end
farmbuyer@1 2561 self:Print("Deleting saved text #"..num)
farmbuyer@1 2562 tremove(s,num)
farmbuyer@1 2563 return self:save_list()
farmbuyer@1 2564 end
farmbuyer@1 2565
farmbuyer@1 2566
farmbuyer@1 2567 ------ Loot histories
farmbuyer@1 2568 -- history_all = {
farmbuyer@1 2569 -- ["Kilrogg"] = {
farmbuyer@1 2570 -- ["realm"] = "Kilrogg", -- not saved
farmbuyer@1 2571 -- ["st"] = { lib-st display table }, -- not saved
farmbuyer@1 2572 -- ["byname"] = { -- not saved
farmbuyer@1 2573 -- ["OtherPlayer"] = 2,
farmbuyer@1 2574 -- ["Farmbuyer"] = 1,
farmbuyer@1 2575 -- }
farmbuyer@1 2576 -- [1] = {
farmbuyer@1 2577 -- ["name"] = "Farmbuyer",
farmbuyer@73 2578 -- ["person_class"] = "PRIEST", -- may be missing, used in display only
farmbuyer@73 2579 -- -- sorted array:
farmbuyer@73 2580 -- ["unique"] = { most_recent_tag, previous_tag, .... },
farmbuyer@73 2581 -- -- these are indexed by unique tags, and 'count' may be missing:
farmbuyer@73 2582 -- ["when"] = { ["tag"] = "formatted timestamp for displaying loot" },
farmbuyer@73 2583 -- ["id"] = { ["tag"] = 11111 },
farmbuyer@73 2584 -- ["count"] = { ["tag"] = "x3", .... },
farmbuyer@1 2585 -- },
farmbuyer@1 2586 -- [2] = {
farmbuyer@1 2587 -- ["name"] = "OtherPlayer",
farmbuyer@1 2588 -- ......
farmbuyer@1 2589 -- }, ......
farmbuyer@1 2590 -- },
farmbuyer@1 2591 -- ["OtherRealm"] = ......
farmbuyer@1 2592 -- }
farmbuyer@73 2593 --
farmbuyer@73 2594 -- Up through 2.81.4 (specifically through rev 95), an individual player's
farmbuyer@73 2595 -- table looked like this:
farmbuyer@73 2596 -- ["name"] = "Farmbuyer",
farmbuyer@73 2597 -- [1] = { id = nnnnn, when = "formatted timestamp for displaying" } -- most recent loot
farmbuyer@73 2598 -- [2] = { ......., [count = "x3"] } -- previous loot
farmbuyer@73 2599 -- which was much easier to manipulate, but had a ton of memory overhead.
farmbuyer@1 2600 do
farmbuyer@73 2601 -- Sorts a player's history from newest to oldest, according to the
farmbuyer@73 2602 -- formatted timestamp. This is expensive, and destructive for P.unique.
farmbuyer@76 2603 local function compare_timestamps (L, R)
farmbuyer@76 2604 return L > R -- reverse of normal order, newest first
farmbuyer@76 2605 end
farmbuyer@73 2606 local function sort_player (p)
farmbuyer@73 2607 local new_uniques, uniques_bywhen, when_array = {}, {}, {}
farmbuyer@73 2608 for u,tstamp in pairs(p.when) do
farmbuyer@73 2609 uniques_bywhen[tstamp] = u
farmbuyer@73 2610 when_array[#when_array+1] = tstamp
farmbuyer@73 2611 end
farmbuyer@76 2612 _G.table.sort (when_array, compare_timestamps)
farmbuyer@73 2613 for i,tstamp in ipairs(when_array) do
farmbuyer@73 2614 new_uniques[i] = uniques_bywhen[tstamp]
farmbuyer@73 2615 end
farmbuyer@73 2616 p.unique = new_uniques
farmbuyer@73 2617 end
farmbuyer@73 2618
farmbuyer@73 2619 -- Possibly called during login. Cleared when no longer needed.
farmbuyer@73 2620 -- Rewrites a PLAYER table from format 3 to format 4.
farmbuyer@76 2621 function addon:_uplift_history_format (player)
farmbuyer@73 2622 local unique, when, id, count = {}, {}, {}, {}
farmbuyer@73 2623 local name = player.name
farmbuyer@73 2624
farmbuyer@73 2625 for i,h in ipairs(player) do
farmbuyer@73 2626 local U = h.unique
farmbuyer@73 2627 unique[i] = U
farmbuyer@73 2628 when[U] = h.when
farmbuyer@73 2629 id[U] = h.id
farmbuyer@73 2630 count[U] = h.count
farmbuyer@73 2631 end
farmbuyer@73 2632
farmbuyer@73 2633 wipe(player)
farmbuyer@73 2634 player.name = name
farmbuyer@73 2635 player.id, player.when, player.unique, player.count =
farmbuyer@73 2636 id, when, unique, count
farmbuyer@73 2637 end
farmbuyer@76 2638
farmbuyer@73 2639 function addon:_cache_history_uniques()
farmbuyer@73 2640 UpdateAddOnMemoryUsage()
farmbuyer@73 2641 local before = GetAddOnMemoryUsage(nametag)
farmbuyer@73 2642 local trouble
farmbuyer@73 2643 local count = 0
farmbuyer@73 2644 for hi,player in ipairs(self.history) do
farmbuyer@73 2645 for ui,u in ipairs(player.unique) do
farmbuyer@73 2646 g_uniques[u] = { history = hi, history_may = ui }
farmbuyer@73 2647 count = count + 1
farmbuyer@73 2648 end
farmbuyer@73 2649 end
farmbuyer@73 2650 for i,e in self:filtered_loot_iter('loot') do
farmbuyer@73 2651 if e.unique and e.unique ~= "" then
farmbuyer@73 2652 local hmmm = _G.rawget(g_uniques,e.unique)
farmbuyer@73 2653 if hmmm then
farmbuyer@73 2654 hmmm.loot = i --;print("Active loot", i, "found with tag", e.unique)
farmbuyer@73 2655 elseif e.disposition == 'shard' or e.disposition == 'gvault' then
farmbuyer@73 2656 g_uniques[e.unique] = { loot = i, history = g_uniques.NOTFOUND }
farmbuyer@73 2657 count = count + 1
farmbuyer@73 2658 --print("Active loot", i, "INSERTED with tag", e.unique, "as", e.disposition)
farmbuyer@73 2659 else
farmbuyer@76 2660 hmmm = "active data not found in history ("..i.."/"..tostring(e.unique)
farmbuyer@76 2661 ..") in precache loop! trying to fixup for this session"
farmbuyer@76 2662 pprint(hmmm) -- more?
farmbuyer@73 2663 -- try to simply fix up errors as we go
farmbuyer@73 2664 g_uniques[e.unique] = { loot = i, history = g_uniques.NOTFOUND }
farmbuyer@76 2665 --trouble = true
farmbuyer@73 2666 end
farmbuyer@73 2667 else
farmbuyer@73 2668 trouble = true
farmbuyer@73 2669 pprint('loot', "ERROR precache loop found bad unique tag!",
farmbuyer@73 2670 i, "tag", tostring(e.unique), "from?", tostring(e.bcast_from))
farmbuyer@73 2671 end
farmbuyer@73 2672 end
farmbuyer@73 2673 UpdateAddOnMemoryUsage()
farmbuyer@73 2674 local after = GetAddOnMemoryUsage(nametag)
farmbuyer@73 2675 self:Print("Pre-scanning history for faster loot handling on %s used %.2f MB of memory across %d entries.",
farmbuyer@73 2676 self.history.realm, (after-before)/1024, count)
farmbuyer@73 2677 if trouble then
farmbuyer@73 2678 self:Print("Note that there were inconsistencies in the data;",
farmbuyer@73 2679 "you should consider submitting a bug report (including your",
farmbuyer@73 2680 "SavedVariables file), and regenerating or preening this",
farmbuyer@73 2681 "realm's loot history.")
farmbuyer@73 2682 end
farmbuyer@73 2683 g_uniques:SETMODE('probe')
farmbuyer@73 2684 self._cache_history_uniques = nil
farmbuyer@73 2685 end
farmbuyer@6 2686
farmbuyer@4 2687 -- Builds the map of names to array indices, using passed table or
farmbuyer@4 2688 -- self.history, and stores the result into its 'byname' field. Also
farmbuyer@4 2689 -- called from the GUI code at least once.
farmbuyer@1 2690 function addon:_build_history_names (opt_hist)
farmbuyer@1 2691 local hist = opt_hist or self.history
farmbuyer@1 2692 local m = {}
farmbuyer@1 2693 for i = 1, #hist do
farmbuyer@1 2694 m[hist[i].name] = i
farmbuyer@1 2695 end
farmbuyer@73 2696 -- why yes, I *did* spend many years as a YP/NIS admin, how did you know?
farmbuyer@1 2697 hist.byname = m
farmbuyer@1 2698 end
farmbuyer@1 2699
farmbuyer@1 2700 -- Prepares and returns table to be used as self.history.
farmbuyer@1 2701 function addon:_prep_new_history_category (prev_table, realmname)
farmbuyer@1 2702 local t = prev_table or {
farmbuyer@1 2703 --kind = 'realm',
farmbuyer@6 2704 --realm = realmname,
farmbuyer@1 2705 }
farmbuyer@6 2706 t.realm = realmname
farmbuyer@1 2707
farmbuyer@1 2708 --[[
farmbuyer@1 2709 t.cols = setmetatable({
farmbuyer@1 2710 { value = realmname },
farmbuyer@1 2711 }, self.time_column1_used_mt)
farmbuyer@1 2712 ]]
farmbuyer@1 2713
farmbuyer@1 2714 if not t.byname then
farmbuyer@1 2715 self:_build_history_names (t)
farmbuyer@1 2716 end
farmbuyer@1 2717
farmbuyer@1 2718 return t
farmbuyer@1 2719 end
farmbuyer@1 2720
farmbuyer@4 2721 -- Maps a name to an array index, creating new tables if needed. Returns
farmbuyer@6 2722 -- the index and the table at that index.
farmbuyer@4 2723 function addon:get_loot_history (name)
farmbuyer@4 2724 local i
farmbuyer@4 2725 i = self.history.byname[name]
farmbuyer@4 2726 if not i then
farmbuyer@4 2727 i = #self.history + 1
farmbuyer@73 2728 self.history[i] = { name=name, id={}, when={}, unique={}, count={} }
farmbuyer@4 2729 self.history.byname[name] = i
farmbuyer@4 2730 end
farmbuyer@6 2731 return i, self.history[i]
farmbuyer@4 2732 end
farmbuyer@4 2733
farmbuyer@73 2734 -- Prepends data from the loot entry at LOOTINDEX to be the new most
farmbuyer@73 2735 -- recent history entry for that player.
farmbuyer@1 2736 function addon:_addHistoryEntry (lootindex)
farmbuyer@1 2737 local e = g_loot[lootindex]
farmbuyer@6 2738 if e.kind ~= 'loot' then return end
farmbuyer@6 2739
farmbuyer@6 2740 local i,h = self:get_loot_history(e.person)
farmbuyer@73 2741 local when = self:format_timestamp (g_today, e)
farmbuyer@73 2742
farmbuyer@25 2743 -- If any of these change, update the end of history_handle_disposition.
farmbuyer@71 2744 if (not e.unique) or (#e.unique==0) then
farmbuyer@73 2745 e.unique = e.id .. ' ' .. when
farmbuyer@71 2746 end
farmbuyer@73 2747 local U = e.unique
farmbuyer@73 2748 tinsert (h.unique, 1, U)
farmbuyer@73 2749 h.when[U] = when
farmbuyer@73 2750 h.id[U] = e.id
farmbuyer@73 2751 h.count[U] = e.count
farmbuyer@73 2752
farmbuyer@73 2753 g_uniques[U] = { loot = lootindex, history = i }
farmbuyer@6 2754 end
farmbuyer@6 2755
farmbuyer@24 2756 -- Create new history table based on current loot.
farmbuyer@6 2757 function addon:rewrite_history (realmname)
farmbuyer@6 2758 local r = assert(realmname)
farmbuyer@6 2759 self.history_all[r] = self:_prep_new_history_category (nil, r)
farmbuyer@6 2760 self.history = self.history_all[r]
farmbuyer@73 2761 g_uniques:RESET()
farmbuyer@6 2762
farmbuyer@6 2763 local g_today_real = g_today
farmbuyer@6 2764 for i,e in ipairs(g_loot) do
farmbuyer@6 2765 if e.kind == 'time' then
farmbuyer@6 2766 g_today = e
farmbuyer@6 2767 elseif e.kind == 'loot' then
farmbuyer@6 2768 self:_addHistoryEntry(i)
farmbuyer@6 2769 end
farmbuyer@6 2770 end
farmbuyer@6 2771 g_today = g_today_real
farmbuyer@6 2772 self.hist_clean = nil
farmbuyer@6 2773
farmbuyer@6 2774 -- safety measure: resort players' tables based on formatted timestamp
farmbuyer@6 2775 for i,h in ipairs(self.history) do
farmbuyer@73 2776 sort_player(h)
farmbuyer@6 2777 end
farmbuyer@6 2778 end
farmbuyer@6 2779
farmbuyer@76 2780 -- Clears all but the most recent HOWMANY (optional, default 1) entries
farmbuyer@76 2781 -- for each player on REALMNAME.
farmbuyer@76 2782 -- This function's name is the legacy of the orignal fsck(8) "-p" option,
farmbuyer@76 2783 -- which has a similar feel.
farmbuyer@76 2784 function addon:preen_history (realmname, howmany)
farmbuyer@6 2785 local r = assert(realmname)
farmbuyer@76 2786 howmany = tonumber(howmany) or 1
farmbuyer@76 2787 if type(self.history_all[r]) ~= 'table' then
farmbuyer@76 2788 return
farmbuyer@76 2789 end
farmbuyer@73 2790 g_uniques:RESET()
farmbuyer@76 2791 for i,h in ipairs(self.history_all[r]) do
farmbuyer@73 2792 -- This is going to do horrible things to memory. The subtables
farmbuyer@73 2793 -- after this step would be large and sparse, with no good way
farmbuyer@73 2794 -- of shrinking the allocation...
farmbuyer@73 2795 sort_player(h)
farmbuyer@73 2796 -- ...so it's better in the long run to discard them.
farmbuyer@76 2797 local new_unique, new_id, new_when, new_count = {}, {}, {}, {}
farmbuyer@76 2798 for ui = 1, howmany do
farmbuyer@76 2799 local U = h.unique[ui]
farmbuyer@76 2800 if not U then break end
farmbuyer@76 2801 new_unique[ui] = U
farmbuyer@76 2802 new_id[U] = h.id[U]
farmbuyer@76 2803 new_when[U] = h.when[U]
farmbuyer@76 2804 new_count[U] = h.count[U]
farmbuyer@76 2805 end
farmbuyer@76 2806 h.unique, h.id, h.when, h.count =
farmbuyer@76 2807 new_unique, new_id, new_when, new_count
farmbuyer@6 2808 end
farmbuyer@1 2809 end
farmbuyer@24 2810
farmbuyer@73 2811 -- Given a unique tag OR an entry in a g_loot table, looks up the
farmbuyer@73 2812 -- corresponding history entry. Returns the player's index and history
farmbuyer@73 2813 -- table (as in get_loot_history) and the index into that table of the
farmbuyer@73 2814 -- loot entry. On failure, returns nil and an error message ready to be
farmbuyer@73 2815 -- formatted with the loot's name/itemlink.
farmbuyer@73 2816 function _history_by_loot_id (needle, operation_text)
farmbuyer@73 2817 local errtxt
farmbuyer@73 2818 if type(needle) == 'string' then
farmbuyer@73 2819 -- unique tag
farmbuyer@73 2820 elseif type(needle) == 'table' then
farmbuyer@73 2821 if needle.kind ~= 'loot' then
farmbuyer@73 2822 error("trying to "..operation_text.." something that isn't loot")
farmbuyer@73 2823 end
farmbuyer@73 2824 needle = needle.unique
farmbuyer@73 2825 if not needle then
farmbuyer@73 2826 return nil, --[[errtxt=]]"Entry for %s is missing a history tag!"
farmbuyer@73 2827 end
farmbuyer@73 2828 else
farmbuyer@73 2829 error("'"..tostring(needle).."' is neither unique string nor loot entry!")
farmbuyer@25 2830 end
farmbuyer@24 2831
farmbuyer@73 2832 local player_i, player_h
farmbuyer@73 2833 local cache = g_uniques[needle]
farmbuyer@24 2834
farmbuyer@73 2835 if cache.history == g_uniques.NOTFOUND then
farmbuyer@73 2836 -- 1) loot an item, 2) clear old history, 3) reassign from current loot
farmbuyer@73 2837 -- Bah. Anybody that tricky is already recoding the tables directly anyhow.
farmbuyer@73 2838 errtxt = "There is no record of %s ever having been assigned!"
farmbuyer@24 2839 else
farmbuyer@73 2840 player_i = cache.history
farmbuyer@73 2841 player_h = addon.history[player_i]
farmbuyer@73 2842 if cache.history_may
farmbuyer@73 2843 and needle == player_h.unique[cache.history_may]
farmbuyer@73 2844 then
farmbuyer@73 2845 return player_i, player_h, cache.history_may
farmbuyer@73 2846 end
farmbuyer@73 2847 for i,u in ipairs(player_h.unique) do
farmbuyer@73 2848 if needle == u then
farmbuyer@73 2849 cache.history_may = i -- might help, might not
farmbuyer@73 2850 return player_i, player_h, i
farmbuyer@24 2851 end
farmbuyer@24 2852 end
farmbuyer@24 2853 end
farmbuyer@24 2854
farmbuyer@73 2855 if not errtxt then
farmbuyer@73 2856 -- The cache finder got a hit, but now it's gone? WTF?
farmbuyer@73 2857 errtxt = "ZOMG! %s was in history but now is gone. Possibly your history tables have been corrupted and should be recreated. This is likely a bug. Tell Farmbuyer what steps you took to cause this."
farmbuyer@24 2858 end
farmbuyer@73 2859 return nil, errtxt
farmbuyer@25 2860 end
farmbuyer@24 2861
farmbuyer@25 2862 function addon:reassign_loot (index, to_name)
farmbuyer@25 2863 assert(type(to_name)=='string' and to_name:len()>0)
farmbuyer@25 2864 local e = g_loot[index]
farmbuyer@73 2865 local from_i, from_h, hist_i = _history_by_loot_id (e, "reassign")
farmbuyer@25 2866 local from_name = e.person
farmbuyer@25 2867 local to_i,to_h = self:get_loot_history(to_name)
farmbuyer@25 2868
farmbuyer@73 2869 if not from_i then -- from_h here is the formatted error text
farmbuyer@25 2870 self:Print(from_h .. " Loot will be reassigned, but history will NOT be updated.", e.itemlink)
farmbuyer@25 2871 else
farmbuyer@73 2872 local U = tremove (from_h.unique, hist_i)
farmbuyer@73 2873 -- The loot master giveth...
farmbuyer@73 2874 to_h.unique[#to_h.unique+1] = U
farmbuyer@73 2875 to_h.when[U] = from_h.when[U]
farmbuyer@73 2876 to_h.id[U] = from_h.id[U]
farmbuyer@73 2877 to_h.count[U] = from_h.count[U]
farmbuyer@73 2878 sort_player(to_h)
farmbuyer@73 2879 -- ...and the loot master taketh away.
farmbuyer@73 2880 from_h.when[U] = nil
farmbuyer@73 2881 from_h.id[U] = nil
farmbuyer@73 2882 from_h.count[U] = nil
farmbuyer@73 2883 -- Blessed be the lookup cache of the loot master.
farmbuyer@73 2884 g_uniques[U] = { loot = index, history = to_i }
farmbuyer@25 2885 end
farmbuyer@25 2886 e.person = to_name
farmbuyer@73 2887 e.person_class = select(2,_G.UnitClass(to_name))
farmbuyer@25 2888 self.hist_clean = nil
farmbuyer@25 2889
farmbuyer@25 2890 self:Print("Reassigned entry %d/%s from '%s' to '%s'.", index, e.itemlink, from_name, to_name)
farmbuyer@25 2891 end
farmbuyer@25 2892
farmbuyer@36 2893 -- Similar to _addHistoryEntry. The second arg may be a loot entry
farmbuyer@36 2894 -- (which used to be at LOOTINDEX), or nil (and the loot entry will
farmbuyer@36 2895 -- be pulled from LOOTINDEX instead).
farmbuyer@36 2896 function addon:_delHistoryEntry (lootindex, opt_e)
farmbuyer@36 2897 local e = opt_e or g_loot[lootindex]
farmbuyer@36 2898 if e.kind ~= 'loot' then return end
farmbuyer@36 2899
farmbuyer@73 2900 local from_i, from_h, hist_i = _history_by_loot_id (e, "delete")
farmbuyer@36 2901 if not from_i then
farmbuyer@36 2902 -- from_h is the formatted error text
farmbuyer@36 2903 self:Print(from_h .. " Loot will be deleted, but history will NOT be updated.", e.itemlink)
farmbuyer@36 2904 return
farmbuyer@36 2905 end
farmbuyer@36 2906
farmbuyer@73 2907 local hist_u = tremove (from_h.unique, hist_i)
farmbuyer@73 2908 from_h.when[hist_u] = nil
farmbuyer@73 2909 from_h.id[hist_u] = nil
farmbuyer@73 2910 from_h.count[hist_u] = nil
farmbuyer@73 2911 g_uniques[hist_u] = nil
farmbuyer@36 2912 self.hist_clean = nil
farmbuyer@36 2913
farmbuyer@36 2914 self:Print("Removed history entry %d/%s from '%s'.", lootindex, e.itemlink, e.person)
farmbuyer@36 2915 end
farmbuyer@36 2916
farmbuyer@25 2917 -- Any extra work for the "Mark as <x>" dropdown actions. The
farmbuyer@25 2918 -- corresponding <x> will already have been assigned in the loot entry.
farmbuyer@73 2919 local deleted_cache = {}
farmbuyer@25 2920 function addon:history_handle_disposition (index, olddisp)
farmbuyer@25 2921 local e = g_loot[index]
farmbuyer@25 2922 -- Standard disposition has a nil entry, but that's tedious in debug
farmbuyer@25 2923 -- output, so force to a string instead.
farmbuyer@25 2924 olddisp = olddisp or 'normal'
farmbuyer@25 2925 local newdisp = e.disposition or 'normal'
farmbuyer@25 2926 -- Ignore misclicks and the like
farmbuyer@25 2927 if olddisp == newdisp then return end
farmbuyer@25 2928
farmbuyer@25 2929 local name = e.person
farmbuyer@25 2930
farmbuyer@25 2931 if (newdisp == 'shard' or newdisp == 'gvault') then
farmbuyer@73 2932 local name_i, name_h, hist_i = _history_by_loot_id (e, "mark")
farmbuyer@73 2933 -- remove history entry if it exists
farmbuyer@25 2934 if hist_i then
farmbuyer@73 2935 local c = flib.new()
farmbuyer@73 2936 local hist_u = tremove (name_h.unique, hist_i)
farmbuyer@73 2937 c.when = name_h.when[hist_u]
farmbuyer@73 2938 c.id = name_h.id[hist_u]
farmbuyer@73 2939 c.count = name_h.count[hist_u]
farmbuyer@73 2940 deleted_cache[hist_u] = c
farmbuyer@73 2941 name_h.when[hist_u] = nil
farmbuyer@73 2942 name_h.id[hist_u] = nil
farmbuyer@73 2943 name_h.count[hist_u] = nil
farmbuyer@25 2944 self.hist_clean = nil
farmbuyer@25 2945 elseif (olddisp == 'shard' or olddisp == 'gvault') then
farmbuyer@25 2946 -- Sharding a vault item, or giving the auto-sharder something to bank,
farmbuyer@25 2947 -- etc, wouldn't necessarily have had a history entry to begin with.
farmbuyer@73 2948 -- So this isn't treated as an error.
farmbuyer@25 2949 else
farmbuyer@25 2950 self:Print(name_h .. " Loot has been marked, but history will NOT be updated.", e.itemlink)
farmbuyer@25 2951 end
farmbuyer@25 2952 return
farmbuyer@25 2953 end
farmbuyer@25 2954
farmbuyer@25 2955 if (olddisp == 'shard' or olddisp == 'gvault')
farmbuyer@25 2956 and (newdisp == 'normal' or newdisp == 'offspec')
farmbuyer@25 2957 then
farmbuyer@25 2958 local name_i, name_h = self:get_loot_history(name)
farmbuyer@25 2959
farmbuyer@25 2960 -- Must create a new history entry. Could call '_addHistoryEntry(index)'
farmbuyer@25 2961 -- but that would duplicate a lot of effort. To start with, check the
farmbuyer@25 2962 -- cache of stuff we've already deleted; if it's not there then just do
farmbuyer@25 2963 -- the same steps as _addHistoryEntry.
farmbuyer@73 2964 -- FIXME The deleted cache isn't nearly as useful now with the new data structures.
farmbuyer@73 2965 local when
farmbuyer@73 2966 if (not e.unique) or (#e.unique==0) then
farmbuyer@73 2967 when = g_today and self:format_timestamp (g_today, e) or date("%Y/%m/%d %H:%M",e.stamp)
farmbuyer@73 2968 e.unique = e.id .. ' ' .. when
farmbuyer@25 2969 end
farmbuyer@73 2970 local U = e.unique
farmbuyer@73 2971 local c = deleted_cache[U]
farmbuyer@73 2972 deleted_cache[U] = nil
farmbuyer@73 2973 name_h.unique[#name_h.unique+1] = U
farmbuyer@73 2974 name_h.when[U] = c and c.when or when or date("%Y/%m/%d %H:%M",e.stamp)
farmbuyer@73 2975 name_h.id[U] = e.id -- c.id
farmbuyer@73 2976 name_h.count[U] = c and c.count or e.count
farmbuyer@73 2977 sort_player(name_h)
farmbuyer@73 2978 g_uniques[U] = { loot = index, history = name_i }
farmbuyer@25 2979 self.hist_clean = nil
farmbuyer@73 2980
farmbuyer@73 2981 if c then flib.del(c) end
farmbuyer@73 2982
farmbuyer@25 2983 return
farmbuyer@25 2984 end
farmbuyer@24 2985 end
farmbuyer@73 2986
farmbuyer@73 2987 -- This is not entirely "history" but not completely anything else either.
farmbuyer@73 2988 -- Handles the primary "Mark as <x>" action. Arguments depend on who's
farmbuyer@73 2989 -- calling it:
farmbuyer@73 2990 -- "local", row_index, new_disposition
farmbuyer@73 2991 -- "remote", sender, unique_id, item_id, old_disposition, new_disposition
farmbuyer@73 2992 -- In the local case, must also broadcast a trigger. In the remote case,
farmbuyer@73 2993 -- must figure out the corresponding loot entry (if it exists). In both
farmbuyer@73 2994 -- cases, must update history appropriately. Returns nil if anything odd
farmbuyer@73 2995 -- happens (not necessarily an error!); returns the affected loot index
farmbuyer@73 2996 -- on success.
farmbuyer@73 2997 function addon:loot_mark_disposition (how, ...)
farmbuyer@73 2998 -- This must all be filled out in all cases:
farmbuyer@73 2999 local e, index, olddisp, newdisp, unique, id
farmbuyer@73 3000 -- Only set in remote case:
farmbuyer@73 3001 local sender
farmbuyer@73 3002
farmbuyer@73 3003 if how == "local" then
farmbuyer@73 3004 index, newdisp = ...
farmbuyer@73 3005 index = assert(tonumber(index))
farmbuyer@73 3006 e = g_loot[index]
farmbuyer@73 3007 id = e.id
farmbuyer@73 3008 unique = e.unique -- can potentially still be nil at this step
farmbuyer@73 3009 olddisp = e.disposition
farmbuyer@73 3010
farmbuyer@73 3011 elseif how == "remote" then
farmbuyer@73 3012 sender, unique, id, olddisp, newdisp = ...
farmbuyer@73 3013 local cache = g_uniques[unique]
farmbuyer@73 3014 if cache.loot then
farmbuyer@73 3015 index = tonumber(cache.loot)
farmbuyer@73 3016 e = g_loot[index]
farmbuyer@73 3017 end
farmbuyer@73 3018
farmbuyer@73 3019 else
farmbuyer@76 3020 return -- silently ignore future cases from future clients
farmbuyer@73 3021 end
farmbuyer@73 3022
farmbuyer@73 3023 if self.debug.loot then
farmbuyer@73 3024 local m = ("Re-mark index %d(pre-unique %s) with id %d from '%s' to '%s'."):
farmbuyer@73 3025 format(index, unique, id, tostring(olddisp), tostring(newdisp))
farmbuyer@73 3026 self.dprint('loot', m)
farmbuyer@73 3027 if sender == my_name then
farmbuyer@76 3028 self.dprint('loot',"(Returning early from debug mode's double self-mark.)")
farmbuyer@73 3029 return index
farmbuyer@73 3030 end
farmbuyer@73 3031 end
farmbuyer@73 3032
farmbuyer@73 3033 if not e then
farmbuyer@73 3034 -- say something?
farmbuyer@73 3035 return
farmbuyer@73 3036 end
farmbuyer@73 3037
farmbuyer@73 3038 e.disposition = newdisp
farmbuyer@73 3039 e.bcast_from = nil -- I actually don't remember now why this gets cleared...
farmbuyer@73 3040 e.extratext = nil
farmbuyer@73 3041 self:history_handle_disposition (index, olddisp)
farmbuyer@73 3042 -- A unique tag has been set by this point.
farmbuyer@73 3043 if how == "local" then
farmbuyer@73 3044 unique = assert(e.unique)
farmbuyer@73 3045 self:vbroadcast('mark', unique, id, olddisp, newdisp)
farmbuyer@73 3046 end
farmbuyer@73 3047 return index
farmbuyer@73 3048 end
farmbuyer@1 3049 end
farmbuyer@1 3050
farmbuyer@1 3051
farmbuyer@1 3052 ------ Player communication
farmbuyer@1 3053 do
farmbuyer@73 3054 local select, tconcat, strsplit, unpack = select, table.concat, strsplit, unpack
farmbuyer@56 3055 --[[ old way: repeated string concatenations, BAD
farmbuyer@76 3056 new way: new table on every broadcast, BAD
farmbuyer@56 3057 local msg = ...
farmbuyer@56 3058 for i = 2, select('#',...) do
farmbuyer@56 3059 msg = msg .. '\a' .. (select(i,...) or "")
farmbuyer@56 3060 end
farmbuyer@56 3061 return msg
farmbuyer@56 3062 ]]
farmbuyer@56 3063 local function assemble(t,...)
farmbuyer@73 3064 local n = select('#',...)
farmbuyer@73 3065 if n > 0 then
farmbuyer@56 3066 local msg = {t,...}
farmbuyer@56 3067 -- tconcat requires strings, but T is known to be one already
farmbuyer@73 3068 -- can't use #msg since there might be holes
farmbuyer@73 3069 for i = 2, n+1 do
farmbuyer@71 3070 msg[i] = tostring(msg[i] or "")
farmbuyer@56 3071 end
farmbuyer@56 3072 return tconcat (msg, '\a')
farmbuyer@56 3073 end
farmbuyer@56 3074 return t
farmbuyer@56 3075 end
farmbuyer@56 3076
farmbuyer@56 3077 -- broadcast('tag', <stuff>)
farmbuyer@56 3078 -- vbroadcast('tag', <stuff>)
farmbuyer@56 3079 function addon:vbroadcast(tag,...)
farmbuyer@56 3080 return self:broadcast(self.commrev..tag,...)
farmbuyer@56 3081 end
farmbuyer@56 3082 function addon:broadcast(tag,...)
farmbuyer@56 3083 local msg = assemble(tag,...)
farmbuyer@56 3084 self.dprint('comm', "<broadcast>:", msg)
farmbuyer@56 3085 -- the "GUILD" here is just so that we can also pick up on it
farmbuyer@56 3086 self:SendCommMessage(self.ident, msg, self.debug.comm and "GUILD" or "RAID")
farmbuyer@56 3087 end
farmbuyer@56 3088 -- whispercast(<to>, 'tag', <stuff>)
farmbuyer@56 3089 function addon:whispercast(to,...)
farmbuyer@56 3090 local msg = assemble(...)
farmbuyer@56 3091 self.dprint('comm', "<whispercast>@", to, ":", msg)
farmbuyer@56 3092 self:SendCommMessage(self.identTg, msg, "WHISPER", to)
farmbuyer@56 3093 end
farmbuyer@56 3094
farmbuyer@1 3095 local function adduser (name, status, active)
farmbuyer@1 3096 if status then addon.sender_list.names[name] = status end
farmbuyer@1 3097 if active then addon.sender_list.active[name] = active end
farmbuyer@1 3098 end
farmbuyer@1 3099
farmbuyer@1 3100 -- Incoming handler functions. All take the sender name and the incoming
farmbuyer@1 3101 -- tag as the first two arguments. All of these are active even when the
farmbuyer@1 3102 -- player is not tracking loot, so test for that when appropriate.
farmbuyer@1 3103 local OCR_funcs = {}
farmbuyer@1 3104
farmbuyer@1 3105 OCR_funcs.ping = function (sender)
farmbuyer@1 3106 pprint('comm', "incoming ping from", sender)
farmbuyer@1 3107 addon:whispercast (sender, 'pong', addon.revision,
farmbuyer@1 3108 addon.enabled and "tracking" or (addon.rebroadcast and "broadcasting" or "disabled"))
farmbuyer@1 3109 end
farmbuyer@1 3110 OCR_funcs.pong = function (sender, _, rev, status)
farmbuyer@17 3111 local s = ("|cff00ff00%s|r %s is |cff00ffff%s|r"):format(sender,rev,status)
farmbuyer@1 3112 addon:Print("Echo: ", s)
farmbuyer@1 3113 adduser (sender, s, status=="tracking" or status=="broadcasting" or nil)
farmbuyer@1 3114 end
farmbuyer@27 3115 OCR_funcs.revcheck = function (sender, _, revlarge)
farmbuyer@27 3116 addon.dprint('comm', "revcheck, sender", sender)
farmbuyer@27 3117 addon:_check_revision (revlarge)
farmbuyer@27 3118 end
farmbuyer@1 3119
farmbuyer@76 3120 OCR_funcs['17improv'] = function (sender, _, senderid, existing, replace)
farmbuyer@76 3121 addon.dprint('comm', "DOTimprov/17, sender", sender, "id", senderid,
farmbuyer@76 3122 "existing", existing, "replace", replace)
farmbuyer@76 3123 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 3124 g_unique_replace.new_entry (senderid, existing, replace)
farmbuyer@76 3125 end
farmbuyer@76 3126
farmbuyer@73 3127 OCR_funcs['17mark'] = function (sender, _, unique, item, old, new)
farmbuyer@73 3128 addon.dprint('comm', "DOTmark/17, sender", sender, "unique", unique,
farmbuyer@73 3129 "item", item, "from old", old, "to new", new)
farmbuyer@73 3130 local index = addon:loot_mark_disposition ("remote", sender, unique, item, old, new)
farmbuyer@73 3131 --if not addon.enabled then return end -- hmm
farmbuyer@73 3132 if index and opts.chatty_on_remote_changes then
farmbuyer@73 3133 _notify_about_remote (sender, index, --[[from_whom=]]nil, old)
farmbuyer@73 3134 end
farmbuyer@73 3135 end
farmbuyer@73 3136
farmbuyer@71 3137 OCR_funcs['16loot'] = function (sender, _, recip, item, count, extratext)
farmbuyer@71 3138 addon.dprint('comm', "DOTloot/16, sender", sender, "recip", recip, "item", item, "count", count)
farmbuyer@1 3139 if not addon.enabled then return end
farmbuyer@1 3140 adduser (sender, nil, true)
farmbuyer@73 3141 -- Empty unique string will pass through all of the loot handling,
farmbuyer@73 3142 -- and then be rewritten by the history routine (into older string
farmbuyer@73 3143 -- of ID+date).
farmbuyer@73 3144 g_seeing_oldsigs = g_seeing_oldsigs or {}
farmbuyer@73 3145 g_seeing_oldsigs[sender] = true
farmbuyer@71 3146 addon:CHAT_MSG_LOOT ("broadcast", recip, --[[unique=]]"", item, count, sender, extratext)
farmbuyer@1 3147 end
farmbuyer@71 3148 OCR_funcs.loot = OCR_funcs['16loot'] -- old unversioned stuff goes to 16
farmbuyer@71 3149 OCR_funcs['17loot'] = function (sender, _, recip, unique, item, count, extratext)
farmbuyer@73 3150 addon.dprint('comm', "DOTloot/17, sender", sender, "recip", recip,
farmbuyer@73 3151 "unique", unique, "item", item, "count", count, "extratext", extratext)
farmbuyer@71 3152 if not addon.enabled then return end
farmbuyer@71 3153 adduser (sender, nil, true)
farmbuyer@71 3154 addon:CHAT_MSG_LOOT ("broadcast", recip, unique, item, count, sender, extratext)
farmbuyer@71 3155 end
farmbuyer@1 3156
farmbuyer@1 3157 OCR_funcs.boss = function (sender, _, reason, bossname, instancetag)
farmbuyer@56 3158 addon.dprint('comm', "DOTboss, sender", sender, "reason", reason,
farmbuyer@56 3159 "name", bossname, "it", instancetag)
farmbuyer@1 3160 if not addon.enabled then return end
farmbuyer@1 3161 adduser (sender, nil, true)
farmbuyer@56 3162 addon:on_boss_broadcast (reason, bossname, instancetag, --[[maxsize=]]0)
farmbuyer@56 3163 end
farmbuyer@56 3164 OCR_funcs['16boss'] = function (sender, _, reason, bossname, instancetag, maxsize)
farmbuyer@73 3165 addon.dprint('comm', "DOTboss/16,17, sender", sender, "reason", reason,
farmbuyer@56 3166 "name", bossname, "it", instancetag, "size", maxsize)
farmbuyer@56 3167 if not addon.enabled then return end
farmbuyer@56 3168 adduser (sender, nil, true)
farmbuyer@56 3169 addon:on_boss_broadcast (reason, bossname, instancetag, maxsize)
farmbuyer@1 3170 end
farmbuyer@71 3171 OCR_funcs['17boss'] = OCR_funcs['16boss']
farmbuyer@1 3172
farmbuyer@76 3173 local bcast_on = addon.format_hypertext ([[the red pill]], '|cffff4040',
farmbuyer@76 3174 function()
farmbuyer@76 3175 if not addon.rebroadcast then
farmbuyer@76 3176 addon:Activate(nil,true)
farmbuyer@76 3177 end
farmbuyer@76 3178 addon:broadcast('bcast_responder')
farmbuyer@76 3179 end)
farmbuyer@76 3180 local waferthin = addon.format_hypertext ([[the blue pill]], '|cff0070dd',
farmbuyer@76 3181 function()
farmbuyer@76 3182 g_wafer_thin = true -- mint? it's wafer thin!
farmbuyer@76 3183 addon:broadcast('bcast_denied') -- fuck off, I'm full
farmbuyer@76 3184 end)
farmbuyer@1 3185 OCR_funcs.bcast_req = function (sender)
farmbuyer@1 3186 if addon.debug.comm or ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 3187 then
farmbuyer@38 3188 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.",
farmbuyer@1 3189 sender,
farmbuyer@76 3190 tostring(bcast_on),
farmbuyer@76 3191 tostring(waferthin))
farmbuyer@1 3192 end
farmbuyer@18 3193 addon.popped = true
farmbuyer@1 3194 end
farmbuyer@1 3195
farmbuyer@1 3196 OCR_funcs.bcast_responder = function (sender)
farmbuyer@1 3197 if addon.debug.comm or addon.requesting or
farmbuyer@1 3198 ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 3199 then
farmbuyer@1 3200 addon:Print(sender, "has answered the call and is now broadcasting loot.")
farmbuyer@1 3201 end
farmbuyer@1 3202 end
farmbuyer@1 3203 -- remove this tag once it's all tested
farmbuyer@1 3204 OCR_funcs.bcast_denied = function (sender)
farmbuyer@1 3205 if addon.requesting then addon:Print(sender, "declines futher broadcast requests.") end
farmbuyer@1 3206 end
farmbuyer@1 3207
farmbuyer@73 3208 -- Incoming message disassembler and dispatcher. The static weak table
farmbuyer@73 3209 -- is not my favorite approach to handling ellipses, but it lets me loop
farmbuyer@73 3210 -- through potential nils easily without creating a ton of garbage.
farmbuyer@73 3211 local OCR_data = setmetatable({}, {__mode='v'})
farmbuyer@1 3212 local function dotdotdot (sender, tag, ...)
farmbuyer@1 3213 local f = OCR_funcs[tag]
farmbuyer@73 3214 if f then
farmbuyer@73 3215 --wipe(OCR_data) costs more than its worth here
farmbuyer@73 3216 local n = select('#',...)
farmbuyer@73 3217 for i = 1, n do
farmbuyer@73 3218 local d = select(i,...)
farmbuyer@73 3219 OCR_data[i] = (d ~= "") and d or nil
farmbuyer@73 3220 end
farmbuyer@73 3221 addon.dprint('comm', ":... processing", tag, "from", sender, "with arg count", n)
farmbuyer@73 3222 return f(sender,tag,unpack(OCR_data,1,n))
farmbuyer@73 3223 end
farmbuyer@73 3224 addon.dprint('comm', "unknown comm message", tag, "from", sender)
farmbuyer@1 3225 end
farmbuyer@73 3226 -- Recent message cache (this can be accessed via advanced options panel)
farmbuyer@1 3227 addon.recent_messages = create_new_cache ('comm', comm_cleanup_ttl)
farmbuyer@1 3228
farmbuyer@1 3229 function addon:OnCommReceived (prefix, msg, distribution, sender)
farmbuyer@1 3230 if prefix ~= self.ident then return end
farmbuyer@1 3231 if not self.debug.comm then
farmbuyer@1 3232 if distribution ~= "RAID" and distribution ~= "WHISPER" then return end
farmbuyer@1 3233 if sender == my_name then return end
farmbuyer@1 3234 end
farmbuyer@1 3235 self.dprint('comm', ":OCR from", sender, "message is", msg)
farmbuyer@1 3236
farmbuyer@1 3237 if self.recent_messages:test(msg) then
farmbuyer@40 3238 self.dprint('cache', "OCR message <",msg,"> already in cache, skipping")
farmbuyer@40 3239 return
farmbuyer@1 3240 end
farmbuyer@1 3241 self.recent_messages:add(msg)
farmbuyer@1 3242
farmbuyer@1 3243 -- Nothing is actually returned, just (ab)using tail calls.
farmbuyer@1 3244 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 3245 end
farmbuyer@1 3246
farmbuyer@1 3247 function addon:OnCommReceivedNocache (prefix, msg, distribution, sender)
farmbuyer@1 3248 if prefix ~= self.identTg then return end
farmbuyer@1 3249 if not self.debug.comm then
farmbuyer@1 3250 if distribution ~= "WHISPER" then return end
farmbuyer@1 3251 if sender == my_name then return end
farmbuyer@1 3252 end
farmbuyer@1 3253 self.dprint('comm', ":OCRN from", sender, "message is", msg)
farmbuyer@1 3254 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 3255 end
farmbuyer@1 3256 end
farmbuyer@1 3257
farmbuyer@1 3258 -- vim:noet