Mercurial > wow > ouroloot

annotate core.lua @ 24:61d932f0e8f2

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