Transcriptor.lua

local Transcriptor = {}

local PLAYER_SPELL_BLOCKLIST
local TIMERS_SPECIAL_EVENTS
local TIMERS_SPECIAL_EVENTS_DATA
local TIMERS_BLOCKLIST
local RETAIL, FOREVER

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_Standard.lua
	FOREVER = addonTbl.forever or false -- Init_Forever.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 = C_InstanceEncounter.IsEncounterInProgress, C_InstanceEncounter.IsEncounterLimitingResurrections, C_InstanceEncounter.IsEncounterSuppressingRelease
local UnitInRaid, UnitInParty, UnitIsFriend, UnitCastingInfo, UnitChannelInfo = UnitInRaid, UnitInParty, UnitIsFriend, UnitCastingInfo, UnitChannelInfo
local UnitCanAttack, UnitExists, UnitIsVisible, UnitClassification = UnitCanAttack, UnitExists, UnitIsVisible, UnitClassification
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
local ShouldAurasBeSecret = C_Secrets.ShouldAurasBeSecret
local mapvalues = mapvalues
local function ReplaceSecrets(value) if issecretvalue(value) then return "<secret>" else return value 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
			return format("%s#%s#Target: %s#TargetOfTarget: %s", unit, tostringall(mapvalues(ReplaceSecrets, TSUnitName(unit), TSUnitName(unit.."target"), TSUnitName(unit.."targettarget"))))
		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")
		return (format("%s %s (%s) - %s # %s", tostringall(mapvalues(ReplaceSecrets, level, reaction, typeclass, name, guid))))
	end
end

function sh.UNIT_TARGETABLE_CHANGED(unit)
	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)))))
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 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(...)
	return strjoin("#", tostringall(mapvalues(ReplaceSecrets, ...)))
end

function sh.CHAT_MSG_MONSTER_YELL(...)
	return strjoin("#", tostringall(mapvalues(ReplaceSecrets, ...)))
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) then
		if not collectNameplates[guid] then
			collectNameplates[guid] = true
			local name = TSUnitName(unit)
			return strjoin("#", name, guid)
		end
	else
		local level = UnitLevel(unit)
		if level > 0 then
			return strjoin("#", level)
		end
	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 and not FOREVER 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 hasBosses = false
			for i = 1, #bossUnits do
				local unit = bossUnits[i]
				local guid = UnitGUID(unit)
				if guid then
					hasBosses = true
					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),
						"Level", UnitLevel(unit))
					))
					currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IEEU %s] %s", t, time, unit, info)
				end
			end
			if not hasBosses then
				currentLog.total[#currentLog.total+1] = format("<%.2f %s> [IEEU] No bosses found", t, time)
			end

			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
		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
		eventHandler(eventFrame, event, module.moduleName, mapvalues(ReplaceSecrets, ...))
	else
		eventHandler(eventFrame, event, module, mapvalues(ReplaceSecrets, ...))
	end
end

local function DBMEventHandler(...)
	eventHandler(eventFrame, mapvalues(ReplaceSecrets, ...))
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