Версия для печати темы

-- Стоп Треп - запрещает говорить больше N сообщений подряд в чате
-- Автор Nickolya
-- 06.11.08

sMsg = "Вы разговариваете сам с собой. Дождитесь пока кто-то вам ответит!"
iCnt = 10 --количество пропускаемых сообщений

function Main()
    sOne = 1
    sBot = frmHub:GetHubBotName()
    Core = {}
    Core.SendToUser = function(tUser, sData)
        tUser:SendData(sData)
    end
end

function OnStartup()
    sBot = SetMan.GetString(21)
end

iCounter = 0
sNick = ""

function ChatArrival(tUser)
    local sUserNick = tUser.sNick or tUser.sName
    if sNick == sUserNick then
        if iCounter >= iCnt then
            Core.SendToUser(tUser, "<"..sBot.."> "..sMsg)
            return sOne or true
        else
            iCounter = iCounter + 1
        end
    else
        sNick = sUserNick
        iCounter = 1
    end
end

local tProfiles = {
  [0] = true, -- master
  [1] = true, -- operator
  [2] = false, -- vip
  [3] = false, -- reg
}

function ChatArrival(tUser)
  if tProfiles[tUser.iProfile] then
    local sUserNick = tUser.sNick or tUser.sName
    ...
  end
end