Mercurial > wow > ouroloot

annotate core.lua @ 90:92e0db376858

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