Transcriptor.lua

local Transcriptor = {}

local PLAYER_SPELL_BLOCKLIST
local TIMERS_SPECIAL_EVENTS
local TIMERS_SPECIAL_EVENTS_DATA
local TIMERS_BLOCKLIST
local RETAIL

do
	local _, addonTbl = ...
	PLAYER_SPELL_BLOCKLIST = addonTbl.PLAYER_SPELL_BLOCKLIST or {} -- PlayerSpellBlocklist.lua
	TIMERS_SPECIAL_EVENTS = addonTbl.TIMERS_SPECIAL_EVENTS or {} -- TimersSpecialEvents.lua
	TIMERS_SPECIAL_EVENTS_DATA = addonTbl.TIMERS_SPECIAL_EVENTS_DATA or {} -- TimersSpecialEvents.lua
	TIMERS_BLOCKLIST = addonTbl.TIMERS_BLOCKLIST or {} -- TimersBlocklist.lua
	RETAIL = addonTbl.retail or false -- Init.lua
	Transcriptor.INSTANCES = addonTbl.INSTANCES or {} -- Instances.lua
end

local logName = nil
local currentLog = nil
local logStartTime = nil
local logging = nil
local compareSuccess = nil
local compareUnitSuccess = nil
local compareEmotes = nil
local compareStart = nil
local compareAuraApplied = nil
local compareStartTime = nil
local collectNameplates = nil
local collectPlayerAuras = nil
local hiddenUnitAuraCollector = nil
local playerSpellCollector = nil
local hiddenAuraPermList = {
	[5384] = true, -- Feign Death
	[209997] = true, -- Play Dead (Hunter Pet)
}
local playerSpecList = {}
local previousSpecialEvent = nil
local hiddenAuraEngageList = nil
local prevEncounterStart = nil
local shouldLogFlags = false
local inEncounter, blockingRelease, limitingRes = false, false, false
local mineOrPartyOrRaid = 7 -- COMBATLOG_OBJECT_AFFILIATION_MINE + COMBATLOG_OBJECT_AFFILIATION_PARTY + COMBATLOG_OBJECT_AFFILIATION_RAID

local band = bit.band
local tinsert, tsort, twipe, tconcat, tContains = table.insert, table.sort, table.wipe, table.concat, tContains
local format, find, strjoin, strsplit, gsub, strmatch = string.format, string.find, string.join, string.split, string.gsub, string.match
local tostring, tostringall, date = tostring, tostringall, date
local type, next = type, next
local debugprofilestop = debugprofilestop

local C_Scenario, C_DeathInfo_GetSelfResurrectOptions, Enum = C_Scenario, C_DeathInfo.GetSelfResurrectOptions, Enum
local IsEncounterInProgress, IsEncounterLimitingResurrections, IsEncounterSuppressingRelease = IsEncounterInProgress, IsEncounterLimitingResurrections, IsEncounterSuppressingRelease
local UnitInRaid, UnitInParty, UnitIsFriend, UnitCastingInfo, UnitChannelInfo = UnitInRaid, UnitInParty, UnitIsFriend, UnitCastingInfo, UnitChannelInfo
local UnitCanAttack, UnitExists, UnitIsVisible, UnitClassification, ShowBossFrameWhenUninteractable = UnitCanAttack, UnitExists, UnitIsVisible, UnitClassification, ShowBossFrameWhenUninteractable
local UnitPower, UnitPowerMax, UnitPowerType, UnitHealth, UnitHealthMax = UnitPower, UnitPowerMax, UnitPowerType, UnitHealth, UnitHealthMax
local UnitLevel, UnitCreatureType, UnitPercentHealthFromGUID, UnitTokenFromGUID = UnitLevel, UnitCreatureType, UnitPercentHealthFromGUID, UnitTokenFromGUID
local GetInstanceInfo = GetInstanceInfo
local GetZoneText, GetRealZoneText, GetSubZoneText = GetZoneText, GetRealZoneText, GetSubZoneText
local GetSpellName = C_Spell.GetSpellName
local GetBestMapForUnit = C_Map.GetBestMapForUnit
local C_GossipInfo_GetOptions = C_GossipInfo.GetOptions
local issecretvalue = issecretvalue or function() return false end
local ShouldAurasBeSecret = C_Secrets and C_Secrets.ShouldAurasBeSecret or function() return false end
local mapvalues = mapvalues
local function ReplaceSecrets(value) if issecretvalue(value) then return "<secret>" else return value end end

if not UnitTokenFromGUID then -- XXX not on classic yet
	UnitTokenFromGUID = function() return end
end

local TSPrint
do
	local print = print
	function TSPrint(msg, ...)
		print(format("|cFF33FF99Transcriptor|r: %s", tostring(msg)), tostringall(...))
	end
end

local TSUnitGUID
do
	local UnitGUID = UnitGUID
	function TSUnitGUID(unit)
		local guid = UnitGUID(unit)
		if issecretvalue(guid) then
			return "<secret>"
		elseif not guid then
			return "<nil guid>"
		else
			return guid
		end
	end
end
local UnitGUID = UnitGUID

local TSUnitName
do
	local UnitNameUnmodified = UnitNameUnmodified
	function TSUnitName(unit)
		local name, server = UnitNameUnmodified(unit)
		if issecretvalue(name) then return "<secret>" end
		if not name then
			return "??"
		elseif server and server ~= "" then
			name = name .."-".. server
		end
		return name
	end
end

local function MobId(guid, extra)
	if not guid then return 1 end
	local _, _, _, _, _, strId, unq = strsplit("-", guid)
	if extra then
		local id = tonumber(strId)
		if id then
			return strId.."-"..unq
		else
			return 1
		end
	else
		return tonumber(strId) or 1
	end
end

local function InsertSpecialEvent(name)
	if type(name) == "function" then
		name = name()
	end
	if not name then return end
	local t = debugprofilestop()
	previousSpecialEvent = {t, name}
	if compareSuccess then
		for _,tbl in next, compareSuccess do
			for _, list in next, tbl do
				list[#list+1] = {t, name}
			end
		end
	end
	if compareStart then
		for _,tbl in next, compareStart do
			for _, list in next, tbl do
				list[#list+1] = {t, name}
			end
		end
	end
	if compareAuraApplied then
		for _,tbl in next, compareAuraApplied do
			for _, list in next, tbl do
				list[#list+1] = {t, name}
			end
		end
	end
	if compareUnitSuccess then
		for _,tbl in next, compareUnitSuccess do
			for _, list in next, tbl do
				list[#list+1] = {t, name}
			end
		end
	end
	if compareEmotes then
		for _,tbl in next, compareEmotes do
			for _, list in next, tbl do
				list[#list+1] = {t, name}
			end
		end
	end
end

--------------------------------------------------------------------------------
-- Utility
--

function GetMapArtID(name)
	name = name:lower()
	for i=1,100000 do
		local fetchedTbl = C_Map.GetMapInfo(i)
		if fetchedTbl and fetchedTbl.name then
			local lowerFetchedName = fetchedTbl.name:lower()
			if find(lowerFetchedName, name, nil, true) then
				TSPrint(fetchedTbl.name..": "..i)
			end
		end
	end
end
function GetInstanceID(name)
	name = name:lower()
	for i=1,100000 do
		local fetchedName = GetRealZoneText(i)
		local lowerFetchedName = fetchedName:lower()
		if find(lowerFetchedName, name, nil, true) then
			TSPrint(fetchedName..": "..i)
		end
	end
end
function GetBossID(name)
	if EJ_GetEncounterInfo then
		name = name:lower()
		for i=1,100000 do
			local fetchedName = EJ_GetEncounterInfo(i)
			if fetchedName then
				local lowerFetchedName = fetchedName:lower()
				if find(lowerFetchedName, name, nil, true) then
					TSPrint(fetchedName..": "..i)
				end
			end
		end
	else
		TSPrint("Cannot use GetBossID(name) when the EJ_GetEncounterInfo namespace doesn't exist.")
	end
end
function GetSectionID(name)
	if C_EncounterJournal then
		name = name:lower()
		for i=1,100000 do
			local tbl = C_EncounterJournal.GetSectionInfo(i)
			if tbl then
				local fetchedName = tbl.title
				local lowerFetchedName = fetchedName:lower()
				if find(lowerFetchedName, name, nil, true) then
					TSPrint(fetchedName..": "..i)
				end
			end
		end
	else
		TSPrint("Cannot use GetSectionID(name) when the C_EncounterJournal namespace doesn't exist.")
	end
end

--------------------------------------------------------------------------------
-- Spell blocklist parser: /getspells
--

do
	-- Create UI spell display, copied from BasicChatMods
	local frame, editBox = {}, {}
	for i = 1, 2 do
		frame[i] = CreateFrame("Frame", nil, UIParent, "SettingsFrameTemplate")
		frame[i]:SetWidth(650)
		frame[i]:SetHeight(650)
		frame[i]:Hide()
		frame[i]:SetFrameStrata("DIALOG")
		frame[i].NineSlice.Text:SetText(
			i==1 and "Transcriptor Spells" or
			i==2 and "Transcriptor Spells Full DB"
		)

		local scrollArea = CreateFrame("ScrollFrame", nil, frame[i], "ScrollFrameTemplate")
		scrollArea:SetPoint("TOPLEFT", frame[i], "TOPLEFT", 8, -30)
		scrollArea:SetPoint("BOTTOMRIGHT", frame[i], "BOTTOMRIGHT", -25, 5)

		editBox[i] = CreateFrame("EditBox", nil, frame[i])
		editBox[i]:SetMultiLine(true)
		editBox[i]:SetMaxLetters(0)
		editBox[i]:EnableMouse(true)
		editBox[i]:SetAutoFocus(false)
		editBox[i]:SetFontObject(ChatFontNormal)
		editBox[i]:SetWidth(620)
		editBox[i]:SetHeight(450)
		editBox[i]:SetScript("OnEscapePressed", function(f) f:GetParent():GetParent():Hide() f:SetText("") end)
		if i == 1 then
			editBox[i]:SetScript("OnHyperlinkLeave", GameTooltip_Hide)
			editBox[i]:SetScript("OnHyperlinkEnter", function(_, link)
				if link and find(link, "spell", nil, true) then
					local spellId = strmatch(link, "(%d+)")
					if spellId then
						GameTooltip:SetOwner(frame[i], "ANCHOR_LEFT", 0, -500)
						GameTooltip:SetSpellByID(spellId)
					end
				end
			end)
			editBox[i]:SetHyperlinksEnabled(true)
		end

		scrollArea:SetScrollChild(editBox[i])
	end

	local function GetLogSpells(slashCommandText)
		if InCombatLockdown() or UnitAffectingCombat("player") or IsFalling() then TSPrint("You cannot do that in combat.") return end
		if slashCommandText == "logflags" then TranscriptIgnore.logFlags = true TSPrint("Player flags will be added to all future logs.") return end

		local total, totalSorted = {}, {}
		local auraTbl, castTbl, summonTbl, extraAttacksTbl, empowerTbl, healTbl, energizeTbl, spellDmgTbl = {}, {}, {}, {}, {}, {}, {}, {}
		local aurasSorted, castsSorted, summonSorted, extraAttacksSorted, empowerSorted, healSorted, energizeSorted, spellDmgSorted = {}, {}, {}, {}, {}, {}, {}, {}
		local playerCastList = {}
		local ignoreList = {
			[43681] = true, -- Inactive (PvP)
			[94028] = true, -- Inactive (PvP)
			[66186] = true, -- Napalm (IoC PvP)
			[66195] = true, -- Napalm (IoC PvP)
			[66268] = true, -- Place Seaforium Bomb (IoC PvP)
			[66271] = true, -- Carrying Seaforium (IoC PvP)
			[66456] = true, -- Glaive Throw (IoC PvP)
			[66518] = true, -- Airship Cannon (IoC PvP)
			[66541] = true, -- Incendiary Rocket (IoC PvP)
			[66542] = true, -- Incendiary Rocket (IoC PvP)
			[66657] = true, -- Parachute (IoC PvP)
			[66674] = true, -- Place Huge Seaforium Bomb (IoC PvP)
			[67195] = true, -- Blade Salvo (IoC PvP)
			[67200] = true, -- Blade Salvo (IoC PvP)
			[67440] = true, -- Hurl Boulder (IoC PvP)
			[67441] = true, -- Ram (IoC PvP)
			[67452] = true, -- Rocket Blast (IoC PvP)
			[67461] = true, -- Fire Cannon (IoC PvP)
			[67796] = true, -- Ram (IoC PvP)
			[67797] = true, -- Steam Rush (IoC PvP)
			[68077] = true, -- Repair Cannon (IoC PvP)
			[68298] = true, -- Parachute (IoC PvP)
			[68377] = true, -- Carrying Huge Seaforium (IoC PvP)
		}
		local npcIgnoreList = {
			[154297] = true, -- Ankoan Bladesman
			[154304] = true, -- Waveblade Shaman
			[150202] = true, -- Waveblade Hunter
			[201647] = true, -- Ebon Lieutenant
			[201383] = true, -- Ebon Lieutenant
			[201382] = true, -- Highmountain Seer
			[201268] = true, -- Highmountain Seer
			[201646] = true, -- Highmountain Seer
			[201578] = true, -- Highmountain Seer
		}
		local events = { --event#sourceOrDestFlags#sourceGUID#sourceName#destGUID or empty#destName or 'nil'#spellId#spellName
			"SPELL_AURA_[AR][^#]+#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+", -- SPELL_AURA_[AR] to filter _BROKEN
			"SPELL_CAST_[^#]+#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+",
			"SPELL_SUMMON#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+",
			"SPELL_EXTRA_ATTACKS#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+",
			"SPELL_EMPOWER_[SEI][^#]+#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+",
			"_HEAL#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+", -- SPELL_HEAL/SPELL_PERIODIC_HEAL
			"_ENERGIZE#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+", -- SPELL_ENERGIZE/SPELL_PERIODIC_ENERGIZE
			"_[DM][AI][MS][AS][GE][ED]#(%d+)#([^#]+%-[^#]+)#([^#]+)#([^#]*)#([^#]+)#(%d+)#[^#]+", -- SPELL_DAMAGE/SPELL_MISSED/SPELL_PERIODIC_DAMAGE/SPELL_PERIODIC_MISSED
		}
		local tables = {
			auraTbl,
			castTbl,
			summonTbl,
			extraAttacksTbl,
			empowerTbl,
			healTbl,
			energizeTbl,
			spellDmgTbl,
		}
		local sortedTables = {
			aurasSorted,
			castsSorted,
			summonSorted,
			extraAttacksSorted,
			empowerSorted,
			healSorted,
			energizeSorted,
			spellDmgSorted,
		}
		for _, logTbl in next, TranscriptDB do
			if type(logTbl) == "table" then
				if logTbl.total then
					for i=1, #logTbl.total do
						local text = logTbl.total[i]

						for j = 1, #events do
							local flagsText, srcGUID, srcName, destGUID, destName, idText = strmatch(text, events[j])
							local spellId = tonumber(idText)
							local flags = tonumber(flagsText)
							local tbl = tables[j]
							local sortedTbl = sortedTables[j]
							if spellId and flags and band(flags, mineOrPartyOrRaid) ~= 0 and not ignoreList[spellId] and not PLAYER_SPELL_BLOCKLIST[spellId] then -- Check total to avoid duplicates
								if not total[spellId] or destGUID ~= "" then -- Attempt to replace START (no dest) with SUCCESS (sometimes has a dest)
									local srcGUIDType, _, _, _, _, npcIdStr = strsplit("-", srcGUID)
									local npcId = tonumber(npcIdStr)
									if not npcIgnoreList[npcId] then
										local destGUIDType, _, _, _, _, destNpcIdStr = strsplit("-", destGUID)
										if find(destGUID, "^P[le][at]") then -- Only players/pets, don't remove "-" from NPC names
											destName = gsub(destName, "%-.+", "*") -- Replace server name with *
										end
										if find(srcGUID, "^P[le][at]") then-- Only players/pets, don't remove "-" from NPCs names
											srcName = gsub(srcName, "%-.+", "*") -- Replace server name with *
										end
										srcName = gsub(srcName, "%(.+", "") -- Remove health/mana
										if find(srcGUID, "^P[le][at]") and find(destGUID, "^P[le][at]") then
											tbl[spellId] = "|cFF81BEF7".. srcName .."(".. srcGUIDType ..") >> ".. destName .."(".. destGUIDType ..")|r"
										else
											if srcGUIDType == "Creature" then srcGUIDType = srcGUIDType .."[".. npcIdStr .."]" end
											if destGUIDType == "Creature" then destGUIDType = destGUIDType .."[".. destNpcIdStr .."]" end
											if find(srcGUID, "^P[le][at]") and find(destGUIDType, "Creature", nil, true) then
												tbl[spellId] = "|cFF3ADF00".. srcName .."(".. srcGUIDType ..") >> ".. destName .."(".. destGUIDType ..")|r"
											else
												tbl[spellId] = "|cFF964B00".. srcName .."(".. srcGUIDType ..") >> ".. destName .."(".. destGUIDType ..")|r"
											end
										end
										if not total[spellId] then
											total[spellId] = true
											sortedTbl[#sortedTbl+1] = spellId
										end
									end
								end
							end
						end
					end
				end
				if logTbl.TIMERS and logTbl.TIMERS.PLAYER_SPELLS then
					for i=1, #logTbl.TIMERS.PLAYER_SPELLS do
						local text = logTbl.TIMERS.PLAYER_SPELLS[i]
						local spellId, _, _, player = strsplit("#", text)
						local id = tonumber(spellId)
						if id and not PLAYER_SPELL_BLOCKLIST[id] and not playerCastList[id] and not total[id] then
							playerCastList[id] = player
							total[id] = true
						end
					end
				end
			end
		end

		tsort(aurasSorted)
		local text = "-- SPELL_AURA_[APPLIED/REMOVED/REFRESH]\n"
		for i = 1, #aurasSorted do
			local id = aurasSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, auraTbl[id])
		end

		tsort(castsSorted)
		text = text.. "\n-- SPELL_CAST_[START/SUCCESS]\n"
		for i = 1, #castsSorted do
			local id = castsSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, castTbl[id])
		end

		tsort(summonSorted)
		text = text.. "\n-- SPELL_SUMMON\n"
		for i = 1, #summonSorted do
			local id = summonSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, summonTbl[id])
		end

		tsort(extraAttacksSorted)
		text = text.. "\n-- SPELL_EXTRA_ATTACKS\n"
		for i = 1, #extraAttacksSorted do
			local id = extraAttacksSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, extraAttacksTbl[id])
		end

		tsort(empowerSorted)
		text = text.. "\n-- SPELL_EMPOWER_[START/END/INTERRUPT]\n"
		for i = 1, #empowerSorted do
			local id = empowerSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, empowerTbl[id])
		end

		tsort(healSorted)
		text = text.. "\n-- SPELL_[HEAL/PERIODIC_HEAL]\n"
		for i = 1, #healSorted do
			local id = healSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, healTbl[id])
		end

		tsort(energizeSorted)
		text = text.. "\n-- SPELL_[ENERGIZE/PERIODIC_ENERGIZE]\n"
		for i = 1, #energizeSorted do
			local id = energizeSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, energizeTbl[id])
		end

		tsort(spellDmgSorted)
		text = text.. "\n-- SPELL_[DAMAGE/PERIODIC_DAMAGE/MISSED]\n"
		for i = 1, #spellDmgSorted do
			local id = spellDmgSorted[i]
			local name = GetSpellName(id)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, id, id, name, spellDmgTbl[id])
		end

		text = text.. "\n-- PLAYER_CASTS\n"
		for k, v in next, playerCastList do
			local name = GetSpellName(k)
			text = format("%s%d || |cFFFFFF00|Hspell:%d|h%s|h|r || %s\n", text, k, k, name, v)
		end

		-- Display newly found spells for analysis
		if not TranscriptIgnore.logFlags then
			editBox[1]:SetText("For this feature to work, player flags must be added to the logs.\nYou can enable additional logging by typing:\n/getspells logflags")
		else
			if not text:find("%d%d%d") then
				editBox[1]:SetText("Nothing was found.\nYou might be looking at logs that didn't have player flags recorded.")
			else
				editBox[1]:SetText(text)
			end
		end
		frame[1]:ClearAllPoints()
		frame[1]:SetPoint("RIGHT", UIParent, "CENTER")
		frame[1]:Show()

		for k in next, PLAYER_SPELL_BLOCKLIST do
			if GetSpellName(k) then -- Filter out removed spells when a new patch hits
				total[k] = true
			end
		end
		for k in next, total do
			totalSorted[#totalSorted+1] = k
		end
		tsort(totalSorted)
		local exportText = "local addonTbl\ndo\n\tlocal _\n\t_, addonTbl = ...\nend\n\n"
		exportText = exportText .."-- Block specific player spells from appearing in the logs.\n"
		exportText = exportText .."-- This list is generated in game and there is not much point filling it in manually.\naddonTbl.PLAYER_SPELL_BLOCKLIST = {\n"

		for i = 1, #totalSorted do
			local id = totalSorted[i]
			local name = GetSpellName(id)
			exportText = format("%s\t[%d] = true, -- %s\n", exportText, id, name)
		end
		exportText = exportText .."}\n"
		-- Display full blacklist for copying into Transcriptor
		editBox[2]:SetText(exportText)
		frame[2]:ClearAllPoints()
		frame[2]:SetPoint("LEFT", UIParent, "CENTER")
		frame[2]:Show()
	end

	SlashCmdList.GETSPELLS = GetLogSpells
	SLASH_GETSPELLS1 = "/getspells"
end

--------------------------------------------------------------------------------
-- Localization
--

local L = {}
L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."
L["You are already logging an encounter."] = "You are already logging an encounter."
L["Beginning Transcript: "] = "Beginning Transcript: "
L["You are not logging an encounter."] = "You are not logging an encounter."
L["Ending Transcript: "] = "Ending Transcript: "
L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."
L["All transcripts cleared."] = "All transcripts cleared."
L["You can't clear your transcripts while logging an encounter."] = "You can't clear your transcripts while logging an encounter."
L["|cff696969Idle|r"] = "|cff696969Idle|r"
L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."
L["|cffFF0000Recording|r"] = "|cffFF0000Recording|r"
L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Disabled Events"

do
	local locale = GetLocale()
	if locale == "deDE" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "Um die besten Logs zu bekommen, solltest du Transcriptor zwischen Wipes oder Bosskills stoppen bzw. starten."
		L["You are already logging an encounter."] = "Du zeichnest bereits einen Begegnung auf."
		L["Beginning Transcript: "] = "Beginne Aufzeichnung: "
		L["You are not logging an encounter."] = "Du zeichnest keine Begegnung auf."
		L["Ending Transcript: "] = "Beende Aufzeichnung: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Aufzeichnungen werden gespeichert nach WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua sobald du reloggst oder das Interface neu lädst."
		L["All transcripts cleared."] = "Alle Aufzeichnungen gelöscht."
		L["You can't clear your transcripts while logging an encounter."] = "Du kannst deine Aufzeichnungen nicht löschen, während du eine Begegnung aufnimmst."
		L["|cff696969Idle|r"] = "|cff696969Leerlauf|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fKlicken|r, um eine Aufzeichnung zu starten oder zu stoppen. |cffeda55fRechts-Klicken|r, um Events zu konfigurieren. |cffeda55fAlt-Mittel-Klicken|r, um alle Aufzeichnungen zu löschen."
		L["|cffFF0000Recording|r"] = "|cffFF0000Aufzeichnung|r"
		--L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Disabled Events"
	elseif locale == "esES" or locale == "esMX" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "Recuerda detener e iniciar Transcriptor entre cada intento fallido o muerte de jefe para obtener los mejores registros."
		L["You are already logging an encounter."] = "Ya estás registrando un encuentro."
		L["Beginning Transcript: "] = "Comenzando transcripción: "
		L["You are not logging an encounter."] = "No estás registrando un encuentro."
		L["Ending Transcript: "] = "Finalizando transcripción: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Los registros probablemente se guardarán en WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua cuando vuelvas a conectar o recargues la interfaz."
		L["All transcripts cleared."] = "Todas las transcripciones fueron borradas."
		L["You can't clear your transcripts while logging an encounter."] = "No puedes borrar tus transcripciones mientras registras un encuentro."
		L["|cff696969Idle|r"] = "|cff696969Inactivo|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fClic|r para iniciar o detener la transcripción. |cffeda55fClic derecho|r para configurar eventos. |cffeda55fAlt-Clic medio|r para borrar todas las transcripciones guardadas."
		L["|cffFF0000Recording|r"] = "|cffFF0000Grabando|r"
		L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Eventos desactivados"
	elseif locale == "frFR" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "N'oubliez pas d'arrêter et de démarrer Transcriptor entre chaque échec ou chaque mort de boss pour obtenir les meilleurs logs."
		L["You are already logging an encounter."] = "Vous enregistrez déjà un combat."
		L["Beginning Transcript: "] = "Début de transcription : "
		L["You are not logging an encounter."] = "Vous n'enregistrez pas de combat."
		L["Ending Transcript: "] = "Fin de transcription : "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Les logs seront probablement enregistrés dans WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua lorsque vous vous reconnecterez ou rechargerez l'interface utilisateur."
		L["All transcripts cleared."] = "Toutes les transcriptions ont été effacées."
		L["You can't clear your transcripts while logging an encounter."] = "Vous ne pouvez pas effacer vos transcriptions pendant l'enregistrement d'un combat."
		L["|cff696969Idle|r"] = "|cff696969Inactif|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fClic|r pour démarrer ou arrêter la transcription. |cffeda55fClic droit|r pour configurer les événements. |cffeda55fAlt-Clic milieu|r pour effacer toutes les transcriptions enregistrées."
		L["|cffFF0000Recording|r"] = "|cffFF0000Enregistrement|r"
		L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Événements désactivés"
	elseif locale == "ptBR" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "Lembre-se de parar e iniciar o Transcriptor entre cada tentativa falhada ou morte de chefe para obter os melhores logs."
		L["You are already logging an encounter."] = "Você já está registrando um encontro."
		L["Beginning Transcript: "] = "Iniciando transcrição: "
		L["You are not logging an encounter."] = "Você não está registrando um encontro."
		L["Ending Transcript: "] = "Finalizando transcrição: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Os logs provavelmente serão salvos em WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua quando você relogar ou recarregar a interface do usuário."
		L["All transcripts cleared."] = "Todas as transcrições foram apagadas."
		L["You can't clear your transcripts while logging an encounter."] = "Você não pode limpar suas transcrições enquanto registra um encontro."
		L["|cff696969Idle|r"] = "|cff696969Inativo|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fClique|r para iniciar ou parar a transcrição. |cffeda55fClique direito|r para configurar eventos. |cffeda55fAlt-clique do meio|r para limpar todas as transcrições armazenadas."
		L["|cffFF0000Recording|r"] = "|cffFF0000Gravando|r"
		L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Eventos desativados"
	elseif locale == "zhTW" then
		L["You are already logging an encounter."] = "你已經準備記錄戰鬥"
		L["Beginning Transcript: "] = "開始記錄於: "
		L["You are not logging an encounter."] = "你不處於記錄狀態"
		L["Ending Transcript: "] = "結束記錄於: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "記錄儲存於 WoW\\WTF\\Account\\<名字>\\SavedVariables\\Transcriptor.lua"
		L["You are not logging an encounter."] = "你沒有記錄此次戰鬥"
		L["All transcripts cleared."] = "所有記錄已清除"
		L["You can't clear your transcripts while logging an encounter."] = "正在記錄中，你不能清除。"
		L["|cffFF0000Recording|r: "] = "|cffFF0000記錄中|r: "
		L["|cff696969Idle|r"] = "|cff696969閒置|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55f點擊|r開始/停止記錄戰鬥"
		L["|cffFF0000Recording|r"] = "|cffFF0000記錄中|r"
		--L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Disabled Events"
	elseif locale == "zhCN" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "提示：为获得最佳记录，请在每次团灭或击杀首领后，先停止再重新启动 Transcriptor。"
		L["You are already logging an encounter."] = "你已经在记录一场战斗了。"
		L["Beginning Transcript: "] = "开始记录："
		L["You are not logging an encounter."] = "你当前没有在记录战斗。"
		L["Ending Transcript: "] = "停止记录："
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "日志可能会在重新登录或重载界面后，保存在 WoW\\WTF\\Account\\<账号名>\\SavedVariables\\Transcriptor.lua 中。你可以上传到github.com/BigWigsMods和Discord的地址,提供最新的BOSS数据。"
		L["All transcripts cleared."] = "所有记录已清除"
		L["You can't clear your transcripts while logging an encounter."] = "记录过程中无法清除记录。"
		L["|cff696969Idle|r"] = "|cff696969空闲|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55f点击|r 开始/停止记录。|cffeda55f右键点击|r 配置事件。|cffeda55fAlt+中键点击|r 清除所有记录。"
		L["|cffFF0000Recording|r"] = "|cffFF0000记录中|r"
		L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - 已禁用事件"
	elseif locale == "koKR" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "최상의 기록을 얻으려면 전멸이나 우두머리 처치 후에 Transcriptor를 중지하고 시작하는 걸 기억하세요."
		L["You are already logging an encounter."] = "이미 우두머리 전투를 기록 중입니다."
		L["Beginning Transcript: "] = "기록 시작: "
		L["You are not logging an encounter."] = "우두머리 전투를 기록하고 있지 않습니다."
		L["Ending Transcript: "] = "기록 종료: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "재기록하거나 사용자 인터페이스를 다시 불러오면 WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua에 기록이 저장됩니다."
		L["All transcripts cleared."] = "모든 기록이 초기화되었습니다."
		L["You can't clear your transcripts while logging an encounter."] = "우두머리 전투를 기록 중일 때는 기록을 초기화 할 수 없습니다."
		L["|cff696969Idle|r"] = "|cff696969대기|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55f클릭|r - 기록을 시작하거나 중지합니다.\n|cffeda55f오른쪽-클릭|r - 이벤트를 구성합니다.\n|cffeda55fAlt-가운데 클릭|r - 저장된 모든 기록을 초기화합니다."
		L["|cffFF0000Recording|r"] = "|cffFF0000기록 중|r"
		L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - 비활성된 이벤트"
	elseif locale == "ruRU" then
		L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."] = "Чтобы получить лучшие записи боя, не забудьте остановить и запустить Transcriptor между вайпом или убийством босса."
		L["You are already logging an encounter."] = "Вы уже записываете бой."
		L["Beginning Transcript: "] = "Начало записи: "
		L["You are not logging an encounter."] = "Вы не записываете бой."
		L["Ending Transcript: "] = "Окончание записи: "
		L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."] = "Записи боя будут записаны в WoW\\WTF\\Account\\<название>\\SavedVariables\\Transcriptor.lua после того как вы перезайдете или перезагрузите пользовательский интерфейс."
		L["All transcripts cleared."] = "Все записи очищены."
		L["You can't clear your transcripts while logging an encounter."] = "Вы не можете очистить ваши записи пока идет запись боя."
		L["|cff696969Idle|r"] = "|cff696969Ожидание|r"
		L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."] = "|cffeda55fЛКМ|r - запустить или остановить запись.\n|cffeda55fПКМ|r - настройка событий.\n|cffeda55fAlt-СКМ|r - очистить все сохраненные записи."
		L["|cffFF0000Recording|r"] = "|cffFF0000Запись|r"
		--L["|cFFFFD200Transcriptor|r - Disabled Events"] = "|cFFFFD200Transcriptor|r - Disabled Events"
	end
end

--------------------------------------------------------------------------------
-- Events
--

local eventFrame = CreateFrame("Frame")
eventFrame:Hide()
local sh = {}

--[[
	UIWidget

	see https://wowpedia.fandom.com/wiki/UPDATE_UI_WIDGET

	widgetID =
		The Black Morass: 507 (health), 527 (waves)
		The Violet Hold (WotLK): 565 (health), 566 (waves)
]]
do
	local blackList = {
		[1309] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1309)
		[1311] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1311)
		[1313] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1313)
		[1315] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1315)
		[1317] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1317)
		[1319] = true, -- C_UIWidgetManager.GetStatusBarWidgetVisualizationInfo(1319)

		--[[ Shadowlands - Castle Nathria ]]--
		[2436] = true, -- Lady Inerva Darkvein, static icon (widgetType:13)
		[2437] = true, -- Lady Inerva Darkvein, static icon (widgetType:13)
		[2438] = true, -- Lady Inerva Darkvein, static icon (widgetType:13)
		[2439] = true, -- Lady Inerva Darkvein, static icon (widgetType:13)

		[3457] = true, -- Stone Soup
		[4236] = true, -- Accumulated Hoard of Draconic Delicacies
		[4460] = true, -- Dragonriding - Vigor
		[5140] = true, -- Dragonriding - Vigor
		[5143] = true, -- Dragonriding - Vigor
		[5144] = true, -- Dragonriding - Vigor
		[5145] = true, -- Dragonriding - Vigor
	}

	-- Each widgetType has a different function to get all data for the widget.
	-- Those function names are consistent with the enum.
	local widgetFuncs = {}
	for name,n in pairs(Enum.UIWidgetVisualizationType) do
		widgetFuncs[n] = C_UIWidgetManager["Get"..name.. "WidgetVisualizationInfo"] or C_UIWidgetManager["Get"..name.."VisualizationInfo"]
	end

	function sh.UPDATE_UI_WIDGET(tbl)
		if blackList[tbl.widgetID] then return end

		-- Store widget data, so we're able to only add changes to the log
		if not currentLog.WIDGET then currentLog.WIDGET = {} end

		local txt
		if not currentLog.WIDGET[tbl.widgetID] then -- New widget in this log
			currentLog.WIDGET[tbl.widgetID] = {}
			for k, v in next, tbl do
				if not txt then
					txt = format("%s:%s", k, v)
				else
					txt = format("%s, %s:%s", txt, k, v)
				end
			end
		else -- Shorter output with just the id
			txt = format("%s:%s", "widgetID", tbl.widgetID)
		end

		if tbl.widgetType and widgetFuncs[tbl.widgetType] then
			local t = widgetFuncs[tbl.widgetType](tbl.widgetID)
			if t then
				for k, v in next, t do
					if type(v) == "table" then -- We don't care about data in tables
						v = "table"
					elseif type(v) == "boolean" then -- Needs to be done manually in Lua 5.1
						v = tostring(v)
					end

					-- Only add data to log if it's new or it changed to reduce spam
					if not currentLog.WIDGET[tbl.widgetID][k] or currentLog.WIDGET[tbl.widgetID][k] ~= v then
						currentLog.WIDGET[tbl.widgetID][k] = v
						txt = format("%s, %s:%s", txt, k, v)
					end
				end
			end
		end

		return txt
	end
end

do
	local auraEvents = {
		["SPELL_AURA_APPLIED"] = true,
		["SPELL_AURA_APPLIED_DOSE"] = true,
		["SPELL_AURA_REFRESH"] = true,
		["SPELL_AURA_REMOVED"] = true,
		["SPELL_AURA_REMOVED_DOSE"] = true,
	}
	local badPlayerFilteredEvents = {
		["SPELL_CAST_SUCCESS"] = true,
		["SPELL_AURA_APPLIED"] = true,
		["SPELL_AURA_APPLIED_DOSE"] = true,
		["SPELL_AURA_REFRESH"] = true,
		["SPELL_AURA_REMOVED"] = true,
		["SPELL_AURA_REMOVED_DOSE"] = true,
		["SPELL_CAST_START"] = true,
		["SPELL_SUMMON"] = true,
		["SPELL_EMPOWER_START"] = true,
		["SPELL_EMPOWER_END"] = true,
		["SPELL_EMPOWER_INTERRUPT"] = true,
		["SPELL_EXTRA_ATTACKS"] = true,
		--"<87.10 17:55:03> [CLEU] SPELL_AURA_BROKEN_SPELL#Creature-0-3771-1676-28425-118022-000004A6B5#Infernal Chaosbringer#Player-XYZ#XYZ#115191#Stealth#242906#Immolation Aura", -- [148]
		--"<498.56 22:02:38> [CLEU] SPELL_AURA_BROKEN_SPELL#Creature-0-3895-1676-10786-106551-00008631CC-TSGuardian#Hati#Creature-0-3895-1676-10786-120697-000086306F#Worshiper of Elune#206961#Tremble Before Me#118459#Beast Cleave", -- [8039]
		--["SPELL_AURA_BROKEN_SPELL"] = true,
		["SPELL_HEAL"] = true,
		["SPELL_PERIODIC_HEAL"] = true,
		["SPELL_ENERGIZE"] = true,
		["SPELL_PERIODIC_ENERGIZE"] = true,
		["SPELL_DAMAGE"] = true,
		["SPELL_MISSED"] = true,
		["SPELL_PERIODIC_DAMAGE"] = true,
		["SPELL_PERIODIC_MISSED"] = true,
	}
	local badPlayerEvents = {
		["SWING_DAMAGE"] = true,
		["SWING_MISSED"] = true,
		["RANGE_DAMAGE"] = true,
		["RANGE_MISSED"] = true,
		["DAMAGE_SPLIT"] = true,
	}
	local badEvents = {
		["SPELL_ABSORBED"] = true,
		["SPELL_CAST_FAILED"] = true,
	}
	local badNPCs = { -- These are NPCs summoned by your group but are incorrectly not marked as mineOrPartyOrRaid, so we manually filter
		[3527] = true, -- Healing Stream Totem, casts Healing Stream Totem (52042) on friendlies
		[5334] = true, -- Windfury Totem, casts Windfury Totem (327942) on friendlies
		[27829] = true, -- Ebon Gargoyle, casts Gargoyle Strike (51963) on hostiles
		[27893] = true, -- Rune Weapon, casts Blood Plague (55078) on hostiles
		[29264] = true, -- Spirit Wolf, casts Earthen Weapon (392375) on friendlies
		[61245] = true, -- Capacitor Totem, casts Static Charge (118905) on hostiles
		[198236] = true, -- Divine Image, casts Blessed Light (196813) on friendlies
	}
	local guardian = 8192 -- COMBATLOG_OBJECT_TYPE_GUARDIAN
	local dmgCache, dmgPrdcCache = {}, {}
	local CombatLogGetCurrentEventInfo = CombatLogGetCurrentEventInfo
	-- Note some things we are trying to avoid filtering:
	-- BRF/Kagraz - Player damage with no source "SPELL_DAMAGE##nil#Player-GUID#PLAYER#154938#Molten Torrent#"
	-- HFC/Socrethar - Player cast on friendly vehicle "SPELL_CAST_SUCCESS#Player-GUID#PLAYER#Vehicle-0-3151-1448-8853-90296-00001D943C#Soulbound Construct#190466#Incomplete Binding"
	-- HFC/Zakuun - Player boss debuff cast on self "SPELL_AURA_APPLIED#Player-GUID#PLAYER#Player-GUID#PLAYER#189030#Befouled#DEBUFF#"
	-- ToS/Sisters - Boss pet marked as guardian "SPELL_CAST_SUCCESS#Creature-0-3895-1676-10786-119205-0000063360#Moontalon##nil#236697#Deathly Screech"
	-- Neltharus/Sargha - Player picks up an item from gold pile that makes you cast a debuff on yourself, SPELL_PERIODIC_DAMAGE#Player-GUID#PLAYER#Player-GUID#PLAYER#391762#Curse of the Dragon Hoard
	function sh.COMBAT_LOG_EVENT_UNFILTERED()
		local timeStamp, event, _, sourceGUID, sourceName, sourceFlags, _, destGUID, destName, destFlags, _, spellId, spellName, _, extraSpellId, amount, _, _, absorbSpellId, absorbSpellName, _, absorbAmount, totalAmount = CombatLogGetCurrentEventInfo()

		if auraEvents[event] and not hiddenAuraPermList[spellId] then
			hiddenAuraPermList[spellId] = true
		end

		if badEvents[event] or
			(sourceName and badPlayerFilteredEvents[event] and (PLAYER_SPELL_BLOCKLIST[spellId] or not RETAIL) and band(sourceFlags, mineOrPartyOrRaid) ~= 0) or
			(sourceName and badPlayerEvents[event] and band(sourceFlags, mineOrPartyOrRaid) ~= 0) or
			(event == "UNIT_DIED" and band(destFlags, mineOrPartyOrRaid) ~= 0 and band(destFlags, guardian) == guardian) or -- Filter guardian deaths only, player deaths can explain debuff removal
			(spellId == 22568 and event == "SPELL_DRAIN" and band(sourceFlags, mineOrPartyOrRaid) ~= 0) or -- Feral Druid casting Ferocious Bite
			(spellId == 81782 and not sourceName and band(destFlags, mineOrPartyOrRaid) ~= 0) or -- Power Word: Barrier on players has a nil source
			(spellId == 145629 and not sourceName and band(destFlags, mineOrPartyOrRaid) ~= 0) -- Anti-Magic Zone on players has a nil source
		then
			return
		else
			local npcId = MobId(sourceGUID)
			if badNPCs[npcId] then return end -- Filter NPCs that are friendly summons but aren't flagged as guardians or as being in the group (COMBATLOG_OBJECT_AFFILIATION_OUTSIDER)

			if event == "SPELL_CAST_SUCCESS" and (not sourceName or (band(sourceFlags, mineOrPartyOrRaid) == 0 and not find(sourceGUID, "Player", nil, true))) then
				if not compareSuccess then compareSuccess = {} end
				if not compareSuccess[spellId] then compareSuccess[spellId] = {} end
				local npcIdString = MobId(sourceGUID, true)
				if not compareSuccess[spellId][npcIdString] then
					if previousSpecialEvent then
						compareSuccess[spellId][npcIdString] = {{compareStartTime, previousSpecialEvent[1], previousSpecialEvent[2]}}
					else
						compareSuccess[spellId][npcIdString] = {compareStartTime}
					end
				end
				compareSuccess[spellId][npcIdString][#compareSuccess[spellId][npcIdString]+1] = debugprofilestop()
			end
			if event == "SPELL_CAST_START" and (not sourceName or (band(sourceFlags, mineOrPartyOrRaid) == 0 and not find(sourceGUID, "Player", nil, true))) then
				if not compareStart then compareStart = {} end
				if not compareStart[spellId] then compareStart[spellId] = {} end
				local npcIdString = MobId(sourceGUID, true)
				if not compareStart[spellId][npcIdString] then
					if previousSpecialEvent then
						compareStart[spellId][npcIdString] = {{compareStartTime, previousSpecialEvent[1], previousSpecialEvent[2]}}
					else
						compareStart[spellId][npcIdString] = {compareStartTime}
					end
				end
				compareStart[spellId][npcIdString][#compareStart[spellId][npcIdString]+1] = debugprofilestop()
			end
			if event == "SPELL_AURA_APPLIED" and (not sourceName or (band(sourceFlags, mineOrPartyOrRaid) == 0 and not find(sourceGUID, "Player", nil, true))) then
				if not compareAuraApplied then compareAuraApplied = {} end
				if not compareAuraApplied[spellId] then compareAuraApplied[spellId] = {} end
				local npcIdString = MobId(sourceGUID, true)
				if not compareAuraApplied[spellId][npcIdString] then
					if previousSpecialEvent then
						compareAuraApplied[spellId][npcIdString] = {{compareStartTime, previousSpecialEvent[1], previousSpecialEvent[2]}}
					else
						compareAuraApplied[spellId][npcIdString] = {compareStartTime}
					end
				end
				compareAuraApplied[spellId][npcIdString][#compareAuraApplied[spellId][npcIdString]+1] = debugprofilestop()
			end

			if sourceName and badPlayerFilteredEvents[event] and band(sourceFlags, mineOrPartyOrRaid) ~= 0 then
				if not collectPlayerAuras then collectPlayerAuras = {} end
				if not collectPlayerAuras[spellId] then collectPlayerAuras[spellId] = {} end
				if not collectPlayerAuras[spellId][event] then collectPlayerAuras[spellId][event] = true end
			end

			if event == "UNIT_DIED" then
				local name = TIMERS_SPECIAL_EVENTS.UNIT_DIED[npcId]
				if name then
					InsertSpecialEvent(name)
				end
			elseif TIMERS_SPECIAL_EVENTS[event] and TIMERS_SPECIAL_EVENTS[event][spellId] then
				local name = TIMERS_SPECIAL_EVENTS[event][spellId][npcId]
				if name then
					InsertSpecialEvent(name)
				end
			end

			if event == "SPELL_DAMAGE" or event == "SPELL_MISSED" then
				if dmgPrdcCache.spellId then
					if dmgPrdcCache.count == 1 then
						if shouldLogFlags and dmgCache.sourceName ~= "nil" then
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceFlags, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						end
					else
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_PERIODIC_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.count, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
					end
					dmgPrdcCache.spellId = nil
				end

				if spellId == dmgCache.spellId then
					if timeStamp - dmgCache.timeStamp > 0.2 then
						if dmgCache.count == 1 then
							if shouldLogFlags and dmgCache.sourceName ~= "nil" then
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceFlags, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
							else
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
							end
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.count, dmgCache.spellId, dmgCache.spellName)
						end
						dmgCache.spellId = spellId
						dmgCache.sourceGUID = sourceGUID
						dmgCache.sourceName = sourceName or "nil"
						dmgCache.sourceFlags = sourceFlags
						dmgCache.spellName = spellName
						dmgCache.timeStop = (debugprofilestop() / 1000) - logStartTime
						dmgCache.time = date("%H:%M:%S")
						dmgCache.timeStamp = timeStamp
						dmgCache.count = 1
						dmgCache.event = event
						dmgCache.destGUID = destGUID
						dmgCache.destName = destName
					else
						dmgCache.count = dmgCache.count + 1
					end
				else
					if dmgCache.spellId then
						if dmgCache.count == 1 then
							if shouldLogFlags and dmgCache.sourceName ~= "nil" then
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceFlags, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
							else
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
							end
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.count, dmgCache.spellId, dmgCache.spellName)
						end
					end
					dmgCache.spellId = spellId
					dmgCache.sourceGUID = sourceGUID
					dmgCache.sourceName = sourceName or "nil"
					dmgCache.sourceFlags = sourceFlags
					dmgCache.spellName = spellName
					dmgCache.timeStop = (debugprofilestop() / 1000) - logStartTime
					dmgCache.time = date("%H:%M:%S")
					dmgCache.timeStamp = timeStamp
					dmgCache.count = 1
					dmgCache.event = event
					dmgCache.destGUID = destGUID
					dmgCache.destName = destName
				end
			elseif event == "SPELL_PERIODIC_DAMAGE" or event == "SPELL_PERIODIC_MISSED" then
				if dmgCache.spellId then
					if dmgCache.count == 1 then
						if shouldLogFlags and dmgCache.sourceName ~= "nil" then
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceFlags, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
						end
					else
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.count, dmgCache.spellId, dmgCache.spellName)
					end
					dmgCache.spellId = nil
				end

				if spellId == dmgPrdcCache.spellId then
					if timeStamp - dmgPrdcCache.timeStamp > 0.2 then
						if dmgPrdcCache.count == 1 then
							if shouldLogFlags and dmgPrdcCache.sourceName ~= "nil" then
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceFlags, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
							else
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
							end
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_PERIODIC_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.count, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						end
						dmgPrdcCache.spellId = spellId
						dmgPrdcCache.sourceGUID = sourceGUID
						dmgPrdcCache.sourceName = sourceName or "nil"
						dmgPrdcCache.sourceFlags = sourceFlags
						dmgPrdcCache.spellName = spellName
						dmgPrdcCache.timeStop = (debugprofilestop() / 1000) - logStartTime
						dmgPrdcCache.time = date("%H:%M:%S")
						dmgPrdcCache.timeStamp = timeStamp
						dmgPrdcCache.count = 1
						dmgPrdcCache.event = event
						dmgPrdcCache.destGUID = destGUID
						dmgPrdcCache.destName = destName
					else
						dmgPrdcCache.count = dmgPrdcCache.count + 1
					end
				else
					if dmgPrdcCache.spellId then
						if dmgPrdcCache.count == 1 then
							if shouldLogFlags and dmgPrdcCache.sourceName ~= "nil" then
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceFlags, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
							else
								currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
							end
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_PERIODIC_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.count, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						end
					end
					dmgPrdcCache.spellId = spellId
					dmgPrdcCache.sourceGUID = sourceGUID
					dmgPrdcCache.sourceName = sourceName or "nil"
					dmgPrdcCache.sourceFlags = sourceFlags
					dmgPrdcCache.spellName = spellName
					dmgPrdcCache.timeStop = (debugprofilestop() / 1000) - logStartTime
					dmgPrdcCache.time = date("%H:%M:%S")
					dmgPrdcCache.timeStamp = timeStamp
					dmgPrdcCache.count = 1
					dmgPrdcCache.event = event
					dmgPrdcCache.destGUID = destGUID
					dmgPrdcCache.destName = destName
				end
			else
				if dmgCache.spellId then
					if dmgCache.count == 1 then
						if shouldLogFlags and dmgCache.sourceName ~= "nil" then
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceFlags, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.event, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.destGUID, dmgCache.destName, dmgCache.spellId, dmgCache.spellName)
						end
					else
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgCache.timeStop, dmgCache.time, dmgCache.sourceGUID, dmgCache.sourceName, dmgCache.count, dmgCache.spellId, dmgCache.spellName)
					end
					dmgCache.spellId = nil
				elseif dmgPrdcCache.spellId then
					if dmgPrdcCache.count == 1 then
						if shouldLogFlags and dmgPrdcCache.sourceName ~= "nil" then
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceFlags, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						else
							currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s#%s#%s#%s#%s#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.event, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.destGUID, dmgPrdcCache.destName, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
						end
					else
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] SPELL_PERIODIC_DAMAGE[CONDENSED]#%s#%s#%d Targets#%d#%s", dmgPrdcCache.timeStop, dmgPrdcCache.time, dmgPrdcCache.sourceGUID, dmgPrdcCache.sourceName, dmgPrdcCache.count, dmgPrdcCache.spellId, dmgPrdcCache.spellName)
					end
					dmgPrdcCache.spellId = nil
				end

				if (event == "SPELL_CAST_START" or event == "SPELL_CAST_SUCCESS") and sourceName and sourceGUID then
					local unit = UnitTokenFromGUID(sourceGUID)
					if unit then
						local hp
						if UnitPercentHealthFromGUID then
							hp = UnitPercentHealthFromGUID(sourceGUID)
						else
							local maxHP = UnitHealthMax(unit)
							if maxHP == 0 then
								hp = 0
							else
								hp = UnitHealth(unit) / maxHP
							end
						end
						local maxPower = UnitPowerMax(unit)
						local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
						sourceName = format("%s(%.1f%%-%.1f%%)", sourceName, hp*100, power)
					end
				end

				if shouldLogFlags and sourceName and badPlayerFilteredEvents[event] then
					return strjoin("#", tostringall(event, sourceFlags, sourceGUID, sourceName, destGUID, destName, spellId, spellName, extraSpellId, amount, absorbSpellId, absorbSpellName, absorbAmount, totalAmount))
				else
					return strjoin("#", tostringall(event, sourceGUID, sourceName, destGUID, destName, spellId, spellName, extraSpellId, amount, absorbSpellId, absorbSpellName, absorbAmount, totalAmount))
				end
			end
		end
	end
end

function sh.PLAYER_REGEN_DISABLED()
	return "+Entering combat!"
end
function sh.PLAYER_REGEN_ENABLED()
	return "-Leaving combat!"
end

do
	local UnitIsUnit = UnitIsUnit
	local wantedUnits = {
		target = true, focus = true,
		nameplate1 = true, nameplate2 = true, nameplate3 = true, nameplate4 = true, nameplate5 = true, nameplate6 = true, nameplate7 = true, nameplate8 = true, nameplate9 = true, nameplate10 = true,
		nameplate11 = true, nameplate12 = true, nameplate13 = true, nameplate14 = true, nameplate15 = true, nameplate16 = true, nameplate17 = true, nameplate18 = true, nameplate19 = true, nameplate20 = true,
		nameplate21 = true, nameplate22 = true, nameplate23 = true, nameplate24 = true, nameplate25 = true, nameplate26 = true, nameplate27 = true, nameplate28 = true, nameplate29 = true, nameplate30 = true,
		nameplate31 = true, nameplate32 = true, nameplate33 = true, nameplate34 = true, nameplate35 = true, nameplate36 = true, nameplate37 = true, nameplate38 = true, nameplate39 = true, nameplate40 = true,
	}
	local bossUnits = {
		boss1 = true, boss2 = true, boss3 = true, boss4 = true, boss5 = true,
		boss6 = true, boss7 = true, boss8 = true, boss9 = true, boss10 = true,
		boss11 = true, boss12 = true, boss13 = true, boss14 = true, boss15 = true,
		arena1 = true, arena2 = true, arena3 = true, arena4 = true, arena5 = true,
	}
	local groupList = {
		player = true, party1 = true, party2 = true, party3 = true, party4 = true,
		raid1 = true, raid2 = true, raid3 = true, raid4 = true, raid5 = true, raid6 = true, raid7 = true, raid8 = true, raid9 = true, raid10 = true,
		raid11 = true, raid12 = true, raid13 = true, raid14 = true, raid15 = true, raid16 = true, raid17 = true, raid18 = true, raid19 = true, raid20 = true,
		raid21 = true, raid22 = true, raid23 = true, raid24 = true, raid25 = true, raid26 = true, raid27 = true, raid28 = true, raid29 = true, raid30 = true,
		raid31 = true, raid32 = true, raid33 = true, raid34 = true, raid35 = true, raid36 = true, raid37 = true, raid38 = true, raid39 = true, raid40 = true
	}
	local function safeUnit(unit)
		if bossUnits[unit] then -- Accept any boss unit
			return true
		elseif wantedUnits[unit] and not UnitIsUnit("player", unit) and not UnitInRaid(unit) and not UnitInParty(unit) then
			for k in next, bossUnits do
				local isBossUnit = UnitIsUnit(unit, k)
				if not issecretvalue(isBossUnit) and isBossUnit then -- Reject if the unit is also a boss unit
					return false
				end
			end
			return true
		end
	end

	function sh.UNIT_SPELLCAST_STOP(unit, castId, spellId, ...)
		local isSecret = issecretvalue(spellId)
		if isSecret then
			if bossUnits[unit] or unit == "target" then
				local info = strjoin(":", tostringall(mapvalues(ReplaceSecrets, unit, castId, spellId, ...)))
				return format("%s#%s#{Target:%s} [[%s]]", TSUnitName(unit), TSUnitGUID(unit), TSUnitName(unit.."target"), info)
			end
		elseif safeUnit(unit) then
			local maxHP = UnitHealthMax(unit)
			local maxPower = UnitPowerMax(unit)
			local hp = maxHP == 0 and maxHP or (UnitHealth(unit) / maxHP * 100)
			local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
			return format("%s(%.1f%%-%.1f%%){Target:%s} -%s- [[%s]]", TSUnitName(unit), hp, power, TSUnitName(unit.."target"), GetSpellName(spellId), strjoin(":", tostringall(unit, castId, spellId, ...)))
		end
	end
	sh.UNIT_SPELLCAST_CHANNEL_STOP = sh.UNIT_SPELLCAST_STOP

	function sh.UNIT_SPELLCAST_INTERRUPTED(unit, castId, spellId, ...)
		local isSecret = issecretvalue(spellId)
		if isSecret then
			if bossUnits[unit] or unit == "target" then
				local info = strjoin(":", tostringall(mapvalues(ReplaceSecrets, unit, castId, spellId, ...)))
				return format("%s#%s#{Target:%s} [[%s]]", mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitGUID(unit), TSUnitName(unit.."target"), info))
			end
		elseif safeUnit(unit) then
			if TIMERS_SPECIAL_EVENTS.UNIT_SPELLCAST_INTERRUPTED[spellId] then
				local name = TIMERS_SPECIAL_EVENTS.UNIT_SPELLCAST_INTERRUPTED[spellId][MobId(UnitGUID(unit))]
				if name then
					InsertSpecialEvent(name)
				end
			end

			local maxHP = UnitHealthMax(unit)
			local maxPower = UnitPowerMax(unit)
			local hp = maxHP == 0 and maxHP or (UnitHealth(unit) / maxHP * 100)
			local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
			return format("%s(%.1f%%-%.1f%%){Target:%s} -%s- [[%s]]", TSUnitName(unit), hp, power, TSUnitName(unit.."target"), GetSpellName(spellId), strjoin(":", tostringall(unit, castId, spellId, ...)))
		end
	end

	local prevCast = nil
	function sh.UNIT_SPELLCAST_SUCCEEDED(unit, castId, spellId, ...)
		local isSecret = issecretvalue(spellId)
		if isSecret then
			if bossUnits[unit] or unit == "target" then
				return format("%s#%s#{Target:%s} [[%s]]", mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitGUID(unit), TSUnitName(unit.."target"), strjoin(":", tostringall(mapvalues(ReplaceSecrets, unit, castId, spellId, ...)))))
			end
		elseif safeUnit(unit) then
			if castId ~= prevCast then
				prevCast = castId
				if not compareUnitSuccess then compareUnitSuccess = {} end
				if not compareUnitSuccess[spellId] then compareUnitSuccess[spellId] = {} end
				local npcId = MobId(UnitGUID(unit), true)
				if not compareUnitSuccess[spellId][npcId] then
					if previousSpecialEvent then
						compareUnitSuccess[spellId][npcId] = {{compareStartTime, previousSpecialEvent[1], previousSpecialEvent[2]}}
					else
						compareUnitSuccess[spellId][npcId] = {compareStartTime}
					end
				end
				compareUnitSuccess[spellId][npcId][#compareUnitSuccess[spellId][npcId]+1] = debugprofilestop()

				if TIMERS_SPECIAL_EVENTS.UNIT_SPELLCAST_SUCCEEDED[spellId] then
					local npcIdBasic = MobId((UnitGUID(unit)))
					local name = TIMERS_SPECIAL_EVENTS.UNIT_SPELLCAST_SUCCEEDED[spellId][npcIdBasic]
					if name then
						InsertSpecialEvent(name)
					end
				end
			end

			local maxHP = UnitHealthMax(unit)
			local maxPower = UnitPowerMax(unit)
			local hp = maxHP == 0 and maxHP or (UnitHealth(unit) / maxHP * 100)
			local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
			return format("%s(%.1f%%-%.1f%%){Target:%s} -%s- [[%s]]", TSUnitName(unit), hp, power, TSUnitName(unit.."target"), GetSpellName(spellId), strjoin(":", tostringall(unit, castId, spellId, ...)))
		elseif groupList[unit] and not PLAYER_SPELL_BLOCKLIST[spellId] then
			if not playerSpellCollector[spellId] then
				playerSpellCollector[spellId] = strjoin("#", tostringall(spellId, GetSpellName(spellId), unit, TSUnitName(unit)))
			end
			if castId ~= prevCast then
				prevCast = castId
				return format("PLAYER_SPELL{%s} -%s- [[%s]]", TSUnitName(unit), GetSpellName(spellId), strjoin(":", tostringall(unit, castId, spellId, ...)))
			end
		end
	end
	function sh.UNIT_SPELLCAST_START(unit, castId, spellId, ...)
		local isSecret = issecretvalue(spellId)
		if isSecret then
			if bossUnits[unit] or unit == "target" then
				return format("%s#%s#{Target:%s} [[%s]]", mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitGUID(unit), TSUnitName(unit.."target"), strjoin(":", tostringall(mapvalues(ReplaceSecrets, unit, castId, spellId, ...)))))
			end
		elseif safeUnit(unit) then
			local _, _, _, startTime, endTime = UnitCastingInfo(unit)
			local time = ((endTime or 0) - (startTime or 0)) / 1000

			local maxHP = UnitHealthMax(unit)
			local maxPower = UnitPowerMax(unit)
			local hp = maxHP == 0 and maxHP or (UnitHealth(unit) / maxHP * 100)
			local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
			return format("%s(%.1f%%-%.1f%%){Target:%s} -%s- %ss [[%s]]", TSUnitName(unit), hp, power, TSUnitName(unit.."target"), GetSpellName(spellId), time, strjoin(":", tostringall(unit, castId, spellId, ...)))
		end
	end
	function sh.UNIT_SPELLCAST_CHANNEL_START(unit, castId, spellId, ...)
		local isSecret = issecretvalue(spellId)
		if isSecret then
			if bossUnits[unit] or unit == "target" then
				return format("%s#%s#{Target:%s} [[%s]]", mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitGUID(unit), TSUnitName(unit.."target"), strjoin(":", tostringall(mapvalues(ReplaceSecrets, unit, castId, spellId, ...)))))
			end
		elseif safeUnit(unit) then
			local _, _, _, startTime, endTime = UnitChannelInfo(unit)
			local time = ((endTime or 0) - (startTime or 0)) / 1000

			local maxHP = UnitHealthMax(unit)
			local maxPower = UnitPowerMax(unit)
			local hp = maxHP == 0 and maxHP or (UnitHealth(unit) / maxHP * 100)
			local power = maxPower == 0 and maxPower or (UnitPower(unit) / maxPower * 100)
			return format("%s(%.1f%%-%.1f%%){Target:%s} -%s- %ss [[%s]]", TSUnitName(unit), hp, power, TSUnitName(unit.."target"), GetSpellName(spellId), time, strjoin(":", tostringall(unit, castId, spellId, ...)))
		end
	end

	function sh.UNIT_TARGET(unit)
		if safeUnit(unit) then
			if mapvalues then
				return format("%s#%s#Target: %s#TargetOfTarget: %s", unit, tostringall(mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitName(unit.."target"), TSUnitName(unit.."targettarget"))))
			else
				return format("%s#%s#Target: %s#TargetOfTarget: %s", unit, tostring(TSUnitName(unit)), tostring(TSUnitName(unit.."target")), tostring(TSUnitName(unit.."targettarget")))
			end
		end
	end
end

function sh.PLAYER_TARGET_CHANGED()
	local guid = UnitGUID("target")
	if guid and not UnitInRaid("target") and not UnitInParty("target") then
		local level = UnitLevel("target") or "nil"
		local reaction = "Hostile"
		if UnitIsFriend("target", "player") then reaction = "Friendly" end
		local classification = UnitClassification("target") or "nil"
		local creatureType = UnitCreatureType("target") or "nil"
		local typeclass = classification == "normal" and creatureType or (classification.." "..creatureType)
		local name = TSUnitName("target")
		if mapvalues then
			return (format("%s %s (%s) - %s # %s", tostringall(mapvalues(ReplaceSecrets, level, reaction, typeclass, name, guid))))
		else
			return (format("%s %s (%s) - %s # %s", tostring(level), tostring(reaction), tostring(typeclass), tostring(name), tostring(guid)))
		end
	end
end

function sh.UNIT_TARGETABLE_CHANGED(unit)
	if not issecretvalue(unit) then
		if mapvalues then
			return format("-%s- [CanAttack:%s#Exists:%s#IsVisible:%s#Name:%s#GUID:%s#Classification:%s#Health:%s]", tostringall(unit, mapvalues(ReplaceSecrets, UnitCanAttack("player", unit), UnitExists(unit), UnitIsVisible(unit), TSUnitName(unit), TSUnitGUID(unit), UnitClassification(unit), (UnitHealth(unit)))))
		else
			return format("-%s- [CanAttack:%s#Exists:%s#IsVisible:%s#Name:%s#GUID:%s#Classification:%s#Health:%s]", tostringall(unit, UnitCanAttack("player", unit), UnitExists(unit), UnitIsVisible(unit), TSUnitName(unit), TSUnitGUID(unit), UnitClassification(unit), (UnitHealth(unit))))
		end
	else
		return "<secret>"
	end
end

do
	local allowedPowerUnits = {
		boss1 = true, boss2 = true, boss3 = true, boss4 = true, boss5 = true,
		boss6 = true, boss7 = true, boss8 = true, boss9 = true, boss10 = true,
		boss11 = true, boss12 = true, boss13 = true, boss14 = true, boss15 = true,
		arena1 = true, arena2 = true, arena3 = true, arena4 = true, arena5 = true,
		arenapet1 = true, arenapet2 = true, arenapet3 = true, arenapet4 = true, arenapet5 = true
	}
	function sh.UNIT_POWER_UPDATE(unit, typeName)
		if not allowedPowerUnits[unit] then return end
		local currentPower =  UnitPower(unit)
		if issecretvalue(currentPower) then return end
		local powerType = format("TYPE:%s/%d", typeName, UnitPowerType(unit))
		local mainPower = format("MAIN:%d/%d", currentPower, UnitPowerMax(unit))
		local altPower = format("ALT:%d/%d", UnitPower(unit, 10), UnitPowerMax(unit, 10))
		return strjoin("#", unit, TSUnitName(unit), powerType, mainPower, altPower)
	end
end

local GetCriteriaInfo = C_ScenarioInfo and C_ScenarioInfo.GetCriteriaInfo or function(...)
	local criteriaString, criteriaType, completed, quantity, totalQuantity, flags, assetID, _, criteriaID, duration, elapsed, criteriaFailed, isWeightedProgress = C_Scenario.GetCriteriaInfo(...)
	return {
		["description"] = criteriaString,
		["criteriaType"] = criteriaType,
		["completed"] = completed,
		["quantity"] = quantity,
		["totalQuantity"] = totalQuantity,
		["flags"] = flags,
		["assetID"] = assetID,
		["criteriaID"] = criteriaID,
		["duration"] = duration,
		["elapsed"] = elapsed,
		["failed"] = criteriaFailed,
		["isWeightedProgress"] = isWeightedProgress,
	}
end
function sh.SCENARIO_UPDATE(newStep)
	--Proving Grounds
	local ret = ""
	if C_Scenario.GetInfo() == "Proving Grounds" then
		local diffID, currWave, maxWave, duration = C_Scenario.GetProvingGroundsInfo()
		ret = "currentMedal:"..diffID.." currWave: "..currWave.." maxWave: "..maxWave.." duration: "..duration
	end

	local ret2 = "#newStep#" .. tostring(newStep)
	ret2 = ret2 .. "#Info#" .. strjoin("#", tostringall(C_Scenario.GetInfo()))
	ret2 = ret2 .. "#StepInfo#" .. strjoin("#", tostringall(C_Scenario.GetStepInfo()))
	if C_Scenario.GetBonusStepInfo then
		ret2 = ret2 .. "#BonusStepInfo#" .. strjoin("#", tostringall(C_Scenario.GetBonusStepInfo()))
	end

	local ret3 = ""
	local _, _, numCriteria = C_Scenario.GetStepInfo()
	for i = 1, numCriteria do
		local info = GetCriteriaInfo(i)
		ret3 = ret3 .. "#CriteriaInfo" .. i .. "#" .. strjoin("#", tostringall(info.description, info.criteriaType, info.completed, info.quantity, info.totalQuantity, info.flags, info.assetID, info.criteriaID, info.duration, info.elapsed, info.failed, info.isWeightedProgress))
	end

	local ret4 = ""
	if C_Scenario.GetBonusStepInfo then
		local _, _, numBonusCriteria, _ = C_Scenario.GetBonusStepInfo()
		for i = 1, numBonusCriteria do
			ret4 = ret4 .. "#BonusCriteriaInfo" .. i .. "#" .. strjoin("#", tostringall(C_Scenario.GetBonusCriteriaInfo(i)))
		end
	end

	return ret .. ret2 .. ret3 .. ret4
end

function sh.SCENARIO_CRITERIA_UPDATE(criteriaID)
	local ret = "criteriaID#" .. tostring(criteriaID)
	ret = ret .. "#Info#" .. strjoin("#", tostringall(C_Scenario.GetInfo()))
	ret = ret .. "#StepInfo#" .. strjoin("#", tostringall(C_Scenario.GetStepInfo()))
	if C_Scenario.GetBonusStepInfo then
		ret = ret .. "#BonusStepInfo#" .. strjoin("#", tostringall(C_Scenario.GetBonusStepInfo()))
	end

	local ret2 = ""
	local _, _, numCriteria = C_Scenario.GetStepInfo()
	for i = 1, numCriteria do
		local info = GetCriteriaInfo(i)
		ret2 = ret2 .. "#CriteriaInfo" .. i .. "#" .. strjoin("#", tostringall(info.description, info.criteriaType, info.completed, info.quantity, info.totalQuantity, info.flags, info.assetID, info.criteriaID, info.duration, info.elapsed, info.failed, info.isWeightedProgress))
	end

	local ret3 = ""
	if C_Scenario.GetBonusStepInfo then
		local _, _, numBonusCriteria, _ = C_Scenario.GetBonusStepInfo()
		for i = 1, numBonusCriteria do
			ret3 = ret3 .. "#BonusCriteriaInfo" .. i .. "#" .. strjoin("#", tostringall(C_Scenario.GetBonusCriteriaInfo(i)))
		end
	end

	return ret .. ret2 .. ret3
end

function sh.PLAYER_MAP_CHANGED(...)
	return strjoin("#", ...)
end

function sh.ZONE_CHANGED(...)
	return strjoin("#", GetZoneText() or "?", GetRealZoneText() or "?", GetSubZoneText() or "?", ...)
end
sh.ZONE_CHANGED_INDOORS = sh.ZONE_CHANGED
sh.ZONE_CHANGED_NEW_AREA = sh.ZONE_CHANGED

function sh.CINEMATIC_START(...)
	local id = -(GetBestMapForUnit("player"))
	return strjoin("#", "uiMapID:", id, "Real Args:", tostringall(...))
end

function sh.CHAT_MSG_ADDON(prefix, msg, channel, sender)
	if not issecretvalue(msg) and prefix == "Transcriptor" and (channel == "RAID" or channel == "PARTY" or channel == "INSTANCE_CHAT") then
		return strjoin("#", "RAID_BOSS_WHISPER_SYNC", msg, sender)
	end
end

function sh.CHAT_MSG_RAID_BOSS_EMOTE(msg, npcName, ...)
	if issecretvalue(msg) then
		return strjoin("#", tostringall(mapvalues(ReplaceSecrets, msg, npcName, ...)))
	end

	local id = strmatch(msg, "|Hspell:([^|]+)|h")
	if id then
		local spellId = tonumber(id)
		if spellId then
			if not compareEmotes then compareEmotes = {} end
			if not compareEmotes[spellId] then compareEmotes[spellId] = {} end
			if not compareEmotes[spellId][npcName] then
				if previousSpecialEvent then
					compareEmotes[spellId][npcName] = {{compareStartTime, previousSpecialEvent[1], previousSpecialEvent[2]}}
				else
					compareEmotes[spellId][npcName] = {compareStartTime}
				end
			end
			compareEmotes[spellId][npcName][#compareEmotes[spellId][npcName]+1] = debugprofilestop()
		end
	end
	return strjoin("#", msg, npcName, tostringall(...))
end

function sh.CHAT_MSG_RAID_BOSS_WHISPER(...)
	if mapvalues then
		return strjoin("#", tostringall(mapvalues(ReplaceSecrets, ...)))
	else
		return strjoin("#", tostringall(...))
	end
end

function sh.CHAT_MSG_MONSTER_YELL(...)
	if mapvalues then
		return strjoin("#", tostringall(mapvalues(ReplaceSecrets, ...)))
	else
		return strjoin("#", tostringall(...))
	end
end
sh.CHAT_MSG_MONSTER_EMOTE = sh.CHAT_MSG_MONSTER_YELL
sh.CHAT_MSG_MONSTER_SAY = sh.CHAT_MSG_MONSTER_YELL
sh.CHAT_MSG_MONSTER_WHISPER = sh.CHAT_MSG_MONSTER_YELL

do
	local events = {}
	do
		local codes = {
			[0] = "Active",
			[1] = "Paused",
			[2] = "Finished",
			[3] = "Canceled",
		}

		do
			local entriesInTable = {
				"id",
				"source",
				"spellName",
				"spellID",
				"iconFileID",
				"duration",
				"maxQueueDuration",
				"icons",
				"severity",
				"isApproximate",
			}
			local entriesToBlock = {
				color = true,
			}
			function sh.ENCOUNTER_TIMELINE_EVENT_ADDED(eventInfo)
				if eventInfo.source ~= 0 then return end -- Enum.EncounterTimelineEventSource.Encounter
				events[eventInfo.id] = true
				local msgTable = {}

				local state = C_EncounterTimeline.GetEventState(eventInfo.id)
				msgTable[1] = ("State: %d (%s)"):format(state, codes[state])

				for i = 1, #entriesInTable do
					local entry = entriesInTable[i]
					local value = eventInfo[entry]
					if not issecretvalue(value) then
						if value then
							msgTable[#msgTable+1] = entry
							msgTable[#msgTable+1] = tostring(value)
						end
					else
						msgTable[#msgTable+1] = entry
						msgTable[#msgTable+1] = "<secret>"
					end
				end
				for k,v in next, eventInfo do
					if not tContains(entriesInTable, k) and not entriesToBlock[k] then
						if not issecretvalue(v) then
							msgTable[#msgTable+1] = k
							msgTable[#msgTable+1] = tostring(v)
						else
							msgTable[#msgTable+1] = k
							msgTable[#msgTable+1] = "<secret>"
						end
					end
				end
				local msg = tconcat(msgTable, "#")
				return msg
			end
		end

		function sh.ENCOUNTER_TIMELINE_EVENT_STATE_CHANGED(eventID)
			if events[eventID] then
				local newState = C_EncounterTimeline.GetEventState(eventID)
				local text = ("State: %d (%s)"):format(newState, codes[newState])
				return strjoin("#", eventID, text)
			end
		end
	end

	function sh.ENCOUNTER_TIMELINE_EVENT_REMOVED(eventID)
		if events[eventID] then
			events[eventID] = nil
			return strjoin("#", eventID)
		end
	end
end

do
	local entriesInTable = {
		"text",
		"casterGUID",
		"casterName",
		"targetGUID",
		"targetName",
		"iconFileID",
		"tooltipSpellID",
		"isDeadly",
		"duration",
		"severity",
		"shouldPlaySound",
		"shouldShowChatMessage",
		"shouldShowWarning",
	}
	local entriesToBlock = {
		color = true,
	}
	function sh.ENCOUNTER_WARNING(encounterWarningInfo)
		local msgTable = {}
		for i = 1, #entriesInTable do
			local entry = entriesInTable[i]
			local value = encounterWarningInfo[entry]
			if not issecretvalue(value) then
				if value then
					msgTable[#msgTable+1] = entry
					msgTable[#msgTable+1] = tostring(value)
				end
			else
				msgTable[#msgTable+1] = entry
				msgTable[#msgTable+1] = "<secret>"
			end
		end
		for k,v in next, encounterWarningInfo do
			if not tContains(entriesInTable, k) and not entriesToBlock[k] then
				if not issecretvalue(v) then
					msgTable[#msgTable+1] = k
					msgTable[#msgTable+1] = tostring(v)
				else
					msgTable[#msgTable+1] = k
					msgTable[#msgTable+1] = "<secret>"
				end
			end
		end
		local msg = tconcat(msgTable, "#")
		return msg
	end
end

do
	local GetAuraDataByIndex = C_UnitAuras.GetAuraDataByIndex
	function sh.UNIT_AURA(unit, updateInfo)
		if not updateInfo or updateInfo.isFullUpdate then
			for i = 1, 100 do
				local auraTbl = GetAuraDataByIndex(unit, i, "HARMFUL")
				if not auraTbl then
					break
				else
					local spellId = auraTbl.spellId
					if not hiddenAuraEngageList[spellId] and not hiddenUnitAuraCollector[spellId] and not hiddenAuraPermList[spellId] and not PLAYER_SPELL_BLOCKLIST[spellId] then
						if UnitIsVisible(unit) then
							if auraTbl.isBossAura then
								hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("BOSS_DEBUFF", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
							else
								hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall(spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
							end
						else -- If it's not visible it may not show up in CLEU, use this as an indicator of a false positive
							hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("UNIT_NOT_VISIBLE", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
						end
					end
				end
			end
			for i = 1, 100 do
				local auraTbl = GetAuraDataByIndex(unit, i, "HELPFUL")
				if not auraTbl then
					break
				else
					local spellId = auraTbl.spellId
					if not hiddenAuraEngageList[spellId] and not hiddenUnitAuraCollector[spellId] and not hiddenAuraPermList[spellId] and not PLAYER_SPELL_BLOCKLIST[spellId] then
						if UnitIsVisible(unit) then
							if auraTbl.isBossAura then
								hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("BOSS_BUFF", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
							else
								hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall(spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
							end
						else -- If it's not visible it may not show up in CLEU, use this as an indicator of a false positive
							hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("UNIT_NOT_VISIBLE", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
						end
					end
				end
			end
		elseif updateInfo.addedAuras then
			for i = 1, #updateInfo.addedAuras do
				local auraTbl = updateInfo.addedAuras[i]
				local spellId = auraTbl.spellId

				if not hiddenAuraEngageList[spellId] and not hiddenUnitAuraCollector[spellId] and not hiddenAuraPermList[spellId] and not PLAYER_SPELL_BLOCKLIST[spellId] then
					if UnitIsVisible(unit) then
						if auraTbl.isBossAura then
							hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("BOSS_BUFF", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
						else
							hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall(spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
						end
					else -- If it's not visible it may not show up in CLEU, use this as an indicator of a false positive
						hiddenUnitAuraCollector[spellId] = strjoin("#", tostringall("UNIT_NOT_VISIBLE", spellId, auraTbl.name, auraTbl.duration, unit, TSUnitName(unit)))
					end
				end
			end
		end
	end
end

function sh.NAME_PLATE_UNIT_ADDED(unit)
	local guid = UnitGUID(unit)
	if not issecretvalue(guid) and not collectNameplates[guid] then
		collectNameplates[guid] = true
		local name = TSUnitName(unit)
		return strjoin("#", name, guid)
	end
end

function sh.GOSSIP_SHOW()
	local guid = UnitGUID("npc")
	local gossipOptions = C_GossipInfo_GetOptions()
	if gossipOptions[1] then
		local gossipTbl = {}
		for i = 1, #gossipOptions do
			gossipTbl[i] = strjoin(":", gossipOptions[i].gossipOptionID or "nil", gossipOptions[i].name or "")
		end
		return strjoin("#", "GUID", ReplaceSecrets(guid), tconcat(gossipTbl, ","))
	end
end

function sh.ENCOUNTER_END(id, name, diff, size, status, unitInfo)
	local tbl = {}

	local collectedUnits = ""
	if unitInfo then
		for i = 1, #unitInfo do
			local unitTable = unitInfo[i]
			if not tbl[unitTable.creatureID] then
				tbl[unitTable.creatureID] = 1
			else
				tbl[unitTable.creatureID] = tbl[unitTable.creatureID] + 1
			end
		end
		for k,v in next, tbl do
			collectedUnits = collectedUnits .. k .. "(" .. v .. "),"
		end
	end
	return strjoin("#", id, name, diff, size, status, collectedUnits)
end

local wowEvents = {
	-- Raids
	"CHAT_MSG_ADDON",
	"ENCOUNTER_TIMELINE_EVENT_ADDED",
	"ENCOUNTER_TIMELINE_EVENT_REMOVED",
	"ENCOUNTER_TIMELINE_EVENT_STATE_CHANGED",
	"ENCOUNTER_WARNING",
	"CHAT_MSG_RAID_WARNING",
	"PLAYER_REGEN_DISABLED",
	"PLAYER_REGEN_ENABLED",
	"CHAT_MSG_MONSTER_EMOTE",
	"CHAT_MSG_MONSTER_SAY",
	"CHAT_MSG_MONSTER_WHISPER",
	"CHAT_MSG_MONSTER_YELL",
	"CHAT_MSG_RAID_BOSS_EMOTE",
	"CHAT_MSG_RAID_BOSS_WHISPER",
	"RAID_BOSS_EMOTE",
	"RAID_BOSS_WHISPER",
	"PLAYER_TARGET_CHANGED",
	"UNIT_SPELLCAST_START",
	"UNIT_SPELLCAST_STOP",
	"UNIT_SPELLCAST_SUCCEEDED",
	"UNIT_SPELLCAST_INTERRUPTED",
	"UNIT_SPELLCAST_CHANNEL_START",
	"UNIT_SPELLCAST_CHANNEL_STOP",
	"UNIT_POWER_UPDATE",
	"UPDATE_UI_WIDGET",
	"UNIT_TARGET",
	"INSTANCE_ENCOUNTER_ENGAGE_UNIT",
	"UNIT_TARGETABLE_CHANGED",
	"ENCOUNTER_START",
	"ENCOUNTER_END",
	"BOSS_KILL",
	"PLAYER_MAP_CHANGED",
	"ZONE_CHANGED",
	"ZONE_CHANGED_INDOORS",
	"ZONE_CHANGED_NEW_AREA",
	"NAME_PLATE_UNIT_ADDED",
	"GOSSIP_SHOW",
	-- Scenarios
	"SCENARIO_UPDATE",
	"SCENARIO_CRITERIA_UPDATE",
	-- Movies
	"PLAY_MOVIE",
	"CINEMATIC_START",
	-- Battlegrounds
	"START_TIMER",
	"CHAT_MSG_BG_SYSTEM_HORDE",
	"CHAT_MSG_BG_SYSTEM_ALLIANCE",
	"CHAT_MSG_BG_SYSTEM_NEUTRAL",
	"ARENA_OPPONENT_UPDATE",
}
if not RETAIL then
	wowEvents[#wowEvents+1] = "COMBAT_LOG_EVENT_UNFILTERED"
	wowEvents[#wowEvents+1] = "UNIT_AURA"
end

local eventCategories = {
	PLAYER_REGEN_DISABLED = "COMBAT",
	PLAYER_REGEN_ENABLED = "COMBAT",
	ENCOUNTER_START = "COMBAT",
	ENCOUNTER_END = "COMBAT",
	BOSS_KILL = "COMBAT",
	ENCOUNTER_TIMELINE_EVENT_ADDED = "ENCOUNTER",
	ENCOUNTER_TIMELINE_EVENT_REMOVED = "ENCOUNTER",
	ENCOUNTER_TIMELINE_EVENT_STATE_CHANGED = "ENCOUNTER",
	ENCOUNTER_WARNING = "ENCOUNTER",
	INSTANCE_ENCOUNTER_ENGAGE_UNIT = "COMBAT",
	UNIT_TARGETABLE_CHANGED = "COMBAT",
	CHAT_MSG_MONSTER_EMOTE = "MONSTER",
	CHAT_MSG_MONSTER_SAY = "MONSTER",
	CHAT_MSG_MONSTER_WHISPER = "MONSTER",
	CHAT_MSG_MONSTER_YELL = "MONSTER",
	CHAT_MSG_RAID_BOSS_EMOTE = "MONSTER",
	CHAT_MSG_RAID_BOSS_WHISPER = "MONSTER",
	RAID_BOSS_EMOTE = "MONSTER",
	RAID_BOSS_WHISPER = "MONSTER",
	UNIT_SPELLCAST_START = "UNIT_SPELLCAST",
	UNIT_SPELLCAST_STOP = "UNIT_SPELLCAST",
	UNIT_SPELLCAST_SUCCEEDED = "UNIT_SPELLCAST",
	UNIT_SPELLCAST_INTERRUPTED = "UNIT_SPELLCAST",
	UNIT_SPELLCAST_CHANNEL_START = "UNIT_SPELLCAST",
	UNIT_SPELLCAST_CHANNEL_STOP = "UNIT_SPELLCAST",
	UNIT_TARGET = "UNIT_SPELLCAST",
	PLAYER_MAP_CHANGED = "ZONE_CHANGED",
	ZONE_CHANGED = "ZONE_CHANGED",
	ZONE_CHANGED_INDOORS = "ZONE_CHANGED",
	ZONE_CHANGED_NEW_AREA = "ZONE_CHANGED",
	SCENARIO_UPDATE = "SCENARIO",
	SCENARIO_CRITERIA_UPDATE = "SCENARIO",
	PLAY_MOVIE = "MOVIE",
	CINEMATIC_START = "MOVIE",
	START_TIMER = "PVP",
	CHAT_MSG_BG_SYSTEM_HORDE = "PVP",
	CHAT_MSG_BG_SYSTEM_ALLIANCE = "PVP",
	CHAT_MSG_BG_SYSTEM_NEUTRAL = "PVP",
	ARENA_OPPONENT_UPDATE = "PVP",
	BigWigs_Message = "BigWigs",
	BigWigs_StartBar = "BigWigs",
	BigWigs_SetStage = "BigWigs",
	BigWigs_PauseBar = "BigWigs",
	BigWigs_ResumeBar = "BigWigs",
	BigWigs_SetRaidIcon = "BigWigs",
	BigWigs_RemoveRaidIcon = "BigWigs",
	BigWigs_VictorySound = "BigWigs",
	BigWigs_BossComm = "BigWigs",
	BigWigs_StopBars = "BigWigs",
	BigWigs_ShowAltPower = "BigWigs",
	BigWigs_HideAltPower = "BigWigs",
	BigWigs_ShowProximity = "BigWigs",
	BigWigs_HideProximity = "BigWigs",
	BigWigs_ShowInfoBox = "BigWigs",
	BigWigs_HideInfoBox = "BigWigs",
	BigWigs_SetInfoBoxLine = "BigWigs",
	BigWigs_SetInfoBoxTitle = "BigWigs",
	BigWigs_SetInfoBoxBar = "BigWigs",
	BigWigs_StartNameplate = "BigWigs",
	BigWigs_StopNameplate = "BigWigs",
	BigWigs_ClearNameplate = "BigWigs",
	DBM_Announce = "DBM",
	DBM_Debug = "DBM",
	DBM_TimerBegin = "DBM",
	DBM_TimerStop = "DBM",
	DBM_TimerUpdate = "DBM",
	DBM_TimerPause = "DBM",
	DBM_TimerResume = "DBM",
	DBM_NameplateStart = "DBM",
	DBM_NameplateStop = "DBM",
	DBM_NameplatePause = "DBM",
	DBM_NameplateResume = "DBM",
	DBM_EnemyEngaged = "DBM",
	PLAYER_TARGET_CHANGED = "NONE",
	CHAT_MSG_ADDON = "NONE",
	CHAT_MSG_RAID_WARNING = "NONE",
	NAME_PLATE_UNIT_ADDED = "NONE",
	GOSSIP_SHOW = "NONE",
}
Transcriptor.EventCategories = eventCategories

local bwEvents = {
	"BigWigs_Message",
	"BigWigs_StartBar",
	"BigWigs_SetStage",
	"BigWigs_PauseBar",
	"BigWigs_ResumeBar",
	"BigWigs_SetRaidIcon",
	"BigWigs_RemoveRaidIcon",
	"BigWigs_VictorySound",
	"BigWigs_BossComm",
	"BigWigs_StopBars",
	"BigWigs_ShowAltPower",
	"BigWigs_HideAltPower",
	"BigWigs_ShowProximity",
	"BigWigs_HideProximity",
	"BigWigs_ShowInfoBox",
	"BigWigs_HideInfoBox",
	"BigWigs_SetInfoBoxLine",
	"BigWigs_SetInfoBoxTitle",
	"BigWigs_SetInfoBoxBar",
	"BigWigs_StartNameplate",
	"BigWigs_StopNameplate",
	"BigWigs_ClearNameplate",
}
local dbmEvents = {
	"DBM_Announce",
	"DBM_Debug",
	"DBM_TimerBegin",
	"DBM_TimerStop",
	"DBM_TimerUpdate",
	"DBM_TimerPause",
	"DBM_TimerResume",
	"DBM_NameplateStart",
	"DBM_NameplateStop",
	"DBM_NameplatePause",
	"DBM_NameplateResume",
	"DBM_EnemyEngaged",
}
local eventHandler
do
	local bossUnits = {
		"boss1", "boss2", "boss3", "boss4", "boss5",
		"boss6", "boss7", "boss8", "boss9", "boss10",
		"boss11", "boss12", "boss13", "boss14", "boss15",
		"arena1", "arena2", "arena3", "arena4", "arena5",
	}

	function eventHandler(_, event, ...)
		if TranscriptIgnore[event] then return end
		local line
		if sh[event] then
			line = sh[event](...)
		else
			line = strjoin("#", tostringall(...))
		end
		if not line then return end
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		-- We only have CLEU in the total log, it's way too much information to log twice.
		if event == "COMBAT_LOG_EVENT_UNFILTERED" then
			currentLog.total[#currentLog.total+1] = format("<%.2f %s> [CLEU] %s", t, time, line)
		elseif event == "INSTANCE_ENCOUNTER_ENGAGE_UNIT" then
			local text = format("<%.2f %s> [%s] %s", t, time, event, line)
			currentLog.total[#currentLog.total+1] = text
			local cat = eventCategories[event] or event
			if cat ~= "NONE" then
				if type(currentLog[cat]) ~= "table" then currentLog[cat] = {} end
				tinsert(currentLog[cat], text)
			end

			local hasBosses = false
			for i = 1, #bossUnits do
				local unit = bossUnits[i]
				local guid = UnitGUID(unit)
				if guid then
					hasBosses = true
					if mapvalues then
						local info = strjoin("#", tostringall(mapvalues(ReplaceSecrets,
							"Name", TSUnitName(unit),
							"GUID", guid,
							"Health", UnitHealth(unit),
							"MaxHealth", UnitHealthMax(unit),
							"Exists", UnitExists(unit),
							"Visible", UnitIsVisible(unit),
							"CanAttack", UnitCanAttack("player", unit),
							"ShowUninteractable", ShowBossFrameWhenUninteractable(unit))
						))
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IEEU %s] %s", t, time, unit, info)
					else
						local info = strjoin("#", tostringall(
							"Name", TSUnitName(unit),
							"GUID", guid,
							"Health", UnitHealth(unit),
							"MaxHealth", UnitHealthMax(unit),
							"Exists", UnitExists(unit),
							"Visible", UnitIsVisible(unit),
							"CanAttack", UnitCanAttack("player", unit),
							"ShowUninteractable", ShowBossFrameWhenUninteractable(unit))
						)
						currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IEEU %s] %s", t, time, unit, info)
					end
				end
			end
			if not hasBosses then
				currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IEEU] No bosses found", t, time)
			end
		elseif event == "ENCOUNTER_START" then
			local text = format("<%.2f %s> [%s] %s", t, time, event, line)
			currentLog.total[#currentLog.total+1] = text
			local cat = eventCategories[event] or event
			if cat ~= "NONE" then
				if type(currentLog[cat]) ~= "table" then currentLog[cat] = {} end
				tinsert(currentLog[cat], text)
			end

			local instanceInfoLine = strjoin("#", tostringall(GetInstanceInfo()))
			currentLog.total[#currentLog.total+1] = format("<%.2f %s> [GetInstanceInfo()] %s", t, time, instanceInfoLine)

			local UnitPosition, UnitClass = UnitPosition, UnitClass
			local _, _, _, myInstance = UnitPosition("player")
			for unit in Transcriptor:IterateGroup() do
				local _, _, _, tarInstanceId = UnitPosition(unit)
				if tarInstanceId == myInstance then
					local _, class = UnitClass(unit)
					local name = TSUnitName(unit)
					local specId, role, position, talents = nil, nil, nil, nil
					if playerSpecList[name] then
						specId, role, position, talents = playerSpecList[name][1], playerSpecList[name][2], playerSpecList[name][3], playerSpecList[name][4]
					end
					local playerInfoLine = strjoin("#", tostringall(name, class, TSUnitGUID(unit), specId, role, position, talents))
					currentLog.total[#currentLog.total+1] = format("<%.2f %s> [%s] %s", t, time, "PLAYER_INFO", playerInfoLine)
				end
			end
		else
			local text = format("<%.2f %s> [%s] %s", t, time, event, line)
			currentLog.total[#currentLog.total+1] = text
			local cat = eventCategories[event] or event
			if cat ~= "NONE" then
				if type(currentLog[cat]) ~= "table" then currentLog[cat] = {} end
				tinsert(currentLog[cat], text)
			end
		end
	end
end
eventFrame:SetScript("OnEvent", eventHandler)
eventFrame:SetScript("OnUpdate", function()
	if not inEncounter and IsEncounterInProgress() then
		inEncounter = true
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterInProgress()] true", t, time)
		if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
		tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterInProgress()] true", t, time))
	elseif inEncounter and not IsEncounterInProgress() then
		inEncounter = false
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterInProgress()] false", t, time)
		if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
		tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterInProgress()] false", t, time))
	end
	if not blockingRelease and IsEncounterSuppressingRelease() then
		blockingRelease = true
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterSuppressingRelease()] true", t, time)
		if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
		tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterSuppressingRelease()] true", t, time))
	elseif blockingRelease and not IsEncounterSuppressingRelease() then
		blockingRelease = false
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterSuppressingRelease()] false", t, time)
		if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
		tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterSuppressingRelease()] false", t, time))
	end
	if not limitingRes and IsEncounterLimitingResurrections() then
		limitingRes = true
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		local tbl = C_DeathInfo_GetSelfResurrectOptions()
		if tbl and tbl[1] then
			currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterLimitingResurrections()] true {%s}", t, time, tbl[1].name)
			if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
			tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterLimitingResurrections()] true {%s}", t, time, tbl[1].name))
		else
			currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterLimitingResurrections()] true", t, time)
			if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
			tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterLimitingResurrections()] true", t, time))
		end
	elseif limitingRes and not IsEncounterLimitingResurrections() then
		limitingRes = false
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IsEncounterLimitingResurrections()] false", t, time)
		if type(currentLog.COMBAT) ~= "table" then currentLog.COMBAT = {} end
		tinsert(currentLog.COMBAT, format("<%.2f %s> [IsEncounterLimitingResurrections()] false", t, time))
	end
end)

--------------------------------------------------------------------------------
-- Backup events
--

do
	local f = CreateFrame("Frame")
	f:RegisterEvent("ENCOUNTER_START")
	f:SetScript("OnEvent", function(_, ...)
		compareStartTime = debugprofilestop()
		twipe(TIMERS_SPECIAL_EVENTS_DATA)
		if not logging then
			logStartTime = compareStartTime / 1000
			prevEncounterStart = {...}
		end
	end)
end

--------------------------------------------------------------------------------
-- Addon
--

local setupMenu
do
	local function isSelected(v)
		return TranscriptIgnore[v]
	end
	local function setSelected(v)
		TranscriptIgnore[v] = not TranscriptIgnore[v] or nil
	end
	function setupMenu(_, root)
		root:SetScrollMode(400)
		root:CreateTitle(L["|cFFFFD200Transcriptor|r - Disabled Events"])
		for _, v in ipairs(Transcriptor.events) do
			root:CreateCheckbox(v, isSelected, setSelected, v)
		end
		root:CreateButton(CLOSE, function()
			return 4 -- MenuResponse.CloseAll
		end)
	end
end

local ldb = LibStub:GetLibrary("LibDataBroker-1.1"):NewDataObject("Transcriptor", {
	type = "data source",
	text = L["|cff696969Idle|r"],
	icon = "Interface\\AddOns\\Transcriptor\\icon_off",
	OnTooltipShow = function(tt)
		if logging then
			tt:AddLine(logName, 1, 1, 1, 1)
		else
			tt:AddLine(L["|cff696969Idle|r"], 1, 1, 1, 1)
		end
		tt:AddLine(" ")
		tt:AddLine(L["|cffeda55fClick|r to start or stop transcribing. |cffeda55fRight-Click|r to configure events. |cffeda55fAlt-Middle Click|r to clear all stored transcripts."], 0.2, 1, 0.2, 1)
	end,
	OnClick = function(self, button)
		if button == "LeftButton" then
			if not logging then
				Transcriptor:StartLog()
			else
				Transcriptor:StopLog()
			end
		elseif button == "RightButton" then
			MenuUtil.CreateContextMenu(self, setupMenu)
		elseif button == "MiddleButton" and IsAltKeyDown() then
			Transcriptor:ClearAll()
		end
	end,
})

Transcriptor.events = {}
local function insertMenuItems(tbl)
	for _, v in next, tbl do
		tinsert(Transcriptor.events, v)
	end
end

local init = CreateFrame("Frame")
init:SetScript("OnEvent", function(self, event)
	if type(TranscriptDB) ~= "table" then TranscriptDB = {} end
	if type(TranscriptIgnore) ~= "table" then TranscriptIgnore = {} end

	insertMenuItems(wowEvents)
	if BigWigsLoader then insertMenuItems(bwEvents) end
	if DBM then insertMenuItems(dbmEvents) end

	C_ChatInfo.RegisterAddonMessagePrefix("Transcriptor")

	SlashCmdList["TRANSCRIPTOR"] = function(input)
		if type(input) == "string" and input:lower() == "clear" then
			Transcriptor:ClearAll()
		else
			if not logging then
				Transcriptor:StartLog()
			else
				Transcriptor:StopLog()
			end
		end
	end
	SLASH_TRANSCRIPTOR1 = "/transcriptor"
	SLASH_TRANSCRIPTOR2 = "/transcript"
	SLASH_TRANSCRIPTOR3 = "/ts"

	local LibSpec = LibStub and LibStub("LibSpecialization", true)
	if LibSpec then
		LibSpec.RegisterGroup({}, function(specId, role, position, playerName, talents)
			playerSpecList[playerName] = {specId, role, position, talents}
		end)
	end

	self:UnregisterEvent(event)
	self:RegisterEvent("PLAYER_LOGOUT")
	self:SetScript("OnEvent", function()
		if Transcriptor:IsLogging() then
			Transcriptor:StopLog()
		end
	end)
end)
init:RegisterEvent("PLAYER_LOGIN")

--------------------------------------------------------------------------------
-- Logging
--

local function BWEventHandler(event, module, ...)
	if type(module) == "table" then
		if module.baseName == "BigWigs_CommonAuras" then return end
		if mapvalues then
			eventHandler(eventFrame, event, module.moduleName, mapvalues(ReplaceSecrets, ...))
		else
			eventHandler(eventFrame, event, module.moduleName, ...)
		end
	else
		if mapvalues then
			eventHandler(eventFrame, event, module, mapvalues(ReplaceSecrets, ...))
		else
			eventHandler(eventFrame, event, module, ...)
		end
	end
end

local function DBMEventHandler(...)
	if mapvalues then
		eventHandler(eventFrame, mapvalues(ReplaceSecrets, ...))
	else
		eventHandler(eventFrame, ...)
	end
end

do
	-- Ripped from BigWigs
	local raidList = {
		"raid1", "raid2", "raid3", "raid4", "raid5", "raid6", "raid7", "raid8", "raid9", "raid10",
		"raid11", "raid12", "raid13", "raid14", "raid15", "raid16", "raid17", "raid18", "raid19", "raid20",
		"raid21", "raid22", "raid23", "raid24", "raid25", "raid26", "raid27", "raid28", "raid29", "raid30",
		"raid31", "raid32", "raid33", "raid34", "raid35", "raid36", "raid37", "raid38", "raid39", "raid40"
	}
	local partyList = {"player", "party1", "party2", "party3", "party4"}
	local GetNumGroupMembers, IsInRaid = GetNumGroupMembers, IsInRaid
	function Transcriptor:IterateGroup()
		local num = GetNumGroupMembers() or 0
		local i = 0
		local size = num > 0 and num+1 or 2
		local function iter(t)
			i = i + 1
			if i < size then
				return t[i]
			end
		end
		return iter, IsInRaid() and raidList or partyList
	end
end

do
	local difficultyTbl = {
		[1] = "5Normal",
		[2] = "5Heroic",
		[3] = "10Normal",
		[4] = "25Normal",
		[5] = "10Heroic",
		[6] = "25Heroic",
		[7] = "25LFR",
		[8] = "Mythic+",
		[9] = "40Normal",
		[14] = "Normal",
		[15] = "Heroic",
		[16] = "Mythic",
		[17] = "LFR",
		[18] = "40Event",
		[19] = "5Event",
		[23] = "5Mythic",
		[24] = "5Timewalking",
		[33] = "RaidTimewalking",
		[148] = "20Normal",
		[175] = "10Normal",
		[176] = "25Normal",
		[185] = "20SOD",
		[186] = "40SOD",
		[198] = "10SOD",
		[205] = "Follower",
		[208] = "Delve",
		[216] = "Quest",
		[220] = "Story",
		[226] = "20SOD",
		[244] = "25TitanReforged",
	}
	local wowVersion, buildRevision = GetBuildInfo() -- Note that both returns here are strings, not numbers.
	local tsVersion = C_AddOns.GetAddOnMetadata("Transcriptor", "Version")
	local logNameFormat = "[%s]@[%s] - Zone#%d (%s)#Difficulty#%d (%s)#Type#%s#WoWVer#%s.%s#TSVer#%s"
	function Transcriptor:StartLog(silent)
		if logging then
			TSPrint(L["You are already logging an encounter."])
		else
			ldb.text = L["|cffFF0000Recording|r"]
			ldb.icon = "Interface\\AddOns\\Transcriptor\\icon_on"
			shouldLogFlags = TranscriptIgnore.logFlags and true or false
			twipe(TIMERS_SPECIAL_EVENTS_DATA)

			collectNameplates = {}
			hiddenUnitAuraCollector = {}
			playerSpellCollector = {}
			previousSpecialEvent = nil
			if not logStartTime or (debugprofilestop()/1000)-logStartTime > 3 then
				compareStartTime = debugprofilestop()
				logStartTime = compareStartTime / 1000
				prevEncounterStart = nil
			end
			local _, instanceType, diff, _, _, _, _, instanceId = GetInstanceInfo()
			local diffText = difficultyTbl[diff] or "?"
			local time = date("%H:%M:%S")
			local today = date("%Y-%m-%d")
			instanceId = instanceId or 0
			local zoneName = GetRealZoneText(instanceId) or "?"
			logName = format(logNameFormat, today, time, instanceId, zoneName, diff, diffText, instanceType, wowVersion, buildRevision, tsVersion)

			if type(TranscriptDB[logName]) ~= "table" then TranscriptDB[logName] = {} end
			if type(TranscriptIgnore) ~= "table" then TranscriptIgnore = {} end
			currentLog = TranscriptDB[logName]

			if type(currentLog.total) ~= "table" then currentLog.total = {} end
			--Register Events to be Tracked
			eventFrame:Show()
			for i = 1, #wowEvents do
				local event = wowEvents[i]
				if not TranscriptIgnore[event] then
					if C_EventUtils.IsEventValid(event) then
						eventFrame:RegisterEvent(event)
					elseif RETAIL then
						TSPrint("There's an invalid event in our event list: ".. event)
					end
				end
			end
			if BigWigsLoader then
				for i = 1, #bwEvents do
					local event = bwEvents[i]
					if not TranscriptIgnore[event] then
						BigWigsLoader.RegisterMessage(eventFrame, event, BWEventHandler)
					end
				end
			end
			if DBM then
				for i = 1, #dbmEvents do
					local event = dbmEvents[i]
					if not TranscriptIgnore[event] then
						DBM:RegisterCallback(event, DBMEventHandler)
					end
				end
			end
			logging = 1

			if prevEncounterStart then
				eventHandler(nil, unpack(prevEncounterStart))
				prevEncounterStart = nil
			end

			hiddenAuraEngageList = {}
			if not ShouldAurasBeSecret() then -- 12.1: enumerating auras errors for tainted code when auras are restricted (RequiresUnitAuraAccess)
				local GetAuraDataByIndex = C_UnitAuras.GetAuraDataByIndex
				local UnitPosition = UnitPosition
				local _, _, _, myInstance = UnitPosition("player")
				for unit in Transcriptor:IterateGroup() do
					local _, _, _, tarInstanceId = UnitPosition(unit)
					if tarInstanceId == myInstance then
						for i = 1, 100 do
							local auraTbl = GetAuraDataByIndex(unit, i, "HELPFUL")
							if not auraTbl then
								break
							elseif not issecretvalue(auraTbl.spellId) and not hiddenAuraEngageList[auraTbl.spellId] then
								hiddenAuraEngageList[auraTbl.spellId] = true
							end
						end
						for i = 1, 100 do
							local auraTbl = GetAuraDataByIndex(unit, i, "HARMFUL")
							if not auraTbl then
								break
							elseif not issecretvalue(auraTbl.spellId) and not hiddenAuraEngageList[auraTbl.spellId] then
								hiddenAuraEngageList[auraTbl.spellId] = true
							end
						end
					end
				end
			end

			--Notify Log Start
			if not silent then
				TSPrint(L["Beginning Transcript: "]..logName)
				TSPrint(L["Remember to stop and start Transcriptor between each wipe or boss kill to get the best logs."])
			end
			return logName
		end
	end
end

function Transcriptor:Clear(log)
	if logging then
		TSPrint(L["You can't clear your transcripts while logging an encounter."])
	elseif TranscriptDB[log] then
		TranscriptDB[log] = nil
	end
end
function Transcriptor:Get(log) return TranscriptDB[log] end
function Transcriptor:GetAll() return TranscriptDB end
function Transcriptor:GetCurrentLogName() return logging and logName end
function Transcriptor:AddCustomEvent(event, separateCategory, ...)
	if logging and not TranscriptIgnore[event] then
		local line = strjoin("#", tostringall(...))
		if not line then return end
		local stop = debugprofilestop() / 1000
		local t = stop - logStartTime
		local time = date("%H:%M:%S")
		local text = format("<%.2f %s> [%s] %s", t, time, event, line)
		currentLog.total[#currentLog.total+1] = text
		if separateCategory then
			if type(currentLog[separateCategory]) ~= "table" then currentLog[separateCategory] = {} end
			tinsert(currentLog[separateCategory], text)
		end
	end
end
function Transcriptor:IsLogging() return logging end
function Transcriptor:StopLog(silent)
	if not logging then
		TSPrint(L["You are not logging an encounter."])
	else
		ldb.text = L["|cff696969Idle|r"]
		ldb.icon = "Interface\\AddOns\\Transcriptor\\icon_off"

		--Clear Events
		eventFrame:Hide()
		for i = 1, #wowEvents do
			local event = wowEvents[i]
			if not TranscriptIgnore[event] then
				if C_EventUtils.IsEventValid(event) then
					eventFrame:UnregisterEvent(event)
				elseif RETAIL then
					TSPrint("There's an invalid event in our event list: ".. event)
				end
			end
		end
		if BigWigsLoader then
			BigWigsLoader.SendMessage(eventFrame, "BigWigs_OnPluginDisable", eventFrame)
		end
		if DBM and DBM.UnregisterCallback then
			for i = 1, #dbmEvents do
				local event = dbmEvents[i]
				DBM:UnregisterCallback(event, DBMEventHandler)
			end
		end
		--Notify Stop
		if not silent then
			TSPrint(L["Ending Transcript: "]..logName)
			TSPrint(L["Logs will probably be saved to WoW\\WTF\\Account\\<name>\\SavedVariables\\Transcriptor.lua once you relog or reload the user interface."])
		end

		if compareSuccess or compareStart or compareAuraApplied or compareUnitSuccess or compareEmotes then
			currentLog.TIMERS = {}
			if compareSuccess then
				currentLog.TIMERS.SPELL_CAST_SUCCESS = {}
				for spellId,tbl in next, compareSuccess do
					for npcPartialGUID, list in next, tbl do
						local npcId = strsplit("-", npcPartialGUID)
						if not TIMERS_BLOCKLIST[spellId] or not TIMERS_BLOCKLIST[spellId][tonumber(npcId)] then
							local n = format("%s-%d-npc:%s", GetSpellName(spellId), spellId, npcPartialGUID)
							local str
							for i = 2, #list do
								if not str then
									if type(list[1]) == "table" then
										local sincePull = list[i] - list[1][1]
										local sincePreviousEvent = list[i] - list[1][2]
										local previousEventName = list[1][3]
										str = format("%s = pull:%.1f/%s/%.1f", n, sincePull/1000, previousEventName, sincePreviousEvent/1000)
									else
										local sincePull = list[i] - list[1]
										str = format("%s = pull:%.1f", n, sincePull/1000)
									end
								else
									if type(list[i]) == "table" then
										if type(list[i-1]) == "number" then
											local t = list[i][1]-list[i-1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										elseif type(list[i-1]) == "table" then
											local t = list[i][1]-list[i-1][1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										else
											str = format("%s, %s", str, list[i][2])
										end
									else
										if type(list[i-1]) == "table" then
											if type(list[i-2]) == "table" then
												if type(list[i-3]) == "table" then
													if type(list[i-4]) == "table" then
														local counter = 5
														while type(list[i-counter]) == "table" do
															counter = counter + 1
														end
														local tStage = list[i] - list[i-1][1]
														local t = list[i] - list[i-counter]
														str = format("%s, TooManyStages/%.1f/%.1f", str, tStage/1000, t/1000)
													else
														local tStage = list[i] - list[i-1][1]
														local tStagePrevious = list[i] - list[i-2][1]
														local tStagePreviousMore = list[i] - list[i-3][1]
														local t = list[i] - list[i-4]
														str = format("%s, %.1f/%.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, tStagePreviousMore/1000, t/1000)
													end
												else
													local tStage = list[i] - list[i-1][1]
													local tStagePrevious = list[i] - list[i-2][1]
													local t = list[i] - list[i-3]
													str = format("%s, %.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, t/1000)
												end
											else
												local tStage = list[i] - list[i-1][1]
												local t = list[i] - list[i-2]
												str = format("%s, %.1f/%.1f", str, tStage/1000, t/1000)
											end
										else
											local t = list[i] - list[i-1]
											str = format("%s, %.1f", str, t/1000)
										end
									end
								end
							end
							currentLog.TIMERS.SPELL_CAST_SUCCESS[#currentLog.TIMERS.SPELL_CAST_SUCCESS+1] = str
						end
					end
				end
				tsort(currentLog.TIMERS.SPELL_CAST_SUCCESS)
			end
			if compareStart then
				currentLog.TIMERS.SPELL_CAST_START = {}
				for spellId,tbl in next, compareStart do
					for npcPartialGUID, list in next, tbl do
						local npcId = strsplit("-", npcPartialGUID)
						if not TIMERS_BLOCKLIST[spellId] or not TIMERS_BLOCKLIST[spellId][tonumber(npcId)] then
							local n = format("%s-%d-npc:%s", GetSpellName(spellId), spellId, npcPartialGUID)
							local str
							for i = 2, #list do
								if not str then
									if type(list[1]) == "table" then
										local sincePull = list[i] - list[1][1]
										local sincePreviousEvent = list[i] - list[1][2]
										local previousEventName = list[1][3]
										str = format("%s = pull:%.1f/%s/%.1f", n, sincePull/1000, previousEventName, sincePreviousEvent/1000)
									else
										local sincePull = list[i] - list[1]
										str = format("%s = pull:%.1f", n, sincePull/1000)
									end
								else
									if type(list[i]) == "table" then
										if type(list[i-1]) == "number" then
											local t = list[i][1]-list[i-1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										elseif type(list[i-1]) == "table" then
											local t = list[i][1]-list[i-1][1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										else
											str = format("%s, %s", str, list[i][2])
										end
									else
										if type(list[i-1]) == "table" then
											if type(list[i-2]) == "table" then
												if type(list[i-3]) == "table" then
													if type(list[i-4]) == "table" then
														local counter = 5
														while type(list[i-counter]) == "table" do
															counter = counter + 1
														end
														local tStage = list[i] - list[i-1][1]
														local t = list[i] - list[i-counter]
														str = format("%s, TooManyStages/%.1f/%.1f", str, tStage/1000, t/1000)
													else
														local tStage = list[i] - list[i-1][1]
														local tStagePrevious = list[i] - list[i-2][1]
														local tStagePreviousMore = list[i] - list[i-3][1]
														local t = list[i] - list[i-4]
														str = format("%s, %.1f/%.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, tStagePreviousMore/1000, t/1000)
													end
												else
													local tStage = list[i] - list[i-1][1]
													local tStagePrevious = list[i] - list[i-2][1]
													local t = list[i] - list[i-3]
													str = format("%s, %.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, t/1000)
												end
											else
												local tStage = list[i] - list[i-1][1]
												local t = list[i] - list[i-2]
												str = format("%s, %.1f/%.1f", str, tStage/1000, t/1000)
											end
										else
											local t = list[i] - list[i-1]
											str = format("%s, %.1f", str, t/1000)
										end
									end
								end
							end
							currentLog.TIMERS.SPELL_CAST_START[#currentLog.TIMERS.SPELL_CAST_START+1] = str
						end
					end
				end
				tsort(currentLog.TIMERS.SPELL_CAST_START)
			end
			if compareAuraApplied then
				currentLog.TIMERS.SPELL_AURA_APPLIED = {}
				for spellId,tbl in next, compareAuraApplied do
					for npcPartialGUID, list in next, tbl do
						local npcId = strsplit("-", npcPartialGUID)
						if not TIMERS_BLOCKLIST[spellId] or not TIMERS_BLOCKLIST[spellId][tonumber(npcId)] then
							local n = format("%s-%d-npc:%s", GetSpellName(spellId), spellId, npcPartialGUID)
							local str
							local zeroCounter = 1
							for i = 2, #list do
								if not str then
									if type(list[1]) == "table" then
										local sincePull = list[i] - list[1][1]
										local sincePreviousEvent = list[i] - list[1][2]
										local previousEventName = list[1][3]
										str = format("%s = pull:%.1f/%s/%.1f", n, sincePull/1000, previousEventName, sincePreviousEvent/1000)
									else
										local sincePull = list[i] - list[1]
										str = format("%s = pull:%.1f", n, sincePull/1000)
									end
								else
									if type(list[i]) == "table" then
										if type(list[i-1]) == "number" then
											local t = list[i][1]-list[i-1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										elseif type(list[i-1]) == "table" then
											local t = list[i][1]-list[i-1][1]
											str = format("%s, %s/%.1f", str, list[i][2], t/1000)
										else
											str = format("%s, %s", str, list[i][2])
										end
									else
										if type(list[i-1]) == "table" then
											if type(list[i-2]) == "table" then
												if type(list[i-3]) == "table" then
													if type(list[i-4]) == "table" then
														local counter = 5
														while type(list[i-counter]) == "table" do
															counter = counter + 1
														end
														local tStage = list[i] - list[i-1][1]
														local t = list[i] - list[i-counter]
														str = format("%s, TooManyStages/%.1f/%.1f", str, tStage/1000, t/1000)
													else
														local tStage = list[i] - list[i-1][1]
														local tStagePrevious = list[i] - list[i-2][1]
														local tStagePreviousMore = list[i] - list[i-3][1]
														local t = list[i] - list[i-4]
														str = format("%s, %.1f/%.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, tStagePreviousMore/1000, t/1000)
													end
												else
													local tStage = list[i] - list[i-1][1]
													local tStagePrevious = list[i] - list[i-2][1]
													local t = list[i] - list[i-3]
													str = format("%s, %.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, t/1000)
												end
											else
												local tStage = list[i] - list[i-1][1]
												local t = list[i] - list[i-2]
												str = format("%s, %.1f/%.1f", str, tStage/1000, t/1000)
											end
										else
											local t = list[i] - list[i-1]
											local shorten = format("%.1f", t/1000)
											if shorten == "0.0" then
												local typeNext = type(list[i+1])
												if typeNext == "number" then
													local nextT = list[i+1] - list[i]
													local nextShorten = format("%.1f", nextT/1000)
													if nextShorten == "0.0" then
														zeroCounter = zeroCounter + 1
													else
														str = format("%s[+%d]", str, zeroCounter)
														zeroCounter = 1
													end
												else
													str = format("%s[+%d]", str, zeroCounter)
													zeroCounter = 1
												end
											else
												str = format("%s, %.1f", str, t/1000)
											end
										end
									end
								end
							end
							currentLog.TIMERS.SPELL_AURA_APPLIED[#currentLog.TIMERS.SPELL_AURA_APPLIED+1] = str
						end
					end
				end
				tsort(currentLog.TIMERS.SPELL_AURA_APPLIED)
			end
			if compareUnitSuccess then
				currentLog.TIMERS.UNIT_SPELLCAST_SUCCEEDED = {}
				for spellId,tbl in next, compareUnitSuccess do
					for npcPartialGUID, list in next, tbl do
						if not compareSuccess or not compareSuccess[spellId] or not compareSuccess[spellId][npcPartialGUID] then
							local npcId = strsplit("-", npcPartialGUID)
							if not TIMERS_BLOCKLIST[spellId] or not TIMERS_BLOCKLIST[spellId][tonumber(npcId)] then
								local n = format("%s-%d-npc:%s", GetSpellName(spellId), spellId, npcPartialGUID)
								local str
								for i = 2, #list do
									if not str then
										if type(list[1]) == "table" then
											local sincePull = list[i] - list[1][1]
											local sincePreviousEvent = list[i] - list[1][2]
											local previousEventName = list[1][3]
											str = format("%s = pull:%.1f/%s/%.1f", n, sincePull/1000, previousEventName, sincePreviousEvent/1000)
										else
											local sincePull = list[i] - list[1]
											str = format("%s = pull:%.1f", n, sincePull/1000)
										end
									else
										if type(list[i]) == "table" then
											if type(list[i-1]) == "number" then
												local t = list[i][1]-list[i-1]
												str = format("%s, %s/%.1f", str, list[i][2], t/1000)
											elseif type(list[i-1]) == "table" then
												local t = list[i][1]-list[i-1][1]
												str = format("%s, %s/%.1f", str, list[i][2], t/1000)
											else
												str = format("%s, %s", str, list[i][2])
											end
										else
											if type(list[i-1]) == "table" then
												if type(list[i-2]) == "table" then
													if type(list[i-3]) == "table" then
														if type(list[i-4]) == "table" then
															local counter = 5
															while type(list[i-counter]) == "table" do
																counter = counter + 1
															end
															local tStage = list[i] - list[i-1][1]
															local t = list[i] - list[i-counter]
															str = format("%s, TooManyStages/%.1f/%.1f", str, tStage/1000, t/1000)
														else
															local tStage = list[i] - list[i-1][1]
															local tStagePrevious = list[i] - list[i-2][1]
															local tStagePreviousMore = list[i] - list[i-3][1]
															local t = list[i] - list[i-4]
															str = format("%s, %.1f/%.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, tStagePreviousMore/1000, t/1000)
														end
													else
														local tStage = list[i] - list[i-1][1]
														local tStagePrevious = list[i] - list[i-2][1]
														local t = list[i] - list[i-3]
														str = format("%s, %.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, t/1000)
													end
												else
													local tStage = list[i] - list[i-1][1]
													local t = list[i] - list[i-2]
													str = format("%s, %.1f/%.1f", str, tStage/1000, t/1000)
												end
											else
												local t = list[i] - list[i-1]
												str = format("%s, %.1f", str, t/1000)
											end
										end
									end
								end
								currentLog.TIMERS.UNIT_SPELLCAST_SUCCEEDED[#currentLog.TIMERS.UNIT_SPELLCAST_SUCCEEDED+1] = str
							end
						end
					end
				end
				tsort(currentLog.TIMERS.UNIT_SPELLCAST_SUCCEEDED)
			end
			if compareEmotes then
				currentLog.TIMERS.EMOTES = {}
				for spellId,tbl in next, compareEmotes do
					for npcName, list in next, tbl do
						local n = format("%s-%d-npc:%s", GetSpellName(spellId) or "?", spellId, npcName)
						local str
						for i = 2, #list do
							if not str then
								if type(list[1]) == "table" then
									local sincePull = list[i] - list[1][1]
									local sincePreviousEvent = list[i] - list[1][2]
									local previousEventName = list[1][3]
									str = format("%s = pull:%.1f/%s/%.1f", n, sincePull/1000, previousEventName, sincePreviousEvent/1000)
								else
									local sincePull = list[i] - list[1]
									str = format("%s = pull:%.1f", n, sincePull/1000)
								end
							else
								if type(list[i]) == "table" then
									if type(list[i-1]) == "number" then
										local t = list[i][1]-list[i-1]
										str = format("%s, %s/%.1f", str, list[i][2], t/1000)
									elseif type(list[i-1]) == "table" then
										local t = list[i][1]-list[i-1][1]
										str = format("%s, %s/%.1f", str, list[i][2], t/1000)
									else
										str = format("%s, %s", str, list[i][2])
									end
								else
									if type(list[i-1]) == "table" then
										if type(list[i-2]) == "table" then
											if type(list[i-3]) == "table" then
												if type(list[i-4]) == "table" then
													local counter = 5
													while type(list[i-counter]) == "table" do
														counter = counter + 1
													end
													local tStage = list[i] - list[i-1][1]
													local t = list[i] - list[i-counter]
													str = format("%s, TooManyStages/%.1f/%.1f", str, tStage/1000, t/1000)
												else
													local tStage = list[i] - list[i-1][1]
													local tStagePrevious = list[i] - list[i-2][1]
													local tStagePreviousMore = list[i] - list[i-3][1]
													local t = list[i] - list[i-4]
													str = format("%s, %.1f/%.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, tStagePreviousMore/1000, t/1000)
												end
											else
												local tStage = list[i] - list[i-1][1]
												local tStagePrevious = list[i] - list[i-2][1]
												local t = list[i] - list[i-3]
												str = format("%s, %.1f/%.1f/%.1f", str, tStage/1000, tStagePrevious/1000, t/1000)
											end
										else
											local tStage = list[i] - list[i-1][1]
											local t = list[i] - list[i-2]
											str = format("%s, %.1f/%.1f", str, tStage/1000, t/1000)
										end
									else
										local t = list[i] - list[i-1]
										str = format("%s, %.1f", str, t/1000)
									end
								end
							end
						end
						currentLog.TIMERS.EMOTES[#currentLog.TIMERS.EMOTES+1] = str
					end
				end
				tsort(currentLog.TIMERS.EMOTES)
			end
		end
		if collectPlayerAuras then
			if not currentLog.TIMERS then currentLog.TIMERS = {} end
			currentLog.TIMERS.PLAYER_AURAS = {}
			for spellId,tbl in next, collectPlayerAuras do
				local n = format("%d-%s", spellId, (GetSpellName(spellId)))
				currentLog.TIMERS.PLAYER_AURAS[n] = {}
				for event in next, tbl do
					currentLog.TIMERS.PLAYER_AURAS[n][#currentLog.TIMERS.PLAYER_AURAS[n]+1] = event
				end
			end
		end
		for spellId, str in next, hiddenUnitAuraCollector do
			if not hiddenAuraPermList[spellId] then
				if not currentLog.TIMERS then currentLog.TIMERS = {} end
				if not currentLog.TIMERS.HIDDEN_AURAS then currentLog.TIMERS.HIDDEN_AURAS = {} end
				currentLog.TIMERS.HIDDEN_AURAS[#currentLog.TIMERS.HIDDEN_AURAS+1] = str
			end
		end
		for _, str in next, playerSpellCollector do
			if not currentLog.TIMERS then currentLog.TIMERS = {} end
			if not currentLog.TIMERS.PLAYER_SPELLS then currentLog.TIMERS.PLAYER_SPELLS = {} end
			currentLog.TIMERS.PLAYER_SPELLS[#currentLog.TIMERS.PLAYER_SPELLS+1] = str
		end

		--Clear Log Path
		currentLog = nil
		logging = nil
		compareSuccess = nil
		compareUnitSuccess = nil
		compareEmotes = nil
		compareStart = nil
		compareAuraApplied = nil
		compareStartTime = nil
		collectPlayerAuras = nil
		logStartTime = nil
		collectNameplates = nil
		hiddenUnitAuraCollector = nil
		playerSpellCollector = nil
		prevEncounterStart = nil

		return logName
	end
end

function Transcriptor:ClearAll()
	if not logging then
		TranscriptDB = {}
		TSPrint(L["All transcripts cleared."])
	else
		TSPrint(L["You can't clear your transcripts while logging an encounter."])
	end
end

_G.Transcriptor = Transcriptor