Автоинвайт + sound

[Vasja_1]

local GetTime,InviteUnit,tremove,tinsert,UnitInParty = GetTime,InviteUnit,tremove,tinsert,UnitInParty

local frame,tbl = CreateFrame("frame"),{}

local lastinv = 0
local function OnUpdate(self)
    if GetTime()-lastinv>3 then
        InviteUnit(tremove(tbl,1))
        lastinv = GetTime()
        if #tbl==0 then
            self:SetScript("OnUpdate",nil)
        end
    end
end

frame:SetScript("OnEvent",function(self,_,_,name)
    if UnitInParty(name) then return end
    tinsert(tbl,name)
    if #tbl==1 then
        self:SetScript("OnUpdate",OnUpdate)
    end
end)

SlashCmdList["AUTOINVITE"] = function()
    if frame:IsEventRegistered("CHAT_MSG_WHISPER") then
        frame:UnregisterEvent("CHAT_MSG_WHISPER")
    else
        frame:RegisterEvent("CHAT_MSG_WHISPER")
    end
end
SLASH_AUTOINVITE1 = "/autoinv" 

local autoinvite = CreateFrame("frame") 
autoinvite:RegisterEvent("CHAT_MSG_WHISPER") 
autoinvite:SetScript("OnEvent", function(self,event,arg1,arg2) if ((not UnitExists("party1") or IsPartyLeader("player"))) then 
InviteUnit(arg2) 
end 
end) 

Инвайтит всего и вся.

Есть небольшая проблема. Инвайтит даже тех кто в чс. Сообщений их я не вижу а они прут ко мне в пати Пишут всякое говно и у меня рейд разваливается