Mercurial > wow > ouroloot

annotate core.lua @ 37:cd745a18d7c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mostly code cosmetic tweaks. Split up EOI and History dropdown tables. Draw attention to realm names in popups, as they don't have to match the currently-played realm.
author Farmbuyer of US-Kilrogg <farmbuyer@gmail.com>
date Sat, 10 Dec 2011 01:04:16 +0000
parents f62d582c5c52
children bb41be8f13b2
rev   line source
farmbuyer@17 1 local nametag, addon = ...
farmbuyer@1 2
farmbuyer@1 3 --[==[
farmbuyer@1 4 g_loot's numeric indices are loot entries (including titles, separators,
farmbuyer@1 5 etc); its named indices are:
farmbuyer@1 6 - forum: saved text from forum markup window, default nil
farmbuyer@1 7 - attend: saved text from raid attendence window, default nil
farmbuyer@16 8 - printed.FOO: last loot index formatted into text window FOO, default 0
farmbuyer@1 9
farmbuyer@1 10 Functions arranged like this, with these lables (for jumping to). As a
farmbuyer@1 11 rule, member functions with UpperCamelCase names are called directly by
farmbuyer@1 12 user-facing code, ones with lowercase names are "one step removed", and
farmbuyer@1 13 names with leading underscores are strictly internal helper functions.
farmbuyer@1 14 ------ Saved variables
farmbuyer@1 15 ------ Constants
farmbuyer@1 16 ------ Addon member data
farmbuyer@6 17 ------ Globals
farmbuyer@1 18 ------ Expiring caches
farmbuyer@1 19 ------ Ace3 framework stuff
farmbuyer@1 20 ------ Event handlers
farmbuyer@1 21 ------ Slash command handler
farmbuyer@1 22 ------ On/off
farmbuyer@1 23 ------ Behind the scenes routines
farmbuyer@1 24 ------ Saved texts
farmbuyer@1 25 ------ Loot histories
farmbuyer@1 26 ------ Player communication
farmbuyer@1 27
farmbuyer@1 28 This started off as part of a raid addon package written by somebody else.
farmbuyer@1 29 After he retired, I began modifying the code. Eventually I set aside the
farmbuyer@1 30 entire package and rewrote the loot tracker module from scratch. Many of the
farmbuyer@1 31 variable/function naming conventions (sv_*, g_*, and family) stayed across the
farmbuyer@16 32 rewrite.
farmbuyer@16 33
farmbuyer@16 34 Some variables are needlessly initialized to nil just to look uniform.
farmbuyer@1 35
farmbuyer@1 36 ]==]
farmbuyer@1 37
farmbuyer@1 38 ------ Saved variables
farmbuyer@16 39 OuroLootSV = nil -- possible copy of g_loot
farmbuyer@16 40 OuroLootSV_saved = nil -- table of copies of saved texts, default nil; keys
farmbuyer@16 41 -- are numeric indices of tables, subkeys of those
farmbuyer@16 42 -- are name/forum/attend/date
farmbuyer@16 43 OuroLootSV_opts = nil -- same as option_defaults until changed
farmbuyer@16 44 -- autoshard: optional name of disenchanting player, default nil
farmbuyer@16 45 -- threshold: optional loot threshold, default nil
farmbuyer@16 46 OuroLootSV_hist = nil
farmbuyer@19 47 OuroLootSV_log = {}
farmbuyer@1 48
farmbuyer@1 49
farmbuyer@1 50 ------ Constants
farmbuyer@1 51 local option_defaults = {
farmbuyer@1 52 ['popup_on_join'] = true,
farmbuyer@1 53 ['register_slashloot'] = true,
farmbuyer@1 54 ['scroll_to_bottom'] = true,
farmbuyer@1 55 ['chatty_on_kill'] = false,
farmbuyer@1 56 ['no_tracking_wipes'] = false,
farmbuyer@1 57 ['snarky_boss'] = true,
farmbuyer@1 58 ['keybinding'] = false,
farmbuyer@2 59 ['bossmod'] = "DBM",
farmbuyer@1 60 ['keybinding_text'] = 'CTRL-SHIFT-O',
farmbuyer@1 61 ['forum'] = {
farmbuyer@25 62 ['[url] Wowhead'] = '[url=http://www.wowhead.com/?item=$I]$N[/url]$X - $T',
farmbuyer@25 63 ['[url] MMO/Wowstead'] = '[http://db.mmo-champion.com/i/$I]$X - $T',
farmbuyer@1 64 ['[item] by name'] = '[item]$N[/item]$X - $T',
farmbuyer@1 65 ['[item] by ID'] = '[item]$I[/item]$X - $T',
farmbuyer@1 66 ['Custom...'] = '',
farmbuyer@1 67 },
farmbuyer@1 68 ['forum_current'] = '[item] by name',
farmbuyer@1 69 }
farmbuyer@1 70 local virgin = "First time loaded? Hi! Use the /ouroloot or /loot command"
farmbuyer@1 71 .." to show the main display. You should probably browse the instructions"
farmbuyer@1 72 .." if you've never used this before; %s to display the help window. This"
farmbuyer@1 73 .." welcome message will not intrude again."
farmbuyer@27 74 local newer_warning = "A newer version has been released. You can %s to display"
farmbuyer@27 75 .." a download URL for copy-and-pasting. You can %s to ping other raiders"
farmbuyer@27 76 .." for their installed versions (same as '/ouroloot ping' or clicking the"
farmbuyer@27 77 .." 'Ping!' button on the options panel)."
farmbuyer@1 78 local qualnames = {
farmbuyer@1 79 ['gray'] = 0, ['grey'] = 0, ['poor'] = 0, ['trash'] = 0,
farmbuyer@1 80 ['white'] = 1, ['common'] = 1,
farmbuyer@1 81 ['green'] = 2, ['uncommon'] = 2,
farmbuyer@1 82 ['blue'] = 3, ['rare'] = 3,
farmbuyer@1 83 ['epic'] = 4, ['purple'] = 4,
farmbuyer@1 84 ['legendary'] = 5, ['orange'] = 5,
farmbuyer@1 85 ['artifact'] = 6,
farmbuyer@1 86 --['heirloom'] = 7,
farmbuyer@1 87 }
farmbuyer@1 88 local my_name = UnitName('player')
farmbuyer@1 89 local comm_cleanup_ttl = 5 -- seconds in the cache
farmbuyer@27 90 local revision_large = nil -- defaults to 1, possibly changed by revision
farmbuyer@20 91 local g_LOOT_ITEM_ss, g_LOOT_ITEM_MULTIPLE_sss, g_LOOT_ITEM_SELF_s, g_LOOT_ITEM_SELF_MULTIPLE_ss
farmbuyer@1 92
farmbuyer@1 93
farmbuyer@1 94 ------ Addon member data
farmbuyer@1 95 local flib = LibStub("LibFarmbuyer")
farmbuyer@1 96 addon.author_debug = flib.author_debug
farmbuyer@1 97
farmbuyer@6 98 -- Play cute games with namespaces here just to save typing. WTB Lua 5.2 PST.
farmbuyer@1 99 do local _G = _G setfenv (1, addon)
farmbuyer@1 100
farmbuyer@17 101 commrev = 15 -- number
farmbuyer@27 102 revision = _G.GetAddOnMetadata(nametag,"Version") or "?" -- "x.yy.z", etc
farmbuyer@1 103 ident = "OuroLoot2"
farmbuyer@1 104 identTg = "OuroLoot2Tg"
farmbuyer@1 105 status_text = nil
farmbuyer@1 106
farmbuyer@1 107 DEBUG_PRINT = false
farmbuyer@1 108 debug = {
farmbuyer@1 109 comm = false,
farmbuyer@1 110 loot = false,
farmbuyer@1 111 flow = false,
farmbuyer@1 112 notraid = false,
farmbuyer@1 113 cache = false,
farmbuyer@19 114 alsolog = false,
farmbuyer@1 115 }
farmbuyer@1 116 function dprint (t,...)
farmbuyer@19 117 if DEBUG_PRINT and debug[t] then
farmbuyer@19 118 local text = flib.safeprint("<"..t.."> ",...)
farmbuyer@19 119 if debug.alsolog then
farmbuyer@19 120 addon:log_with_timestamp(text)
farmbuyer@19 121 end
farmbuyer@19 122 end
farmbuyer@1 123 end
farmbuyer@1 124
farmbuyer@1 125 if author_debug then
farmbuyer@1 126 function pprint(t,...)
farmbuyer@19 127 local text = flib.safeprint("<<"..t..">> ",...)
farmbuyer@19 128 if debug.alsolog then
farmbuyer@19 129 addon:log_with_timestamp(text)
farmbuyer@19 130 end
farmbuyer@1 131 end
farmbuyer@1 132 else
farmbuyer@1 133 pprint = flib.nullfunc
farmbuyer@1 134 end
farmbuyer@1 135
farmbuyer@1 136 enabled = false
farmbuyer@1 137 rebroadcast = false
farmbuyer@1 138 display = nil -- display frame, when visible
farmbuyer@1 139 loot_clean = nil -- index of last GUI entry with known-current visual data
farmbuyer@1 140 sender_list = {active={},names={}} -- this should be reworked
farmbuyer@1 141 threshold = debug.loot and 0 or 3 -- rare by default
farmbuyer@1 142 sharder = nil -- name of person whose loot is marked as shards
farmbuyer@1 143
farmbuyer@1 144 -- The rest is also used in the GUI:
farmbuyer@1 145
farmbuyer@1 146 popped = nil -- non-nil when reminder has been shown, actual value unimportant
farmbuyer@1 147
farmbuyer@1 148 -- This is an amalgamation of all four LOOT_ITEM_* patterns.
farmbuyer@1 149 -- Captures: 1 person/You, 2 itemstring, 3 rest of string after final |r until '.'
farmbuyer@1 150 -- Can change 'loot' to 'item' to trigger on, e.g., extracting stuff from mail.
farmbuyer@20 151 --loot_pattern = "(%S+) receives? loot:.*|cff%x+|H(.-)|h.*|r(.*)%.$"
farmbuyer@1 152
farmbuyer@2 153 bossmod_registered = nil
farmbuyer@2 154 bossmods = {}
farmbuyer@2 155
farmbuyer@1 156 requesting = nil -- for prompting for additional rebroadcasters
farmbuyer@1 157
farmbuyer@11 158 thresholds = {}
farmbuyer@1 159 for i = 0,6 do
farmbuyer@11 160 thresholds[i] = _G.ITEM_QUALITY_COLORS[i].hex .. _G["ITEM_QUALITY"..i.."_DESC"] .. "|r"
farmbuyer@1 161 end
farmbuyer@1 162
farmbuyer@1 163 _G.setfenv (1, _G)
farmbuyer@1 164 end
farmbuyer@1 165
farmbuyer@1 166 addon = LibStub("AceAddon-3.0"):NewAddon(addon, "Ouro Loot",
farmbuyer@1 167 "AceTimer-3.0", "AceComm-3.0", "AceConsole-3.0", "AceEvent-3.0")
farmbuyer@1 168
farmbuyer@1 169
farmbuyer@6 170 ------ Globals
farmbuyer@1 171 local g_loot = nil
farmbuyer@1 172 local g_restore_p = nil
farmbuyer@1 173 local g_wafer_thin = nil -- for prompting for additional rebroadcasters
farmbuyer@1 174 local g_today = nil -- "today" entry in g_loot
farmbuyer@16 175 local g_boss_signpost = nil
farmbuyer@1 176 local opts = nil
farmbuyer@1 177
farmbuyer@1 178 local pairs, ipairs, tinsert, tremove, tonumber = pairs, ipairs, table.insert, table.remove, tonumber
farmbuyer@1 179 local pprint, tabledump = addon.pprint, flib.tabledump
farmbuyer@10 180 local GetNumRaidMembers = GetNumRaidMembers
farmbuyer@1 181 -- En masse forward decls of symbols defined inside local blocks
farmbuyer@2 182 local _register_bossmod
farmbuyer@1 183 local makedate, create_new_cache, _init
farmbuyer@1 184
farmbuyer@27 185 -- Try to extract numbers from the .toc "Version" and munge them into an
farmbuyer@27 186 -- integral form for comparison. The result doesn't need to be meaningful as
farmbuyer@27 187 -- long as we can reliably feed two of them to "<" and get useful results.
farmbuyer@29 188 --
farmbuyer@29 189 -- This makes/reinforces an assumption that revision_large of release packages
farmbuyer@29 190 -- (e.g., 2016001) will always be higher than those of development packages
farmbuyer@29 191 -- (e.g., 87), due to the tagging system versus subversion file revs. This
farmbuyer@29 192 -- is good, as local dev code will never trigger a false positive update
farmbuyer@29 193 -- warning for other users.
farmbuyer@27 194 do
farmbuyer@27 195 local r = 0
farmbuyer@27 196 for d in addon.revision:gmatch("%d+") do
farmbuyer@27 197 r = 1000*r + d
farmbuyer@27 198 end
farmbuyer@27 199 revision_large = math.max(r,1)
farmbuyer@27 200 end
farmbuyer@27 201
farmbuyer@1 202 -- Hypertext support, inspired by DBM broadcast pizza timers
farmbuyer@1 203 do
farmbuyer@1 204 local hypertext_format_str = "|HOuroRaid:%s|h%s[%s]|r|h"
farmbuyer@1 205
farmbuyer@27 206 -- text will automatically be surrounded by brackets
farmbuyer@1 207 function addon.format_hypertext (code, text, color)
farmbuyer@1 208 return hypertext_format_str:format (code,
farmbuyer@11 209 type(color)=='number' and ITEM_QUALITY_COLORS[color].hex or color,
farmbuyer@1 210 text)
farmbuyer@1 211 end
farmbuyer@1 212
farmbuyer@1 213 DEFAULT_CHAT_FRAME:HookScript("OnHyperlinkClick", function(self, link, string, mousebutton)
farmbuyer@1 214 local ltype, arg = strsplit(":",link)
farmbuyer@1 215 if ltype ~= "OuroRaid" then return end
farmbuyer@1 216 if arg == 'openloot' then
farmbuyer@1 217 addon:BuildMainDisplay()
farmbuyer@27 218 elseif arg == 'popupurl' then
farmbuyer@30 219 -- Sadly, this is not generated by the packager, so hardcode it for now.
farmbuyer@30 220 -- The 'data' field is handled differently for onshow than for other callbacks.
farmbuyer@30 221 StaticPopup_Show("OUROL_URL", --[[text_arg1=]]nil, --[[text_arg2=]]nil,
farmbuyer@30 222 --[[data=]][[http://www.curse.com/addons/wow/ouroloot]])
farmbuyer@27 223 elseif arg == 'doping' then
farmbuyer@27 224 addon:DoPing()
farmbuyer@1 225 elseif arg == 'help' then
farmbuyer@1 226 addon:BuildMainDisplay('help')
farmbuyer@1 227 elseif arg == 'bcaston' then
farmbuyer@1 228 if not addon.rebroadcast then
farmbuyer@1 229 addon:Activate(nil,true)
farmbuyer@1 230 end
farmbuyer@1 231 addon:broadcast('bcast_responder')
farmbuyer@1 232 elseif arg == 'waferthin' then -- mint? it's wafer thin!
farmbuyer@1 233 g_wafer_thin = true -- fuck off, I'm full
farmbuyer@1 234 addon:broadcast('bcast_denied') -- remove once tested
farmbuyer@1 235 end
farmbuyer@1 236 end)
farmbuyer@1 237
farmbuyer@1 238 local old = ItemRefTooltip.SetHyperlink
farmbuyer@1 239 function ItemRefTooltip:SetHyperlink (link, ...)
farmbuyer@1 240 if link:match("^OuroRaid") then return end
farmbuyer@1 241 return old (self, link, ...)
farmbuyer@1 242 end
farmbuyer@1 243 end
farmbuyer@1 244
farmbuyer@1 245 do
farmbuyer@1 246 -- copied here because it's declared local to the calendar ui, thanks blizz ><
farmbuyer@1 247 local CALENDAR_FULLDATE_MONTH_NAMES = {
farmbuyer@1 248 FULLDATE_MONTH_JANUARY, FULLDATE_MONTH_FEBRUARY, FULLDATE_MONTH_MARCH,
farmbuyer@1 249 FULLDATE_MONTH_APRIL, FULLDATE_MONTH_MAY, FULLDATE_MONTH_JUNE,
farmbuyer@1 250 FULLDATE_MONTH_JULY, FULLDATE_MONTH_AUGUST, FULLDATE_MONTH_SEPTEMBER,
farmbuyer@1 251 FULLDATE_MONTH_OCTOBER, FULLDATE_MONTH_NOVEMBER, FULLDATE_MONTH_DECEMBER,
farmbuyer@1 252 }
farmbuyer@1 253 -- returns "dd Month yyyy", mm, dd, yyyy
farmbuyer@1 254 function makedate()
farmbuyer@1 255 Calendar_LoadUI()
farmbuyer@1 256 local _, M, D, Y = CalendarGetDate()
farmbuyer@1 257 local text = ("%d %s %d"):format(D, CALENDAR_FULLDATE_MONTH_NAMES[M], Y)
farmbuyer@1 258 return text, M, D, Y
farmbuyer@1 259 end
farmbuyer@1 260 end
farmbuyer@1 261
farmbuyer@1 262 -- Returns an instance name or abbreviation
farmbuyer@1 263 local function instance_tag()
farmbuyer@1 264 local name, typeof, diffcode, diffstr, _, perbossheroic, isdynamic = GetInstanceInfo()
farmbuyer@1 265 local t
farmbuyer@1 266 name = addon.instance_abbrev[name] or name
farmbuyer@1 267 if typeof == "none" then return name end
farmbuyer@1 268 -- diffstr is "5 Player", "10 Player (Heroic)", etc. ugh.
farmbuyer@35 269 if (GetLFGMode()) and (GetLFGModeType() == 'raid') then
farmbuyer@35 270 t = 'LFR'
farmbuyer@35 271 elseif diffcode == 1 then
farmbuyer@1 272 t = ((GetNumRaidMembers()>0) and "10" or "5")
farmbuyer@1 273 elseif diffcode == 2 then
farmbuyer@1 274 t = ((GetNumRaidMembers()>0) and "25" or "5h")
farmbuyer@1 275 elseif diffcode == 3 then
farmbuyer@1 276 t = "10h"
farmbuyer@1 277 elseif diffcode == 4 then
farmbuyer@1 278 t = "25h"
farmbuyer@1 279 end
farmbuyer@1 280 -- dynamic difficulties always return normal "codes"
farmbuyer@1 281 if isdynamic and perbossheroic == 1 then
farmbuyer@1 282 t = t .. "h"
farmbuyer@1 283 end
farmbuyer@1 284 return name .. "(" .. t .. ")"
farmbuyer@1 285 end
farmbuyer@1 286 addon.instance_tag = instance_tag -- grumble
farmbuyer@1 287
farmbuyer@1 288
farmbuyer@1 289 ------ Expiring caches
farmbuyer@1 290 --[[
farmbuyer@1 291 foo = create_new_cache("myfoo",15[,cleanup]) -- ttl
farmbuyer@1 292 foo:add("blah")
farmbuyer@1 293 foo:test("blah") -- returns true
farmbuyer@1 294 ]]
farmbuyer@1 295 do
farmbuyer@1 296 local caches = {}
farmbuyer@25 297 local cleanup_group = _G.AnimTimerFrame:CreateAnimationGroup()
farmbuyer@10 298 local time = _G.time
farmbuyer@1 299 cleanup_group:SetLooping("REPEAT")
farmbuyer@1 300 cleanup_group:SetScript("OnLoop", function(cg)
farmbuyer@1 301 addon.dprint('cache',"OnLoop firing")
farmbuyer@10 302 local now = time()
farmbuyer@1 303 local alldone = true
farmbuyer@1 304 -- this is ass-ugly
farmbuyer@25 305 for name,c in pairs(caches) do
farmbuyer@25 306 local fifo = c.fifo
farmbuyer@25 307 local active = #fifo > 0
farmbuyer@25 308 while (#fifo > 0) and (now - fifo[1].t > c.ttl) do
farmbuyer@25 309 addon.dprint('cache', name, "cache removing",fifo[1].t, fifo[1].m)
farmbuyer@25 310 tremove(fifo,1)
farmbuyer@1 311 end
farmbuyer@25 312 if active and #fifo == 0 and c.func then
farmbuyer@25 313 addon.dprint('cache', name, "empty, firing cleanup")
farmbuyer@25 314 c:func()
farmbuyer@25 315 end
farmbuyer@25 316 alldone = alldone and (#fifo == 0)
farmbuyer@1 317 end
farmbuyer@1 318 if alldone then
farmbuyer@1 319 addon.dprint('cache',"OnLoop finishing animation group")
farmbuyer@1 320 cleanup_group:Finish()
farmbuyer@1 321 end
farmbuyer@1 322 addon.dprint('cache',"OnLoop done")
farmbuyer@1 323 end)
farmbuyer@1 324
farmbuyer@1 325 local function _add (cache, x)
farmbuyer@25 326 local datum = { t=time(), m=x }
farmbuyer@25 327 cache.hash[x] = datum
farmbuyer@25 328 tinsert (cache.fifo, datum)
farmbuyer@1 329 if not cleanup_group:IsPlaying() then
farmbuyer@1 330 addon.dprint('cache', cache.name, "STARTING animation group")
farmbuyer@1 331 cache.cleanup:SetDuration(2) -- hmmm
farmbuyer@1 332 cleanup_group:Play()
farmbuyer@1 333 end
farmbuyer@1 334 end
farmbuyer@1 335 local function _test (cache, x)
farmbuyer@25 336 return cache.hash[x] ~= nil
farmbuyer@25 337 --[[for _,v in ipairs(cache) do
farmbuyer@1 338 if v.m == x then return true end
farmbuyer@25 339 end]]
farmbuyer@1 340 end
farmbuyer@25 341
farmbuyer@1 342 function create_new_cache (name, ttl, on_alldone)
farmbuyer@25 343 -- setting OnFinished for cleanup fires at the end of each inner loop,
farmbuyer@25 344 -- with no 'requested' argument to distinguish cases. thus, on_alldone.
farmbuyer@1 345 local c = {
farmbuyer@1 346 ttl = ttl,
farmbuyer@1 347 name = name,
farmbuyer@1 348 add = _add,
farmbuyer@1 349 test = _test,
farmbuyer@1 350 cleanup = cleanup_group:CreateAnimation("Animation"),
farmbuyer@1 351 func = on_alldone,
farmbuyer@25 352 fifo = {},
farmbuyer@25 353 hash = setmetatable({}, {__mode='kv'}),
farmbuyer@1 354 }
farmbuyer@1 355 c.cleanup:SetOrder(1)
farmbuyer@25 356 caches[name] = c
farmbuyer@1 357 return c
farmbuyer@1 358 end
farmbuyer@1 359 end
farmbuyer@1 360
farmbuyer@1 361
farmbuyer@1 362 ------ Ace3 framework stuff
farmbuyer@1 363 function addon:OnInitialize()
farmbuyer@1 364 -- VARIABLES_LOADED has fired by this point; test if we're doing something like
farmbuyer@1 365 -- relogging during a raid and already have collected loot data
farmbuyer@1 366 g_restore_p = OuroLootSV ~= nil
farmbuyer@1 367 self.dprint('flow', "oninit sets restore as", g_restore_p)
farmbuyer@1 368
farmbuyer@1 369 if OuroLootSV_opts == nil then
farmbuyer@1 370 OuroLootSV_opts = {}
farmbuyer@1 371 self:ScheduleTimer(function(s)
farmbuyer@1 372 s:Print(virgin, s.format_hypertext('help',"click here",ITEM_QUALITY_UNCOMMON))
farmbuyer@1 373 virgin = nil
farmbuyer@1 374 end,10,self)
farmbuyer@1 375 end
farmbuyer@1 376 opts = OuroLootSV_opts
farmbuyer@1 377 for opt,default in pairs(option_defaults) do
farmbuyer@1 378 if opts[opt] == nil then
farmbuyer@1 379 opts[opt] = default
farmbuyer@1 380 end
farmbuyer@1 381 end
farmbuyer@25 382 -- transition&remove old options
farmbuyer@25 383 opts['forum_use_itemid'] = nil
farmbuyer@25 384 if opts['forum_format'] then
farmbuyer@25 385 opts.forum['Custom...'] = opts['forum_format']
farmbuyer@25 386 opts['forum_format'] = nil
farmbuyer@25 387 end
farmbuyer@25 388 if opts.forum['[url]'] then
farmbuyer@25 389 opts.forum['[url] Wowhead'] = opts.forum['[url]']
farmbuyer@25 390 opts.forum['[url]'] = nil
farmbuyer@25 391 opts.forum['[url] MMO/Wowstead'] = option_defaults.forum['[url] MMO/Wowstead']
farmbuyer@25 392 if opts['forum_current'] == '[url]' then
farmbuyer@25 393 opts['forum_current'] = '[url] Wowhead'
farmbuyer@25 394 end
farmbuyer@25 395 end
farmbuyer@1 396 option_defaults = nil
farmbuyer@16 397 if OuroLootSV then -- may not be the same as testing g_restore_p soon
farmbuyer@16 398 if OuroLootSV.saved then
farmbuyer@16 399 OuroLootSV_saved = OuroLootSV.saved; OuroLootSV.saved = nil
farmbuyer@16 400 end
farmbuyer@16 401 if OuroLootSV.threshold then
farmbuyer@16 402 opts.threshold = OuroLootSV.threshold; OuroLootSV.threshold = nil
farmbuyer@16 403 end
farmbuyer@16 404 if OuroLootSV.autoshard then
farmbuyer@16 405 opts.autoshard = OuroLootSV.autoshard; OuroLootSV.autoshard = nil
farmbuyer@16 406 end
farmbuyer@16 407 end
farmbuyer@1 408 -- get item filter table if needed
farmbuyer@1 409 if opts.itemfilter == nil then
farmbuyer@1 410 opts.itemfilter = addon.default_itemfilter
farmbuyer@1 411 end
farmbuyer@1 412 addon.default_itemfilter = nil
farmbuyer@1 413
farmbuyer@1 414 self:RegisterChatCommand("ouroloot", "OnSlash")
farmbuyer@1 415 -- maybe try to detect if this command is already in use...
farmbuyer@1 416 if opts.register_slashloot then
farmbuyer@1 417 SLASH_ACECONSOLE_OUROLOOT2 = "/loot"
farmbuyer@1 418 end
farmbuyer@1 419
farmbuyer@1 420 self.history_all = self.history_all or OuroLootSV_hist or {}
farmbuyer@4 421 local r = assert(GetRealmName())
farmbuyer@1 422 self.history_all[r] = self:_prep_new_history_category (self.history_all[r], r)
farmbuyer@1 423 self.history = self.history_all[r]
farmbuyer@6 424 --OuroLootSV_hist = nil
farmbuyer@1 425
farmbuyer@1 426 _init(self)
farmbuyer@27 427 self.dprint('flow', "version strings:", revision_large, self.status_text)
farmbuyer@1 428 self.OnInitialize = nil
farmbuyer@1 429 end
farmbuyer@1 430
farmbuyer@1 431 function addon:OnEnable()
farmbuyer@10 432 self:RegisterEvent("PLAYER_LOGOUT")
farmbuyer@10 433 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@1 434
farmbuyer@1 435 -- Cribbed from Talented. I like the way jerry thinks: the first argument
farmbuyer@1 436 -- can be a format spec for the remainder of the arguments. (The new
farmbuyer@1 437 -- AceConsole:Printf isn't used because we can't specify a prefix without
farmbuyer@1 438 -- jumping through ridonkulous hoops.) The part about overriding :Print
farmbuyer@1 439 -- with a version using prefix hyperlinks is my fault.
farmbuyer@37 440 --
farmbuyer@37 441 -- There is no ITEM_QUALITY_LEGENDARY constant. Sigh.
farmbuyer@1 442 do
farmbuyer@1 443 local AC = LibStub("AceConsole-3.0")
farmbuyer@1 444 local chat_prefix = self.format_hypertext('openloot',"Ouro Loot",--[[legendary]]5)
farmbuyer@1 445 function addon:Print (str, ...)
farmbuyer@1 446 if type(str) == 'string' and str:find("%", nil, --[[plainmatch=]]true) then
farmbuyer@1 447 return AC:Print (chat_prefix, str:format(...))
farmbuyer@1 448 else
farmbuyer@1 449 return AC:Print (chat_prefix, str, ...)
farmbuyer@1 450 end
farmbuyer@1 451 end
farmbuyer@1 452 end
farmbuyer@1 453
farmbuyer@1 454 if opts.keybinding then
farmbuyer@15 455 KeyBindingFrame_LoadUI()
farmbuyer@1 456 local btn = CreateFrame("Button", "OuroLootBindingOpen", nil, "SecureActionButtonTemplate")
farmbuyer@1 457 btn:SetAttribute("type", "macro")
farmbuyer@1 458 btn:SetAttribute("macrotext", "/ouroloot toggle")
farmbuyer@1 459 if SetBindingClick(opts.keybinding_text, "OuroLootBindingOpen") then
farmbuyer@15 460 -- a simple SaveBindings(GetCurrentBindingSet()) occasionally fails when GCBS
farmbuyer@15 461 -- decides to return neither 1 nor 2 during load
farmbuyer@15 462 local c = GetCurrentBindingSet()
farmbuyer@15 463 if c == ACCOUNT_BINDINGS or c == CHARACTER_BINDINGS then
farmbuyer@15 464 SaveBindings(c)
farmbuyer@15 465 end
farmbuyer@1 466 else
farmbuyer@2 467 self:Print("Error registering '%s' as a keybinding, check spelling!", opts.keybinding_text)
farmbuyer@1 468 end
farmbuyer@1 469 end
farmbuyer@1 470
farmbuyer@20 471 --[[
farmbuyer@20 472 The four loot format patterns of interest, changed into relatively tight
farmbuyer@20 473 string match patterns. Done at enable-time rather than load-time against
farmbuyer@20 474 the slim chance that one of the non-US "delocalizers" needs to mess with
farmbuyer@20 475 the global patterns before we transform them.
farmbuyer@20 476
farmbuyer@20 477 The SELF variants can be replaced with LOOT_ITEM_PUSHED_SELF[_MULTIPLE] to
farmbuyer@20 478 trigger on 'receive item' instead, which would detect extracting stuff
farmbuyer@20 479 from mail, or s/PUSHED/CREATED/ for things like healthstones and guild
farmbuyer@20 480 cauldron flasks.
farmbuyer@20 481 ]]
farmbuyer@20 482
farmbuyer@20 483 -- LOOT_ITEM = "%s receives loot: %s." --> (.+) receives loot: (.+)%.
farmbuyer@20 484 g_LOOT_ITEM_ss = _G.LOOT_ITEM:gsub('%.$','%%.'):gsub('%%s','(.+)')
farmbuyer@20 485
farmbuyer@20 486 -- LOOT_ITEM_MULTIPLE = "%s receives loot: %sx%d." --> (.+) receives loot: (.+)(x%d+)%.
farmbuyer@20 487 g_LOOT_ITEM_MULTIPLE_sss = _G.LOOT_ITEM_MULTIPLE:gsub('%.$','%%.'):gsub('%%s','(.+)'):gsub('x%%d','(x%%d+)')
farmbuyer@20 488
farmbuyer@20 489 -- LOOT_ITEM_SELF = "You receive loot: %s." --> You receive loot: (.+)%.
farmbuyer@20 490 g_LOOT_ITEM_SELF_s = _G.LOOT_ITEM_SELF:gsub('%.$','%%.'):gsub('%%s','(.+)')
farmbuyer@20 491
farmbuyer@20 492 -- LOOT_ITEM_SELF_MULTIPLE = "You receive loot: %sx%d." --> You receive loot: (.+)(x%d+)%.
farmbuyer@20 493 g_LOOT_ITEM_SELF_MULTIPLE_ss = _G.LOOT_ITEM_SELF_MULTIPLE:gsub('%.$','%%.'):gsub('%%s','(.+)'):gsub('x%%d','(x%%d+)')
farmbuyer@20 494
farmbuyer@1 495 if self.debug.flow then self:Print"is in control-flow debug mode." end
farmbuyer@1 496 end
farmbuyer@1 497 --function addon:OnDisable() end
farmbuyer@1 498
farmbuyer@1 499
farmbuyer@1 500 ------ Event handlers
farmbuyer@1 501 function addon:_clear_SVs()
farmbuyer@1 502 g_loot = {} -- not saved, just fooling PLAYER_LOGOUT tests
farmbuyer@1 503 OuroLootSV = nil
farmbuyer@16 504 OuroLootSV_saved = nil
farmbuyer@1 505 OuroLootSV_opts = nil
farmbuyer@1 506 OuroLootSV_hist = nil
farmbuyer@22 507 OuroLootSV_log = nil
farmbuyer@8 508 ReloadUI()
farmbuyer@1 509 end
farmbuyer@1 510 function addon:PLAYER_LOGOUT()
farmbuyer@16 511 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 512 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@16 513
farmbuyer@16 514 local worth_saving = #g_loot > 0 or next(g_loot.raiders)
farmbuyer@16 515 if not worth_saving then for text in self:registered_textgen_iter() do
farmbuyer@16 516 worth_saving = worth_saving or g_loot.printed[text] > 0
farmbuyer@16 517 end end
farmbuyer@16 518 if worth_saving then
farmbuyer@16 519 opts.autoshard = self.sharder
farmbuyer@16 520 opts.threshold = self.threshold
farmbuyer@1 521 for i,e in ipairs(g_loot) do
farmbuyer@1 522 e.cols = nil
farmbuyer@1 523 end
farmbuyer@1 524 OuroLootSV = g_loot
farmbuyer@16 525 else
farmbuyer@16 526 OuroLootSV = nil
farmbuyer@1 527 end
farmbuyer@16 528
farmbuyer@6 529 for r,t in pairs(self.history_all) do if type(t) == 'table' then
farmbuyer@8 530 if #t == 0 then
farmbuyer@8 531 self.history_all[r] = nil
farmbuyer@8 532 else
farmbuyer@8 533 t.realm = nil
farmbuyer@8 534 t.st = nil
farmbuyer@8 535 t.byname = nil
farmbuyer@8 536 end
farmbuyer@6 537 end end
farmbuyer@1 538 OuroLootSV_hist = self.history_all
farmbuyer@19 539 OuroLootSV_log = #OuroLootSV_log > 0 and OuroLootSV_log or nil
farmbuyer@1 540 end
farmbuyer@1 541
farmbuyer@10 542 do
farmbuyer@10 543 local IsInInstance, UnitName, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@10 544 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo =
farmbuyer@10 545 IsInInstance, UnitName, UnitIsConnected, UnitClass, UnitRace, UnitSex,
farmbuyer@10 546 UnitLevel, UnitInRaid, UnitIsVisible, GetGuildInfo
farmbuyer@10 547 local time, difftime = time, difftime
farmbuyer@10 548 local R_ACTIVE, R_OFFLINE, R_LEFT = 1, 2, 3
farmbuyer@10 549
farmbuyer@10 550 local lastevent, now = 0, 0
farmbuyer@16 551 local redo_count = 0
farmbuyer@16 552 local redo, timer_handle
farmbuyer@10 553
farmbuyer@10 554 function addon:CheckRoster (leaving_p, now_a)
farmbuyer@10 555 if not g_loot.raiders then return end -- bad transition
farmbuyer@10 556
farmbuyer@10 557 now = now_a or time()
farmbuyer@10 558
farmbuyer@10 559 if leaving_p then
farmbuyer@16 560 if timer_handle then
farmbuyer@16 561 self:CancelTimer(timer_handle)
farmbuyer@16 562 timer_handle = nil
farmbuyer@16 563 end
farmbuyer@10 564 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 565 r.leave = r.leave or now
farmbuyer@10 566 end
farmbuyer@10 567 return
farmbuyer@10 568 end
farmbuyer@10 569
farmbuyer@10 570 for name,r in pairs(g_loot.raiders) do
farmbuyer@10 571 if r.online ~= R_LEFT and not UnitInRaid(name) then
farmbuyer@10 572 r.online = R_LEFT
farmbuyer@10 573 r.leave = now
farmbuyer@10 574 end
farmbuyer@10 575 end
farmbuyer@10 576
farmbuyer@16 577 if redo then
farmbuyer@16 578 redo_count = redo_count + 1
farmbuyer@16 579 end
farmbuyer@16 580 redo = false
farmbuyer@10 581 for i = 1, GetNumRaidMembers() do
farmbuyer@10 582 local unit = 'raid'..i
farmbuyer@10 583 local name = UnitName(unit)
farmbuyer@10 584 -- No, that's not my typo, it really is "uknownbeing" in Blizzard's code.
farmbuyer@10 585 if name and name ~= UNKNOWN and name ~= UNKNOWNOBJECT and name ~= UKNOWNBEING then
farmbuyer@10 586 if not g_loot.raiders[name] then
farmbuyer@10 587 g_loot.raiders[name] = { needinfo=true }
farmbuyer@10 588 end
farmbuyer@10 589 local r = g_loot.raiders[name]
farmbuyer@10 590 if r.needinfo and UnitIsVisible(unit) then
farmbuyer@10 591 r.needinfo = nil
farmbuyer@10 592 r.class = select(2,UnitClass(unit))
farmbuyer@10 593 r.race = select(2,UnitRace(unit))
farmbuyer@10 594 r.sex = UnitSex(unit)
farmbuyer@10 595 r.level = UnitLevel(unit)
farmbuyer@10 596 r.guild = GetGuildInfo(unit)
farmbuyer@10 597 end
farmbuyer@10 598 local connected = UnitIsConnected(unit)
farmbuyer@10 599 if connected and r.online ~= R_ACTIVE then
farmbuyer@10 600 r.join = r.join or now
farmbuyer@10 601 r.online = R_ACTIVE
farmbuyer@10 602 elseif (not connected) and r.online ~= R_OFFLINE then
farmbuyer@10 603 r.leave = now
farmbuyer@10 604 r.online = R_OFFLINE
farmbuyer@10 605 end
farmbuyer@10 606 redo = redo or r.needinfo
farmbuyer@10 607 end
farmbuyer@10 608 end
farmbuyer@16 609 if redo then -- XXX test redo_count here and eventually give up?
farmbuyer@16 610 if not timer_handle then
farmbuyer@16 611 timer_handle = self:ScheduleRepeatingTimer("RAID_ROSTER_UPDATE", 60)
farmbuyer@16 612 end
farmbuyer@16 613 else
farmbuyer@16 614 redo_count = 0
farmbuyer@16 615 if timer_handle then
farmbuyer@16 616 self:CancelTimer(timer_handle)
farmbuyer@16 617 timer_handle = nil
farmbuyer@16 618 end
farmbuyer@10 619 end
farmbuyer@10 620 end
farmbuyer@10 621
farmbuyer@10 622 function addon:RAID_ROSTER_UPDATE (event)
farmbuyer@10 623 if GetNumRaidMembers() == 0 then
farmbuyer@16 624 -- Leaving a raid group.
farmbuyer@10 625 -- Because of PLAYER_ENTERING_WORLD, this code also executes on load
farmbuyer@10 626 -- screens while soloing and in regular groups. Take care.
farmbuyer@16 627 self.dprint('flow', "GetNumRaidMembers == 0")
farmbuyer@16 628 if self.enabled and not self.debug.notraid then
farmbuyer@16 629 self.dprint('flow', "enabled, leaving raid")
farmbuyer@10 630 self.popped = nil
farmbuyer@16 631 self:Deactivate() -- self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@10 632 self:CheckRoster(--[[leaving raid]]true)
farmbuyer@10 633 end
farmbuyer@10 634 return
farmbuyer@10 635 end
farmbuyer@10 636
farmbuyer@1 637 local inside,whatkind = IsInInstance()
farmbuyer@1 638 if inside and (whatkind == "pvp" or whatkind == "arena") then
farmbuyer@1 639 return self.dprint('flow', "got RRU event but in pvp zone, bailing")
farmbuyer@1 640 end
farmbuyer@10 641
farmbuyer@10 642 local docheck = self.enabled
farmbuyer@1 643 if event == "Activate" then
farmbuyer@1 644 -- dispatched manually from Activate
farmbuyer@10 645 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 646 _register_bossmod(self)
farmbuyer@10 647 docheck = true
farmbuyer@1 648 elseif event == "RAID_ROSTER_UPDATE" then
farmbuyer@10 649 -- hot code path, be careful
farmbuyer@10 650
farmbuyer@1 651 -- event registration from onload, joined a raid, maybe show popup
farmbuyer@16 652 self.dprint('flow', "RRU check:", self.popped, opts.popup_on_join)
farmbuyer@10 653 if (not self.popped) and opts.popup_on_join then
farmbuyer@1 654 self.popped = StaticPopup_Show "OUROL_REMIND"
farmbuyer@1 655 self.popped.data = self
farmbuyer@10 656 return
farmbuyer@1 657 end
farmbuyer@1 658 end
farmbuyer@11 659 -- Throttle the checks fired by common events.
farmbuyer@10 660 if docheck and not InCombatLockdown() then
farmbuyer@10 661 now = time()
farmbuyer@10 662 if difftime(now,lastevent) > 45 then
farmbuyer@10 663 lastevent = now
farmbuyer@10 664 self:CheckRoster(false,now)
farmbuyer@10 665 end
farmbuyer@10 666 end
farmbuyer@1 667 end
farmbuyer@1 668 end
farmbuyer@1 669
farmbuyer@1 670 -- helper for CHAT_MSG_LOOT handler
farmbuyer@1 671 do
farmbuyer@1 672 -- Recent loot cache
farmbuyer@25 673 local candidates = {}
farmbuyer@25 674 local function prefer_local_loots (cache)
farmbuyer@25 675 -- The function name is a bit of a misnomer, as local entries overwrite
farmbuyer@25 676 -- remote entries as the candidate table is populated. This routine is
farmbuyer@25 677 -- to extract the results once the cache timers have expired.
farmbuyer@34 678 -- Keep this sync'd with the local_override branch below.
farmbuyer@25 679 for i,sig in ipairs(candidates) do
farmbuyer@25 680 addon.dprint('loot', "processing candidate entry", i, sig)
farmbuyer@25 681 local loot = candidates[sig]
farmbuyer@25 682 if loot then
farmbuyer@25 683 addon.dprint('loot', i, "was found")
farmbuyer@25 684 candidates[sig] = nil
farmbuyer@25 685 local looti = addon._addLootEntry(loot)
farmbuyer@25 686 if (loot.disposition ~= 'shard')
farmbuyer@25 687 and (loot.disposition ~= 'gvault')
farmbuyer@25 688 and (not addon.history_suppress)
farmbuyer@25 689 then
farmbuyer@25 690 addon:_addHistoryEntry(looti)
farmbuyer@25 691 end
farmbuyer@25 692 end
farmbuyer@25 693 end
farmbuyer@25 694
farmbuyer@25 695 if addon.display then
farmbuyer@25 696 addon:redisplay()
farmbuyer@25 697 end
farmbuyer@25 698 table.wipe(candidates)
farmbuyer@25 699 end
farmbuyer@25 700 addon.recent_loot = create_new_cache ('loot', comm_cleanup_ttl, prefer_local_loots)
farmbuyer@1 701
farmbuyer@6 702 local GetItemInfo, GetItemIcon = GetItemInfo, GetItemIcon
farmbuyer@1 703
farmbuyer@1 704 -- 'from' and onwards only present if this is triggered by a broadcast
farmbuyer@1 705 function addon:_do_loot (local_override, recipient, itemid, count, from, extratext)
farmbuyer@6 706 local itexture = GetItemIcon(itemid)
farmbuyer@6 707 local iname, ilink, iquality = GetItemInfo(itemid)
farmbuyer@19 708 local i
farmbuyer@6 709 if (not iname) or (not itexture) then
farmbuyer@19 710 i = true
farmbuyer@6 711 iname, ilink, iquality, itexture =
farmbuyer@6 712 UNKNOWN..': '..itemid, 'item:6948', ITEM_QUALITY_COMMON, [[ICONS\INV_Misc_QuestionMark]]
farmbuyer@6 713 end
farmbuyer@19 714 self.dprint('loot',">>_do_loot, R:", recipient, "I:", itemid, "C:", count, "frm:", from, "ex:", extratext, "q:", iquality)
farmbuyer@1 715
farmbuyer@19 716 itemid = tonumber(ilink:match("item:(%d+)") or 0)
farmbuyer@25 717 -- This is only a loop to make jumping out of it easy, and still do cleanup below.
farmbuyer@25 718 while local_override or ((iquality >= self.threshold) and not opts.itemfilter[itemid]) do
farmbuyer@1 719 if (self.rebroadcast and (not from)) and not local_override then
farmbuyer@1 720 self:broadcast('loot', recipient, itemid, count)
farmbuyer@1 721 end
farmbuyer@25 722 if (not self.enabled) and (not local_override) then break end
farmbuyer@25 723 local signature = recipient .. iname .. (count or "")
farmbuyer@25 724 if from and self.recent_loot:test(signature) then
farmbuyer@25 725 self.dprint('cache', "loot <",signature,"> already in cache, skipping")
farmbuyer@25 726 else
farmbuyer@25 727 -- There is some redundancy in all this, in the interests of ease-of-coding
farmbuyer@25 728 i = {
farmbuyer@25 729 kind = 'loot',
farmbuyer@25 730 person = recipient,
farmbuyer@25 731 person_class= select(2,UnitClass(recipient)),
farmbuyer@25 732 cache_miss = i and true or nil,
farmbuyer@25 733 quality = iquality,
farmbuyer@25 734 itemname = iname,
farmbuyer@25 735 id = itemid,
farmbuyer@25 736 itemlink = ilink,
farmbuyer@25 737 itexture = itexture,
farmbuyer@25 738 disposition = (recipient == self.sharder) and 'shard' or nil,
farmbuyer@25 739 count = count,
farmbuyer@25 740 bcast_from = from,
farmbuyer@25 741 extratext = extratext,
farmbuyer@25 742 is_heroic = self:is_heroic_item(ilink),
farmbuyer@25 743 }
farmbuyer@34 744 if local_override then
farmbuyer@34 745 -- adding things by hand, don't wait for network cache timeouts
farmbuyer@34 746 if i.extratext == 'shard'
farmbuyer@34 747 or i.extratext == 'gvault'
farmbuyer@34 748 or i.extratext == 'offspec'
farmbuyer@34 749 then
farmbuyer@34 750 i.disposition = i.extratext
farmbuyer@34 751 end
farmbuyer@34 752 local looti = self._addLootEntry(i)
farmbuyer@34 753 if (i.disposition ~= 'shard')
farmbuyer@34 754 and (i.disposition ~= 'gvault')
farmbuyer@34 755 and (not self.history_suppress)
farmbuyer@34 756 then
farmbuyer@34 757 self:_addHistoryEntry(looti)
farmbuyer@34 758 end
farmbuyer@34 759 i = looti -- mostly for gui's manual entry
farmbuyer@34 760 else
farmbuyer@34 761 self.recent_loot:add(signature)
farmbuyer@34 762 candidates[signature] = i
farmbuyer@34 763 tinsert (candidates, signature)
farmbuyer@34 764 self.dprint('cache', "loot <",signature,"> added to cache, candidate", #candidates)
farmbuyer@34 765 end
farmbuyer@1 766 end
farmbuyer@25 767 break
farmbuyer@1 768 end
farmbuyer@1 769 self.dprint('loot',"<<_do_loot out")
farmbuyer@1 770 return i
farmbuyer@1 771 end
farmbuyer@1 772
farmbuyer@1 773 function addon:CHAT_MSG_LOOT (event, ...)
farmbuyer@1 774 if (not self.rebroadcast) and (not self.enabled) and (event ~= "manual") then return end
farmbuyer@1 775
farmbuyer@1 776 --[[
farmbuyer@1 777 iname: Hearthstone
farmbuyer@1 778 iquality: integer
farmbuyer@1 779 ilink: clickable formatted link
farmbuyer@1 780 itemstring: item:6948:....
farmbuyer@1 781 itexture: inventory icon texture
farmbuyer@1 782 ]]
farmbuyer@1 783
farmbuyer@1 784 if event == "CHAT_MSG_LOOT" then
farmbuyer@1 785 local msg = ...
farmbuyer@20 786 local person, itemstring, count
farmbuyer@21 787 --ChatFrame2:AddMessage("original string: >"..(msg:gsub("\124","\124\124")).."<")
farmbuyer@20 788 --local person, itemstring, remainder = msg:match(self.loot_pattern)
farmbuyer@20 789
farmbuyer@20 790 -- test in most likely order: other people get more loot than "you" do
farmbuyer@20 791 person, itemstring, count = msg:match(g_LOOT_ITEM_MULTIPLE_sss)
farmbuyer@20 792 if not person then
farmbuyer@20 793 person, itemstring = msg:match(g_LOOT_ITEM_ss)
farmbuyer@20 794 end
farmbuyer@20 795 if not person then
farmbuyer@20 796 itemstring, count = msg:match(g_LOOT_ITEM_SELF_MULTIPLE_ss)
farmbuyer@20 797 if not itemstring then
farmbuyer@20 798 itemstring = msg:match(g_LOOT_ITEM_SELF_s)
farmbuyer@20 799 end
farmbuyer@20 800 end
farmbuyer@20 801
farmbuyer@20 802 --self.dprint('loot', "CHAT_MSG_LOOT, person is", person, ", itemstring is", itemstring, ", rest is", remainder)
farmbuyer@20 803 self.dprint('loot', "CHAT_MSG_LOOT, person is", person, ", itemstring is", itemstring, ", count is", count)
farmbuyer@20 804 if not itemstring then return end -- "So-and-So selected Greed", etc, not actual looting
farmbuyer@20 805 --local count = remainder and remainder:match(".*(x%d+)$")
farmbuyer@1 806
farmbuyer@1 807 -- Name might be colorized, remove the highlighting
farmbuyer@20 808 if person then
farmbuyer@20 809 person = person:match("|c%x%x%x%x%x%x%x%x(%S+)") or person
farmbuyer@20 810 else
farmbuyer@20 811 -- UNIT_YOU / You
farmbuyer@20 812 person = my_name
farmbuyer@20 813 end
farmbuyer@1 814
farmbuyer@20 815 --local id = tonumber((select(2, strsplit(":", itemstring))))
farmbuyer@20 816 local id = tonumber(itemstring:match('|Hitem:(%d+):'))
farmbuyer@1 817
farmbuyer@1 818 return self:_do_loot (false, person, id, count)
farmbuyer@1 819
farmbuyer@1 820 elseif event == "broadcast" then
farmbuyer@1 821 return self:_do_loot(false, ...)
farmbuyer@1 822
farmbuyer@1 823 elseif event == "manual" then
farmbuyer@1 824 local r,i,n = ...
farmbuyer@1 825 return self:_do_loot(true, r,i,nil,nil,n)
farmbuyer@1 826 end
farmbuyer@1 827 end
farmbuyer@1 828 end
farmbuyer@1 829
farmbuyer@1 830
farmbuyer@1 831 ------ Slash command handler
farmbuyer@1 832 -- Thought about breaking this up into a table-driven dispatcher. But
farmbuyer@1 833 -- that would result in a pile of teensy functions, most of which would
farmbuyer@1 834 -- never be called. Too much overhead. (2.0: Most of these removed now
farmbuyer@1 835 -- that GUI is in place.)
farmbuyer@1 836 function addon:OnSlash (txt) --, editbox)
farmbuyer@1 837 txt = strtrim(txt:lower())
farmbuyer@1 838 local cmd, arg = ""
farmbuyer@1 839 do
farmbuyer@1 840 local s,e = txt:find("^%a+")
farmbuyer@1 841 if s then
farmbuyer@1 842 cmd = txt:sub(s,e)
farmbuyer@1 843 s = txt:find("%S", e+2)
farmbuyer@1 844 if s then arg = txt:sub(s,-1) end
farmbuyer@1 845 end
farmbuyer@1 846 end
farmbuyer@1 847
farmbuyer@1 848 if cmd == "" then
farmbuyer@1 849 if InCombatLockdown() then
farmbuyer@1 850 return self:Print("Can't display window in combat.")
farmbuyer@1 851 else
farmbuyer@1 852 return self:BuildMainDisplay()
farmbuyer@1 853 end
farmbuyer@1 854
farmbuyer@1 855 elseif cmd:find("^thre") then
farmbuyer@1 856 self:SetThreshold(arg)
farmbuyer@1 857
farmbuyer@1 858 elseif cmd == "on" then self:Activate(arg)
farmbuyer@1 859 elseif cmd == "off" then self:Deactivate()
farmbuyer@1 860 elseif cmd == "broadcast" or cmd == "bcast" then self:Activate(nil,true)
farmbuyer@1 861
farmbuyer@23 862 elseif cmd == "toggle" then
farmbuyer@23 863 if self.display then
farmbuyer@23 864 self.display:Hide()
farmbuyer@23 865 else
farmbuyer@23 866 return self:BuildMainDisplay()
farmbuyer@23 867 end
farmbuyer@23 868
farmbuyer@1 869 elseif cmd == "fake" then -- maybe comment this out for real users
farmbuyer@1 870 self:_mark_boss_kill (self._addLootEntry{
farmbuyer@1 871 kind='boss',reason='kill',bosskill="Baron Steamroller",instance=instance_tag(),duration=0
farmbuyer@1 872 })
farmbuyer@1 873 self:CHAT_MSG_LOOT ('manual', my_name, 54797)
farmbuyer@1 874 if self.display then
farmbuyer@1 875 self:redisplay()
farmbuyer@1 876 end
farmbuyer@1 877 self:Print "Baron Steamroller has been slain. Congratulations on your rug."
farmbuyer@1 878
farmbuyer@1 879 elseif cmd == "debug" then
farmbuyer@1 880 if arg then
farmbuyer@1 881 self.debug[arg] = not self.debug[arg]
farmbuyer@1 882 _G.print(arg,self.debug[arg])
farmbuyer@1 883 if self.debug[arg] then self.DEBUG_PRINT = true end
farmbuyer@1 884 else
farmbuyer@1 885 self.DEBUG_PRINT = not self.DEBUG_PRINT
farmbuyer@1 886 end
farmbuyer@1 887
farmbuyer@1 888 elseif cmd == "save" and arg and arg:len() > 0 then
farmbuyer@1 889 self:save_saveas(arg)
farmbuyer@1 890 elseif cmd == "list" then
farmbuyer@1 891 self:save_list()
farmbuyer@1 892 elseif cmd == "restore" and arg and arg:len() > 0 then
farmbuyer@1 893 self:save_restore(tonumber(arg))
farmbuyer@1 894 elseif cmd == "delete" and arg and arg:len() > 0 then
farmbuyer@1 895 self:save_delete(tonumber(arg))
farmbuyer@1 896
farmbuyer@1 897 elseif cmd == "help" then
farmbuyer@1 898 self:BuildMainDisplay('help')
farmbuyer@23 899 elseif cmd == "ping" then
farmbuyer@23 900 self:DoPing()
farmbuyer@1 901
farmbuyer@19 902 elseif cmd == "fixcache" then
farmbuyer@19 903 self:do_item_cache_fixup()
farmbuyer@19 904
farmbuyer@1 905 else
farmbuyer@1 906 if self:OpenMainDisplayToTab(cmd) then
farmbuyer@1 907 return
farmbuyer@1 908 end
farmbuyer@1 909 self:Print("Unknown command '%s'. %s to see the help window.",
farmbuyer@1 910 cmd, self.format_hypertext('help',"Click here",ITEM_QUALITY_UNCOMMON))
farmbuyer@1 911 end
farmbuyer@1 912 end
farmbuyer@1 913
farmbuyer@1 914 function addon:SetThreshold (arg, quiet_p)
farmbuyer@1 915 local q = tonumber(arg)
farmbuyer@1 916 if q then
farmbuyer@1 917 q = math.floor(q+0.001)
farmbuyer@1 918 if q<0 or q>6 then
farmbuyer@1 919 return self:Print("Threshold must be 0-6.")
farmbuyer@1 920 end
farmbuyer@1 921 else
farmbuyer@1 922 q = qualnames[arg]
farmbuyer@1 923 if not q then
farmbuyer@1 924 return self:Print("Unrecognized item quality argument.")
farmbuyer@1 925 end
farmbuyer@1 926 end
farmbuyer@1 927 self.threshold = q
farmbuyer@1 928 if not quiet_p then self:Print("Threshold now set to %s.", self.thresholds[q]) end
farmbuyer@1 929 end
farmbuyer@1 930
farmbuyer@1 931
farmbuyer@1 932 ------ On/off
farmbuyer@1 933 function addon:Activate (opt_threshold, opt_bcast_only)
farmbuyer@16 934 self.dprint('flow', ":Activate is running")
farmbuyer@10 935 self:RegisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@16 936 self:RegisterEvent("PLAYER_ENTERING_WORLD",
farmbuyer@16 937 function() self:ScheduleTimer("RAID_ROSTER_UPDATE", 5, "PLAYER_ENTERING_WORLD") end)
farmbuyer@1 938 self.popped = true
farmbuyer@1 939 if GetNumRaidMembers() > 0 then
farmbuyer@16 940 self.dprint('flow', ">:Activate calling RRU")
farmbuyer@1 941 self:RAID_ROSTER_UPDATE("Activate")
farmbuyer@1 942 elseif self.debug.notraid then
farmbuyer@16 943 self.dprint('flow', ">:Activate registering loot and bossmods")
farmbuyer@10 944 self:RegisterEvent("CHAT_MSG_LOOT")
farmbuyer@2 945 _register_bossmod(self)
farmbuyer@1 946 elseif g_restore_p then
farmbuyer@1 947 g_restore_p = nil
farmbuyer@16 948 self.popped = nil -- get the reminder if later joining a raid
farmbuyer@16 949 if #g_loot == 0 then
farmbuyer@16 950 -- only generated text and raider join/leave data, not worth verbage
farmbuyer@16 951 self.dprint('flow', ">:Activate restored generated texts, un-popping")
farmbuyer@16 952 return
farmbuyer@16 953 end
farmbuyer@1 954 self:Print("Ouro Raid Loot restored previous data, but not in a raid",
farmbuyer@1 955 "and 5-person mode not active. |cffff0505NOT tracking loot|r;",
farmbuyer@1 956 "use 'enable' to activate loot tracking, or 'clear' to erase",
farmbuyer@1 957 "previous data, or 'help' to read about saved-texts commands.")
farmbuyer@1 958 return
farmbuyer@1 959 end
farmbuyer@1 960 self.rebroadcast = true -- hardcode to true; this used to be more complicated
farmbuyer@1 961 self.enabled = not opt_bcast_only
farmbuyer@1 962 if opt_threshold then
farmbuyer@1 963 self:SetThreshold (opt_threshold, --[[quiet_p=]]true)
farmbuyer@1 964 end
farmbuyer@1 965 self:Print("Ouro Raid Loot is %s. Threshold currently %s.",
farmbuyer@1 966 self.enabled and "tracking" or "only broadcasting",
farmbuyer@1 967 self.thresholds[self.threshold])
farmbuyer@27 968 self:broadcast('revcheck',revision_large)
farmbuyer@1 969 end
farmbuyer@1 970
farmbuyer@1 971 -- Note: running '/loot off' will also avoid the popup reminder when
farmbuyer@1 972 -- joining a raid, but will not change the saved option setting.
farmbuyer@1 973 function addon:Deactivate()
farmbuyer@1 974 self.enabled = false
farmbuyer@1 975 self.rebroadcast = false
farmbuyer@10 976 self:UnregisterEvent("RAID_ROSTER_UPDATE")
farmbuyer@10 977 self:UnregisterEvent("PLAYER_ENTERING_WORLD")
farmbuyer@10 978 self:UnregisterEvent("CHAT_MSG_LOOT")
farmbuyer@1 979 self:Print("Ouro Raid Loot deactivated.")
farmbuyer@1 980 end
farmbuyer@1 981
farmbuyer@1 982 function addon:Clear(verbose_p)
farmbuyer@1 983 local repopup, st
farmbuyer@1 984 if self.display then
farmbuyer@1 985 -- in the new version, this is likely to always be the case
farmbuyer@1 986 repopup = true
farmbuyer@1 987 st = self.display:GetUserData("eoiST")
farmbuyer@1 988 if not st then
farmbuyer@1 989 self.dprint('flow', "Clear: display visible but eoiST not set??")
farmbuyer@1 990 end
farmbuyer@1 991 self.display:Hide()
farmbuyer@1 992 end
farmbuyer@1 993 g_restore_p = nil
farmbuyer@1 994 OuroLootSV = nil
farmbuyer@1 995 self:_reset_timestamps()
farmbuyer@1 996 if verbose_p then
farmbuyer@16 997 if (OuroLootSV_saved and #OuroLootSV_saved>0) then
farmbuyer@16 998 self:Print("Current loot data cleared, %d saved sets remaining.", #OuroLootSV_saved)
farmbuyer@1 999 else
farmbuyer@1 1000 self:Print("Current loot data cleared.")
farmbuyer@1 1001 end
farmbuyer@1 1002 end
farmbuyer@1 1003 _init(self,st)
farmbuyer@1 1004 if repopup then
farmbuyer@1 1005 addon:BuildMainDisplay()
farmbuyer@1 1006 end
farmbuyer@1 1007 end
farmbuyer@1 1008
farmbuyer@1 1009
farmbuyer@1 1010 ------ Behind the scenes routines
farmbuyer@19 1011 -- Semi-experimental debugging aid.
farmbuyer@19 1012 do
farmbuyer@19 1013 local date = _G.date
farmbuyer@19 1014 local log = OuroLootSV_log
farmbuyer@19 1015 function addon:log_with_timestamp (msg)
farmbuyer@19 1016 tinsert (log, date('%m:%d %H:%M:%S ')..msg)
farmbuyer@19 1017 end
farmbuyer@19 1018 end
farmbuyer@19 1019
farmbuyer@1 1020 -- Adds indices to traverse the tables in a nice sorted order.
farmbuyer@1 1021 do
farmbuyer@1 1022 local byindex, temp = {}, {}
farmbuyer@1 1023 local function sort (src, dest)
farmbuyer@1 1024 for k in pairs(src) do
farmbuyer@1 1025 temp[#temp+1] = k
farmbuyer@1 1026 end
farmbuyer@1 1027 table.sort(temp)
farmbuyer@1 1028 table.wipe(dest)
farmbuyer@1 1029 for i = 1, #temp do
farmbuyer@1 1030 dest[i] = src[temp[i]]
farmbuyer@1 1031 end
farmbuyer@1 1032 end
farmbuyer@1 1033
farmbuyer@1 1034 function addon.sender_list.sort()
farmbuyer@1 1035 sort (addon.sender_list.active, byindex)
farmbuyer@1 1036 table.wipe(temp)
farmbuyer@1 1037 addon.sender_list.activeI = #byindex
farmbuyer@1 1038 sort (addon.sender_list.names, byindex)
farmbuyer@1 1039 table.wipe(temp)
farmbuyer@1 1040 end
farmbuyer@1 1041 addon.sender_list.namesI = byindex
farmbuyer@1 1042 end
farmbuyer@1 1043
farmbuyer@1 1044 -- Message sending.
farmbuyer@1 1045 -- See OCR_funcs.tag at the end of this file for incoming message treatment.
farmbuyer@1 1046 do
farmbuyer@1 1047 local function assemble(...)
farmbuyer@1 1048 local msg = ...
farmbuyer@1 1049 for i = 2, select('#',...) do
farmbuyer@1 1050 msg = msg .. '\a' .. (select(i,...) or "")
farmbuyer@1 1051 end
farmbuyer@1 1052 return msg
farmbuyer@1 1053 end
farmbuyer@1 1054
farmbuyer@1 1055 -- broadcast('tag', <stuff>)
farmbuyer@1 1056 function addon:broadcast(...)
farmbuyer@1 1057 local msg = assemble(...)
farmbuyer@1 1058 self.dprint('comm', "<broadcast>:", msg)
farmbuyer@1 1059 -- the "GUILD" here is just so that we can also pick up on it
farmbuyer@1 1060 self:SendCommMessage(self.ident, msg, self.debug.comm and "GUILD" or "RAID")
farmbuyer@1 1061 end
farmbuyer@1 1062 -- whispercast(<to>, 'tag', <stuff>)
farmbuyer@1 1063 function addon:whispercast(to,...)
farmbuyer@1 1064 local msg = assemble(...)
farmbuyer@1 1065 self.dprint('comm', "<whispercast>@", to, ":", msg)
farmbuyer@1 1066 self:SendCommMessage(self.identTg, msg, "WHISPER", to)
farmbuyer@1 1067 end
farmbuyer@1 1068 end
farmbuyer@1 1069
farmbuyer@23 1070 function addon:DoPing()
farmbuyer@23 1071 self:Print("Give me a ping, Vasili. One ping only, please.")
farmbuyer@23 1072 self.sender_list.active = {}
farmbuyer@23 1073 self.sender_list.names = {}
farmbuyer@23 1074 self:broadcast('ping')
farmbuyer@27 1075 self:broadcast('revcheck',revision_large)
farmbuyer@27 1076 end
farmbuyer@27 1077
farmbuyer@27 1078 function addon:_check_revision (otherrev)
farmbuyer@27 1079 self.dprint('comm', "revchecking against", otherrev)
farmbuyer@27 1080 otherrev = tonumber(otherrev)
farmbuyer@27 1081 if otherrev == revision_large then
farmbuyer@27 1082 -- normal case
farmbuyer@27 1083
farmbuyer@27 1084 elseif otherrev < revision_large then
farmbuyer@27 1085 self.dprint('comm', "ours is newer, notifying")
farmbuyer@27 1086 self:broadcast('revcheck',revision_large)
farmbuyer@27 1087
farmbuyer@27 1088 else
farmbuyer@27 1089 self.dprint('comm', "ours is older, yammering")
farmbuyer@27 1090 if newer_warning then
farmbuyer@27 1091 self:Print(newer_warning,
farmbuyer@29 1092 self.format_hypertext('popupurl',"click here",ITEM_QUALITY_UNCOMMON),
farmbuyer@27 1093 self.format_hypertext('doping',"click here",ITEM_QUALITY_UNCOMMON))
farmbuyer@27 1094 newer_warning = nil
farmbuyer@27 1095 end
farmbuyer@27 1096 end
farmbuyer@23 1097 end
farmbuyer@23 1098
farmbuyer@1 1099 -- Generic helpers
farmbuyer@28 1100 -- Returns index and entry at that index, or nil if not found.
farmbuyer@1 1101 function addon._find_next_after (kind, index)
farmbuyer@1 1102 index = index + 1
farmbuyer@1 1103 while index <= #g_loot do
farmbuyer@1 1104 if g_loot[index].kind == kind then
farmbuyer@1 1105 return index, g_loot[index]
farmbuyer@1 1106 end
farmbuyer@1 1107 index = index + 1
farmbuyer@1 1108 end
farmbuyer@1 1109 end
farmbuyer@28 1110 -- Essentially a _find_next_after('time'-or-'boss'), but if KIND is
farmbuyer@28 1111 -- 'boss', will also stop upon finding a timestamp. Returns nil if
farmbuyer@28 1112 -- appropriate fencepost is not found.
farmbuyer@28 1113 function addon._find_timeboss_fencepost (kind, index)
farmbuyer@28 1114 local fencepost
farmbuyer@28 1115 local closest_time = addon._find_next_after('time',index)
farmbuyer@28 1116 if kind == 'time' then
farmbuyer@28 1117 fencepost = closest_time
farmbuyer@28 1118 elseif kind == 'boss' then
farmbuyer@28 1119 local closest_boss = addon._find_next_after('boss',index)
farmbuyer@28 1120 if not closest_boss then
farmbuyer@28 1121 fencepost = closest_time
farmbuyer@28 1122 elseif not closest_time then
farmbuyer@28 1123 fencepost = closest_boss
farmbuyer@28 1124 else
farmbuyer@28 1125 fencepost = math.min(closest_time,closest_boss)
farmbuyer@28 1126 end
farmbuyer@28 1127 end
farmbuyer@28 1128 return fencepost
farmbuyer@28 1129 end
farmbuyer@1 1130
farmbuyer@1 1131 -- Iterate through g_loot entries according to the KIND field. Loop variables
farmbuyer@1 1132 -- are g_loot indices and the corresponding entries (essentially ipairs + some
farmbuyer@1 1133 -- conditionals).
farmbuyer@1 1134 function addon:filtered_loot_iter (filter_kind)
farmbuyer@1 1135 return self._find_next_after, filter_kind, 0
farmbuyer@1 1136 end
farmbuyer@1 1137
farmbuyer@1 1138 do
farmbuyer@1 1139 local itt
farmbuyer@1 1140 local function create()
farmbuyer@1 1141 local tip, lefts = CreateFrame("GameTooltip"), {}
farmbuyer@1 1142 for i = 1, 2 do -- scanning idea here also snagged from Talented
farmbuyer@1 1143 local L,R = tip:CreateFontString(), tip:CreateFontString()
farmbuyer@1 1144 L:SetFontObject(GameFontNormal)
farmbuyer@1 1145 R:SetFontObject(GameFontNormal)
farmbuyer@1 1146 tip:AddFontStrings(L,R)
farmbuyer@1 1147 lefts[i] = L
farmbuyer@1 1148 end
farmbuyer@1 1149 tip.lefts = lefts
farmbuyer@1 1150 return tip
farmbuyer@1 1151 end
farmbuyer@1 1152 function addon:is_heroic_item(item) -- returns true or *nil*
farmbuyer@1 1153 itt = itt or create()
farmbuyer@1 1154 itt:SetOwner(UIParent,"ANCHOR_NONE")
farmbuyer@1 1155 itt:ClearLines()
farmbuyer@1 1156 itt:SetHyperlink(item)
farmbuyer@1 1157 local t = itt.lefts[2]:GetText()
farmbuyer@1 1158 itt:Hide()
farmbuyer@1 1159 return (t == ITEM_HEROIC) or nil
farmbuyer@1 1160 end
farmbuyer@1 1161 end
farmbuyer@1 1162
farmbuyer@1 1163 -- Called when first loading up, and then also when a 'clear' is being
farmbuyer@16 1164 -- performed. If SV's are present then g_restore_p will be true.
farmbuyer@1 1165 function _init (self, possible_st)
farmbuyer@1 1166 self.dprint('flow',"_init running")
farmbuyer@1 1167 self.loot_clean = nil
farmbuyer@1 1168 self.hist_clean = nil
farmbuyer@1 1169 if g_restore_p then
farmbuyer@1 1170 g_loot = OuroLootSV
farmbuyer@16 1171 self.popped = #g_loot > 0
farmbuyer@1 1172 self.dprint('flow', "restoring", #g_loot, "entries")
farmbuyer@16 1173 self:ScheduleTimer("Activate", 12, opts.threshold)
farmbuyer@1 1174 -- FIXME printed could be too large if entries were deleted, how much do we care?
farmbuyer@16 1175 self.sharder = opts.autoshard
farmbuyer@1 1176 else
farmbuyer@10 1177 g_loot = { printed = {}, raiders = {} }
farmbuyer@1 1178 end
farmbuyer@1 1179
farmbuyer@16 1180 self.threshold = opts.threshold or self.threshold -- in the case of restoring but not tracking
farmbuyer@1 1181 self:gui_init(g_loot)
farmbuyer@16 1182 opts.autoshard = nil
farmbuyer@16 1183 opts.threshold = nil
farmbuyer@1 1184
farmbuyer@1 1185 if g_restore_p then
farmbuyer@1 1186 self:zero_printed_fenceposts() -- g_loot.printed.* = previous/safe values
farmbuyer@1 1187 else
farmbuyer@1 1188 self:zero_printed_fenceposts(0) -- g_loot.printed.* = 0
farmbuyer@1 1189 end
farmbuyer@1 1190 if possible_st then
farmbuyer@1 1191 possible_st:SetData(g_loot)
farmbuyer@1 1192 end
farmbuyer@1 1193
farmbuyer@17 1194 self.status_text = ("%s communicating as ident %s commrev %d"):format(self.revision,self.ident,self.commrev)
farmbuyer@1 1195 self:RegisterComm(self.ident)
farmbuyer@1 1196 self:RegisterComm(self.identTg, "OnCommReceivedNocache")
farmbuyer@1 1197
farmbuyer@1 1198 if self.author_debug then
farmbuyer@1 1199 _G.OL = self
farmbuyer@1 1200 _G.Oloot = g_loot
farmbuyer@1 1201 end
farmbuyer@1 1202 end
farmbuyer@1 1203
farmbuyer@25 1204 -- Tie-in with Deadly Boss Mods (or other such addons)
farmbuyer@1 1205 do
farmbuyer@25 1206 local candidates = {}
farmbuyer@25 1207 local location
farmbuyer@1 1208 local function fixup_durations (cache)
farmbuyer@1 1209 local boss, bossi
farmbuyer@1 1210 boss = candidates[1]
farmbuyer@1 1211 if #candidates == 1 then
farmbuyer@1 1212 -- (1) or (2)
farmbuyer@1 1213 boss.duration = boss.duration or 0
farmbuyer@19 1214 addon.dprint('loot', "only one boss candidate")
farmbuyer@1 1215 else
farmbuyer@1 1216 -- (3), should only be one 'cast entry and our local entry
farmbuyer@1 1217 if #candidates ~= 2 then
farmbuyer@1 1218 -- could get a bunch of 'cast entries on the heels of one another
farmbuyer@1 1219 -- before the local one ever fires, apparently... sigh
farmbuyer@1 1220 --addon:Print("<warning> s3 cache has %d entries, does that seem right to you?", #candidates)
farmbuyer@1 1221 end
farmbuyer@1 1222 if candidates[2].duration == nil then
farmbuyer@1 1223 --addon:Print("<warning> s3's second entry is not the local trigger, does that seem right to you?")
farmbuyer@1 1224 end
farmbuyer@1 1225 -- try and be generic anyhow
farmbuyer@1 1226 for i,c in ipairs(candidates) do
farmbuyer@1 1227 if c.duration then
farmbuyer@1 1228 boss = c
farmbuyer@19 1229 addon.dprint('loot', "fixup found boss candidate", i, "duration", c.duration)
farmbuyer@1 1230 break
farmbuyer@1 1231 end
farmbuyer@1 1232 end
farmbuyer@1 1233 end
farmbuyer@1 1234 bossi = addon._addLootEntry(boss)
farmbuyer@19 1235 -- addon.
farmbuyer@19 1236 bossi = addon._adjustBossOrder (bossi, g_boss_signpost) or bossi
farmbuyer@16 1237 g_boss_signpost = nil
farmbuyer@19 1238 addon.dprint('loot', "added boss entry", bossi)
farmbuyer@1 1239 if boss.reason == 'kill' then
farmbuyer@1 1240 addon:_mark_boss_kill (bossi)
farmbuyer@1 1241 if opts.chatty_on_kill then
farmbuyer@1 1242 addon:Print("Registered kill for '%s' in %s!", boss.bosskill, boss.instance)
farmbuyer@1 1243 end
farmbuyer@1 1244 end
farmbuyer@25 1245 table.wipe(candidates)
farmbuyer@1 1246 end
farmbuyer@1 1247 addon.recent_boss = create_new_cache ('boss', 10, fixup_durations)
farmbuyer@1 1248
farmbuyer@1 1249 -- Similar to _do_loot, but duration+ parms only present when locally generated.
farmbuyer@1 1250 local function _do_boss (self, reason, bossname, intag, duration, raiders)
farmbuyer@1 1251 self.dprint('loot',">>_do_boss, R:", reason, "B:", bossname, "T:", intag,
farmbuyer@1 1252 "D:", duration, "RL:", (raiders and #raiders or 'nil'))
farmbuyer@1 1253 if self.rebroadcast and duration then
farmbuyer@1 1254 self:broadcast('boss', reason, bossname, intag)
farmbuyer@1 1255 end
farmbuyer@1 1256 -- This is only a loop to make jumping out of it easy, and still do cleanup below.
farmbuyer@1 1257 while self.enabled do
farmbuyer@1 1258 if reason == 'wipe' and opts.no_tracking_wipes then break end
farmbuyer@1 1259 bossname = (opts.snarky_boss and self.boss_abbrev[bossname] or bossname) or bossname
farmbuyer@1 1260 local not_from_local = duration == nil
farmbuyer@1 1261 local signature = bossname .. reason
farmbuyer@1 1262 if not_from_local and self.recent_boss:test(signature) then
farmbuyer@1 1263 self.dprint('cache', "boss <",signature,"> already in cache, skipping")
farmbuyer@1 1264 else
farmbuyer@1 1265 self.recent_boss:add(signature)
farmbuyer@16 1266 g_boss_signpost = #g_loot + 1
farmbuyer@19 1267 self.dprint('loot', "added boss signpost", g_boss_signpost)
farmbuyer@1 1268 -- Possible scenarios: (1) we don't see a boss event at all (e.g., we're
farmbuyer@1 1269 -- outside the instance) and so this only happens once as a non-local event,
farmbuyer@1 1270 -- (2) we see a local event first and all non-local events are filtered
farmbuyer@1 1271 -- by the cache, (3) we happen to get some non-local events before doing
farmbuyer@1 1272 -- our local event (not because of network weirdness but because our local
farmbuyer@1 1273 -- DBM might not trigger for a while).
farmbuyer@1 1274 local c = {
farmbuyer@1 1275 kind = 'boss',
farmbuyer@1 1276 bosskill = bossname, -- minor misnomer, might not actually be a kill
farmbuyer@1 1277 reason = reason,
farmbuyer@1 1278 instance = intag,
farmbuyer@1 1279 duration = duration, -- these two deliberately may be nil
farmbuyer@1 1280 raiderlist = raiders and table.concat(raiders, ", ")
farmbuyer@1 1281 }
farmbuyer@1 1282 tinsert(candidates,c)
farmbuyer@1 1283 end
farmbuyer@17 1284 break
farmbuyer@1 1285 end
farmbuyer@1 1286 self.dprint('loot',"<<_do_boss out")
farmbuyer@1 1287 end
farmbuyer@1 1288 -- No wrapping layer for now
farmbuyer@1 1289 addon.on_boss_broadcast = _do_boss
farmbuyer@1 1290
farmbuyer@1 1291 function addon:_mark_boss_kill (index)
farmbuyer@1 1292 local e = g_loot[index]
farmbuyer@17 1293 if not e then
farmbuyer@17 1294 self:Print("Something horribly wrong;", index, "is not a valid entry!")
farmbuyer@17 1295 return
farmbuyer@17 1296 end
farmbuyer@1 1297 if not e.bosskill then
farmbuyer@16 1298 self:Print("Something horribly wrong;", index, "is not a boss entry!")
farmbuyer@16 1299 return
farmbuyer@1 1300 end
farmbuyer@1 1301 if e.reason ~= 'wipe' then
farmbuyer@1 1302 -- enh, bail
farmbuyer@1 1303 self.loot_clean = index-1
farmbuyer@1 1304 end
farmbuyer@1 1305 local attempts = 1
farmbuyer@1 1306 local first
farmbuyer@1 1307
farmbuyer@1 1308 local i,d = 1,g_loot[1]
farmbuyer@1 1309 while d ~= e do
farmbuyer@1 1310 if d.bosskill and
farmbuyer@1 1311 d.bosskill == e.bosskill and
farmbuyer@1 1312 d.reason == 'wipe'
farmbuyer@1 1313 then
farmbuyer@1 1314 first = first or i
farmbuyer@1 1315 attempts = attempts + 1
farmbuyer@1 1316 assert(tremove(g_loot,i)==d,"_mark_boss_kill screwed up data badly")
farmbuyer@1 1317 else
farmbuyer@1 1318 i = i + 1
farmbuyer@1 1319 end
farmbuyer@1 1320 d = g_loot[i]
farmbuyer@1 1321 end
farmbuyer@1 1322 e.reason = 'kill'
farmbuyer@1 1323 e.attempts = attempts
farmbuyer@1 1324 self.loot_clean = first or index-1
farmbuyer@1 1325 end
farmbuyer@1 1326
farmbuyer@2 1327 function addon:register_boss_mod (name, registration_func, deregistration_func)
farmbuyer@2 1328 assert(type(name)=='string')
farmbuyer@2 1329 assert(type(registration_func)=='function')
farmbuyer@2 1330 if deregistration_func ~= nil then assert(type(deregistration_func)=='function') end
farmbuyer@2 1331 self.bossmods[#self.bossmods+1] = {
farmbuyer@2 1332 n = name,
farmbuyer@2 1333 r = registration_func,
farmbuyer@2 1334 d = deregistration_func,
farmbuyer@2 1335 }
farmbuyer@5 1336 self.bossmods[name] = self.bossmods[#self.bossmods]
farmbuyer@5 1337 assert(self.bossmods[name].n == self.bossmods[#self.bossmods].n)
farmbuyer@2 1338 end
farmbuyer@1 1339
farmbuyer@2 1340 function _register_bossmod (self, force_p)
farmbuyer@2 1341 local x = self.bossmod_registered and self.bossmods[self.bossmod_registered]
farmbuyer@2 1342 if x then
farmbuyer@2 1343 if x.n == opts.bossmod and not force_p then
farmbuyer@2 1344 -- trying to register with already-registered boss mod
farmbuyer@2 1345 return
farmbuyer@2 1346 else
farmbuyer@2 1347 -- deregister
farmbuyer@2 1348 if x.d then x.d(self) end
farmbuyer@2 1349 end
farmbuyer@1 1350 end
farmbuyer@1 1351
farmbuyer@2 1352 x = nil
farmbuyer@2 1353 for k,v in ipairs(self.bossmods) do
farmbuyer@2 1354 if v.n == opts.bossmod then
farmbuyer@2 1355 x = k
farmbuyer@2 1356 break
farmbuyer@2 1357 end
farmbuyer@1 1358 end
farmbuyer@1 1359
farmbuyer@2 1360 if not x then
farmbuyer@2 1361 self.status_text = "|cffff1010No boss-mod found!|r"
farmbuyer@2 1362 self:Print(self.status_text)
farmbuyer@2 1363 return
farmbuyer@1 1364 end
farmbuyer@1 1365
farmbuyer@2 1366 if self.bossmods[x].r (self, _do_boss) then
farmbuyer@5 1367 --self.bossmod_registered = x
farmbuyer@5 1368 self.bossmod_registered = self.bossmods[x].n
farmbuyer@1 1369 else
farmbuyer@2 1370 self:Print("|cffff1010Boss mod registration failed|r")
farmbuyer@1 1371 end
farmbuyer@1 1372 end
farmbuyer@2 1373 end
farmbuyer@1 1374
farmbuyer@1 1375 -- Adding entries to the loot record, and tracking the corresponding timestamp.
farmbuyer@1 1376 do
farmbuyer@1 1377 -- This shouldn't be required. /sadface
farmbuyer@1 1378 local loot_entry_mt = {
farmbuyer@1 1379 __index = function (e,key)
farmbuyer@1 1380 if key == 'cols' then
farmbuyer@15 1381 pprint('mt', e.kind, "key is", key)
farmbuyer@1 1382 --tabledump(e) -- not actually that useful
farmbuyer@1 1383 addon:_fill_out_eoi_data(1)
farmbuyer@1 1384 end
farmbuyer@1 1385 return rawget(e,key)
farmbuyer@1 1386 end
farmbuyer@1 1387 }
farmbuyer@1 1388
farmbuyer@1 1389 -- Given a loot index, searches backwards for a timestamp. Returns that
farmbuyer@1 1390 -- index and the time entry, or nil if it falls off the beginning. Pass an
farmbuyer@1 1391 -- optional second index to search no earlier than it.
farmbuyer@1 1392 -- May also be able to make good use of this in forum-generation routine.
farmbuyer@1 1393 function addon:find_previous_time_entry(i,stop)
farmbuyer@17 1394 stop = stop or 0
farmbuyer@1 1395 while i > stop do
farmbuyer@1 1396 if g_loot[i].kind == 'time' then
farmbuyer@1 1397 return i, g_loot[i]
farmbuyer@1 1398 end
farmbuyer@1 1399 i = i - 1
farmbuyer@1 1400 end
farmbuyer@1 1401 end
farmbuyer@1 1402
farmbuyer@1 1403 -- format_timestamp (["format_string"], Day, [Loot])
farmbuyer@1 1404 -- DAY is a loot entry with kind=='time', and controls the date printed.
farmbuyer@1 1405 -- LOOT may be any kind of entry in the g_loot table. If present, it
farmbuyer@1 1406 -- overrides the hour and minute printed; if absent, those values are
farmbuyer@1 1407 -- taken from the DAY entry.
farmbuyer@1 1408 -- FORMAT_STRING may contain $x (x in Y/M/D/h/m) tokens.
farmbuyer@1 1409 local format_timestamp_values, point2dee = {}, "%.2d"
farmbuyer@1 1410 function addon:format_timestamp (fmt_opt, day_entry, time_entry_opt)
farmbuyer@1 1411 if not time_entry_opt then
farmbuyer@1 1412 if type(fmt_opt) == 'table' then -- Two entries, default format
farmbuyer@1 1413 time_entry_opt, day_entry = day_entry, fmt_opt
farmbuyer@1 1414 fmt_opt = "$Y/$M/$D $h:$m"
farmbuyer@1 1415 --elseif type(fmt_opt) == "string" then -- Day entry only, specified format
farmbuyer@1 1416 end
farmbuyer@1 1417 end
farmbuyer@1 1418 --format_timestamp_values.Y = point2dee:format (day_entry.startday.year % 100)
farmbuyer@1 1419 format_timestamp_values.Y = ("%.4d"):format (day_entry.startday.year)
farmbuyer@1 1420 format_timestamp_values.M = point2dee:format (day_entry.startday.month)
farmbuyer@1 1421 format_timestamp_values.D = point2dee:format (day_entry.startday.day)
farmbuyer@1 1422 format_timestamp_values.h = point2dee:format ((time_entry_opt or day_entry).hour)
farmbuyer@1 1423 format_timestamp_values.m = point2dee:format ((time_entry_opt or day_entry).minute)
farmbuyer@1 1424 return fmt_opt:gsub ('%$([YMDhm])', format_timestamp_values)
farmbuyer@1 1425 end
farmbuyer@1 1426
farmbuyer@1 1427 local done_todays_date
farmbuyer@1 1428 function addon:_reset_timestamps()
farmbuyer@1 1429 done_todays_date = nil
farmbuyer@1 1430 end
farmbuyer@1 1431 local function do_todays_date()
farmbuyer@1 1432 local text, M, D, Y = makedate()
farmbuyer@1 1433 local found,ts = #g_loot+1
farmbuyer@1 1434 repeat
farmbuyer@1 1435 found,ts = addon:find_previous_time_entry(found-1)
farmbuyer@1 1436 if found and ts.startday.text == text then
farmbuyer@1 1437 done_todays_date = true
farmbuyer@1 1438 end
farmbuyer@1 1439 until done_todays_date or (not found)
farmbuyer@1 1440 if done_todays_date then
farmbuyer@1 1441 g_today = ts
farmbuyer@1 1442 else
farmbuyer@1 1443 done_todays_date = true
farmbuyer@1 1444 g_today = g_loot[addon._addLootEntry{
farmbuyer@1 1445 kind = 'time',
farmbuyer@1 1446 startday = {
farmbuyer@1 1447 text = text, month = M, day = D, year = Y
farmbuyer@1 1448 }
farmbuyer@1 1449 }]
farmbuyer@1 1450 end
farmbuyer@1 1451 addon:_fill_out_eoi_data(1)
farmbuyer@1 1452 end
farmbuyer@1 1453
farmbuyer@1 1454 -- Adding anything original to g_loot goes through this routine.
farmbuyer@1 1455 function addon._addLootEntry (e)
farmbuyer@1 1456 setmetatable(e,loot_entry_mt)
farmbuyer@1 1457
farmbuyer@1 1458 if not done_todays_date then do_todays_date() end
farmbuyer@1 1459
farmbuyer@1 1460 local h, m = GetGameTime()
farmbuyer@10 1461 --local localuptime = math.floor(GetTime())
farmbuyer@10 1462 local time_t = time()
farmbuyer@1 1463 e.hour = h
farmbuyer@1 1464 e.minute = m
farmbuyer@10 1465 e.stamp = time_t --localuptime
farmbuyer@1 1466 local index = #g_loot + 1
farmbuyer@1 1467 g_loot[index] = e
farmbuyer@1 1468 return index
farmbuyer@1 1469 end
farmbuyer@16 1470
farmbuyer@16 1471 -- Problem: (1) boss kill happens, (2) fast looting happens, (3) boss
farmbuyer@16 1472 -- cache cleanup fires. Result: loot shows up before boss kill entry.
farmbuyer@16 1473 -- Solution: We need to shuffle the boss entry above any of the loot
farmbuyer@16 1474 -- from that boss.
farmbuyer@16 1475 function addon._adjustBossOrder (is, should_be)
farmbuyer@16 1476 --pprint('loot', is, should_be)
farmbuyer@16 1477 if is == should_be then --pprint('loot', "equal, yay")
farmbuyer@16 1478 return
farmbuyer@16 1479 end
farmbuyer@17 1480 if (type(is)~='number') or (type(should_be)~='number') or (is < should_be) then
farmbuyer@19 1481 pprint('loot', is, should_be, "...the hell? bailing")
farmbuyer@16 1482 return
farmbuyer@16 1483 end
farmbuyer@16 1484 if g_loot[should_be].kind == 'time' then
farmbuyer@16 1485 should_be = should_be + 1
farmbuyer@16 1486 if is == should_be then
farmbuyer@16 1487 --pprint('loot', "needed to mark day entry, otherwise equal, yay")
farmbuyer@16 1488 return
farmbuyer@16 1489 end
farmbuyer@16 1490 end
farmbuyer@16 1491
farmbuyer@16 1492 assert(g_loot[is].kind == 'boss')
farmbuyer@16 1493 local boss = tremove (g_loot, is)
farmbuyer@16 1494 --pprint('loot', "MOVING", boss.bosskill)
farmbuyer@16 1495 tinsert (g_loot, should_be, boss)
farmbuyer@16 1496 return should_be
farmbuyer@16 1497 end
farmbuyer@1 1498 end
farmbuyer@1 1499
farmbuyer@19 1500 -- In the rare case of items getting put into the loot table without current
farmbuyer@19 1501 -- item cache data (which will have arrived by now).
farmbuyer@19 1502 function addon:do_item_cache_fixup()
farmbuyer@19 1503 self:Print("Fixing up missing item cache data...")
farmbuyer@19 1504
farmbuyer@19 1505 local numfound = 0
farmbuyer@19 1506 local borkedpat = '^'..UNKNOWN..': (%S+)'
farmbuyer@19 1507
farmbuyer@19 1508 for i,e in self:filtered_loot_iter('loot') do
farmbuyer@19 1509 if e.cache_miss then
farmbuyer@19 1510 local borked_id = e.itemname:match(borkedpat)
farmbuyer@19 1511 if borked_id then
farmbuyer@19 1512 numfound = numfound + 1
farmbuyer@19 1513 -- Best to use the safest and most flexible API here, which is GII and
farmbuyer@19 1514 -- its assload of return values.
farmbuyer@19 1515 local iname, ilink, iquality, _,_,_,_,_,_, itexture = GetItemInfo(borked_id)
farmbuyer@19 1516 if iname then
farmbuyer@19 1517 self:Print(" Entry %d patched up with %s.", i, ilink)
farmbuyer@19 1518 e.quality = iquality
farmbuyer@19 1519 e.itemname = iname
farmbuyer@19 1520 e.id = tonumber(ilink:match("item:(%d+)"))
farmbuyer@19 1521 e.itemlink = ilink
farmbuyer@19 1522 e.itexture = itexture
farmbuyer@19 1523 e.cache_miss = nil
farmbuyer@19 1524 end
farmbuyer@19 1525 end
farmbuyer@19 1526 end
farmbuyer@19 1527 end
farmbuyer@19 1528
farmbuyer@19 1529 self:Print("...finished. Found %d |4entry:entries; with weird data.", numfound)
farmbuyer@19 1530 end
farmbuyer@19 1531
farmbuyer@1 1532
farmbuyer@1 1533 ------ Saved texts
farmbuyer@1 1534 function addon:check_saved_table(silent_p)
farmbuyer@16 1535 local s = OuroLootSV_saved
farmbuyer@1 1536 if s and (#s > 0) then return s end
farmbuyer@16 1537 OuroLootSV_saved = nil
farmbuyer@1 1538 if not silent_p then self:Print("There are no saved loot texts.") end
farmbuyer@1 1539 end
farmbuyer@1 1540
farmbuyer@1 1541 function addon:save_list()
farmbuyer@1 1542 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1543 for i,t in ipairs(s) do
farmbuyer@1 1544 self:Print("#%d %s %d entries %s", i, t.date, t.count, t.name)
farmbuyer@1 1545 end
farmbuyer@1 1546 end
farmbuyer@1 1547
farmbuyer@1 1548 function addon:save_saveas(name)
farmbuyer@16 1549 OuroLootSV_saved = OuroLootSV_saved or {}
farmbuyer@16 1550 local SV = OuroLootSV_saved
farmbuyer@16 1551 local n = #SV + 1
farmbuyer@1 1552 local save = {
farmbuyer@1 1553 name = name,
farmbuyer@1 1554 date = makedate(),
farmbuyer@1 1555 count = #g_loot,
farmbuyer@1 1556 }
farmbuyer@10 1557 for text in self:registered_textgen_iter() do
farmbuyer@10 1558 save[text] = g_loot[text]
farmbuyer@10 1559 end
farmbuyer@1 1560 self:Print("Saving current loot texts to #%d '%s'", n, name)
farmbuyer@16 1561 SV[n] = save
farmbuyer@1 1562 return self:save_list()
farmbuyer@1 1563 end
farmbuyer@1 1564
farmbuyer@1 1565 function addon:save_restore(num)
farmbuyer@1 1566 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1567 if (not num) or (num > #s) then
farmbuyer@1 1568 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 1569 end
farmbuyer@1 1570 local save = s[num]
farmbuyer@1 1571 self:Print("Overwriting current loot data with saved text #%d '%s'", num, save.name)
farmbuyer@1 1572 self:Clear(--[[verbose_p=]]false)
farmbuyer@1 1573 -- Clear will already have displayed the window, and re-selected the first
farmbuyer@1 1574 -- tab. Set these up for when the text tabs are clicked.
farmbuyer@10 1575 for text in self:registered_textgen_iter() do
farmbuyer@10 1576 g_loot[text] = save[text]
farmbuyer@10 1577 end
farmbuyer@1 1578 end
farmbuyer@1 1579
farmbuyer@1 1580 function addon:save_delete(num)
farmbuyer@1 1581 local s = self:check_saved_table(); if not s then return end;
farmbuyer@1 1582 if (not num) or (num > #s) then
farmbuyer@1 1583 return self:Print("Saved text number must be 1 - "..#s)
farmbuyer@1 1584 end
farmbuyer@1 1585 self:Print("Deleting saved text #"..num)
farmbuyer@1 1586 tremove(s,num)
farmbuyer@1 1587 return self:save_list()
farmbuyer@1 1588 end
farmbuyer@1 1589
farmbuyer@1 1590
farmbuyer@1 1591 ------ Loot histories
farmbuyer@1 1592 -- history_all = {
farmbuyer@1 1593 -- ["Kilrogg"] = {
farmbuyer@1 1594 -- ["realm"] = "Kilrogg", -- not saved
farmbuyer@1 1595 -- ["st"] = { lib-st display table }, -- not saved
farmbuyer@1 1596 -- ["byname"] = { -- not saved
farmbuyer@1 1597 -- ["OtherPlayer"] = 2,
farmbuyer@1 1598 -- ["Farmbuyer"] = 1,
farmbuyer@1 1599 -- }
farmbuyer@1 1600 -- [1] = {
farmbuyer@1 1601 -- ["name"] = "Farmbuyer",
farmbuyer@1 1602 -- [1] = { id = nnnnn, when = "formatted timestamp for displaying" } -- most recent loot
farmbuyer@1 1603 -- [2] = { ......., [count = "x3"] } -- previous loot
farmbuyer@1 1604 -- },
farmbuyer@1 1605 -- [2] = {
farmbuyer@1 1606 -- ["name"] = "OtherPlayer",
farmbuyer@1 1607 -- ......
farmbuyer@1 1608 -- }, ......
farmbuyer@1 1609 -- },
farmbuyer@1 1610 -- ["OtherRealm"] = ......
farmbuyer@1 1611 -- }
farmbuyer@1 1612 do
farmbuyer@6 1613 local tsort = table.sort
farmbuyer@6 1614 local comp = function(L,R) return L.when > R.when end
farmbuyer@6 1615
farmbuyer@4 1616 -- Builds the map of names to array indices, using passed table or
farmbuyer@4 1617 -- self.history, and stores the result into its 'byname' field. Also
farmbuyer@4 1618 -- called from the GUI code at least once.
farmbuyer@1 1619 function addon:_build_history_names (opt_hist)
farmbuyer@1 1620 local hist = opt_hist or self.history
farmbuyer@1 1621 local m = {}
farmbuyer@1 1622 for i = 1, #hist do
farmbuyer@1 1623 m[hist[i].name] = i
farmbuyer@1 1624 end
farmbuyer@1 1625 hist.byname = m
farmbuyer@1 1626 end
farmbuyer@1 1627
farmbuyer@1 1628 -- Prepares and returns table to be used as self.history.
farmbuyer@1 1629 function addon:_prep_new_history_category (prev_table, realmname)
farmbuyer@1 1630 local t = prev_table or {
farmbuyer@1 1631 --kind = 'realm',
farmbuyer@6 1632 --realm = realmname,
farmbuyer@1 1633 }
farmbuyer@6 1634 t.realm = realmname
farmbuyer@1 1635
farmbuyer@1 1636 --[[
farmbuyer@1 1637 t.cols = setmetatable({
farmbuyer@1 1638 { value = realmname },
farmbuyer@1 1639 }, self.time_column1_used_mt)
farmbuyer@1 1640 ]]
farmbuyer@1 1641
farmbuyer@1 1642 if not t.byname then
farmbuyer@1 1643 self:_build_history_names (t)
farmbuyer@1 1644 end
farmbuyer@1 1645
farmbuyer@1 1646 return t
farmbuyer@1 1647 end
farmbuyer@1 1648
farmbuyer@4 1649 -- Maps a name to an array index, creating new tables if needed. Returns
farmbuyer@6 1650 -- the index and the table at that index.
farmbuyer@4 1651 function addon:get_loot_history (name)
farmbuyer@4 1652 local i
farmbuyer@4 1653 i = self.history.byname[name]
farmbuyer@4 1654 if not i then
farmbuyer@4 1655 i = #self.history + 1
farmbuyer@4 1656 self.history[i] = { name=name }
farmbuyer@4 1657 self.history.byname[name] = i
farmbuyer@4 1658 end
farmbuyer@6 1659 return i, self.history[i]
farmbuyer@4 1660 end
farmbuyer@4 1661
farmbuyer@1 1662 function addon:_addHistoryEntry (lootindex)
farmbuyer@1 1663 local e = g_loot[lootindex]
farmbuyer@6 1664 if e.kind ~= 'loot' then return end
farmbuyer@6 1665
farmbuyer@6 1666 local i,h = self:get_loot_history(e.person)
farmbuyer@25 1667 -- If any of these change, update the end of history_handle_disposition.
farmbuyer@1 1668 local n = {
farmbuyer@1 1669 id = e.id,
farmbuyer@1 1670 when = self:format_timestamp (g_today, e),
farmbuyer@1 1671 count = e.count,
farmbuyer@1 1672 }
farmbuyer@6 1673 tinsert (h, 1, n)
farmbuyer@24 1674 e.history_unique = n.id .. ' ' .. n.when
farmbuyer@6 1675 end
farmbuyer@6 1676
farmbuyer@24 1677 -- Create new history table based on current loot.
farmbuyer@6 1678 function addon:rewrite_history (realmname)
farmbuyer@6 1679 local r = assert(realmname)
farmbuyer@6 1680 self.history_all[r] = self:_prep_new_history_category (nil, r)
farmbuyer@6 1681 self.history = self.history_all[r]
farmbuyer@6 1682
farmbuyer@6 1683 local g_today_real = g_today
farmbuyer@6 1684 for i,e in ipairs(g_loot) do
farmbuyer@6 1685 if e.kind == 'time' then
farmbuyer@6 1686 g_today = e
farmbuyer@6 1687 elseif e.kind == 'loot' then
farmbuyer@6 1688 self:_addHistoryEntry(i)
farmbuyer@6 1689 end
farmbuyer@6 1690 end
farmbuyer@6 1691 g_today = g_today_real
farmbuyer@6 1692 self.hist_clean = nil
farmbuyer@6 1693
farmbuyer@6 1694 -- safety measure: resort players' tables based on formatted timestamp
farmbuyer@6 1695 for i,h in ipairs(self.history) do
farmbuyer@6 1696 tsort (h, comp)
farmbuyer@6 1697 end
farmbuyer@6 1698 end
farmbuyer@6 1699
farmbuyer@24 1700 -- Clears all but latest entry for each player.
farmbuyer@6 1701 function addon:preen_history (realmname)
farmbuyer@6 1702 local r = assert(realmname)
farmbuyer@6 1703 for i,h in ipairs(self.history) do
farmbuyer@6 1704 tsort (h, comp)
farmbuyer@6 1705 while #h > 1 do
farmbuyer@6 1706 tremove (h)
farmbuyer@6 1707 end
farmbuyer@6 1708 end
farmbuyer@1 1709 end
farmbuyer@24 1710
farmbuyer@25 1711 -- Given an entry in a g_loot table, looks up the corresponding history
farmbuyer@25 1712 -- entry. Returns the player's index and history table (as in get_loot_history)
farmbuyer@25 1713 -- and the index into that table of the loot entry. On failure, returns nil
farmbuyer@25 1714 -- and an error message ready to be formatted with the loot's name/itemlink.
farmbuyer@25 1715 function addon:_history_by_loot_id (loot, operation_text)
farmbuyer@25 1716 -- Using assert() here would be concatenating error strings that probably
farmbuyer@25 1717 -- wouldn't be used. Do more verbose testing instead.
farmbuyer@25 1718 if type(loot) ~= 'table' then
farmbuyer@25 1719 error("trying to "..operation_text.." nonexistant entry")
farmbuyer@25 1720 end
farmbuyer@25 1721 if loot.kind ~= 'loot' then
farmbuyer@25 1722 error("trying to "..operation_text.." something that isn't loot")
farmbuyer@25 1723 end
farmbuyer@24 1724
farmbuyer@25 1725 local player = loot.person
farmbuyer@25 1726 local tag = loot.history_unique
farmbuyer@24 1727 local errtxt
farmbuyer@25 1728 local player_i, player_h, hist_i
farmbuyer@24 1729
farmbuyer@24 1730 if not tag then
farmbuyer@24 1731 errtxt = "Entry for %s is missing a history tag!"
farmbuyer@24 1732 else
farmbuyer@25 1733 player_i,player_h = self:get_loot_history(player)
farmbuyer@25 1734 for i,h in ipairs(player_h) do
farmbuyer@24 1735 local unique = h.id .. ' ' .. h.when
farmbuyer@24 1736 if unique == tag then
farmbuyer@25 1737 hist_i = i
farmbuyer@24 1738 break
farmbuyer@24 1739 end
farmbuyer@24 1740 end
farmbuyer@25 1741 if not hist_i then
farmbuyer@24 1742 -- 1) loot an item, 2) clear old history, 3) reassign from current loot
farmbuyer@24 1743 -- Bah. Anybody that tricky is already recoding the tables directly anyhow.
farmbuyer@24 1744 errtxt = "There is no record of %s ever having been assigned!"
farmbuyer@24 1745 end
farmbuyer@24 1746 end
farmbuyer@24 1747
farmbuyer@24 1748 if errtxt then
farmbuyer@25 1749 return nil, errtxt
farmbuyer@24 1750 end
farmbuyer@25 1751 return player_i, player_h, hist_i
farmbuyer@25 1752 end
farmbuyer@24 1753
farmbuyer@25 1754 function addon:reassign_loot (index, to_name)
farmbuyer@25 1755 assert(type(to_name)=='string' and to_name:len()>0)
farmbuyer@25 1756 local e = g_loot[index]
farmbuyer@25 1757 local from_i, from_h, hist_i = self:_history_by_loot_id (e, "reassign")
farmbuyer@25 1758 local from_name = e.person
farmbuyer@25 1759 local to_i,to_h = self:get_loot_history(to_name)
farmbuyer@25 1760
farmbuyer@25 1761 if not from_i then
farmbuyer@25 1762 -- from_h is the formatted error text
farmbuyer@25 1763 self:Print(from_h .. " Loot will be reassigned, but history will NOT be updated.", e.itemlink)
farmbuyer@25 1764 else
farmbuyer@25 1765 local hist_h = tremove (from_h, hist_i)
farmbuyer@25 1766 tinsert (to_h, 1, hist_h)
farmbuyer@25 1767 tsort (from_h, comp)
farmbuyer@25 1768 tsort (to_h, comp)
farmbuyer@25 1769 end
farmbuyer@25 1770 e.person = to_name
farmbuyer@25 1771 e.person_class = select(2,UnitClass(to_name))
farmbuyer@25 1772 self.hist_clean = nil
farmbuyer@25 1773
farmbuyer@25 1774 self:Print("Reassigned entry %d/%s from '%s' to '%s'.", index, e.itemlink, from_name, to_name)
farmbuyer@25 1775 end
farmbuyer@25 1776
farmbuyer@36 1777 -- Similar to _addHistoryEntry. The second arg may be a loot entry
farmbuyer@36 1778 -- (which used to be at LOOTINDEX), or nil (and the loot entry will
farmbuyer@36 1779 -- be pulled from LOOTINDEX instead).
farmbuyer@36 1780 function addon:_delHistoryEntry (lootindex, opt_e)
farmbuyer@36 1781 local e = opt_e or g_loot[lootindex]
farmbuyer@36 1782 if e.kind ~= 'loot' then return end
farmbuyer@36 1783
farmbuyer@36 1784 local from_i, from_h, hist_i = self:_history_by_loot_id (e, "delete")
farmbuyer@36 1785 if not from_i then
farmbuyer@36 1786 -- from_h is the formatted error text
farmbuyer@36 1787 self:Print(from_h .. " Loot will be deleted, but history will NOT be updated.", e.itemlink)
farmbuyer@36 1788 return
farmbuyer@36 1789 end
farmbuyer@36 1790
farmbuyer@36 1791 --[[local hist_h = ]]tremove (from_h, hist_i)
farmbuyer@36 1792 tsort (from_h, comp)
farmbuyer@36 1793 self.hist_clean = nil
farmbuyer@36 1794
farmbuyer@36 1795 self:Print("Removed history entry %d/%s from '%s'.", lootindex, e.itemlink, e.person)
farmbuyer@36 1796 end
farmbuyer@36 1797
farmbuyer@25 1798 -- Any extra work for the "Mark as <x>" dropdown actions. The
farmbuyer@25 1799 -- corresponding <x> will already have been assigned in the loot entry.
farmbuyer@25 1800 local deleted_cache = {} --setmetatable({}, {__mode='k'})
farmbuyer@25 1801 function addon:history_handle_disposition (index, olddisp)
farmbuyer@25 1802 local e = g_loot[index]
farmbuyer@25 1803 -- Standard disposition has a nil entry, but that's tedious in debug
farmbuyer@25 1804 -- output, so force to a string instead.
farmbuyer@25 1805 olddisp = olddisp or 'normal'
farmbuyer@25 1806 local newdisp = e.disposition or 'normal'
farmbuyer@25 1807 -- Ignore misclicks and the like
farmbuyer@25 1808 if olddisp == newdisp then return end
farmbuyer@25 1809
farmbuyer@25 1810 local name = e.person
farmbuyer@25 1811
farmbuyer@25 1812 if (newdisp == 'shard' or newdisp == 'gvault') then
farmbuyer@25 1813 local name_i, name_h, hist_i = self:_history_by_loot_id (e, "mark")
farmbuyer@25 1814 -- remove history entry
farmbuyer@25 1815 if hist_i then
farmbuyer@25 1816 local hist_h = tremove (name_h, hist_i)
farmbuyer@25 1817 deleted_cache[e.history_unique] = hist_h
farmbuyer@25 1818 self.hist_clean = nil
farmbuyer@25 1819 elseif (olddisp == 'shard' or olddisp == 'gvault') then
farmbuyer@25 1820 -- Sharding a vault item, or giving the auto-sharder something to bank,
farmbuyer@25 1821 -- etc, wouldn't necessarily have had a history entry to begin with.
farmbuyer@25 1822 else
farmbuyer@25 1823 self:Print(name_h .. " Loot has been marked, but history will NOT be updated.", e.itemlink)
farmbuyer@25 1824 end
farmbuyer@25 1825 return
farmbuyer@25 1826 end
farmbuyer@25 1827
farmbuyer@25 1828 if (olddisp == 'shard' or olddisp == 'gvault')
farmbuyer@25 1829 and (newdisp == 'normal' or newdisp == 'offspec')
farmbuyer@25 1830 then
farmbuyer@25 1831 local name_i, name_h = self:get_loot_history(name)
farmbuyer@25 1832
farmbuyer@25 1833 -- Must create a new history entry. Could call '_addHistoryEntry(index)'
farmbuyer@25 1834 -- but that would duplicate a lot of effort. To start with, check the
farmbuyer@25 1835 -- cache of stuff we've already deleted; if it's not there then just do
farmbuyer@25 1836 -- the same steps as _addHistoryEntry.
farmbuyer@25 1837 local entry
farmbuyer@25 1838 if e.history_unique and deleted_cache[e.history_unique] then
farmbuyer@25 1839 entry = deleted_cache[e.history_unique]
farmbuyer@25 1840 deleted_cache[e.history_unique] = nil
farmbuyer@25 1841 end
farmbuyer@25 1842 local when = g_today and self:format_timestamp (g_today, e) or tostring(e.stamp)
farmbuyer@25 1843 entry = entry or {
farmbuyer@25 1844 id = e.id,
farmbuyer@25 1845 when = when,
farmbuyer@25 1846 count = e.count,
farmbuyer@25 1847 }
farmbuyer@25 1848 tinsert (name_h, 1, entry)
farmbuyer@25 1849 e.history_unique = e.history_unique or (entry.id .. ' ' .. entry.when)
farmbuyer@25 1850 self.hist_clean = nil
farmbuyer@25 1851 return
farmbuyer@25 1852 end
farmbuyer@24 1853 end
farmbuyer@1 1854 end
farmbuyer@1 1855
farmbuyer@1 1856
farmbuyer@1 1857 ------ Player communication
farmbuyer@1 1858 do
farmbuyer@1 1859 local function adduser (name, status, active)
farmbuyer@1 1860 if status then addon.sender_list.names[name] = status end
farmbuyer@1 1861 if active then addon.sender_list.active[name] = active end
farmbuyer@1 1862 end
farmbuyer@1 1863
farmbuyer@1 1864 -- Incoming handler functions. All take the sender name and the incoming
farmbuyer@1 1865 -- tag as the first two arguments. All of these are active even when the
farmbuyer@1 1866 -- player is not tracking loot, so test for that when appropriate.
farmbuyer@1 1867 local OCR_funcs = {}
farmbuyer@1 1868
farmbuyer@1 1869 OCR_funcs.ping = function (sender)
farmbuyer@1 1870 pprint('comm', "incoming ping from", sender)
farmbuyer@1 1871 addon:whispercast (sender, 'pong', addon.revision,
farmbuyer@1 1872 addon.enabled and "tracking" or (addon.rebroadcast and "broadcasting" or "disabled"))
farmbuyer@1 1873 end
farmbuyer@1 1874 OCR_funcs.pong = function (sender, _, rev, status)
farmbuyer@17 1875 local s = ("|cff00ff00%s|r %s is |cff00ffff%s|r"):format(sender,rev,status)
farmbuyer@1 1876 addon:Print("Echo: ", s)
farmbuyer@1 1877 adduser (sender, s, status=="tracking" or status=="broadcasting" or nil)
farmbuyer@1 1878 end
farmbuyer@27 1879 OCR_funcs.revcheck = function (sender, _, revlarge)
farmbuyer@27 1880 addon.dprint('comm', "revcheck, sender", sender)
farmbuyer@27 1881 addon:_check_revision (revlarge)
farmbuyer@27 1882 end
farmbuyer@1 1883
farmbuyer@1 1884 OCR_funcs.loot = function (sender, _, recip, item, count, extratext)
farmbuyer@1 1885 addon.dprint('comm', "DOTloot, sender", sender, "recip", recip, "item", item, "count", count)
farmbuyer@1 1886 if not addon.enabled then return end
farmbuyer@1 1887 adduser (sender, nil, true)
farmbuyer@1 1888 addon:CHAT_MSG_LOOT ("broadcast", recip, item, count, sender, extratext)
farmbuyer@1 1889 end
farmbuyer@1 1890
farmbuyer@1 1891 OCR_funcs.boss = function (sender, _, reason, bossname, instancetag)
farmbuyer@1 1892 addon.dprint('comm', "DOTboss, sender", sender, "reason", reason, "name", bossname, "it", instancetag)
farmbuyer@1 1893 if not addon.enabled then return end
farmbuyer@1 1894 adduser (sender, nil, true)
farmbuyer@1 1895 addon:on_boss_broadcast (reason, bossname, instancetag)
farmbuyer@1 1896 end
farmbuyer@1 1897
farmbuyer@1 1898 OCR_funcs.bcast_req = function (sender)
farmbuyer@1 1899 if addon.debug.comm or ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 1900 then
farmbuyer@1 1901 addon:Print("%s has requested additional broadcasters! Choose %s to enable rebroadcasting, or %s to remain off and also ignore rebroadcast requests for as long as you're logged in. Or do nothing for now to see if other requests arrive.",
farmbuyer@1 1902 sender,
farmbuyer@1 1903 addon.format_hypertext('bcaston',"the red pill",'|cffff4040'),
farmbuyer@1 1904 addon.format_hypertext('waferthin',"the blue pill",'|cff0070dd'))
farmbuyer@1 1905 end
farmbuyer@18 1906 addon.popped = true
farmbuyer@1 1907 end
farmbuyer@1 1908
farmbuyer@1 1909 OCR_funcs.bcast_responder = function (sender)
farmbuyer@1 1910 if addon.debug.comm or addon.requesting or
farmbuyer@1 1911 ((not g_wafer_thin) and (not addon.rebroadcast))
farmbuyer@1 1912 then
farmbuyer@1 1913 addon:Print(sender, "has answered the call and is now broadcasting loot.")
farmbuyer@1 1914 end
farmbuyer@1 1915 end
farmbuyer@1 1916 -- remove this tag once it's all tested
farmbuyer@1 1917 OCR_funcs.bcast_denied = function (sender)
farmbuyer@1 1918 if addon.requesting then addon:Print(sender, "declines futher broadcast requests.") end
farmbuyer@1 1919 end
farmbuyer@1 1920
farmbuyer@1 1921 -- Incoming message dispatcher
farmbuyer@1 1922 local function dotdotdot (sender, tag, ...)
farmbuyer@1 1923 local f = OCR_funcs[tag]
farmbuyer@1 1924 addon.dprint('comm', ":... processing",tag,"from",sender)
farmbuyer@1 1925 if f then return f(sender,tag,...) end
farmbuyer@1 1926 addon.dprint('comm', "unknown comm message",tag",from", sender)
farmbuyer@1 1927 end
farmbuyer@1 1928 -- Recent message cache
farmbuyer@1 1929 addon.recent_messages = create_new_cache ('comm', comm_cleanup_ttl)
farmbuyer@1 1930
farmbuyer@1 1931 function addon:OnCommReceived (prefix, msg, distribution, sender)
farmbuyer@1 1932 if prefix ~= self.ident then return end
farmbuyer@1 1933 if not self.debug.comm then
farmbuyer@1 1934 if distribution ~= "RAID" and distribution ~= "WHISPER" then return end
farmbuyer@1 1935 if sender == my_name then return end
farmbuyer@1 1936 end
farmbuyer@1 1937 self.dprint('comm', ":OCR from", sender, "message is", msg)
farmbuyer@1 1938
farmbuyer@1 1939 if self.recent_messages:test(msg) then
farmbuyer@1 1940 return self.dprint('cache', "message <",msg,"> already in cache, skipping")
farmbuyer@1 1941 end
farmbuyer@1 1942 self.recent_messages:add(msg)
farmbuyer@1 1943
farmbuyer@1 1944 -- Nothing is actually returned, just (ab)using tail calls.
farmbuyer@1 1945 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 1946 end
farmbuyer@1 1947
farmbuyer@1 1948 function addon:OnCommReceivedNocache (prefix, msg, distribution, sender)
farmbuyer@1 1949 if prefix ~= self.identTg then return end
farmbuyer@1 1950 if not self.debug.comm then
farmbuyer@1 1951 if distribution ~= "WHISPER" then return end
farmbuyer@1 1952 if sender == my_name then return end
farmbuyer@1 1953 end
farmbuyer@1 1954 self.dprint('comm', ":OCRN from", sender, "message is", msg)
farmbuyer@1 1955 return dotdotdot(sender,strsplit('\a',msg))
farmbuyer@1 1956 end
farmbuyer@1 1957 end
farmbuyer@1 1958
farmbuyer@1 1959 -- vim:noet