Mercurial > wow > ouroloot

annotate core.lua @ 106:095ee38508e8

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