-- Register Frame
function CHC:registerFrame()
    local CHCatcher_EventFrame = CreateFrame("Frame")
    CHC:setEventHandlers(CHCatcher_EventFrame)
end
 
-- Register Events
function CHC:setEventHandlers(Catcher)
    print("EventListener activated")
    Catcher:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")
    Catcher:RegisterEvent("COMBAT_LOG_EVENT")
    CHC:handleEvents(Catcher)
end
 
function CHC:handleEvents(Catcher)
    Catcher:SetScript("OnEvent", function(self, event, ...)
        if event == "UNIT_SPELLCAST_SUCCEEDED" then
            CHC:spellCast_Succeeded(...)
        elseif event == "COMBAT_LOG_EVENT" then
            CHC:filterTheCombatLog(...)
        end
    end)
end

function CHC:spellCast_Succeeded(...)
    local unitID, spell, rank, lineID, spellID = select(1, ...)
 
    -- Only do stuff on chain heal casts that succeed
    if spellId == 1064 or spell == "Chain Heal" then 
        print("Finished casting " .. spell)
    end
end

function CHC:filterTheCombatLog(...)
    local type = select(2, ...)
 
    -- Check if combat log event is a heal
    if type == "SPELL_HEAL" then
        local spellId, spellName, spellSchool = select(12, ...)
 
        -- If the heal event matches chain heal and all that.
        if spellId == 1064 or spellName == "Chain Heal" then
 
            -- Check if the heal was a multistrike
            -- Save those separately
            if select(19, ...) == true then
                rawChainHealData.history.multistrikes = rawChainHealData.history.multistrikes + 1
                print("Multistrike #" .. rawChainHealData.history.multistrikes)
            else
                rawChainHealData.history.targets = rawChainHealData.history.targets + 1
                print("Hit #" .. rawChainHealData.history.targets .. " at " .. select(1, ...))
            end
 
            -- Save some of the data for later use.
            local spellData = {
                timestamp = select(1, ...),
                target = select(9, ...),
                source = select(5, ...),
                amount = select(15, ...),
                overhealing = select(16, ...),
                multistrike = select(19, ...)
            }
            table.insert(rawChainHealData.history.data, spellData)
        end
    end
end

local HistoryData={};--     Stores data by index
local HistoryLookup={};--   Links indexed data by timestamp
 
local function OnUpdate(self)-- This will be used to update any shown info
    -- Make whatever calls you need here
 
    self:SetScript("OnUpdate",nil);--   Unregister this handler since we'll no longer need it for now
end
 
local EventFrame=CreateFrame("Frame");
EventFrame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED");--  This event that isn't affected by filter settings
EventFrame:SetScript("OnEvent",function(self,event,timestamp,subevent,_,sourceguid,sourcename,_,_,destguid,destname,_,_,spellid,_,_,amount,over,absorb,crit,multi)
    if subevent=="SPELL_HEAL" and spellid==1064 and sourceguid==UnitGUID("player") then
        local hops=HistoryLookup[timestamp];--  Pull cast data from lookup table
        if not hops then--  If we didn't get any data, make a new entry
            hops={};--  New hop table
            table.insert(HistoryData,hops);--   Add to data collection
            HistoryLookup[timestamp]=hops;--    Assign a link to the same table to our lookup so we can grab it next time
        end
 
        table.insert(hops,{--   Add hop to hops table
            timestamp=timestamp;
            guid=destguid;
            name=destname;
            amount=amount;
            overheal=over;
            absorbed=absorb;
            critical=crit;
            multistrike=multi;
        });
 
        self:SetScript("OnUpdate",OnUpdate);--  Register our OnUpdate handler to run after all of the events are done firing (unregisters itself when done)
    end
end);