Mercurial > wow > ouroloot

annotate core.lua @ 149:df0ca8ed1aff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Be smarter when joining a raid. Add some more flow-control debug printing. Given (A) joining a raid, which triggers a delayed addon load, and seeing the "what to do next" popup, and (B) restoring previous data which contains only a raid roster or generated text, fix the interaction in which the activation from (B) overrides the user's choice in (A)'s popup.
author Farmbuyer of US-Kilrogg <farmbuyer@gmail.com>
date Thu, 08 Jan 2015 15:22:27 -0500
parents 113dd7c86222
children 63bda09d88fe
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@149 1472 self.popped = StaticPopup_Show("OUROL_REMIND",nil,nil,self)
farmbuyer@135 1473 return
farmbuyer@135 1474 end
farmbuyer@135 1475 elseif event == "Activate" then
farmbuyer@114 1476 -- dispatched from Activate
farmbuyer@114 1477 if opts.history_suppress_LFR
farmbuyer@133 1478 and GetLFGMode(LE_LFG_CATEGORY_RF)
farmbuyer@114 1479 then
farmbuyer@114 1480 _LFR_suppressing = true
farmbuyer@114 1481 end
farmbuyer@114 1482 my_realm = self.history.realm
farmbuyer@114 1483 _register_bossmod(self)
farmbuyer@10 1484 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@135 1485 was_in_raid = true
farmbuyer@10 1486 docheck = true
farmbuyer@1 1487 end
farmbuyer@135 1488
farmbuyer@11 1489 -- Throttle the checks fired by common events.
farmbuyer@10 1490 if docheck and not InCombatLockdown() then
farmbuyer@10 1491 now = time()
farmbuyer@10 1492 if difftime(now,lastevent) > 45 then
farmbuyer@10 1493 lastevent = now
farmbuyer@10 1494 self:CheckRoster(false,now)
farmbuyer@10 1495 end
farmbuyer@10 1496 end
farmbuyer@1 1497 end
farmbuyer@1 1498 end
farmbuyer@1 1499
farmbuyer@73 1500 --[=[ CHAT_MSG_LOOT handler and its helpers.
farmbuyer@73 1501 Situations for "unique tag" generation, given N people seeing local loot
farmbuyer@73 1502 events, M people seeing remote rebroadcasts, and player Z adding manually:
farmbuyer@73 1503
farmbuyer@73 1504 + Local tracking: All LOCALs should see the same itemstring, thus the same
farmbuyer@73 1505 unique ID stripped out of field #9. LOCALn includes this in the broadcast
farmbuyer@73 1506 to REMOTEm. Tag is a large number, meaningless for clients and players.
farmbuyer@73 1507
farmbuyer@73 1508 + Local broadcasting, remote tracking: same as local tracking. Possibly
farmbuyer@73 1509 some weirdness if all local versions are significantly older than the remote
farmbuyer@73 1510 versions; in this case each REMOTEn will generate their own tags of the form
farmbuyer@73 1511 itemID+formatted_date, which will not be "unique" for the next 60 seconds.
farmbuyer@73 1512 As long as at least one LOCALn is recent enough to strip and broadcast a
farmbuyer@73 1513 proper ID, multiple items of the same visible name will not be "lost".
farmbuyer@73 1514
farmbuyer@73 1515 + Z manually inserts a loot entry: Z generates a tag, preserved locally.
farmbuyer@73 1516 If Z rebrodcasts that entry, all REMOTEs will see it. Tag is of the form
farmbuyer@73 1517 "n" followed by a random number.
farmbuyer@73 1518 ]=]
farmbuyer@1 1519 do
farmbuyer@73 1520 local counter, _do_loot
farmbuyer@73 1521 do
farmbuyer@73 1522 local count = 0
farmbuyer@73 1523 function counter() count = count + 1; return count; end
farmbuyer@73 1524 end
farmbuyer@73 1525
farmbuyer@42 1526 local function maybe_trash_kill_entry()
farmbuyer@80 1527 -- This field is set on various boss interactions, so we've got a
farmbuyer@80 1528 -- kill/wipe entry already.
farmbuyer@42 1529 if addon.latest_instance then return end
farmbuyer@69 1530 local ss, max, inst = addon:snapshot_raid()
farmbuyer@69 1531 addon.latest_instance = inst
farmbuyer@69 1532 addon:_mark_boss_kill (addon._addBossEntry{
farmbuyer@61 1533 kind='boss', reason='kill', bossname=[[trash]],
farmbuyer@61 1534 instance=addon.latest_instance, duration=0,
farmbuyer@61 1535 raidersnap=ss, maxsize=max
farmbuyer@42 1536 })
farmbuyer@42 1537 end
farmbuyer@42 1538
farmbuyer@76 1539 -- Alert other trackers that unique tag EXISTING in subsequent 'casts
farmbuyer@76 1540 -- should be replaced by REPLACE instead. If multiple players all saw
farmbuyer@76 1541 -- the same loot event, this will cause a flurry of cross-improvs.
farmbuyer@76 1542 local function _announce_unique_improvisation (existing, replace)
farmbuyer@76 1543 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 1544 g_unique_replace.new_entry (g_unique_replace.me, existing, replace, 'improv')
farmbuyer@76 1545 addon:vbroadcast('improv', g_unique_replace.me, existing, replace)
farmbuyer@76 1546 end
farmbuyer@76 1547
farmbuyer@107 1548 local random = math.random
farmbuyer@76 1549 local function _many_uniques_handle_it (u, prefix)
farmbuyer@76 1550 if u then
farmbuyer@73 1551 -- Check and alert for an existing value.
farmbuyer@73 1552 u = tostring(u)
farmbuyer@73 1553 if g_uniques[u].history ~= g_uniques.NOTFOUND then
farmbuyer@76 1554 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 1555 local maybe = g_unique_replace.get_previous_replacement (u)
farmbuyer@76 1556 if maybe then
farmbuyer@76 1557 addon.dprint('loot',"previous replaced tag ("..u
farmbuyer@76 1558 ..") with ("..maybe.."), using that instead")
farmbuyer@76 1559 return false, u, maybe
farmbuyer@76 1560 end
farmbuyer@76 1561 local can_replace_p,improv = _many_uniques_handle_it (nil, 'c')
farmbuyer@76 1562 if can_replace_p then
farmbuyer@76 1563 _announce_unique_improvisation (u, improv)
farmbuyer@76 1564 return false, u, improv
farmbuyer@76 1565 end
farmbuyer@76 1566 return false, u
farmbuyer@73 1567 end
farmbuyer@73 1568 addon.dprint('loot',"verified unique tag ("..u..")")
farmbuyer@73 1569 else
farmbuyer@87 1570 -- Need to *find* an unused value. For now use a range of J*10^4
farmbuyer@87 1571 -- where J is Jenny's Constant. Thank you, <xkcd.com/1047>.
farmbuyer@76 1572 prefix = prefix or 'n'
farmbuyer@73 1573 repeat
farmbuyer@76 1574 u = prefix .. random(8675309)
farmbuyer@76 1575 until g_uniques:TEST(u).history == g_uniques.NOTFOUND
farmbuyer@76 1576 addon.dprint('loot',"created unique tag ("..u..")")
farmbuyer@73 1577 end
farmbuyer@73 1578 return true, u
farmbuyer@73 1579 end
farmbuyer@73 1580
farmbuyer@1 1581 -- Recent loot cache
farmbuyer@25 1582 local candidates = {}
farmbuyer@73 1583 local sigmap = {}
farmbuyer@73 1584 local function preempt_older_signature (oldersig, newersig)
farmbuyer@76 1585 local origin = candidates[oldersig] and candidates[oldersig].bcast_from
farmbuyer@73 1586 if origin and g_seeing_oldsigs[origin] then
farmbuyer@73 1587 -- replace entry from older client with this newer one
farmbuyer@73 1588 candidates[oldersig] = nil
farmbuyer@76 1589 addon.dprint('loot', "preempting signature <", oldersig, "> from", origin)
farmbuyer@73 1590 end
farmbuyer@73 1591 return false
farmbuyer@73 1592 end
farmbuyer@73 1593
farmbuyer@25 1594 local function prefer_local_loots (cache)
farmbuyer@25 1595 -- The function name is a bit of a misnomer, as local entries overwrite
farmbuyer@25 1596 -- remote entries as the candidate table is populated. This routine is
farmbuyer@39 1597 -- here to extract the final results once the cache timers have expired.
farmbuyer@38 1598 --
farmbuyer@34 1599 -- Keep this sync'd with the local_override branch below.
farmbuyer@25 1600 for i,sig in ipairs(candidates) do
farmbuyer@25 1601 addon.dprint('loot', "processing candidate entry", i, sig)
farmbuyer@25 1602 local loot = candidates[sig]
farmbuyer@25 1603 if loot then
farmbuyer@42 1604 maybe_trash_kill_entry() -- Generate *some* kind of boss/location entry
farmbuyer@25 1605 candidates[sig] = nil
farmbuyer@25 1606 local looti = addon._addLootEntry(loot)
farmbuyer@73 1607 addon.dprint('loot', "entry", i, "was found, added at index", looti)
farmbuyer@109 1608 if addon:_test_disposition (loot.disposition, 'affects_history')
farmbuyer@114 1609 and not _history_suppress()
farmbuyer@25 1610 then
farmbuyer@25 1611 addon:_addHistoryEntry(looti)
farmbuyer@76 1612 elseif #loot.unique > 0 then
farmbuyer@76 1613 g_uniques[loot.unique] = -- stub entry
farmbuyer@76 1614 { loot = looti, history = g_uniques.NOTFOUND }
farmbuyer@25 1615 end
farmbuyer@25 1616 end
farmbuyer@25 1617 end
farmbuyer@25 1618
farmbuyer@25 1619 if addon.display then
farmbuyer@25 1620 addon:redisplay()
farmbuyer@25 1621 end
farmbuyer@47 1622 wipe(candidates)
farmbuyer@73 1623 wipe(sigmap)
farmbuyer@25 1624 end
farmbuyer@73 1625 local recent_loot = create_new_cache ('loot', comm_cleanup_ttl+3, prefer_local_loots)
farmbuyer@1 1626
farmbuyer@146 1627 local GetItemInfo, GetItemIcon, UnitClass = GetItemInfo, GetItemIcon, UnitClass
farmbuyer@146 1628
farmbuyer@146 1629 -- 'item' can be any of things passable to GetItemInfo, so we make no
farmbuyer@146 1630 -- assumptions but rather base all information off of returns from
farmbuyer@146 1631 -- GetItemInfo, including re-extracting the itemstring
farmbuyer@146 1632 -- (in the case of local messages, 'item' is an itemstring)
farmbuyer@71 1633 -- 'from' only present if this is triggered by a broadcast
farmbuyer@146 1634 function _do_loot (self, local_override, recipient, unique, item, count, from, extratext)
farmbuyer@146 1635 if unique == 0 then unique = nil end
farmbuyer@73 1636 local prefix = "_do_loot[" .. counter() .. "]"
farmbuyer@146 1637
farmbuyer@146 1638 --[[
farmbuyer@146 1639 iname: Hearthstone
farmbuyer@146 1640 iquality: integer
farmbuyer@146 1641 ilink: clickable formatted link
farmbuyer@146 1642 itemstring: item:6948:....
farmbuyer@146 1643 ]]
farmbuyer@146 1644 local cache_miss, itemid
farmbuyer@146 1645 local iname, ilink, iquality,
farmbuyer@146 1646 -- ilvl, minlvl, type, subtype, stacksize, equiploc, texture, sellprice
farmbuyer@146 1647 _, _, _, _, _, _, itexture = GetItemInfo(item)
farmbuyer@146 1648 if not itexture then
farmbuyer@146 1649 -- Fun fact, GetItemIcon behaves oddly on a nil argument, and may
farmbuyer@146 1650 -- or may not always work on a non-numerical-itemID argument
farmbuyer@146 1651 itemid = tonumber(item)
farmbuyer@146 1652 if (itemid) then
farmbuyer@146 1653 itexture = GetItemIcon(itemid)
farmbuyer@146 1654 end
farmbuyer@146 1655 end
farmbuyer@6 1656 if (not iname) or (not itexture) then
farmbuyer@73 1657 cache_miss = true
farmbuyer@6 1658 iname, ilink, iquality, itexture =
farmbuyer@146 1659 UNKNOWN..': '..item, 'item:6948', LE_ITEM_QUALITY_COMMON,
farmbuyer@146 1660 [[Interface\ICONS\INV_Misc_QuestionMark]]
farmbuyer@6 1661 end
farmbuyer@73 1662 self.dprint('loot',">>"..prefix, "R:", recipient, "U:", unique, "I:",
farmbuyer@146 1663 item, "C:", count, "frm:", from, "ex:", extratext,
farmbuyer@146 1664 "q:", iquality, "tex:", itexture)
farmbuyer@146 1665
farmbuyer@146 1666 -- Get a known-good string and integer out of the returned link.
farmbuyer@146 1667 local itemstring = ilink:match("item[%-?%d:]+")
farmbuyer@146 1668 itemid = tonumber(itemstring:match("^item:(%d+)") or 0)
farmbuyer@73 1669
farmbuyer@73 1670 -- This is only a 'while' to make jumping out of it easy.
farmbuyer@76 1671 local i, unique_okay, replacement, ret1, ret2
farmbuyer@73 1672 while local_override
farmbuyer@73 1673 or ((iquality >= self.threshold) and not opts.itemfilter[itemid])
farmbuyer@73 1674 do
farmbuyer@76 1675 unique_okay, unique, replacement =
farmbuyer@76 1676 _many_uniques_handle_it ((not local_override) and unique)
farmbuyer@73 1677 if not unique_okay then
farmbuyer@76 1678 if replacement then
farmbuyer@76 1679 -- collision, but we've generated a placeholder for now
farmbuyer@76 1680 -- and broadcast the fact
farmbuyer@76 1681 self.dprint('loot', "substituting", unique, "with", replacement)
farmbuyer@76 1682 else
farmbuyer@76 1683 i = g_uniques[unique]
farmbuyer@81 1684 local err = unique_collision:format (iname, unique,
farmbuyer@76 1685 tostring(from), tostring(i.loot), tostring(i.history))
farmbuyer@77 1686 _unavoidable_collision (err)
farmbuyer@76 1687 -- Make sure this is logged one way or another
farmbuyer@76 1688 ;(self.debug.loot and self.dprint or pprint)('loot', "COLLISION", prefix, err);
farmbuyer@76 1689 ret1, ret2 = nil, err
farmbuyer@76 1690 break
farmbuyer@76 1691 end
farmbuyer@73 1692 end
farmbuyer@73 1693
farmbuyer@1 1694 if (self.rebroadcast and (not from)) and not local_override then
farmbuyer@146 1695 self:vbroadcast('loot', recipient, unique, itemstring, count)
farmbuyer@1 1696 end
farmbuyer@25 1697 if (not self.enabled) and (not local_override) then break end
farmbuyer@73 1698
farmbuyer@73 1699 local oldersig = recipient .. iname .. (count or "")
farmbuyer@73 1700 local signature, seenit
farmbuyer@73 1701 if #unique > 0 then
farmbuyer@73 1702 -- newer case
farmbuyer@73 1703 signature = unique .. oldersig
farmbuyer@73 1704 sigmap[oldersig] = signature
farmbuyer@76 1705 seenit = (from and recent_loot:test(signature))
farmbuyer@73 1706 -- The following clause is what handles older 'casts arriving
farmbuyer@73 1707 -- earlier. All this is tested inside-out to maximize short
farmbuyer@76 1708 -- circuit evaluation; the preempt function always returns
farmbuyer@76 1709 -- false to force seenit off.
farmbuyer@76 1710 or (g_seeing_oldsigs and preempt_older_signature(oldersig,signature))
farmbuyer@25 1711 else
farmbuyer@73 1712 -- older case, only remote
farmbuyer@73 1713 assert(from)
farmbuyer@73 1714 signature = sigmap[oldersig] or oldersig
farmbuyer@73 1715 seenit = recent_loot:test(signature)
farmbuyer@73 1716 end
farmbuyer@73 1717
farmbuyer@73 1718 if seenit then
farmbuyer@80 1719 self.dprint('loot', "remote", prefix, "<", signature,
farmbuyer@73 1720 "> already in cache, skipping from", from)
farmbuyer@73 1721 break
farmbuyer@73 1722 end
farmbuyer@73 1723
farmbuyer@114 1724 -- Most of the time this will already be in place and filled out,
farmbuyer@114 1725 -- but there are situations where not. Even if we can't get data
farmbuyer@114 1726 -- back, at least avoid errors (or the need for existence checks).
farmbuyer@114 1727 if not g_loot.raiders[recipient] then
farmbuyer@114 1728 g_loot.raiders[recipient] = { needinfo=true }
farmbuyer@114 1729 end
farmbuyer@114 1730
farmbuyer@73 1731 -- There is some redundancy in all this, in the interests of ease-of-coding
farmbuyer@73 1732 i = {
farmbuyer@73 1733 kind = 'loot',
farmbuyer@73 1734 person = recipient,
farmbuyer@114 1735 person_class= g_loot.raiders[recipient].class,
farmbuyer@114 1736 person_realm= g_loot.raiders[recipient].realm,
farmbuyer@73 1737 cache_miss = cache_miss,
farmbuyer@73 1738 quality = iquality,
farmbuyer@73 1739 itemname = iname,
farmbuyer@73 1740 id = itemid,
farmbuyer@146 1741 itemstring = itemstring,
farmbuyer@146 1742 itemlink = ilink, -- determines the GUI tooltip
farmbuyer@73 1743 itexture = itexture,
farmbuyer@76 1744 unique = replacement or unique,
farmbuyer@73 1745 count = (count and count ~= "") and count or nil,
farmbuyer@73 1746 bcast_from = from,
farmbuyer@73 1747 extratext = extratext,
farmbuyer@146 1748 variant = self:is_variant_item(itemstring),
farmbuyer@73 1749 }
farmbuyer@73 1750 if opts.itemvault[itemid] then
farmbuyer@73 1751 i.disposition = 'gvault'
farmbuyer@73 1752 elseif recipient == self.sharder then
farmbuyer@73 1753 i.disposition = 'shard'
farmbuyer@73 1754 end
farmbuyer@73 1755 if local_override then
farmbuyer@73 1756 -- player is adding loot by hand, don't wait for network cache timeouts
farmbuyer@73 1757 -- keep this sync'd with prefer_local_loots above
farmbuyer@109 1758 if i.extratext then
farmbuyer@109 1759 for disp,text in self:_iter_dispositions('from_notes_text') do
farmbuyer@109 1760 if text == i.extratext then
farmbuyer@109 1761 i.disposition = disp
farmbuyer@109 1762 break
farmbuyer@109 1763 end
farmbuyer@109 1764 end
farmbuyer@70 1765 end
farmbuyer@73 1766 local looti = self._addLootEntry(i)
farmbuyer@109 1767 if self:_test_disposition (i.disposition, 'affects_history')
farmbuyer@114 1768 and not _history_suppress()
farmbuyer@73 1769 then
farmbuyer@73 1770 self:_addHistoryEntry(looti)
farmbuyer@76 1771 else
farmbuyer@76 1772 g_uniques[i.unique] = -- stub entry
farmbuyer@76 1773 { loot = looti, history = g_uniques.NOTFOUND }
farmbuyer@34 1774 end
farmbuyer@73 1775 ret1 = looti -- return value mostly for gui's manual entry
farmbuyer@76 1776 self.dprint('loot', "manual", looti)
farmbuyer@73 1777 else
farmbuyer@73 1778 recent_loot:add(signature)
farmbuyer@73 1779 candidates[signature] = i
farmbuyer@73 1780 tinsert (candidates, signature)
farmbuyer@80 1781 self.dprint('loot', prefix, "<", signature,
farmbuyer@73 1782 "> added to cache as candidate", #candidates)
farmbuyer@1 1783 end
farmbuyer@25 1784 break
farmbuyer@1 1785 end
farmbuyer@73 1786 self.dprint('loot',"<<"..prefix, "out")
farmbuyer@73 1787 return ret1, ret2
farmbuyer@1 1788 end
farmbuyer@1 1789
farmbuyer@73 1790 -- Returns the index of the resulting new loot entry, or nil after
farmbuyer@73 1791 -- displaying any errors.
farmbuyer@129 1792 local match = string.match
farmbuyer@1 1793 function addon:CHAT_MSG_LOOT (event, ...)
farmbuyer@1 1794 if (not self.rebroadcast) and (not self.enabled) and (event ~= "manual") then return end
farmbuyer@1 1795
farmbuyer@1 1796 if event == "CHAT_MSG_LOOT" then
farmbuyer@1 1797 local msg = ...
farmbuyer@146 1798 local person, itemlink, count
farmbuyer@21 1799 --ChatFrame2:AddMessage("original string: >"..(msg:gsub("\124","\124\124")).."<")
farmbuyer@20 1800
farmbuyer@20 1801 -- test in most likely order: other people get more loot than "you" do
farmbuyer@146 1802 person, itemlink, count = match(msg,g_LOOT_ITEM_MULTIPLE_sss)
farmbuyer@20 1803 if not person then
farmbuyer@146 1804 person, itemlink = match(msg,g_LOOT_ITEM_ss)
farmbuyer@20 1805 end
farmbuyer@20 1806 if not person then
farmbuyer@129 1807 -- Could only do this text if in an LFR... but the restriction
farmbuyer@129 1808 -- might apply elsewhere soon enough.
farmbuyer@146 1809 person, itemlink = match(msg,g_LOOT_ITEM_WHILE_PLAYER_INELIGIBLE_ss)
farmbuyer@129 1810 end
farmbuyer@129 1811 if not person then
farmbuyer@146 1812 itemlink, count = match(msg,g_LOOT_ITEM_SELF_MULTIPLE_ss)
farmbuyer@146 1813 if not itemlink then
farmbuyer@146 1814 itemlink = match(msg,g_LOOT_ITEM_SELF_s)
farmbuyer@20 1815 end
farmbuyer@20 1816 end
farmbuyer@20 1817
farmbuyer@146 1818 if not itemlink then return end -- "PlayerX selected Greed", etc, not looting
farmbuyer@65 1819 self.dprint('loot', "CHAT_MSG_LOOT, person is", person,
farmbuyer@146 1820 ", itemlink is", itemlink, ", count is", count)
farmbuyer@1 1821
farmbuyer@1 1822 -- Name might be colorized, remove the highlighting
farmbuyer@20 1823 if person then
farmbuyer@129 1824 person = match(person,"|c%x%x%x%x%x%x%x%x(%S+)") or person
farmbuyer@20 1825 else
farmbuyer@38 1826 person = my_name -- UNIT_YOU / You
farmbuyer@20 1827 end
farmbuyer@1 1828
farmbuyer@147 1829 return _do_loot (self, --[[override=]]false, person, --[[unique=]]nil,
farmbuyer@146 1830 match(itemlink,"item[%-?%d:]+"), count)
farmbuyer@1 1831
farmbuyer@1 1832 elseif event == "broadcast" then
farmbuyer@146 1833 return _do_loot (self, --[[override=]]false, ...)
farmbuyer@1 1834
farmbuyer@1 1835 elseif event == "manual" then
farmbuyer@146 1836 local recip,item,text = ...
farmbuyer@146 1837 return _do_loot (self, --[[override=]]true, recip,
farmbuyer@146 1838 --[[unique=]]nil, item, --[[count=]]nil, --[[from=]]nil, text)
farmbuyer@1 1839 end
farmbuyer@1 1840 end
farmbuyer@1 1841 end
farmbuyer@1 1842
farmbuyer@80 1843 -- This only triggers on entering combat after a registered boss kill.
farmbuyer@80 1844 -- Clearing this field forces subsequent trash kills to generate an entry
farmbuyer@80 1845 -- via maybe_trash_kill_entry.
farmbuyer@80 1846 -- (Possibly what is wanted is to start a 3 or 5 minute timer, and *then*
farmbuyer@80 1847 -- look for the next combat?)
farmbuyer@80 1848 function addon:PLAYER_REGEN_DISABLED()
farmbuyer@80 1849 self:UnregisterEvent ("PLAYER_REGEN_DISABLED")
farmbuyer@80 1850 self.latest_instance = nil
farmbuyer@80 1851 end
farmbuyer@80 1852
farmbuyer@1 1853
farmbuyer@1 1854 ------ Slash command handler
farmbuyer@1 1855 -- Thought about breaking this up into a table-driven dispatcher. But
farmbuyer@1 1856 -- that would result in a pile of teensy functions, most of which would
farmbuyer@1 1857 -- never be called. Too much overhead. (2.0: Most of these removed now
farmbuyer@1 1858 -- that GUI is in place.)
farmbuyer@76 1859 do
farmbuyer@76 1860 local green_help_link = addon.format_hypertext ([[Click here]],
farmbuyer@142 1861 LE_ITEM_QUALITY_UNCOMMON, 'help')
farmbuyer@76 1862 function addon:OnSlash (txt) --, editbox)
farmbuyer@76 1863 txt = strtrim(txt:lower())
farmbuyer@76 1864 local cmd, arg = ""
farmbuyer@76 1865 do
farmbuyer@76 1866 local s,e = txt:find("^%a+")
farmbuyer@76 1867 if s then
farmbuyer@76 1868 cmd = txt:sub(s,e)
farmbuyer@76 1869 s = txt:find("%S", e+2)
farmbuyer@76 1870 if s then arg = txt:sub(s,-1) end
farmbuyer@76 1871 end
farmbuyer@1 1872 end
farmbuyer@1 1873
farmbuyer@76 1874 if cmd == "" then
farmbuyer@76 1875 if InCombatLockdown() then
farmbuyer@76 1876 return self:Print("Shouldn't display window in combat.")
farmbuyer@76 1877 else
farmbuyer@76 1878 return self:BuildMainDisplay()
farmbuyer@76 1879 end
farmbuyer@1 1880
farmbuyer@76 1881 elseif cmd:find("^thre") then
farmbuyer@76 1882 self:SetThreshold(arg)
farmbuyer@1 1883
farmbuyer@149 1884 elseif cmd == "on" then self:Activate("cmdon",arg)
farmbuyer@76 1885 elseif cmd == "off" then self:Deactivate()
farmbuyer@149 1886 elseif cmd == "broadcast" or cmd == "bcast" then self:Activate("cmdbcast",nil,true)
farmbuyer@76 1887
farmbuyer@76 1888 elseif cmd == "toggle" then
farmbuyer@76 1889 if self.display then
farmbuyer@76 1890 self.display:Hide()
farmbuyer@76 1891 else
farmbuyer@76 1892 return self:BuildMainDisplay()
farmbuyer@76 1893 end
farmbuyer@76 1894
farmbuyer@76 1895 elseif cmd == "fake" then -- maybe comment this out for real users
farmbuyer@76 1896 self:_mark_boss_kill (self._addBossEntry{
farmbuyer@76 1897 kind='boss',reason='kill',bossname="Baron Steamroller",duration=0
farmbuyer@76 1898 })
farmbuyer@76 1899 self:CHAT_MSG_LOOT ('manual', my_name, 54797)
farmbuyer@146 1900 self:CHAT_MSG_LOOT ('manual', my_name, 'item:109948:0:0:0:0:0:0:0:100:0:2:2:499:524')
farmbuyer@76 1901 if self.display then
farmbuyer@76 1902 self:redisplay()
farmbuyer@76 1903 end
farmbuyer@76 1904 self:Print "Baron Steamroller has been slain. Congratulations on your rug."
farmbuyer@76 1905
farmbuyer@76 1906 elseif cmd == "debug" then
farmbuyer@76 1907 if arg then
farmbuyer@107 1908 self.is_guilded = IsInGuild()
farmbuyer@76 1909 self.debug[arg] = not self.debug[arg]
farmbuyer@107 1910 print(arg,self.debug[arg])
farmbuyer@76 1911 if self.debug[arg] then self.DEBUG_PRINT = true end
farmbuyer@76 1912 else
farmbuyer@76 1913 self.DEBUG_PRINT = not self.DEBUG_PRINT
farmbuyer@76 1914 end
farmbuyer@76 1915
farmbuyer@76 1916 elseif cmd == "save" and arg and arg:len() > 0 then
farmbuyer@76 1917 self:save_saveas(arg)
farmbuyer@76 1918 elseif cmd == "list" then
farmbuyer@76 1919 self:save_list()
farmbuyer@76 1920 elseif cmd == "restore" and arg and arg:len() > 0 then
farmbuyer@76 1921 self:save_restore(tonumber(arg))
farmbuyer@76 1922 elseif cmd == "delete" and arg and arg:len() > 0 then
farmbuyer@76 1923 self:save_delete(tonumber(arg))
farmbuyer@76 1924
farmbuyer@76 1925 elseif cmd == "help" then
farmbuyer@76 1926 self:BuildMainDisplay('help')
farmbuyer@76 1927 elseif cmd == "ping" then
farmbuyer@76 1928 self:DoPing()
farmbuyer@76 1929
farmbuyer@81 1930 elseif cmd == "fix" then
farmbuyer@81 1931 if arg == "?" then
farmbuyer@95 1932 self:Print[['/ouroloot fix cache' updates loot that wasn't in the cache]]
farmbuyer@95 1933 self:Print[['/ouroloot fix history' repairs inconsistent data on the History tab]]
farmbuyer@95 1934 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 1935 return
farmbuyer@81 1936 elseif arg == "cache" then
farmbuyer@114 1937 self:do_item_cache_fixup(--[[force_silent=]]false)
farmbuyer@81 1938 elseif arg == "history" then
farmbuyer@81 1939 self:repair_history_integrity()
farmbuyer@81 1940 end
farmbuyer@81 1941 self.NOLOAD = nil
farmbuyer@81 1942 self:Print("Window unlocked, best of luck.")
farmbuyer@76 1943
farmbuyer@23 1944 else
farmbuyer@88 1945 if self:OpenMainDisplayToTab(cmd,arg) then
farmbuyer@76 1946 return
farmbuyer@76 1947 end
farmbuyer@76 1948 self:Print("Unknown command '%s'. %s to see the help window.",
farmbuyer@76 1949 cmd, tostring(green_help_link))
farmbuyer@23 1950 end
farmbuyer@1 1951 end
farmbuyer@1 1952 end
farmbuyer@1 1953
farmbuyer@1 1954 function addon:SetThreshold (arg, quiet_p)
farmbuyer@1 1955 local q = tonumber(arg)
farmbuyer@1 1956 if q then
farmbuyer@76 1957 q = math.floor(q+0.1)
farmbuyer@1 1958 if q<0 or q>6 then
farmbuyer@1 1959 return self:Print("Threshold must be 0-6.")
farmbuyer@1 1960 end
farmbuyer@1 1961 else
farmbuyer@1 1962 q = qualnames[arg]
farmbuyer@1 1963 if not q then
farmbuyer@1 1964 return self:Print("Unrecognized item quality argument.")
farmbuyer@1 1965 end
farmbuyer@1 1966 end
farmbuyer@1 1967 self.threshold = q
farmbuyer@1 1968 if not quiet_p then self:Print("Threshold now set to %s.", self.thresholds[q]) end
farmbuyer@1 1969 end
farmbuyer@1 1970
farmbuyer@1 1971
farmbuyer@1 1972 ------ On/off
farmbuyer@80 1973 -- Both of these need to be (effectively) idempotent.
farmbuyer@149 1974 function addon:Activate (whence, opt_threshold, opt_bcast_only)
farmbuyer@149 1975 self.dprint('flow', ":Activate called from", whence)
farmbuyer@135 1976 self:RegisterEvent("GROUP_ROSTER_UPDATE")
farmbuyer@16 1977 self:RegisterEvent("PLAYER_ENTERING_WORLD",
farmbuyer@135 1978 function() self:ScheduleTimer("GROUP_ROSTER_UPDATE", 5, "PLAYER_ENTERING_WORLD") end)
farmbuyer@1 1979 self.popped = true
farmbuyer@114 1980 if self.DO_ITEMID_FIX then
farmbuyer@114 1981 self.DO_ITEMID_FIX = nil
farmbuyer@114 1982 self:do_item_cache_fixup(--[[force_silent=]]not self.author_debug)
farmbuyer@115 1983 self.loot_clean = nil
farmbuyer@114 1984 end
farmbuyer@93 1985 if IsInRaid() then
farmbuyer@16 1986 self.dprint('flow', ">:Activate calling RRU")
farmbuyer@135 1987 self:GROUP_ROSTER_UPDATE("Activate")
farmbuyer@1 1988 elseif self.debug.notraid then
farmbuyer@76 1989 self.dprint('flow', ">:(notraid) Activate registering loot and bossmods")
farmbuyer@10 1990 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 1991 _register_bossmod(self)
farmbuyer@1 1992 elseif g_restore_p then
farmbuyer@1 1993 g_restore_p = nil
farmbuyer@16 1994 self.popped = nil -- get the reminder if later joining a raid
farmbuyer@16 1995 if #g_loot == 0 then
farmbuyer@16 1996 -- only generated text and raider join/leave data, not worth verbage
farmbuyer@16 1997 self.dprint('flow', ">:Activate restored generated texts, un-popping")
farmbuyer@16 1998 return
farmbuyer@16 1999 end
farmbuyer@78 2000 self:Print("Restored previous data, but not in a raid",
farmbuyer@148 2001 "and 5-player mode is not active. |cffff0505NOT tracking loot|r;",
farmbuyer@1 2002 "use 'enable' to activate loot tracking, or 'clear' to erase",
farmbuyer@1 2003 "previous data, or 'help' to read about saved-texts commands.")
farmbuyer@148 2004 if #g_loot > 200 then
farmbuyer@106 2005 self:Print("|cffff0505Crikey!|r You are carrying around a lot of",
farmbuyer@106 2006 "stored loot data. You should seriously consider clearing it",
farmbuyer@106 2007 "out, as some of the text generation routines can choke the",
farmbuyer@106 2008 "game client if they run for too long.")
farmbuyer@106 2009 end
farmbuyer@1 2010 return
farmbuyer@1 2011 end
farmbuyer@1 2012 self.rebroadcast = true -- hardcode to true; this used to be more complicated
farmbuyer@1 2013 self.enabled = not opt_bcast_only
farmbuyer@73 2014 g_seeing_oldsigs = nil
farmbuyer@1 2015 if opt_threshold then
farmbuyer@1 2016 self:SetThreshold (opt_threshold, --[[quiet_p=]]true)
farmbuyer@1 2017 end
farmbuyer@100 2018 self:Fire ('Activate', self.enabled, self.rebroadcast, self.threshold)
farmbuyer@80 2019 self:Print("Now %s; threshold currently %s.",
farmbuyer@1 2020 self.enabled and "tracking" or "only broadcasting",
farmbuyer@1 2021 self.thresholds[self.threshold])
farmbuyer@89 2022 self:broadcast('revcheck',version_large)
farmbuyer@149 2023 self.dprint('flow', ":Activate from", whence, "finished")
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@1 2412 -- FIXME printed could be too large if entries were deleted, how much do we care?
farmbuyer@16 2413 self.sharder = opts.autoshard
farmbuyer@149 2414 if self.popped then
farmbuyer@149 2415 -- Actual loot got restored, potentially re-activate.
farmbuyer@149 2416 self:ScheduleTimer("Activate", 12, "_init-restore", opts.threshold)
farmbuyer@149 2417 end
farmbuyer@1 2418 else
farmbuyer@80 2419 g_loot = {}
farmbuyer@80 2420 end
farmbuyer@80 2421 if type(g_loot.raiders) ~= 'table' then
farmbuyer@80 2422 g_loot.raiders = {}
farmbuyer@80 2423 end
farmbuyer@80 2424 if type(g_loot.printed) ~= 'table' then
farmbuyer@80 2425 g_loot.printed = {}
farmbuyer@1 2426 end
farmbuyer@1 2427
farmbuyer@16 2428 self.threshold = opts.threshold or self.threshold -- in the case of restoring but not tracking
farmbuyer@129 2429 local g_loot_wrapper = self:gui_init (true, g_loot, g_uniques)
farmbuyer@16 2430 opts.autoshard = nil
farmbuyer@16 2431 opts.threshold = nil
farmbuyer@1 2432
farmbuyer@1 2433 if g_restore_p then
farmbuyer@73 2434 self:zero_printed_fenceposts() -- g_loot.printed.* = previous/safe values
farmbuyer@1 2435 else
farmbuyer@73 2436 self:zero_printed_fenceposts(0) -- g_loot.printed.* = 0
farmbuyer@1 2437 end
farmbuyer@1 2438 if possible_st then
farmbuyer@116 2439 possible_st:SetData(g_loot_wrapper)
farmbuyer@1 2440 end
farmbuyer@118 2441 -- Make sure we have a current .raiders array, since other dropdowns and
farmbuyer@118 2442 -- whatnot depend on that information.
farmbuyer@118 2443 self:CheckRoster()
farmbuyer@1 2444
farmbuyer@89 2445 self.status_text = ("%s(r%s) communicating as ident %s commrev %s"):
farmbuyer@89 2446 format (self.version, self.revision, self.ident, self.commrev)
farmbuyer@1 2447 self:RegisterComm(self.ident)
farmbuyer@1 2448 self:RegisterComm(self.identTg, "OnCommReceivedNocache")
farmbuyer@1 2449 end
farmbuyer@1 2450
farmbuyer@61 2451 -- Raid roster snapshots
farmbuyer@61 2452 do
farmbuyer@61 2453 function addon:snapshot_raid (only_inraid_p)
farmbuyer@61 2454 local ss = CopyTable(g_loot.raiders)
farmbuyer@61 2455 local instance,maxsize = instance_tag()
farmbuyer@61 2456 if only_inraid_p then
farmbuyer@107 2457 for name,info in next, ss do
farmbuyer@61 2458 if info.online == 3 then
farmbuyer@61 2459 ss[name] = nil
farmbuyer@61 2460 end
farmbuyer@61 2461 end
farmbuyer@61 2462 end
farmbuyer@107 2463 return ss, maxsize, instance, time()
farmbuyer@61 2464 end
farmbuyer@61 2465 end
farmbuyer@61 2466
farmbuyer@25 2467 -- Tie-in with Deadly Boss Mods (or other such addons)
farmbuyer@1 2468 do
farmbuyer@25 2469 local candidates = {}
farmbuyer@25 2470 local location
farmbuyer@1 2471 local function fixup_durations (cache)
farmbuyer@1 2472 local boss, bossi
farmbuyer@1 2473 boss = candidates[1]
farmbuyer@1 2474 if #candidates == 1 then
farmbuyer@1 2475 -- (1) or (2)
farmbuyer@1 2476 boss.duration = boss.duration or 0
farmbuyer@19 2477 addon.dprint('loot', "only one boss candidate")
farmbuyer@1 2478 else
farmbuyer@1 2479 -- (3), should only be one 'cast entry and our local entry
farmbuyer@1 2480 if #candidates ~= 2 then
farmbuyer@1 2481 -- could get a bunch of 'cast entries on the heels of one another
farmbuyer@1 2482 -- before the local one ever fires, apparently... sigh
farmbuyer@1 2483 --addon:Print("<warning> s3 cache has %d entries, does that seem right to you?", #candidates)
farmbuyer@1 2484 end
farmbuyer@1 2485 if candidates[2].duration == nil then
farmbuyer@1 2486 --addon:Print("<warning> s3's second entry is not the local trigger, does that seem right to you?")
farmbuyer@1 2487 end
farmbuyer@1 2488 -- try and be generic anyhow
farmbuyer@1 2489 for i,c in ipairs(candidates) do
farmbuyer@1 2490 if c.duration then
farmbuyer@1 2491 boss = c
farmbuyer@19 2492 addon.dprint('loot', "fixup found boss candidate", i, "duration", c.duration)
farmbuyer@1 2493 break
farmbuyer@1 2494 end
farmbuyer@1 2495 end
farmbuyer@1 2496 end
farmbuyer@69 2497 bossi = addon._addBossEntry(boss)
farmbuyer@100 2498 addon:Fire ('NewBoss', boss)
farmbuyer@19 2499 bossi = addon._adjustBossOrder (bossi, g_boss_signpost) or bossi
farmbuyer@16 2500 g_boss_signpost = nil
farmbuyer@42 2501 addon.latest_instance = boss.instance
farmbuyer@19 2502 addon.dprint('loot', "added boss entry", bossi)
farmbuyer@1 2503 if boss.reason == 'kill' then
farmbuyer@80 2504 addon:RegisterEvent ("PLAYER_REGEN_DISABLED")
farmbuyer@1 2505 addon:_mark_boss_kill (bossi)
farmbuyer@1 2506 if opts.chatty_on_kill then
farmbuyer@103 2507 local jumpprefix = addon.chatprefix ("GoToLootLine", bossi)
farmbuyer@103 2508 addon:PCFPrint(_G.DEFAULT_CHAT_FRAME, jumpprefix,
farmbuyer@103 2509 "Registered kill for '%s' in %s!", boss.bossname, boss.instance)
farmbuyer@1 2510 end
farmbuyer@1 2511 end
farmbuyer@47 2512 wipe(candidates)
farmbuyer@1 2513 end
farmbuyer@102 2514 -- Ten seconds is a long time, but occasionally DBM takes for-EVAH to
farmbuyer@102 2515 -- decide that a fight is over.
farmbuyer@73 2516 local recent_boss = create_new_cache ('boss', 10, fixup_durations)
farmbuyer@1 2517
farmbuyer@1 2518 -- Similar to _do_loot, but duration+ parms only present when locally generated.
farmbuyer@56 2519 local function _do_boss (self, reason, bossname, intag, maxsize, duration)
farmbuyer@56 2520 self.dprint('loot',">>_do_boss, R:", reason, "B:", bossname,
farmbuyer@56 2521 "T:", intag, "MS:", maxsize, "D:", duration)
farmbuyer@1 2522 if self.rebroadcast and duration then
farmbuyer@56 2523 self:vbroadcast('boss', reason, bossname, intag, maxsize)
farmbuyer@1 2524 end
farmbuyer@1 2525 -- This is only a loop to make jumping out of it easy, and still do cleanup below.
farmbuyer@1 2526 while self.enabled do
farmbuyer@1 2527 if reason == 'wipe' and opts.no_tracking_wipes then break end
farmbuyer@1 2528 bossname = (opts.snarky_boss and self.boss_abbrev[bossname] or bossname) or bossname
farmbuyer@1 2529 local not_from_local = duration == nil
farmbuyer@1 2530 local signature = bossname .. reason
farmbuyer@73 2531 if not_from_local and recent_boss:test(signature) then
farmbuyer@39 2532 self.dprint('cache', "remote boss <",signature,"> already in cache, skipping")
farmbuyer@1 2533 else
farmbuyer@73 2534 recent_boss:add(signature)
farmbuyer@16 2535 g_boss_signpost = #g_loot + 1
farmbuyer@19 2536 self.dprint('loot', "added boss signpost", g_boss_signpost)
farmbuyer@1 2537 -- Possible scenarios: (1) we don't see a boss event at all (e.g., we're
farmbuyer@1 2538 -- outside the instance) and so this only happens once as a non-local event,
farmbuyer@1 2539 -- (2) we see a local event first and all non-local events are filtered
farmbuyer@1 2540 -- by the cache, (3) we happen to get some non-local events before doing
farmbuyer@1 2541 -- our local event (not because of network weirdness but because our local
farmbuyer@1 2542 -- DBM might not trigger for a while).
farmbuyer@1 2543 local c = {
farmbuyer@1 2544 kind = 'boss',
farmbuyer@55 2545 bossname = bossname,
farmbuyer@1 2546 reason = reason,
farmbuyer@1 2547 instance = intag,
farmbuyer@56 2548 duration = duration, -- deliberately may be nil
farmbuyer@61 2549 raidersnap = self:snapshot_raid(),
farmbuyer@56 2550 maxsize = maxsize,
farmbuyer@1 2551 }
farmbuyer@1 2552 tinsert(candidates,c)
farmbuyer@1 2553 end
farmbuyer@17 2554 break
farmbuyer@1 2555 end
farmbuyer@1 2556 self.dprint('loot',"<<_do_boss out")
farmbuyer@1 2557 end
farmbuyer@56 2558 -- This exposes the function to OCR, and can be a wrapper layer later.
farmbuyer@1 2559 addon.on_boss_broadcast = _do_boss
farmbuyer@1 2560
farmbuyer@1 2561 function addon:_mark_boss_kill (index)
farmbuyer@1 2562 local e = g_loot[index]
farmbuyer@17 2563 if not e then
farmbuyer@17 2564 self:Print("Something horribly wrong;", index, "is not a valid entry!")
farmbuyer@17 2565 return
farmbuyer@17 2566 end
farmbuyer@55 2567 if not e.bossname then
farmbuyer@16 2568 self:Print("Something horribly wrong;", index, "is not a boss entry!")
farmbuyer@16 2569 return
farmbuyer@1 2570 end
farmbuyer@1 2571 if e.reason ~= 'wipe' then
farmbuyer@1 2572 -- enh, bail
farmbuyer@1 2573 self.loot_clean = index-1
farmbuyer@1 2574 end
farmbuyer@1 2575 local attempts = 1
farmbuyer@1 2576 local first
farmbuyer@1 2577
farmbuyer@69 2578 -- Maybe redo this to only collapse *contiguous* wipes...?
farmbuyer@1 2579 local i,d = 1,g_loot[1]
farmbuyer@1 2580 while d ~= e do
farmbuyer@55 2581 if d.bossname and
farmbuyer@55 2582 d.bossname == e.bossname and
farmbuyer@53 2583 d.instance == e.instance and
farmbuyer@1 2584 d.reason == 'wipe'
farmbuyer@1 2585 then
farmbuyer@1 2586 first = first or i
farmbuyer@1 2587 attempts = attempts + 1
farmbuyer@129 2588 assert(g_gui.g_dloot:remove(i)==d,"_mark_boss_kill screwed up data badly")
farmbuyer@1 2589 else
farmbuyer@1 2590 i = i + 1
farmbuyer@1 2591 end
farmbuyer@1 2592 d = g_loot[i]
farmbuyer@1 2593 end
farmbuyer@1 2594 e.reason = 'kill'
farmbuyer@1 2595 e.attempts = attempts
farmbuyer@1 2596 self.loot_clean = first or index-1
farmbuyer@1 2597 end
farmbuyer@1 2598
farmbuyer@2 2599 function addon:register_boss_mod (name, registration_func, deregistration_func)
farmbuyer@2 2600 assert(type(name)=='string')
farmbuyer@2 2601 assert(type(registration_func)=='function')
farmbuyer@76 2602 if deregistration_func ~= nil then
farmbuyer@76 2603 assert(type(deregistration_func)=='function')
farmbuyer@76 2604 end
farmbuyer@2 2605 self.bossmods[#self.bossmods+1] = {
farmbuyer@2 2606 n = name,
farmbuyer@2 2607 r = registration_func,
farmbuyer@2 2608 d = deregistration_func,
farmbuyer@2 2609 }
farmbuyer@5 2610 self.bossmods[name] = self.bossmods[#self.bossmods]
farmbuyer@5 2611 assert(self.bossmods[name].n == self.bossmods[#self.bossmods].n)
farmbuyer@2 2612 end
farmbuyer@1 2613
farmbuyer@2 2614 function _register_bossmod (self, force_p)
farmbuyer@2 2615 local x = self.bossmod_registered and self.bossmods[self.bossmod_registered]
farmbuyer@2 2616 if x then
farmbuyer@2 2617 if x.n == opts.bossmod and not force_p then
farmbuyer@2 2618 -- trying to register with already-registered boss mod
farmbuyer@2 2619 return
farmbuyer@2 2620 else
farmbuyer@2 2621 -- deregister
farmbuyer@2 2622 if x.d then x.d(self) end
farmbuyer@2 2623 end
farmbuyer@1 2624 end
farmbuyer@1 2625
farmbuyer@2 2626 x = nil
farmbuyer@2 2627 for k,v in ipairs(self.bossmods) do
farmbuyer@2 2628 if v.n == opts.bossmod then
farmbuyer@2 2629 x = k
farmbuyer@2 2630 break
farmbuyer@2 2631 end
farmbuyer@1 2632 end
farmbuyer@1 2633
farmbuyer@2 2634 if not x then
farmbuyer@2 2635 self.status_text = "|cffff1010No boss-mod found!|r"
farmbuyer@2 2636 self:Print(self.status_text)
farmbuyer@2 2637 return
farmbuyer@1 2638 end
farmbuyer@1 2639
farmbuyer@2 2640 if self.bossmods[x].r (self, _do_boss) then
farmbuyer@5 2641 self.bossmod_registered = self.bossmods[x].n
farmbuyer@1 2642 else
farmbuyer@2 2643 self:Print("|cffff1010Boss mod registration failed|r")
farmbuyer@1 2644 end
farmbuyer@1 2645 end
farmbuyer@2 2646 end
farmbuyer@1 2647
farmbuyer@1 2648 -- Adding entries to the loot record, and tracking the corresponding timestamp.
farmbuyer@1 2649 do
farmbuyer@147 2650 local date, time, rawget, setmetatable = date, time, rawget, setmetatable
farmbuyer@73 2651
farmbuyer@100 2652 --@debug@
farmbuyer@100 2653 local tos = {}
farmbuyer@100 2654 tos.time = function (e)
farmbuyer@100 2655 return e.startday.text
farmbuyer@100 2656 end
farmbuyer@100 2657 tos.boss = function (e)
farmbuyer@100 2658 return e.bossname .. '/' .. e.reason
farmbuyer@100 2659 end
farmbuyer@100 2660 tos.loot = function (e)
farmbuyer@100 2661 return e.itemname .. '/' .. e.person .. '/' .. e.unique .. '/'
farmbuyer@100 2662 .. tostring(e.disposition) .. (e.extratext and ('/'..e.extratext) or '')
farmbuyer@100 2663 end
farmbuyer@100 2664 --@end-debug@
farmbuyer@1 2665 local loot_entry_mt = {
farmbuyer@1 2666 __index = function (e,key)
farmbuyer@100 2667 -- This shouldn't be required, as the refresh should be picking
farmbuyer@100 2668 -- it up already. Sigh.
farmbuyer@1 2669 if key == 'cols' then
farmbuyer@15 2670 pprint('mt', e.kind, "key is", key)
farmbuyer@1 2671 addon:_fill_out_eoi_data(1)
farmbuyer@1 2672 end
farmbuyer@1 2673 return rawget(e,key)
farmbuyer@100 2674 end,
farmbuyer@100 2675 --@debug@
farmbuyer@100 2676 __tostring = function (e)
farmbuyer@100 2677 local k = e.kind
farmbuyer@100 2678 if k then
farmbuyer@100 2679 return ("<%s/%s>"):format(k, tos[k] and tos[k](e) or "?")
farmbuyer@100 2680 end
farmbuyer@100 2681 return "<unknown loot entry type>"
farmbuyer@100 2682 end,
farmbuyer@100 2683 --@end-debug@
farmbuyer@100 2684 }
farmbuyer@100 2685 function _do_loot_metas()
farmbuyer@100 2686 for i,e in ipairs(g_loot) do
farmbuyer@100 2687 setmetatable(e,loot_entry_mt)
farmbuyer@1 2688 end
farmbuyer@100 2689 _do_loot_metas = nil
farmbuyer@100 2690 end
farmbuyer@1 2691
farmbuyer@1 2692 -- Given a loot index, searches backwards for a timestamp. Returns that
farmbuyer@1 2693 -- index and the time entry, or nil if it falls off the beginning. Pass an
farmbuyer@65 2694 -- optional second index to search no earlier than that.
farmbuyer@1 2695 -- May also be able to make good use of this in forum-generation routine.
farmbuyer@1 2696 function addon:find_previous_time_entry(i,stop)
farmbuyer@17 2697 stop = stop or 0
farmbuyer@1 2698 while i > stop do
farmbuyer@1 2699 if g_loot[i].kind == 'time' then
farmbuyer@1 2700 return i, g_loot[i]
farmbuyer@1 2701 end
farmbuyer@1 2702 i = i - 1
farmbuyer@1 2703 end
farmbuyer@1 2704 end
farmbuyer@1 2705
farmbuyer@1 2706 -- format_timestamp (["format_string"], Day, [Loot])
farmbuyer@147 2707 -- FORMAT_STRING may contain $x (x in TmdHMS) tokens, with the same
farmbuyer@147 2708 -- meanings as in Lua/strftime but restricted formatting:
farmbuyer@147 2709 -- Y year, 4 digit
farmbuyer@147 2710 -- m month, 2 digit
farmbuyer@147 2711 -- d day, 2 digit
farmbuyer@147 2712 -- H hour, 2 digit, 24-hour clock
farmbuyer@147 2713 -- M minute
farmbuyer@147 2714 -- S second
farmbuyer@1 2715 -- DAY is a loot entry with kind=='time', and controls the date printed.
farmbuyer@1 2716 -- LOOT may be any kind of entry in the g_loot table. If present, it
farmbuyer@147 2717 -- overrides the clock values printed; if absent, those values are
farmbuyer@1 2718 -- taken from the DAY entry.
farmbuyer@1 2719 local format_timestamp_values, point2dee = {}, "%.2d"
farmbuyer@1 2720 function addon:format_timestamp (fmt_opt, day_entry, time_entry_opt)
farmbuyer@1 2721 if not time_entry_opt then
farmbuyer@1 2722 if type(fmt_opt) == 'table' then -- Two entries, default format
farmbuyer@1 2723 time_entry_opt, day_entry = day_entry, fmt_opt
farmbuyer@147 2724 fmt_opt = "$Y/$m/$d $H:$M"
farmbuyer@41 2725 --elseif type(fmt_opt) == "string" then -- Day entry only, caller-specified format
farmbuyer@1 2726 end
farmbuyer@1 2727 end
farmbuyer@1 2728 format_timestamp_values.Y = ("%.4d"):format (day_entry.startday.year)
farmbuyer@147 2729 format_timestamp_values.m = ("%.2d"):format (day_entry.startday.month)
farmbuyer@147 2730 format_timestamp_values.d = ("%.2d"):format (day_entry.startday.day)
farmbuyer@147 2731 format_timestamp_values.H = ("%.2d"):format ((time_entry_opt or day_entry).hour)
farmbuyer@147 2732 format_timestamp_values.M = ("%.2d"):format ((time_entry_opt or day_entry).minute)
farmbuyer@147 2733 format_timestamp_values.S = date ("%S", (time_entry_opt or day_entry).stamp)
farmbuyer@147 2734 return fmt_opt:gsub ('%$([YmdHMS])', format_timestamp_values)
farmbuyer@1 2735 end
farmbuyer@1 2736
farmbuyer@1 2737 local done_todays_date
farmbuyer@1 2738 function addon:_reset_timestamps()
farmbuyer@1 2739 done_todays_date = nil
farmbuyer@1 2740 end
farmbuyer@1 2741 local function do_todays_date()
farmbuyer@1 2742 local text, M, D, Y = makedate()
farmbuyer@1 2743 local found,ts = #g_loot+1
farmbuyer@1 2744 repeat
farmbuyer@1 2745 found,ts = addon:find_previous_time_entry(found-1)
farmbuyer@1 2746 if found and ts.startday.text == text then
farmbuyer@1 2747 done_todays_date = true
farmbuyer@1 2748 end
farmbuyer@1 2749 until done_todays_date or (not found)
farmbuyer@1 2750 if done_todays_date then
farmbuyer@1 2751 g_today = ts
farmbuyer@1 2752 else
farmbuyer@1 2753 done_todays_date = true
farmbuyer@1 2754 g_today = g_loot[addon._addLootEntry{
farmbuyer@1 2755 kind = 'time',
farmbuyer@1 2756 startday = {
farmbuyer@1 2757 text = text, month = M, day = D, year = Y
farmbuyer@1 2758 }
farmbuyer@1 2759 }]
farmbuyer@1 2760 end
farmbuyer@1 2761 addon:_fill_out_eoi_data(1)
farmbuyer@1 2762 end
farmbuyer@1 2763
farmbuyer@1 2764 -- Adding anything original to g_loot goes through this routine.
farmbuyer@89 2765 -- More precisely, anything new on the EOI tab hits this; it does not
farmbuyer@89 2766 -- necessarily need to be a looted item.
farmbuyer@1 2767 function addon._addLootEntry (e)
farmbuyer@1 2768 setmetatable(e,loot_entry_mt)
farmbuyer@1 2769
farmbuyer@1 2770 if not done_todays_date then do_todays_date() end
farmbuyer@1 2771
farmbuyer@147 2772 -- All kinds of things go awry (especially history preening) if two
farmbuyer@147 2773 -- entries share the exact same timestamp, and we can't get any better
farmbuyer@147 2774 -- than one second resolution.
farmbuyer@147 2775 --
farmbuyer@147 2776 -- Well, the only API in-game with finer precision is GetTime but the
farmbuyer@147 2777 -- computer uptime doesn't help us. Stripping the fractional part off
farmbuyer@147 2778 -- and gluing it to time_t would be too risky as they don't cycle at
farmbuyer@147 2779 -- the same time. We could do something involving a count incrementing
farmbuyer@147 2780 -- with the refresh rate, but... blech.
farmbuyer@147 2781 --
farmbuyer@147 2782 -- So we sort of cheat. New entries are pushed into the future one
farmbuyer@147 2783 -- second at a time, if needed, so that no two time_t's are equal.
farmbuyer@107 2784 local h, m = GetGameTime()
farmbuyer@107 2785 local time_t = time()
farmbuyer@147 2786 local index = #g_loot -- note, previous entry
farmbuyer@1 2787 e.hour = h
farmbuyer@1 2788 e.minute = m
farmbuyer@147 2789 if index > 0 and g_loot[index].stamp >= time_t then
farmbuyer@147 2790 time_t = g_loot[index].stamp + 1
farmbuyer@147 2791 addon.dprint('flow', "bumping timestamp to", time_t)
farmbuyer@147 2792 end
farmbuyer@147 2793 e.stamp = time_t
farmbuyer@147 2794
farmbuyer@147 2795 index = index + 1
farmbuyer@89 2796 if e.kind == 'loot' then
farmbuyer@89 2797 if (not e.unique) or (#e.unique==0) then
farmbuyer@147 2798 e.unique = e.id .. (e.disposition or e.person) .. date (timestamp_fmt_unique, e.stamp)
farmbuyer@89 2799 end
farmbuyer@128 2800 addon:Fire ('NewLootEntry', e, index)
farmbuyer@89 2801 end
farmbuyer@1 2802 g_loot[index] = e
farmbuyer@129 2803 g_gui.g_dloot[index] = nil
farmbuyer@128 2804 addon:Fire ('NewEOIEntry', e, index)
farmbuyer@1 2805 return index
farmbuyer@1 2806 end
farmbuyer@16 2807
farmbuyer@100 2808 -- Safety/convenience wrapper only.
farmbuyer@69 2809 function addon._addBossEntry (e)
farmbuyer@69 2810 local ret = addon._addLootEntry(e)
farmbuyer@69 2811 assert(e.kind=='boss')
farmbuyer@69 2812 local needSize = e.maxsize == nil
farmbuyer@69 2813 local needSnap = e.raidersnap == nil
farmbuyer@69 2814 local needInst = e.instance == nil
farmbuyer@69 2815 if needSize or needSnap then
farmbuyer@69 2816 local ss, max, inst = addon:snapshot_raid()
farmbuyer@69 2817 if needSize then e.maxsize = max end
farmbuyer@69 2818 if needSnap then e.raidersnap = ss end
farmbuyer@69 2819 if needInst then e.instance = inst end
farmbuyer@69 2820 end
farmbuyer@128 2821 addon:Fire ('NewBossEntry', e, ret)
farmbuyer@69 2822 return ret
farmbuyer@69 2823 end
farmbuyer@69 2824
farmbuyer@16 2825 -- Problem: (1) boss kill happens, (2) fast looting happens, (3) boss
farmbuyer@16 2826 -- cache cleanup fires. Result: loot shows up before boss kill entry.
farmbuyer@16 2827 -- Solution: We need to shuffle the boss entry above any of the loot
farmbuyer@16 2828 -- from that boss.
farmbuyer@16 2829 function addon._adjustBossOrder (is, should_be)
farmbuyer@82 2830 if is == should_be then
farmbuyer@16 2831 return
farmbuyer@16 2832 end
farmbuyer@17 2833 if (type(is)~='number') or (type(should_be)~='number') or (is < should_be) then
farmbuyer@19 2834 pprint('loot', is, should_be, "...the hell? bailing")
farmbuyer@16 2835 return
farmbuyer@16 2836 end
farmbuyer@16 2837 if g_loot[should_be].kind == 'time' then
farmbuyer@16 2838 should_be = should_be + 1
farmbuyer@16 2839 if is == should_be then
farmbuyer@16 2840 return
farmbuyer@16 2841 end
farmbuyer@16 2842 end
farmbuyer@16 2843
farmbuyer@16 2844 assert(g_loot[is].kind == 'boss')
farmbuyer@129 2845 local boss = g_gui.g_dloot:remove(is)
farmbuyer@129 2846 g_gui.g_dloot:insert (should_be, boss)
farmbuyer@16 2847 return should_be
farmbuyer@16 2848 end
farmbuyer@1 2849 end
farmbuyer@1 2850
farmbuyer@109 2851 -- Disposition control; more precisely, how various dispositions affect flow
farmbuyer@109 2852 -- and displays elsewhere.
farmbuyer@109 2853 do
farmbuyer@109 2854 local default = {
farmbuyer@109 2855 text = "",
farmbuyer@109 2856 hex = "|cffffffff",
farmbuyer@109 2857 r = 1.0, g = 1.0, b = 1.0, a = 1,
farmbuyer@109 2858 can_reassign = true,
farmbuyer@109 2859 affects_history = true,
farmbuyer@109 2860 from_notes_text = false,
farmbuyer@109 2861 }
farmbuyer@109 2862 local mt = {
farmbuyer@109 2863 __index = function (t,k)
farmbuyer@109 2864 -- don't point index directly at default, need to catch nils
farmbuyer@109 2865 return default
farmbuyer@109 2866 end,
farmbuyer@109 2867 }
farmbuyer@109 2868 local alldisps = setmetatable({}, mt)
farmbuyer@109 2869 addon.disposition_colors = setmetatable({}, mt)
farmbuyer@109 2870
farmbuyer@109 2871 -- These two are clunky wrappers, probably rework this once gain some data.
farmbuyer@109 2872 function addon:_test_disposition (code, attrib)
farmbuyer@109 2873 return alldisps[code][attrib]
farmbuyer@109 2874 end
farmbuyer@109 2875 function addon:_iter_dispositions (attrib)
farmbuyer@109 2876 local r = {}
farmbuyer@109 2877 for code,disp in next, alldisps do
farmbuyer@110 2878 if disp[attrib] then
farmbuyer@109 2879 r[code] = disp.text
farmbuyer@109 2880 end
farmbuyer@109 2881 end
farmbuyer@109 2882 return next, r
farmbuyer@109 2883 end
farmbuyer@109 2884
farmbuyer@128 2885 function _add_loot_disposition (self, code, rhex, ghex, bhex, text_notes,
farmbuyer@110 2886 text_menu, tooltip_txt, can_reassign_p, do_history_p, from_notes_text_p
farmbuyer@109 2887 )
farmbuyer@109 2888 assert(type(code)=='string' and #code>0)
farmbuyer@110 2889 assert(type(text_notes)=='string')
farmbuyer@109 2890 assert(type(rhex)=='string')
farmbuyer@109 2891 assert(type(bhex)=='string')
farmbuyer@109 2892 assert(type(ghex)=='string')
farmbuyer@110 2893
farmbuyer@128 2894 addon.disposition_colors[code] = {
farmbuyer@110 2895 text = text_notes,
farmbuyer@109 2896 -- for chat output by core code
farmbuyer@109 2897 hex = "|cff" .. rhex .. ghex .. bhex,
farmbuyer@109 2898 -- for lib-st
farmbuyer@109 2899 r = tonumber(rhex,16)/255,
farmbuyer@109 2900 g = tonumber(ghex,16)/255,
farmbuyer@109 2901 b = tonumber(bhex,16)/255,
farmbuyer@109 2902 a = 1,
farmbuyer@109 2903 }
farmbuyer@109 2904 -- not not = poor man's "toboolean", don't potentially hold arg
farmbuyer@109 2905 -- objects from garbage collection
farmbuyer@109 2906 alldisps[code] = {
farmbuyer@110 2907 text = text_notes,
farmbuyer@109 2908 can_reassign = not not can_reassign_p,
farmbuyer@109 2909 affects_history = not not do_history_p,
farmbuyer@109 2910 from_notes_text = not not from_notes_text_p,
farmbuyer@109 2911 }
farmbuyer@110 2912
farmbuyer@128 2913 local dd = g_gui.add_dropdown_entry ('eoi_loot_mark', text_menu or text_notes,
farmbuyer@110 2914 --[[function_table=]]nil, 'df_DISPOSITION', code, tooltip_txt)
farmbuyer@128 2915 dd.colorCode = addon.disposition_colors[code].hex
farmbuyer@128 2916 addon.dprint('flow', ("Source '%s' adds loot disposition '%s', flags"):
farmbuyer@128 2917 format(self.name or tostring(self), code),
farmbuyer@128 2918 can_reassign_p, do_history_p, from_notes_text_p)
farmbuyer@128 2919 return dd
farmbuyer@109 2920 end
farmbuyer@109 2921 end
farmbuyer@109 2922
farmbuyer@19 2923 -- In the rare case of items getting put into the loot table without current
farmbuyer@19 2924 -- item cache data (which will have arrived by now).
farmbuyer@114 2925 function addon:do_item_cache_fixup (silent_p)
farmbuyer@114 2926 if not silent_p then
farmbuyer@114 2927 self:Print("Fixing up missing item cache data...")
farmbuyer@114 2928 end
farmbuyer@19 2929
farmbuyer@19 2930 local numfound = 0
farmbuyer@114 2931 local earliest_fixed
farmbuyer@19 2932 local borkedpat = '^'..UNKNOWN..': (%S+)'
farmbuyer@19 2933
farmbuyer@73 2934 -- 'while true' so that we can use (inner) break as (outer) continue
farmbuyer@73 2935 for i,e in self:filtered_loot_iter('loot') do while true do
farmbuyer@73 2936 if not e.cache_miss then break end
farmbuyer@114 2937 local borked_id = e.itemname:match(borkedpat) or e.id
farmbuyer@73 2938 if not borked_id then break end
farmbuyer@73 2939 numfound = numfound + 1
farmbuyer@73 2940 -- Best to use the safest and most flexible API here, which is GII and
farmbuyer@73 2941 -- its assload of return values.
farmbuyer@73 2942 local iname, ilink, iquality, _,_,_,_,_,_, itexture = GetItemInfo(borked_id)
farmbuyer@73 2943 if iname then
farmbuyer@73 2944 local msg = [[ Entry %d patched up with %s.]]
farmbuyer@73 2945 e.quality = iquality
farmbuyer@73 2946 e.itemname = iname
farmbuyer@146 2947 e.itemstring = ilink:match("item[%-?%d:]+")
farmbuyer@146 2948 e.id = tonumber(e.itemstring:match("^item:(%d+)") or 0)
farmbuyer@73 2949 e.itemlink = ilink
farmbuyer@73 2950 e.itexture = itexture
farmbuyer@73 2951 e.cache_miss = nil
farmbuyer@73 2952 if e.unique then
farmbuyer@73 2953 local gu = g_uniques[e.unique]
farmbuyer@73 2954 local player_i, player_h, hist_i = _history_by_loot_id (e.unique, "fixcache")
farmbuyer@73 2955 if gu.loot ~= i then -- is this an actual problem?
farmbuyer@76 2956 pprint ('loot',
farmbuyer@76 2957 ("Unique value '%s' had iterator value %d but g_uniques index %s."):
farmbuyer@76 2958 format(e.unique,i,tostring(gu.loot)))
farmbuyer@73 2959 end
farmbuyer@73 2960 if player_i then
farmbuyer@73 2961 player_h.id[e.unique] = e.id
farmbuyer@73 2962 msg = [[ Entry %d (and history) patched up with %s.]]
farmbuyer@19 2963 end
farmbuyer@19 2964 end
farmbuyer@114 2965 earliest_fixed = earliest_fixed or i
farmbuyer@114 2966 if not silent_p then self:Print(msg, i, ilink) end
farmbuyer@19 2967 end
farmbuyer@73 2968 break
farmbuyer@73 2969 end end
farmbuyer@19 2970
farmbuyer@114 2971 if earliest_fixed then
farmbuyer@114 2972 self.loot_clean = earliest_fixed-1 -- this works out even at i == 1
farmbuyer@114 2973 end
farmbuyer@114 2974 if not silent_p then
farmbuyer@114 2975 self:Print("...finished. Found %d |4entry:entries; with weird data.", numfound)
farmbuyer@114 2976 end
farmbuyer@19 2977 end
farmbuyer@19 2978
farmbuyer@76 2979 do
farmbuyer@76 2980 local gur
farmbuyer@76 2981
farmbuyer@76 2982 -- Strictly speaking, we'd want to handle individual 'exist' entries
farmbuyer@76 2983 -- as they expire, rather then waiting for all of them to expire and then
farmbuyer@76 2984 -- doing them as a group. But, if there're more than one of these per
farmbuyer@76 2985 -- boss, something else is funky anyhow and certainly not a hurry.
farmbuyer@76 2986 local function fixup_unique_replacements()
farmbuyer@76 2987 for exist,info in pairs(gur.replacements) do
farmbuyer@76 2988 local winning_index = 1
farmbuyer@76 2989 local winner = info[1]
farmbuyer@76 2990 info[1] = nil
farmbuyer@82 2991 pprint('improv', "fixup for", exist, "starting with guid",
farmbuyer@82 2992 winner[1], "with tag", winner[2], "out of", #info,
farmbuyer@82 2993 "total entries")
farmbuyer@76 2994 -- Lowest player GUID wins. Seniority gotta count for something.
farmbuyer@76 2995 for i = 2, #info do
farmbuyer@76 2996 if winner[1] <= info[i][1] then
farmbuyer@76 2997 pprint('improv', "champ wins against", i, info[i][1])
farmbuyer@76 2998 flib.del(info[i])
farmbuyer@76 2999 else
farmbuyer@76 3000 pprint('improv', "challenger wins with", i, info[i][1])
farmbuyer@76 3001 flib.del(winner)
farmbuyer@76 3002 winner = info[i]
farmbuyer@76 3003 winning_index = i
farmbuyer@76 3004 end
farmbuyer@76 3005 info[i] = nil
farmbuyer@76 3006 end
farmbuyer@76 3007 pprint('improv', "final:", winner[1], winner[2])
farmbuyer@76 3008 --[[
farmbuyer@76 3009 A: winner was generated locally
farmbuyer@82 3010 >winning_index == 1
farmbuyer@76 3011 >g_loot and history already has the replacement value
farmbuyer@76 3012 B: winner was generated remotely
farmbuyer@76 3013 >need to scan and replace
farmbuyer@82 3014 Detecting A is strictly an optimization. We should be able to do
farmbuyer@89 3015 this code safely in all cases. Important to note: a local winner
farmbuyer@92 3016 will always be at index 1, but a winner at index 1 does not
farmbuyer@92 3017 necessarily mean it was locally generated (e.g., if the local
farmbuyer@92 3018 itemfilter drops it but a remote player does an improv). Just
farmbuyer@92 3019 do the general case until/unless this becomes a problem.
farmbuyer@76 3020 ]]
farmbuyer@89 3021 local cache = g_uniques:SEARCH(exist)
farmbuyer@89 3022 local looti,hi,ui = cache.loot, cache.history, cache.history_may
farmbuyer@89 3023
farmbuyer@89 3024 -- Active loot
farmbuyer@89 3025 if looti and g_loot[looti].unique == exist then
farmbuyer@89 3026 pprint('improv', "found and replaced loot entry", looti)
farmbuyer@89 3027 g_loot[looti].unique = winner[2]
farmbuyer@89 3028 else
farmbuyer@89 3029 -- If sharded, filtered, or the improv was done by the local
farmbuyer@89 3030 -- player, then the "previous" unique would not have made it
farmbuyer@89 3031 -- into the tables to begin with. So don't flag an error.
farmbuyer@89 3032 pprint('improv', "No active loot found", looti,
farmbuyer@89 3033 looti and g_loot[looti].unique, winning_index)
farmbuyer@89 3034 end
farmbuyer@89 3035
farmbuyer@89 3036 -- History
farmbuyer@89 3037 if hi ~= g_uniques.NOTFOUND then
farmbuyer@89 3038 hi = addon.history.byname[hi]
farmbuyer@89 3039 local hist = addon.history[hi]
farmbuyer@89 3040 if ui and hist.unique[ui] == exist then
farmbuyer@89 3041 -- ui is valid
farmbuyer@82 3042 else
farmbuyer@89 3043 ui = nil
farmbuyer@89 3044 for i,ui2 in ipairs(hist.unique) do
farmbuyer@89 3045 if ui2 == exist then
farmbuyer@89 3046 ui = i
farmbuyer@89 3047 break
farmbuyer@76 3048 end
farmbuyer@76 3049 end
farmbuyer@89 3050 end
farmbuyer@89 3051 if ui then
farmbuyer@89 3052 pprint('improv', "found and replacing history entry", hi,
farmbuyer@89 3053 ui, hist.name)
farmbuyer@89 3054 assert(exist ~= winner[2])
farmbuyer@89 3055 hist.when[winner[2]] = hist.when[exist]
farmbuyer@89 3056 hist.id[winner[2]] = hist.id[exist]
farmbuyer@89 3057 hist.count[winner[2]] = hist.count[exist]
farmbuyer@89 3058 hist.unique[ui] = winner[2]
farmbuyer@89 3059 hist.when[exist] = nil
farmbuyer@89 3060 hist.id[exist] = nil
farmbuyer@89 3061 hist.count[exist] = nil
farmbuyer@76 3062 end
farmbuyer@76 3063 end
farmbuyer@89 3064
farmbuyer@76 3065 pprint('improv', "finished with", exist, "into", winner[2])
farmbuyer@76 3066 flib.del(winner)
farmbuyer@76 3067 flib.del(info)
farmbuyer@76 3068 gur.replacements[exist] = nil
farmbuyer@76 3069 end
farmbuyer@76 3070 end
farmbuyer@76 3071
farmbuyer@76 3072 local function new_entry (id, exist, repl, is_local)
farmbuyer@76 3073 pprint('improv', "new_entry", id, exist, repl, is_local)
farmbuyer@76 3074 gur.replacements[exist] = gur.replacements[exist] or flib.new()
farmbuyer@76 3075 tinsert (gur.replacements[exist], flib.new (tonumber(id), repl))
farmbuyer@76 3076 if is_local then
farmbuyer@76 3077 gur.replacements[exist].LOCAL = repl
farmbuyer@76 3078 end
farmbuyer@76 3079 gur.cache:add (exist)
farmbuyer@76 3080 end
farmbuyer@76 3081
farmbuyer@76 3082 local function get_previous_replacement (exist)
farmbuyer@76 3083 local l = gur.replacements[exist]
farmbuyer@76 3084 if l and l.LOCAL then
farmbuyer@76 3085 pprint('improv', "check for previous", exist, "returns valid",
farmbuyer@76 3086 l.LOCAL)
farmbuyer@76 3087 return l.LOCAL
farmbuyer@76 3088 end
farmbuyer@76 3089 pprint('improv', "check for previous", exist, "returns nil")
farmbuyer@76 3090 end
farmbuyer@76 3091
farmbuyer@76 3092 function _setup_unique_replace ()
farmbuyer@76 3093 gur = {}
farmbuyer@76 3094 gur.cache = create_new_cache ('improv', 10, fixup_unique_replacements)
farmbuyer@107 3095 gur.me = tonumber(UnitGUID('player'):sub(-7),16)
farmbuyer@76 3096 gur.replacements = {}
farmbuyer@76 3097 gur.new_entry = new_entry
farmbuyer@76 3098 gur.get_previous_replacement = get_previous_replacement
farmbuyer@76 3099 g_unique_replace = gur
farmbuyer@76 3100 _setup_unique_replace = nil
farmbuyer@76 3101 end
farmbuyer@76 3102 end
farmbuyer@76 3103
farmbuyer@77 3104 do
farmbuyer@77 3105 local clicky
farmbuyer@81 3106 function addon:horrible_horrible_error (err_msg)
farmbuyer@81 3107 if self.display then
farmbuyer@81 3108 local d = self.display
farmbuyer@81 3109 if d then
farmbuyer@100 3110 -- Take this down a piece at a time, on the assumption that
farmbuyer@100 3111 -- the main window won't be able to do so.
farmbuyer@96 3112 local gui = d:GetUserData("GUI state")
farmbuyer@96 3113 local eoist = gui.eoiST
farmbuyer@81 3114 if eoist then eoist:Hide() end
farmbuyer@96 3115 local histst = gui.histST
farmbuyer@81 3116 if histst then histst:Hide() end
farmbuyer@81 3117 d:Hide()
farmbuyer@81 3118 end
farmbuyer@81 3119 end
farmbuyer@81 3120 self.NOLOAD = err_msg
farmbuyer@77 3121 -- This should happen so rarely that it's not worth moving into gui.lua
farmbuyer@81 3122 if not StaticPopupDialogs["OUROL_ARGH"] then
farmbuyer@81 3123 StaticPopupDialogs["OUROL_ARGH"] = flib.StaticPopup{
farmbuyer@77 3124 button1 = OKAY,
farmbuyer@77 3125 }
farmbuyer@77 3126 clicky = addon.format_hypertext(
farmbuyer@77 3127 [[ SYSTEM FAILURE -- RELEASE RINZLER ]], "|cffff0000",
farmbuyer@81 3128 function() StaticPopup_Show "OUROL_ARGH" end)
farmbuyer@77 3129 end
farmbuyer@81 3130 StaticPopupDialogs["OUROL_ARGH"].text = horrible_error_text:format(err_msg)
farmbuyer@107 3131 PlaySoundFile ([[Interface\AddOns\Ouro_Loot\sfrr.ogg]], "Master")
farmbuyer@77 3132 addon:Print (" ")
farmbuyer@77 3133 addon:Print (" ", clicky)
farmbuyer@77 3134 addon:Print (" ")
farmbuyer@77 3135 end
farmbuyer@81 3136
farmbuyer@81 3137 function _unavoidable_collision (err)
farmbuyer@81 3138 addon:horrible_horrible_error (err)
farmbuyer@81 3139 -- we don't actually need to kill the GUI in this case
farmbuyer@81 3140 addon.NOLOAD = nil
farmbuyer@81 3141 end
farmbuyer@77 3142 end
farmbuyer@77 3143
farmbuyer@1 3144
farmbuyer@1 3145 ------ Saved texts
farmbuyer@1 3146 function addon:check_saved_table(silent_p)
farmbuyer@107 3147 local s = OuroLootSV_saved
farmbuyer@1 3148 if s and (#s > 0) then return s end
farmbuyer@107 3149 OuroLootSV_saved = nil
farmbuyer@1 3150 if not silent_p then self:Print("There are no saved loot texts.") end
farmbuyer@1 3151 end
farmbuyer@1 3152
farmbuyer@1 3153 function addon:save_list()
farmbuyer@81 3154 local s = self:check_saved_table(); if not s then return end
farmbuyer@1 3155 for i,t in ipairs(s) do
farmbuyer@1 3156 self:Print("#%d %s %d entries %s", i, t.date, t.count, t.name)
farmbuyer@1 3157 end
farmbuyer@1 3158 end
farmbuyer@1 3159
farmbuyer@1 3160 function addon:save_saveas(name)
farmbuyer@107 3161 OuroLootSV_saved = OuroLootSV_saved or {}
farmbuyer@107 3162 local SV = OuroLootSV_saved
farmbuyer@16 3163 local n = #SV + 1
farmbuyer@1 3164 local save = {
farmbuyer@1 3165 name = name,
farmbuyer@1 3166 date = makedate(),
farmbuyer@1 3167 count = #g_loot,
farmbuyer@1 3168 }
farmbuyer@10 3169 for text in self:registered_textgen_iter() do
farmbuyer@10 3170 save[text] = g_loot[text]
farmbuyer@10 3171 end
farmbuyer@1 3172 self:Print("Saving current loot texts to #%d '%s'", n, name)
farmbuyer@16 3173 SV[n] = save
farmbuyer@1 3174 return self:save_list()
farmbuyer@1 3175 end
farmbuyer@1 3176
farmbuyer@1 3177 function addon:save_restore(num)
farmbuyer@81 3178 local s = self:check_saved_table(); if not s then return end
farmbuyer@1 3179 if (not num) or (num > #s) then
farmbuyer@1 3180 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 3181 end
farmbuyer@1 3182 local save = s[num]
farmbuyer@92 3183 self:Print("Overwriting current loot data with saved text #%d '%s'",num,save.name)
farmbuyer@1 3184 self:Clear(--[[verbose_p=]]false)
farmbuyer@1 3185 -- Clear will already have displayed the window, and re-selected the first
farmbuyer@1 3186 -- tab. Set these up for when the text tabs are clicked.
farmbuyer@10 3187 for text in self:registered_textgen_iter() do
farmbuyer@10 3188 g_loot[text] = save[text]
farmbuyer@10 3189 end
farmbuyer@1 3190 end
farmbuyer@1 3191
farmbuyer@1 3192 function addon:save_delete(num)
farmbuyer@81 3193 local s = self:check_saved_table(); if not s then return end
farmbuyer@1 3194 if (not num) or (num > #s) then
farmbuyer@1 3195 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 3196 end
farmbuyer@1 3197 self:Print("Deleting saved text #"..num)
farmbuyer@1 3198 tremove(s,num)
farmbuyer@1 3199 return self:save_list()
farmbuyer@1 3200 end
farmbuyer@1 3201
farmbuyer@1 3202
farmbuyer@1 3203 ------ Loot histories
farmbuyer@1 3204 -- history_all = {
farmbuyer@1 3205 -- ["Kilrogg"] = {
farmbuyer@1 3206 -- ["realm"] = "Kilrogg", -- not saved
farmbuyer@1 3207 -- ["st"] = { lib-st display table }, -- not saved
farmbuyer@1 3208 -- ["byname"] = { -- not saved
farmbuyer@1 3209 -- ["OtherPlayer"] = 2,
farmbuyer@1 3210 -- ["Farmbuyer"] = 1,
farmbuyer@1 3211 -- }
farmbuyer@1 3212 -- [1] = {
farmbuyer@1 3213 -- ["name"] = "Farmbuyer",
farmbuyer@73 3214 -- ["person_class"] = "PRIEST", -- may be missing, used in display only
farmbuyer@73 3215 -- -- sorted array:
farmbuyer@73 3216 -- ["unique"] = { most_recent_tag, previous_tag, .... },
farmbuyer@73 3217 -- -- these are indexed by unique tags, and 'count' may be missing:
farmbuyer@147 3218 -- ["when"] = { ["tag"] = "formatted timestamp for displaying loot history" },
farmbuyer@73 3219 -- ["id"] = { ["tag"] = 11111 },
farmbuyer@73 3220 -- ["count"] = { ["tag"] = "x3", .... },
farmbuyer@1 3221 -- },
farmbuyer@1 3222 -- [2] = {
farmbuyer@1 3223 -- ["name"] = "OtherPlayer",
farmbuyer@1 3224 -- ......
farmbuyer@1 3225 -- }, ......
farmbuyer@1 3226 -- },
farmbuyer@1 3227 -- ["OtherRealm"] = ......
farmbuyer@1 3228 -- }
farmbuyer@73 3229 --
farmbuyer@114 3230 -- Up through 2.18.4 (specifically through rev 95), an individual player's
farmbuyer@73 3231 -- table looked like this:
farmbuyer@73 3232 -- ["name"] = "Farmbuyer",
farmbuyer@114 3233 -- -- most recent loot:
farmbuyer@114 3234 -- [1] = { id = nnnnn, when = "formatted timestamp for displaying" }
farmbuyer@114 3235 -- -- previous loot:
farmbuyer@114 3236 -- [2] = { ......., [count = "x3"] }
farmbuyer@73 3237 -- which was much easier to manipulate, but had a ton of memory overhead.
farmbuyer@1 3238 do
farmbuyer@114 3239 local new, del, date = flib.new, flib.del, date
farmbuyer@114 3240
farmbuyer@73 3241 -- Sorts a player's history from newest to oldest, according to the
farmbuyer@73 3242 -- formatted timestamp. This is expensive, and destructive for P.unique.
farmbuyer@76 3243 local function compare_timestamps (L, R)
farmbuyer@76 3244 return L > R -- reverse of normal order, newest first
farmbuyer@76 3245 end
farmbuyer@73 3246 local function sort_player (p)
farmbuyer@125 3247 local new_uniques, uniques_bywhen, when_array = {}, new(), new()
farmbuyer@73 3248 for u,tstamp in pairs(p.when) do
farmbuyer@147 3249 -- XXX multiple identical tstamps
farmbuyer@73 3250 uniques_bywhen[tstamp] = u
farmbuyer@73 3251 when_array[#when_array+1] = tstamp
farmbuyer@73 3252 end
farmbuyer@107 3253 table.sort (when_array, compare_timestamps)
farmbuyer@73 3254 for i,tstamp in ipairs(when_array) do
farmbuyer@73 3255 new_uniques[i] = uniques_bywhen[tstamp]
farmbuyer@73 3256 end
farmbuyer@73 3257 p.unique = new_uniques
farmbuyer@125 3258 del(uniques_bywhen)
farmbuyer@125 3259 del(when_array)
farmbuyer@73 3260 end
farmbuyer@73 3261
farmbuyer@81 3262 function addon:repair_history_integrity()
farmbuyer@81 3263 local rcount, pcount, hcount, errors = 0, 0, 0, 0
farmbuyer@81 3264 local empties_to_delete = {}
farmbuyer@81 3265
farmbuyer@81 3266 for rname,realm in pairs(self.history_all) do
farmbuyer@81 3267 for pk,player in ipairs(realm) do
farmbuyer@81 3268 local id, when, unique, count = {}, {}, {}, {}
farmbuyer@81 3269 for i,h in ipairs(player.unique) do
farmbuyer@81 3270 h = tostring(h)
farmbuyer@81 3271 if player.when[h] and player.id[h] then
farmbuyer@81 3272 unique[#unique+1] = h
farmbuyer@81 3273 id[h] = player.id[h]
farmbuyer@81 3274 when[h] = player.when[h]
farmbuyer@81 3275 count[h] = player.count[h]
farmbuyer@81 3276 else
farmbuyer@108 3277 self:Print("> Realm %s, player %s, entry %d: tag <%s>, id <%s>, time <%s>, count <%s>",
farmbuyer@81 3278 rname, player.name, i, h, tostring(player.id[h]),
farmbuyer@81 3279 tostring(player.when[h]), tostring(player.count[h]))
farmbuyer@81 3280 errors = errors + 1
farmbuyer@81 3281 end
farmbuyer@81 3282 hcount = hcount + 1
farmbuyer@81 3283 end
farmbuyer@81 3284 player.id, player.when, player.unique, player.count =
farmbuyer@81 3285 id, when, unique, count
farmbuyer@114 3286 player.person_class = player.person_class or
farmbuyer@114 3287 (g_loot.raiders[player.name] and g_loot.raiders[player.name].class)
farmbuyer@81 3288 if #player.unique > 1 then
farmbuyer@81 3289 sort_player(player)
farmbuyer@81 3290 elseif #player.unique == 0 then
farmbuyer@81 3291 tinsert (empties_to_delete, 1, pk)
farmbuyer@81 3292 end
farmbuyer@81 3293 pcount = pcount + 1
farmbuyer@81 3294 end
farmbuyer@81 3295 if #empties_to_delete > 0 then
farmbuyer@81 3296 for _,pk in ipairs(empties_to_delete) do
farmbuyer@81 3297 local player = tremove (realm, pk)
farmbuyer@108 3298 self:Print("> Realm %s, player %s, is empty", rname, player.name)
farmbuyer@108 3299 errors = errors + 1
farmbuyer@81 3300 end
farmbuyer@81 3301 wipe(empties_to_delete)
farmbuyer@81 3302 end
farmbuyer@81 3303 if #realm == 0 then
farmbuyer@81 3304 self.history_all[rname] = nil
farmbuyer@108 3305 self:Print("> Realm %s is empty", rname)
farmbuyer@108 3306 errors = errors + 1
farmbuyer@81 3307 end
farmbuyer@81 3308 rcount = rcount + 1
farmbuyer@81 3309 end
farmbuyer@81 3310 self:_build_history_names()
farmbuyer@81 3311 if errors > 0 then
farmbuyer@81 3312 self:Print("The listed entries have been erased from history.")
farmbuyer@81 3313 end
farmbuyer@108 3314 self:Print("Finished examining %d realms, %d players, %d history entries.",
farmbuyer@108 3315 rcount, pcount, hcount)
farmbuyer@81 3316 end
farmbuyer@81 3317
farmbuyer@73 3318 -- Possibly called during login. Cleared when no longer needed.
farmbuyer@73 3319 -- Rewrites a PLAYER table from format 3 to format 4.
farmbuyer@76 3320 function addon:_uplift_history_format (player)
farmbuyer@73 3321 local unique, when, id, count = {}, {}, {}, {}
farmbuyer@73 3322 local name = player.name
farmbuyer@73 3323
farmbuyer@73 3324 for i,h in ipairs(player) do
farmbuyer@73 3325 local U = h.unique
farmbuyer@73 3326 unique[i] = U
farmbuyer@73 3327 when[U] = h.when
farmbuyer@73 3328 id[U] = h.id
farmbuyer@73 3329 count[U] = h.count
farmbuyer@73 3330 end
farmbuyer@73 3331
farmbuyer@73 3332 wipe(player)
farmbuyer@73 3333 player.name = name
farmbuyer@73 3334 player.id, player.when, player.unique, player.count =
farmbuyer@73 3335 id, when, unique, count
farmbuyer@73 3336 end
farmbuyer@76 3337
farmbuyer@73 3338 function addon:_cache_history_uniques()
farmbuyer@73 3339 UpdateAddOnMemoryUsage()
farmbuyer@73 3340 local before = GetAddOnMemoryUsage(nametag)
farmbuyer@73 3341 local trouble
farmbuyer@73 3342 local count = 0
farmbuyer@73 3343 for hi,player in ipairs(self.history) do
farmbuyer@73 3344 for ui,u in ipairs(player.unique) do
farmbuyer@87 3345 g_uniques[u] = { history = player.name, history_may = ui }
farmbuyer@73 3346 count = count + 1
farmbuyer@73 3347 end
farmbuyer@73 3348 end
farmbuyer@73 3349 for i,e in self:filtered_loot_iter('loot') do
farmbuyer@73 3350 if e.unique and e.unique ~= "" then
farmbuyer@107 3351 local hmmm = rawget(g_uniques,e.unique)
farmbuyer@73 3352 if hmmm then
farmbuyer@82 3353 hmmm.loot = i
farmbuyer@109 3354 elseif not self:_test_disposition (e.disposition, 'affects_history') then
farmbuyer@73 3355 g_uniques[e.unique] = { loot = i, history = g_uniques.NOTFOUND }
farmbuyer@73 3356 count = count + 1
farmbuyer@73 3357 else
farmbuyer@76 3358 hmmm = "active data not found in history ("..i.."/"..tostring(e.unique)
farmbuyer@76 3359 ..") in precache loop! trying to fixup for this session"
farmbuyer@76 3360 pprint(hmmm) -- more?
farmbuyer@73 3361 -- try to simply fix up errors as we go
farmbuyer@73 3362 g_uniques[e.unique] = { loot = i, history = g_uniques.NOTFOUND }
farmbuyer@73 3363 end
farmbuyer@73 3364 else
farmbuyer@89 3365 -- The usual cause: when only source is from an older client
farmbuyer@89 3366 -- and the disposition did not trigger addhistory, then not
farmbuyer@89 3367 -- even a stub history entry happens. Code has now been added
farmbuyer@89 3368 -- to try harder to prevent this, but it's still best to not
farmbuyer@89 3369 -- simple ignore it.
farmbuyer@73 3370 trouble = true
farmbuyer@89 3371 pprint('loot', "ERROR precache loop found missing/outdated unique tag!",
farmbuyer@89 3372 i, "tag <"..tostring(e.unique).."> from?", tostring(e.bcast_from))
farmbuyer@73 3373 end
farmbuyer@73 3374 end
farmbuyer@73 3375 UpdateAddOnMemoryUsage()
farmbuyer@73 3376 local after = GetAddOnMemoryUsage(nametag)
farmbuyer@108 3377 -- This displayed number is occasionally negative, if the GC happens
farmbuyer@108 3378 -- to run during the loops. How much should we care?
farmbuyer@73 3379 self:Print("Pre-scanning history for faster loot handling on %s used %.2f MB of memory across %d entries.",
farmbuyer@73 3380 self.history.realm, (after-before)/1024, count)
farmbuyer@73 3381 if trouble then
farmbuyer@73 3382 self:Print("Note that there were inconsistencies in the data;",
farmbuyer@73 3383 "you should consider submitting a bug report (including your",
farmbuyer@73 3384 "SavedVariables file), and regenerating or preening this",
farmbuyer@89 3385 "realm's loot history. If you keep seeing this message, type",
farmbuyer@89 3386 "'/ouroloot fix ?' and try some of those actions.")
farmbuyer@73 3387 end
farmbuyer@73 3388 g_uniques:SETMODE('probe')
farmbuyer@73 3389 end
farmbuyer@6 3390
farmbuyer@4 3391 -- Builds the map of names to array indices, using passed table or
farmbuyer@4 3392 -- self.history, and stores the result into its 'byname' field. Also
farmbuyer@4 3393 -- called from the GUI code at least once.
farmbuyer@1 3394 function addon:_build_history_names (opt_hist)
farmbuyer@1 3395 local hist = opt_hist or self.history
farmbuyer@1 3396 local m = {}
farmbuyer@1 3397 for i = 1, #hist do
farmbuyer@1 3398 m[hist[i].name] = i
farmbuyer@1 3399 end
farmbuyer@73 3400 -- why yes, I *did* spend many years as a YP/NIS admin, how did you know?
farmbuyer@1 3401 hist.byname = m
farmbuyer@1 3402 end
farmbuyer@1 3403
farmbuyer@1 3404 -- Prepares and returns table to be used as self.history.
farmbuyer@1 3405 function addon:_prep_new_history_category (prev_table, realmname)
farmbuyer@1 3406 local t = prev_table or {
farmbuyer@1 3407 --kind = 'realm',
farmbuyer@6 3408 --realm = realmname,
farmbuyer@1 3409 }
farmbuyer@6 3410 t.realm = realmname
farmbuyer@1 3411
farmbuyer@1 3412 if not t.byname then
farmbuyer@1 3413 self:_build_history_names (t)
farmbuyer@1 3414 end
farmbuyer@1 3415
farmbuyer@1 3416 return t
farmbuyer@1 3417 end
farmbuyer@1 3418
farmbuyer@4 3419 -- Maps a name to an array index, creating new tables if needed. Returns
farmbuyer@6 3420 -- the index and the table at that index.
farmbuyer@4 3421 function addon:get_loot_history (name)
farmbuyer@4 3422 local i
farmbuyer@4 3423 i = self.history.byname[name]
farmbuyer@4 3424 if not i then
farmbuyer@4 3425 i = #self.history + 1
farmbuyer@73 3426 self.history[i] = { name=name, id={}, when={}, unique={}, count={} }
farmbuyer@4 3427 self.history.byname[name] = i
farmbuyer@4 3428 end
farmbuyer@6 3429 return i, self.history[i]
farmbuyer@4 3430 end
farmbuyer@4 3431
farmbuyer@114 3432 -- Prepends data from the loot entry at LOOTINDEX to the history for that
farmbuyer@114 3433 -- player, making it the "most recent" entry regardless of actual data.
farmbuyer@114 3434 -- In the usual case, builds a formatted timestamp string from g_today and
farmbuyer@114 3435 -- the loot entry's recorded time (thus the formatted string really *will*
farmbuyer@114 3436 -- be the most recent entry). If g_today has not been set, then falls
farmbuyer@114 3437 -- back on formatting LOOTINDEX's time_t 'stamp' field.
farmbuyer@114 3438 --
farmbuyer@114 3439 -- If RESORT_P is true-valued, then re-sorts the player's history based on
farmbuyer@114 3440 -- formatted timestmps, instead of leaving the new entry as the latest.
farmbuyer@147 3441 local tfmt_hist = timestamp_fmt_history:gsub('%%','$')
farmbuyer@114 3442 function addon:_addHistoryEntry (lootindex, resort_p)
farmbuyer@1 3443 local e = g_loot[lootindex]
farmbuyer@6 3444 if e.kind ~= 'loot' then return end
farmbuyer@6 3445
farmbuyer@114 3446 if e.person_realm and opts.history_ignore_xrealm then
farmbuyer@114 3447 return
farmbuyer@114 3448 end
farmbuyer@114 3449
farmbuyer@6 3450 local i,h = self:get_loot_history(e.person)
farmbuyer@114 3451 -- If we've added anything at all into g_loot this session, g_today
farmbuyer@114 3452 -- will be set. If we've logged on simply to manipulate history, then
farmbuyer@114 3453 -- try and fake a timestamp (it'll be "close enough").
farmbuyer@147 3454 -- (WoD: This logic may be backwards now that loot entries track time_t.)
farmbuyer@147 3455 local when = g_today
farmbuyer@147 3456 and self:format_timestamp (tfmt_hist, g_today, e)
farmbuyer@147 3457 or date (timestamp_fmt_history, e.stamp)
farmbuyer@87 3458 assert(h.name==e.person)
farmbuyer@73 3459
farmbuyer@114 3460 -- Should rarely happen anymore:
farmbuyer@71 3461 if (not e.unique) or (#e.unique==0) then
farmbuyer@84 3462 e.unique = e.id .. e.person .. when
farmbuyer@71 3463 end
farmbuyer@73 3464 local U = e.unique
farmbuyer@73 3465 tinsert (h.unique, 1, U)
farmbuyer@73 3466 h.when[U] = when
farmbuyer@73 3467 h.id[U] = e.id
farmbuyer@73 3468 h.count[U] = e.count
farmbuyer@114 3469 if resort_p then
farmbuyer@114 3470 sort_player(h)
farmbuyer@114 3471 end
farmbuyer@87 3472 g_uniques[U] = { loot = lootindex, history = e.person }
farmbuyer@100 3473 self:Fire ('NewHistory', e.person, U)
farmbuyer@6 3474 end
farmbuyer@6 3475
farmbuyer@24 3476 -- Create new history table based on current loot.
farmbuyer@6 3477 function addon:rewrite_history (realmname)
farmbuyer@6 3478 local r = assert(realmname)
farmbuyer@6 3479 self.history_all[r] = self:_prep_new_history_category (nil, r)
farmbuyer@6 3480 self.history = self.history_all[r]
farmbuyer@73 3481 g_uniques:RESET()
farmbuyer@6 3482
farmbuyer@6 3483 local g_today_real = g_today
farmbuyer@6 3484 for i,e in ipairs(g_loot) do
farmbuyer@6 3485 if e.kind == 'time' then
farmbuyer@6 3486 g_today = e
farmbuyer@6 3487 elseif e.kind == 'loot' then
farmbuyer@6 3488 self:_addHistoryEntry(i)
farmbuyer@6 3489 end
farmbuyer@6 3490 end
farmbuyer@6 3491 g_today = g_today_real
farmbuyer@6 3492 self.hist_clean = nil
farmbuyer@6 3493
farmbuyer@6 3494 -- safety measure: resort players' tables based on formatted timestamp
farmbuyer@6 3495 for i,h in ipairs(self.history) do
farmbuyer@73 3496 sort_player(h)
farmbuyer@6 3497 end
farmbuyer@6 3498 end
farmbuyer@6 3499
farmbuyer@76 3500 -- Clears all but the most recent HOWMANY (optional, default 1) entries
farmbuyer@76 3501 -- for each player on REALMNAME.
farmbuyer@76 3502 -- This function's name is the legacy of the orignal fsck(8) "-p" option,
farmbuyer@76 3503 -- which has a similar feel.
farmbuyer@76 3504 function addon:preen_history (realmname, howmany)
farmbuyer@6 3505 local r = assert(realmname)
farmbuyer@76 3506 howmany = tonumber(howmany) or 1
farmbuyer@76 3507 if type(self.history_all[r]) ~= 'table' then
farmbuyer@76 3508 return
farmbuyer@76 3509 end
farmbuyer@73 3510 g_uniques:RESET()
farmbuyer@76 3511 for i,h in ipairs(self.history_all[r]) do
farmbuyer@73 3512 -- This is going to do horrible things to memory. The subtables
farmbuyer@73 3513 -- after this step would be large and sparse, with no good way
farmbuyer@73 3514 -- of shrinking the allocation...
farmbuyer@73 3515 sort_player(h)
farmbuyer@73 3516 -- ...so it's better in the long run to discard them.
farmbuyer@76 3517 local new_unique, new_id, new_when, new_count = {}, {}, {}, {}
farmbuyer@76 3518 for ui = 1, howmany do
farmbuyer@76 3519 local U = h.unique[ui]
farmbuyer@76 3520 if not U then break end
farmbuyer@76 3521 new_unique[ui] = U
farmbuyer@76 3522 new_id[U] = h.id[U]
farmbuyer@76 3523 new_when[U] = h.when[U]
farmbuyer@76 3524 new_count[U] = h.count[U]
farmbuyer@76 3525 end
farmbuyer@76 3526 h.unique, h.id, h.when, h.count =
farmbuyer@76 3527 new_unique, new_id, new_when, new_count
farmbuyer@6 3528 end
farmbuyer@1 3529 end
farmbuyer@24 3530
farmbuyer@73 3531 -- Given a unique tag OR an entry in a g_loot table, looks up the
farmbuyer@73 3532 -- corresponding history entry. Returns the player's index and history
farmbuyer@73 3533 -- table (as in get_loot_history) and the index into that table of the
farmbuyer@73 3534 -- loot entry. On failure, returns nil and an error message ready to be
farmbuyer@73 3535 -- formatted with the loot's name/itemlink.
farmbuyer@73 3536 function _history_by_loot_id (needle, operation_text)
farmbuyer@73 3537 local errtxt
farmbuyer@73 3538 if type(needle) == 'string' then
farmbuyer@73 3539 -- unique tag
farmbuyer@73 3540 elseif type(needle) == 'table' then
farmbuyer@73 3541 if needle.kind ~= 'loot' then
farmbuyer@73 3542 error("trying to "..operation_text.." something that isn't loot")
farmbuyer@73 3543 end
farmbuyer@73 3544 needle = needle.unique
farmbuyer@73 3545 if not needle then
farmbuyer@73 3546 return nil, --[[errtxt=]]"Entry for %s is missing a history tag!"
farmbuyer@73 3547 end
farmbuyer@73 3548 else
farmbuyer@73 3549 error("'"..tostring(needle).."' is neither unique string nor loot entry!")
farmbuyer@25 3550 end
farmbuyer@24 3551
farmbuyer@73 3552 local player_i, player_h
farmbuyer@73 3553 local cache = g_uniques[needle]
farmbuyer@24 3554
farmbuyer@73 3555 if cache.history == g_uniques.NOTFOUND then
farmbuyer@73 3556 -- 1) loot an item, 2) clear old history, 3) reassign from current loot
farmbuyer@73 3557 -- Bah. Anybody that tricky is already recoding the tables directly anyhow.
farmbuyer@73 3558 errtxt = "There is no record of %s ever having been assigned!"
farmbuyer@24 3559 else
farmbuyer@87 3560 player_i = addon.history.byname[cache.history]
farmbuyer@73 3561 player_h = addon.history[player_i]
farmbuyer@73 3562 if cache.history_may
farmbuyer@73 3563 and needle == player_h.unique[cache.history_may]
farmbuyer@73 3564 then
farmbuyer@73 3565 return player_i, player_h, cache.history_may
farmbuyer@73 3566 end
farmbuyer@73 3567 for i,u in ipairs(player_h.unique) do
farmbuyer@73 3568 if needle == u then
farmbuyer@73 3569 cache.history_may = i -- might help, might not
farmbuyer@73 3570 return player_i, player_h, i
farmbuyer@24 3571 end
farmbuyer@24 3572 end
farmbuyer@24 3573 end
farmbuyer@24 3574
farmbuyer@73 3575 if not errtxt then
farmbuyer@73 3576 -- The cache finder got a hit, but now it's gone? WTF?
farmbuyer@114 3577 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 3578 end
farmbuyer@73 3579 return nil, errtxt
farmbuyer@25 3580 end
farmbuyer@24 3581
farmbuyer@81 3582 -- Handles reassigning loot between players. Arguments depend on who's
farmbuyer@81 3583 -- calling it:
farmbuyer@81 3584 -- "local", row_index, new_recipient
farmbuyer@81 3585 -- "remote", sender, unique_id, item_id, old_recipient, new_recipient
farmbuyer@81 3586 -- In the local case, must also broadcast a trigger. In the remote case,
farmbuyer@81 3587 -- must figure out the corresponding loot entry (if it exists). In both
farmbuyer@81 3588 -- cases, must update history appropriately. Returns nil if anything odd
farmbuyer@81 3589 -- happens; returns the affected loot index on success.
farmbuyer@81 3590 function addon:reassign_loot (how, ...)
farmbuyer@81 3591 -- This must all be filled out in all cases:
farmbuyer@81 3592 local e, index, from_name, to_name, unique, id
farmbuyer@81 3593 -- Only set in remote case:
farmbuyer@81 3594 local sender
farmbuyer@81 3595
farmbuyer@81 3596 if how == "local" then
farmbuyer@81 3597 -- GUI doesn't allow reassignment unless the item is not-shard,
farmbuyer@81 3598 -- so we can assume the presence of a unique tag in this function.
farmbuyer@81 3599 index, to_name = ...
farmbuyer@81 3600 assert(type(to_name)=='string' and to_name:len()>0)
farmbuyer@81 3601 index = assert(tonumber(index))
farmbuyer@81 3602 e = g_loot[index]
farmbuyer@81 3603 id = e.id
farmbuyer@81 3604 unique = assert(e.unique)
farmbuyer@81 3605 from_name = e.person
farmbuyer@81 3606
farmbuyer@81 3607 elseif how == "remote" then
farmbuyer@81 3608 sender, unique, id, from_name, to_name = ...
farmbuyer@81 3609 id = tonumber(id)
farmbuyer@81 3610 local cache
farmbuyer@81 3611 local loop = 0
farmbuyer@81 3612 repeat -- wtb continue statement pst
farmbuyer@81 3613 if loop > 1 then break end
farmbuyer@81 3614 e = nil
farmbuyer@81 3615 cache = cache and g_uniques:SEARCH(unique) or g_uniques[unique]
farmbuyer@81 3616 index = tonumber(cache.loot)
farmbuyer@81 3617 if index then
farmbuyer@81 3618 e = g_loot[index]
farmbuyer@81 3619 else
farmbuyer@81 3620 end
farmbuyer@81 3621 loop = loop + 1
farmbuyer@81 3622 until e and (e.id == id)
farmbuyer@81 3623
farmbuyer@81 3624 else
farmbuyer@81 3625 return -- silently ignore future cases from future clients
farmbuyer@81 3626 end
farmbuyer@81 3627
farmbuyer@81 3628 if self.debug.loot then
farmbuyer@81 3629 local m = ("Reassign index %d (pre-unique %s) with id %d from '%s' to '%s'."):
farmbuyer@81 3630 format(index, unique, id, tostring(from_name), tostring(to_name))
farmbuyer@81 3631 self.dprint('loot', m)
farmbuyer@81 3632 if sender == my_name then
farmbuyer@81 3633 self.dprint('loot',"(Returning early from debug mode's double self-reassign.)")
farmbuyer@81 3634 return index
farmbuyer@81 3635 end
farmbuyer@81 3636 end
farmbuyer@81 3637
farmbuyer@81 3638 if not e then
farmbuyer@81 3639 -- say something?
farmbuyer@81 3640 return
farmbuyer@81 3641 end
farmbuyer@81 3642
farmbuyer@73 3643 local from_i, from_h, hist_i = _history_by_loot_id (e, "reassign")
farmbuyer@25 3644 local to_i,to_h = self:get_loot_history(to_name)
farmbuyer@25 3645
farmbuyer@81 3646 if not from_i then
farmbuyer@81 3647 if how == "local" then
farmbuyer@81 3648 -- from_h here is the formatted error text
farmbuyer@81 3649 self:Print(from_h .. " Loot will be reassigned, but history will NOT be updated.", e.itemlink)
farmbuyer@81 3650 end
farmbuyer@25 3651 else
farmbuyer@81 3652 -- XXX do some sanity checks here? from_name == from_h.name, etc?
farmbuyer@87 3653 -- If something were wrong at this point, what could we do?
farmbuyer@81 3654
farmbuyer@114 3655 -- the Book of Job 1:21: "Naked I came from my faction capital
farmbuyer@114 3656 -- city, and naked I shall return thither."
farmbuyer@114 3657 if from_h ~= to_h then
farmbuyer@114 3658 local U = tremove (from_h.unique, hist_i)
farmbuyer@114 3659 -- "The loot master giveth..."
farmbuyer@114 3660 to_h.unique[#to_h.unique+1] = U
farmbuyer@114 3661 to_h.when[U] = from_h.when[U]
farmbuyer@114 3662 to_h.id[U] = from_h.id[U]
farmbuyer@114 3663 to_h.count[U] = from_h.count[U]
farmbuyer@114 3664 sort_player(to_h)
farmbuyer@114 3665 -- "...and the loot master taketh away."
farmbuyer@114 3666 from_h.when[U] = nil
farmbuyer@114 3667 from_h.id[U] = nil
farmbuyer@114 3668 from_h.count[U] = nil
farmbuyer@114 3669 end
farmbuyer@114 3670 -- "Blessed be the lookup cache of the loot master."
farmbuyer@138 3671 g_uniques[unique] = { loot = index, history = to_name }
farmbuyer@25 3672 end
farmbuyer@81 3673 local from_person_class = e.person_class or from_h.person_class
farmbuyer@81 3674 or (g_loot.raiders[from_name] and g_loot.raiders[from_name].class)
farmbuyer@107 3675 or select(2,UnitClass(from_name))
farmbuyer@25 3676 e.person = to_name
farmbuyer@81 3677 e.person_class = to_h.person_class
farmbuyer@81 3678 or (g_loot.raiders[to_name] and g_loot.raiders[to_name].class)
farmbuyer@107 3679 or select(2,UnitClass(to_name))
farmbuyer@25 3680 self.hist_clean = nil
farmbuyer@81 3681 self.loot_clean = nil
farmbuyer@81 3682
farmbuyer@81 3683 if how == "local" then
farmbuyer@101 3684 if opts.chatty_on_local_changes then
farmbuyer@101 3685 _notify_about_change (_G.UNIT_YOU, index, nil, from_name, from_person_class)
farmbuyer@101 3686 end
farmbuyer@81 3687 self:vbroadcast('reassign', unique, id, from_name, to_name)
farmbuyer@81 3688 elseif opts.chatty_on_remote_changes then
farmbuyer@101 3689 _notify_about_change (sender, index, nil, from_name, from_person_class)
farmbuyer@81 3690 end
farmbuyer@81 3691 if self.display then
farmbuyer@96 3692 self.display:GetUserData("GUI state").eoiST:OuroLoot_Refresh(index)
farmbuyer@81 3693 self:redisplay()
farmbuyer@81 3694 end
farmbuyer@100 3695 self:Fire ('Reassign', unique, id, e, from_name, to_name)
farmbuyer@81 3696 return index
farmbuyer@25 3697 end
farmbuyer@25 3698
farmbuyer@84 3699 local function expunge (player, index_or_unique)
farmbuyer@84 3700 local i,u
farmbuyer@84 3701 if type(index_or_unique) == 'string' then
farmbuyer@84 3702 for u = 1, #player.unique do
farmbuyer@84 3703 if player.unique[u] == index_or_unique then
farmbuyer@84 3704 i = u
farmbuyer@84 3705 break
farmbuyer@84 3706 end
farmbuyer@84 3707 end
farmbuyer@84 3708 elseif type(index_or_unique) == 'number' then
farmbuyer@84 3709 i = index_or_unique
farmbuyer@84 3710 end
farmbuyer@84 3711 if not i then
farmbuyer@84 3712 return -- error here?
farmbuyer@84 3713 end
farmbuyer@84 3714 u = player.unique[i]
farmbuyer@84 3715 assert(#u>0)
farmbuyer@84 3716 tremove (player.unique, i)
farmbuyer@84 3717 player.when[u], player.id[u], player.count[u] = nil, nil, nil
farmbuyer@84 3718 g_uniques[u] = nil
farmbuyer@84 3719 addon.hist_clean = nil
farmbuyer@100 3720 addon:Fire ('DelHistory', player.name, u)
farmbuyer@87 3721 return #player.unique
farmbuyer@84 3722 end
farmbuyer@84 3723
farmbuyer@84 3724 -- Mirror of _addHistoryEntry. Arguments are either:
farmbuyer@84 3725 -- E - loot entry
farmbuyer@84 3726 -- U,ITEM - unique tag, and a name/itemlink for errors
farmbuyer@87 3727 -- If this entry was the only one for that player, will also remove that
farmbuyer@87 3728 -- player's tables from the history array.
farmbuyer@87 3729 --
farmbuyer@87 3730 -- On success, returns the number of remaining history entries for that
farmbuyer@87 3731 -- player (potentially zero). On failure, returns nil+error.
farmbuyer@87 3732 function addon:_delHistoryEntry (first, item)
farmbuyer@84 3733 if type(first) == 'table' then
farmbuyer@87 3734 item = first.itemlink or item
farmbuyer@84 3735 --elseif type(first) == 'string' then
farmbuyer@84 3736 end
farmbuyer@84 3737
farmbuyer@84 3738 local from_i, from_h, hist_i = _history_by_loot_id (first, "delete")
farmbuyer@84 3739
farmbuyer@36 3740 if not from_i then
farmbuyer@36 3741 -- from_h is the formatted error text
farmbuyer@84 3742 return nil, (from_h
farmbuyer@84 3743 .." Loot will be deleted, but history will NOT be updated."
farmbuyer@87 3744 ):format(item)
farmbuyer@36 3745 end
farmbuyer@36 3746
farmbuyer@87 3747 local remaining = expunge (from_h, hist_i)
farmbuyer@87 3748 if not remaining then
farmbuyer@87 3749 return nil, "Something bizarre happening trying to delete "..item
farmbuyer@87 3750 elseif remaining > 0 then
farmbuyer@87 3751 return remaining
farmbuyer@87 3752 end
farmbuyer@87 3753 tremove (self.history, from_i)
farmbuyer@87 3754 self:_build_history_names()
farmbuyer@87 3755 return 0
farmbuyer@36 3756 end
farmbuyer@36 3757
farmbuyer@25 3758 -- Any extra work for the "Mark as <x>" dropdown actions. The
farmbuyer@25 3759 -- corresponding <x> will already have been assigned in the loot entry.
farmbuyer@25 3760 function addon:history_handle_disposition (index, olddisp)
farmbuyer@25 3761 local e = g_loot[index]
farmbuyer@25 3762 -- Standard disposition has a nil entry, but that's tedious in debug
farmbuyer@25 3763 -- output, so force to a string instead.
farmbuyer@25 3764 olddisp = olddisp or 'normal'
farmbuyer@25 3765 local newdisp = e.disposition or 'normal'
farmbuyer@25 3766 -- Ignore misclicks and the like
farmbuyer@25 3767 if olddisp == newdisp then return end
farmbuyer@25 3768
farmbuyer@25 3769 local name = e.person
farmbuyer@25 3770
farmbuyer@109 3771 if not self:_test_disposition (newdisp, 'affects_history') then
farmbuyer@114 3772 -- remove history entry if it exists
farmbuyer@73 3773 local name_i, name_h, hist_i = _history_by_loot_id (e, "mark")
farmbuyer@25 3774 if hist_i then
farmbuyer@114 3775 -- clears g_uniques and fires DelHistory
farmbuyer@114 3776 expunge (name_h, hist_i)
farmbuyer@109 3777 elseif not self:_test_disposition (olddisp, 'affects_history') then
farmbuyer@25 3778 -- Sharding a vault item, or giving the auto-sharder something to bank,
farmbuyer@25 3779 -- etc, wouldn't necessarily have had a history entry to begin with.
farmbuyer@73 3780 -- So this isn't treated as an error.
farmbuyer@25 3781 else
farmbuyer@25 3782 self:Print(name_h .. " Loot has been marked, but history will NOT be updated.", e.itemlink)
farmbuyer@25 3783 end
farmbuyer@25 3784 return
farmbuyer@25 3785 end
farmbuyer@25 3786
farmbuyer@109 3787 if (not self:_test_disposition (olddisp, 'affects_history'))
farmbuyer@109 3788 and self:_test_disposition (newdisp, 'affects_history')
farmbuyer@25 3789 then
farmbuyer@114 3790 -- Must create a new history entry.
farmbuyer@25 3791 local name_i, name_h = self:get_loot_history(name)
farmbuyer@114 3792 -- puts entry into g_uniques and fires NewHistory
farmbuyer@114 3793 self:_addHistoryEntry (index, --[[re-sort entries=]]true)
farmbuyer@25 3794 self.hist_clean = nil
farmbuyer@25 3795 return
farmbuyer@25 3796 end
farmbuyer@24 3797 end
farmbuyer@73 3798
farmbuyer@73 3799 -- This is not entirely "history" but not completely anything else either.
farmbuyer@73 3800 -- Handles the primary "Mark as <x>" action. Arguments depend on who's
farmbuyer@73 3801 -- calling it:
farmbuyer@128 3802 -- 'local', row_index, new_disposition
farmbuyer@128 3803 -- 'remote', sender, unique_id, item_id, old_disposition, new_disposition
farmbuyer@73 3804 -- In the local case, must also broadcast a trigger. In the remote case,
farmbuyer@73 3805 -- must figure out the corresponding loot entry (if it exists). In both
farmbuyer@73 3806 -- cases, must update history appropriately. Returns nil if anything odd
farmbuyer@73 3807 -- happens (not necessarily an error!); returns the affected loot index
farmbuyer@73 3808 -- on success.
farmbuyer@73 3809 function addon:loot_mark_disposition (how, ...)
farmbuyer@73 3810 -- This must all be filled out in all cases:
farmbuyer@73 3811 local e, index, olddisp, newdisp, unique, id
farmbuyer@73 3812 -- Only set in remote case:
farmbuyer@73 3813 local sender
farmbuyer@73 3814
farmbuyer@128 3815 if how == 'local' then
farmbuyer@73 3816 index, newdisp = ...
farmbuyer@73 3817 index = assert(tonumber(index))
farmbuyer@73 3818 e = g_loot[index]
farmbuyer@73 3819 id = e.id
farmbuyer@73 3820 unique = e.unique -- can potentially still be nil at this step
farmbuyer@73 3821 olddisp = e.disposition
farmbuyer@73 3822
farmbuyer@128 3823 elseif how == 'remote' then
farmbuyer@73 3824 sender, unique, id, olddisp, newdisp = ...
farmbuyer@81 3825 id = tonumber(id)
farmbuyer@81 3826 local cache
farmbuyer@81 3827 local loop = 0
farmbuyer@81 3828 repeat -- wtb continue statement pst
farmbuyer@81 3829 if loop > 1 then break end
farmbuyer@81 3830 e = nil
farmbuyer@81 3831 cache = cache and g_uniques:SEARCH(unique) or g_uniques[unique]
farmbuyer@73 3832 index = tonumber(cache.loot)
farmbuyer@81 3833 if index then
farmbuyer@81 3834 e = g_loot[index]
farmbuyer@81 3835 else
farmbuyer@81 3836 end
farmbuyer@81 3837 loop = loop + 1
farmbuyer@81 3838 until e and (e.id == id)
farmbuyer@73 3839
farmbuyer@73 3840 else
farmbuyer@76 3841 return -- silently ignore future cases from future clients
farmbuyer@73 3842 end
farmbuyer@73 3843
farmbuyer@73 3844 if self.debug.loot then
farmbuyer@80 3845 local m = ("Re-mark index %d (pre-unique %s) with id %d from '%s' to '%s'."):
farmbuyer@73 3846 format(index, unique, id, tostring(olddisp), tostring(newdisp))
farmbuyer@73 3847 self.dprint('loot', m)
farmbuyer@73 3848 if sender == my_name then
farmbuyer@76 3849 self.dprint('loot',"(Returning early from debug mode's double self-mark.)")
farmbuyer@73 3850 return index
farmbuyer@73 3851 end
farmbuyer@73 3852 end
farmbuyer@73 3853
farmbuyer@73 3854 if not e then
farmbuyer@73 3855 -- say something?
farmbuyer@73 3856 return
farmbuyer@73 3857 end
farmbuyer@73 3858
farmbuyer@73 3859 e.disposition = newdisp
farmbuyer@73 3860 e.bcast_from = nil -- I actually don't remember now why this gets cleared...
farmbuyer@73 3861 e.extratext = nil
farmbuyer@73 3862 self:history_handle_disposition (index, olddisp)
farmbuyer@81 3863 self.hist_clean = nil
farmbuyer@81 3864 self.loot_clean = nil
farmbuyer@73 3865 -- A unique tag has been set by this point.
farmbuyer@128 3866 if how == 'local' then
farmbuyer@73 3867 unique = assert(e.unique)
farmbuyer@101 3868 if opts.chatty_on_local_changes then
farmbuyer@101 3869 _notify_about_change (_G.UNIT_YOU, index, olddisp)
farmbuyer@101 3870 end
farmbuyer@73 3871 self:vbroadcast('mark', unique, id, olddisp, newdisp)
farmbuyer@73 3872 end
farmbuyer@100 3873 self:Fire ('MarkAs', unique, id, e, olddisp or 'normal', newdisp or 'normal')
farmbuyer@73 3874 return index
farmbuyer@73 3875 end
farmbuyer@1 3876 end
farmbuyer@1 3877
farmbuyer@1 3878
farmbuyer@1 3879 ------ Player communication
farmbuyer@1 3880 do
farmbuyer@146 3881 local select, tconcat, unpack = select, table.concat, unpack
farmbuyer@56 3882 local function assemble(t,...)
farmbuyer@73 3883 local n = select('#',...)
farmbuyer@73 3884 if n > 0 then
farmbuyer@56 3885 local msg = {t,...}
farmbuyer@56 3886 -- tconcat requires strings, but T is known to be one already
farmbuyer@89 3887 -- can't use #msg since there might be nil holes
farmbuyer@73 3888 for i = 2, n+1 do
farmbuyer@71 3889 msg[i] = tostring(msg[i] or "")
farmbuyer@56 3890 end
farmbuyer@56 3891 return tconcat (msg, '\a')
farmbuyer@56 3892 end
farmbuyer@56 3893 return t
farmbuyer@56 3894 end
farmbuyer@56 3895
farmbuyer@56 3896 -- broadcast('tag', <stuff>)
farmbuyer@56 3897 -- vbroadcast('tag', <stuff>)
farmbuyer@56 3898 function addon:vbroadcast(tag,...)
farmbuyer@56 3899 return self:broadcast(self.commrev..tag,...)
farmbuyer@56 3900 end
farmbuyer@56 3901 function addon:broadcast(tag,...)
farmbuyer@56 3902 local msg = assemble(tag,...)
farmbuyer@56 3903 self.dprint('comm', "<broadcast>:", msg)
farmbuyer@89 3904 self:SendCommMessage(self.ident, msg, "RAID")
farmbuyer@89 3905 -- this is what lets us debug our own message traffic:
farmbuyer@100 3906 if self.debug.comm and self.is_guilded then
farmbuyer@89 3907 self:SendCommMessage(self.ident, msg, "GUILD")
farmbuyer@89 3908 end
farmbuyer@56 3909 end
farmbuyer@56 3910 -- whispercast(<to>, 'tag', <stuff>)
farmbuyer@56 3911 function addon:whispercast(to,...)
farmbuyer@56 3912 local msg = assemble(...)
farmbuyer@56 3913 self.dprint('comm', "<whispercast>@", to, ":", msg)
farmbuyer@56 3914 self:SendCommMessage(self.identTg, msg, "WHISPER", to)
farmbuyer@56 3915 end
farmbuyer@56 3916
farmbuyer@1 3917 local function adduser (name, status, active)
farmbuyer@1 3918 if status then addon.sender_list.names[name] = status end
farmbuyer@1 3919 if active then addon.sender_list.active[name] = active end
farmbuyer@1 3920 end
farmbuyer@1 3921
farmbuyer@1 3922 -- Incoming handler functions. All take the sender name and the incoming
farmbuyer@1 3923 -- tag as the first two arguments. All of these are active even when the
farmbuyer@1 3924 -- player is not tracking loot, so test for that when appropriate.
farmbuyer@1 3925 local OCR_funcs = {}
farmbuyer@1 3926
farmbuyer@1 3927 OCR_funcs.ping = function (sender)
farmbuyer@1 3928 pprint('comm', "incoming ping from", sender)
farmbuyer@89 3929 local what = addon.enabled and "tracking" or
farmbuyer@89 3930 (addon.rebroadcast and "broadcasting" or "disabled")
farmbuyer@89 3931 addon:whispercast (sender, 'pong', addon.version, what, addon.revision)
farmbuyer@1 3932 end
farmbuyer@89 3933 OCR_funcs.pong = function (sender, _, ver, status, opt_rev)
farmbuyer@89 3934 local s = ("|cff00ff00%s|r %s(r%s) is |cff00ffff%s|r"):
farmbuyer@89 3935 format (sender, ver, opt_rev or "?", status)
farmbuyer@1 3936 addon:Print("Echo: ", s)
farmbuyer@1 3937 adduser (sender, s, status=="tracking" or status=="broadcasting" or nil)
farmbuyer@1 3938 end
farmbuyer@27 3939 OCR_funcs.revcheck = function (sender, _, revlarge)
farmbuyer@27 3940 addon.dprint('comm', "revcheck, sender", sender)
farmbuyer@89 3941 addon:_check_version (revlarge)
farmbuyer@27 3942 end
farmbuyer@1 3943
farmbuyer@76 3944 OCR_funcs['17improv'] = function (sender, _, senderid, existing, replace)
farmbuyer@76 3945 addon.dprint('comm', "DOTimprov/17, sender", sender, "id", senderid,
farmbuyer@76 3946 "existing", existing, "replace", replace)
farmbuyer@76 3947 if not g_unique_replace then _setup_unique_replace() end
farmbuyer@76 3948 g_unique_replace.new_entry (senderid, existing, replace)
farmbuyer@76 3949 end
farmbuyer@76 3950
farmbuyer@73 3951 OCR_funcs['17mark'] = function (sender, _, unique, item, old, new)
farmbuyer@73 3952 addon.dprint('comm', "DOTmark/17, sender", sender, "unique", unique,
farmbuyer@73 3953 "item", item, "from old", old, "to new", new)
farmbuyer@73 3954 local index = addon:loot_mark_disposition ("remote", sender, unique, item, old, new)
farmbuyer@73 3955 --if not addon.enabled then return end -- hmm
farmbuyer@73 3956 if index and opts.chatty_on_remote_changes then
farmbuyer@101 3957 _notify_about_change (sender, index, old)
farmbuyer@73 3958 end
farmbuyer@73 3959 end
farmbuyer@73 3960
farmbuyer@81 3961 OCR_funcs['17reassign'] = function (sender, _, unique, item, from, to)
farmbuyer@81 3962 addon.dprint('comm', "DOTreassign/17, sender", sender, "unique", unique,
farmbuyer@81 3963 "item", item, "from", from, "to", to)
farmbuyer@81 3964 --[[local index =]] addon:reassign_loot ("remote", sender, unique, item, from, to)
farmbuyer@81 3965 -- Notification handled inside reassign_loot.
farmbuyer@81 3966 end
farmbuyer@81 3967
farmbuyer@71 3968 OCR_funcs['16loot'] = function (sender, _, recip, item, count, extratext)
farmbuyer@71 3969 addon.dprint('comm', "DOTloot/16, sender", sender, "recip", recip, "item", item, "count", count)
farmbuyer@1 3970 if not addon.enabled then return end
farmbuyer@1 3971 adduser (sender, nil, true)
farmbuyer@73 3972 -- Empty unique string will pass through all of the loot handling,
farmbuyer@73 3973 -- and then be rewritten by the history routine (into older string
farmbuyer@73 3974 -- of ID+date).
farmbuyer@73 3975 g_seeing_oldsigs = g_seeing_oldsigs or {}
farmbuyer@73 3976 g_seeing_oldsigs[sender] = true
farmbuyer@71 3977 addon:CHAT_MSG_LOOT ("broadcast", recip, --[[unique=]]"", item, count, sender, extratext)
farmbuyer@1 3978 end
farmbuyer@71 3979 OCR_funcs.loot = OCR_funcs['16loot'] -- old unversioned stuff goes to 16
farmbuyer@71 3980 OCR_funcs['17loot'] = function (sender, _, recip, unique, item, count, extratext)
farmbuyer@73 3981 addon.dprint('comm', "DOTloot/17, sender", sender, "recip", recip,
farmbuyer@73 3982 "unique", unique, "item", item, "count", count, "extratext", extratext)
farmbuyer@71 3983 if not addon.enabled then return end
farmbuyer@71 3984 adduser (sender, nil, true)
farmbuyer@71 3985 addon:CHAT_MSG_LOOT ("broadcast", recip, unique, item, count, sender, extratext)
farmbuyer@71 3986 end
farmbuyer@1 3987
farmbuyer@1 3988 OCR_funcs.boss = function (sender, _, reason, bossname, instancetag)
farmbuyer@56 3989 addon.dprint('comm', "DOTboss, sender", sender, "reason", reason,
farmbuyer@56 3990 "name", bossname, "it", instancetag)
farmbuyer@1 3991 if not addon.enabled then return end
farmbuyer@1 3992 adduser (sender, nil, true)
farmbuyer@56 3993 addon:on_boss_broadcast (reason, bossname, instancetag, --[[maxsize=]]0)
farmbuyer@56 3994 end
farmbuyer@56 3995 OCR_funcs['16boss'] = function (sender, _, reason, bossname, instancetag, maxsize)
farmbuyer@73 3996 addon.dprint('comm', "DOTboss/16,17, sender", sender, "reason", reason,
farmbuyer@56 3997 "name", bossname, "it", instancetag, "size", maxsize)
farmbuyer@56 3998 if not addon.enabled then return end
farmbuyer@56 3999 adduser (sender, nil, true)
farmbuyer@56 4000 addon:on_boss_broadcast (reason, bossname, instancetag, maxsize)
farmbuyer@1 4001 end
farmbuyer@71 4002 OCR_funcs['17boss'] = OCR_funcs['16boss']
farmbuyer@1 4003
farmbuyer@76 4004 local bcast_on = addon.format_hypertext ([[the red pill]], '|cffff4040',
farmbuyer@78 4005 function (self)
farmbuyer@78 4006 if not self.rebroadcast then
farmbuyer@149 4007 self:Activate("bcast-respond",nil,true)
farmbuyer@76 4008 end
farmbuyer@78 4009 self:broadcast('bcast_responder')
farmbuyer@76 4010 end)
farmbuyer@76 4011 local waferthin = addon.format_hypertext ([[the blue pill]], '|cff0070dd',
farmbuyer@78 4012 function (self)
farmbuyer@122 4013 g_wafer_thin = true -- mint? it's wafer thin!
farmbuyer@78 4014 self:broadcast('bcast_denied') -- fuck off, I'm full
farmbuyer@76 4015 end)
farmbuyer@1 4016 OCR_funcs.bcast_req = function (sender)
farmbuyer@1 4017 if addon.debug.comm or ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 4018 then
farmbuyer@95 4019 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 4020 sender,
farmbuyer@76 4021 tostring(bcast_on),
farmbuyer@76 4022 tostring(waferthin))
farmbuyer@1 4023 end
farmbuyer@18 4024 addon.popped = true
farmbuyer@1 4025 end
farmbuyer@1 4026
farmbuyer@1 4027 OCR_funcs.bcast_responder = function (sender)
farmbuyer@1 4028 if addon.debug.comm or addon.requesting or
farmbuyer@1 4029 ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 4030 then
farmbuyer@1 4031 addon:Print(sender, "has answered the call and is now broadcasting loot.")
farmbuyer@1 4032 end
farmbuyer@1 4033 end
farmbuyer@1 4034 -- remove this tag once it's all tested
farmbuyer@1 4035 OCR_funcs.bcast_denied = function (sender)
farmbuyer@1 4036 if addon.requesting then addon:Print(sender, "declines futher broadcast requests.") end
farmbuyer@1 4037 end
farmbuyer@1 4038
farmbuyer@73 4039 -- Incoming message disassembler and dispatcher. The static weak table
farmbuyer@73 4040 -- is not my favorite approach to handling ellipses, but it lets me loop
farmbuyer@73 4041 -- through potential nils easily without creating a ton of garbage.
farmbuyer@73 4042 local OCR_data = setmetatable({}, {__mode='v'})
farmbuyer@1 4043 local function dotdotdot (sender, tag, ...)
farmbuyer@1 4044 local f = OCR_funcs[tag]
farmbuyer@73 4045 if f then
farmbuyer@73 4046 --wipe(OCR_data) costs more than its worth here
farmbuyer@73 4047 local n = select('#',...)
farmbuyer@73 4048 for i = 1, n do
farmbuyer@73 4049 local d = select(i,...)
farmbuyer@73 4050 OCR_data[i] = (d ~= "") and d or nil
farmbuyer@73 4051 end
farmbuyer@89 4052 addon.dprint('comm', ":...processing", tag, "from", sender, "with arg count", n)
farmbuyer@73 4053 return f(sender,tag,unpack(OCR_data,1,n))
farmbuyer@73 4054 end
farmbuyer@73 4055 addon.dprint('comm', "unknown comm message", tag, "from", sender)
farmbuyer@1 4056 end
farmbuyer@73 4057 -- Recent message cache (this can be accessed via advanced options panel)
farmbuyer@1 4058 addon.recent_messages = create_new_cache ('comm', comm_cleanup_ttl)
farmbuyer@1 4059
farmbuyer@1 4060 function addon:OnCommReceived (prefix, msg, distribution, sender)
farmbuyer@1 4061 if prefix ~= self.ident then return end
farmbuyer@1 4062 if not self.debug.comm then
farmbuyer@1 4063 if distribution ~= "RAID" and distribution ~= "WHISPER" then return end
farmbuyer@1 4064 if sender == my_name then return end
farmbuyer@1 4065 end
farmbuyer@1 4066 self.dprint('comm', ":OCR from", sender, "message is", msg)
farmbuyer@1 4067
farmbuyer@1 4068 if self.recent_messages:test(msg) then
farmbuyer@40 4069 self.dprint('cache', "OCR message <",msg,"> already in cache, skipping")
farmbuyer@40 4070 return
farmbuyer@1 4071 end
farmbuyer@1 4072 self.recent_messages:add(msg)
farmbuyer@1 4073
farmbuyer@1 4074 -- Nothing is actually returned, just (ab)using tail calls.
farmbuyer@1 4075 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 4076 end
farmbuyer@1 4077
farmbuyer@1 4078 function addon:OnCommReceivedNocache (prefix, msg, distribution, sender)
farmbuyer@1 4079 if prefix ~= self.identTg then return end
farmbuyer@1 4080 if not self.debug.comm then
farmbuyer@1 4081 if distribution ~= "WHISPER" then return end
farmbuyer@1 4082 if sender == my_name then return end
farmbuyer@1 4083 end
farmbuyer@1 4084 self.dprint('comm', ":OCRN from", sender, "message is", msg)
farmbuyer@1 4085 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 4086 end
farmbuyer@1 4087 end
farmbuyer@1 4088
farmbuyer@128 4089 addon:MODULE_PROTOTYPE_POINTERS()
farmbuyer@109 4090 addon.FILES_LOADED = 1
farmbuyer@1 4091 -- vim:noet