NytFall Alpha rev1

--[[
        NytFall.

        Currently:
                Displays a message when logging in.
                Prints a message if you fail to move in a raid.
                At the end of combat, sends a list of all people who failed to raid or party.
]]

-- Frames
NytFall = CreateFrame("Frame", "NytFall")
LibFail = LibStub("LibFail-1.0")
local Fails = LibFail:GetSupportedEvents()
local CombatFails = {} -- We'll use this to record fails and report at the end of combat

-- Register
NytFall:RegisterEvent("PLAYER_ENTERING_WORLD")
NytFall:RegisterEvent("PLAYER_REGEN_ENABLED")

-- Main Funcs

function NytFall_OnEvent(self, event, ...)
        if (event == "PLAYER_ENTERING_WORLD") then
                DEFAULT_CHAT_FRAME:AddMessage("NytFall BETA loaded.")
        elseif (event == "PLAYER_REGEN_ENABLED") then
                if (#CombatFails ~= 0) then
                        for k, v in pairs(CombatFails) do
                                if (UnitInRaid("player") == true) then
                                        SendChatMessage(v, "RAID")
                                else
                                        SendChatMessage(v, "PARTY")
                                end
                        end
                end
        end
end

local function NytFall_OnFail(event, player, type)
        local FailSpell = GetSpellInfo(LibFail:GetEventSpellId(event)) or "" -- Get the spell that killed the player
        local LibFail_Message
        local Count
        if (type == LibFail.FAIL_TYPE_NOTMOVING) then
                LibFail_Message = "%s did not move from %s!"
                CombatFails[player] = LibFail_Message
        end
        print(LibFail_Message:format(player, spell)) -- Replace the first $s with the playername and %s with the Spell name
end

-- Other

for _, event in ipairs(Fails) do
        LibFail.RegisterCallback("NytFall", event, "NytFall_OnFail")
end

NytFall:SetScript("OnEvent", "NytFall_OnEvent")