Сливать людям дкп на метеоре

---------------------------------------------
-- Сливать людям дкп на метеоре
---------------------------------------------
local ButtomTextDe = 1
local p = CreateFrame("BUTTON", nil, UIParent, "UIPanelButtonTemplate")
p:SetWidth(80);
p:SetHeight(22);
p:SetText ("Dead!")
p:SetPoint ("CENTER", "Minimap", 0, -230)
p:SetScript ("OnClick", function()
if ButtomTextDe == 1 then
    print("Dead \124cFF00FF00включен!")

    raiddead = CreateFrame ("Frame","raiddead")
    raiddead:RegisterEvent ("COMBAT_LOG_EVENT_UNFILTERED")
    raiddead:SetScript ("OnEvent", function(self, event, ...)
    local arg = {...}
    local a = date("%H:%M:%S")

    for i = 1, GetNumRaidMembers() do
    if UnitName("raid"..i) == arg[7] then
        if arg[2] == "UNIT_DIED"
        and not UnitBuff(arg[7],"Притвориться мертвым") then
            SendChatMessage(""..a.." "..arg[7].." смерть -5 ДКП", "RAID")
        end
        end
    end;

    end)

    ButtomTextDe = 0
    p:SetText("Dead2 ON!")
else
    print("Dead \124cFFFF0000выключен!")
    raiddead:UnregisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
    ButtomTextDe = 1
    p:SetText("Dead2 OFF!")
end;

end)
p:SetAlpha(1);
p:Show();
p:EnableMouse(true)
p:SetMovable(true)
p:RegisterForDrag("RightButton")
p:SetScript("OnDragStart", p.StartMoving)
p:SetScript("OnDragStop", p.StopMovingOrSizing)