Mercurial > wow > ouroloot

annotate core.lua @ 148:113dd7c86222

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