wow-Heimdall/Modules/BonkDetector.lua

local _, shared = ...
---@cast shared HeimdallShared
local ModuleName = "BonkDetector"

---@diagnostic disable-next-line: missing-fields
shared.BonkDetector = {}
function shared.BonkDetector.Init()
	---@type table<string, number>
	local lastReportTime = {}

	local frame = CreateFrame("Frame")
	frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
	frame:SetScript("OnEvent", function(self, event, ...)
		--		if Heimdall_Data.config.bonkDetector.debug then
		--			print(string.format("[%s] Combat log event received", ModuleName))
		--		end
		if not Heimdall_Data.config.bonkDetector.enabled then
			--			if Heimdall_Data.config.bonkDetector.debug then
			--				print(string.format("[%s] Module disabled, ignoring combat event", ModuleName))
			--			end
			return
		end

		local subevent = select(2, ...)
		if not subevent:find("_DAMAGE") then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Not a damage event, ignoring: %s", ModuleName, subevent))
			end
			return
		end

		---@type string|nil, string, string, string, string
		local err, source, sourceGUID, destination, destinationGUID

		source, err = CLEUParser.GetSourceName(...)
		if err then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Error getting source name: %s", ModuleName, err))
			end
			return
		end
		sourceGUID, err = CLEUParser.GetSourceGUID(...)
		if err then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Error getting source GUID: %s", ModuleName, err))
			end
			return
		end
		if not string.find(sourceGUID, "Player") then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Source %s is not a player, nothing to do", ModuleName, source))
			end
			return
		end

		destination, err = CLEUParser.GetDestName(...)
		if err then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Error getting destination name: %s", ModuleName, err))
			end
			return
		end
		destinationGUID, err = CLEUParser.GetDestGUID(...)
		if err then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Error getting destination GUID: %s", ModuleName, err))
			end
			return
		end
		if not string.find(destinationGUID, "Player") then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Destination %s is not a player, nothing to do", ModuleName, destination))
			end
			return
		end

		if source == destination then
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Source and destination are the same, ignoring event", ModuleName))
			end
			return
		end

		local currentTime = GetTime()
		local throttle = Heimdall_Data.config.bonkDetector.throttle

		if lastReportTime[source] and (currentTime - lastReportTime[source]) < throttle then
			if Heimdall_Data.config.bonkDetector.debug then
				local timeLeft = throttle - (currentTime - lastReportTime[source])
				print(
					string.format(
						"[%s] Damage report throttled for %s (%.1f seconds remaining)",
						ModuleName,
						source,
						timeLeft
					)
				)
			end
			return
		end

		lastReportTime[source] = currentTime

		if Heimdall_Data.config.bonkDetector.debug then
			print(
				string.format(
					"[%s] Processing damage event - Source: %s, Target: %s, Type: %s",
					ModuleName,
					source,
					destination,
					subevent
				)
			)
		end

		for _, channel in pairs(Heimdall_Data.config.bonkDetector.channels) do
			local locale = shared.GetLocaleForChannel(channel)
			local msg = string.format(shared._L("bonkDetected", locale), source, destination, subevent)
			---@type Message
			local message = {
				channel = "C",
				data = channel,
				message = msg,
			}
			if Heimdall_Data.config.bonkDetector.debug then
				print(string.format("[%s] Queuing bonk detector message", ModuleName))
				shared.dump(message)
			end
			table.insert(shared.messenger.queue, message)
		end
	end)

	print("[Heimdall] BonkDetector loaded")
end