От: Бан за злоупотребление смайлами, От темы с ID: 1901

--bot of hub
botname = "Антибот"
--Запрещенные слова
trigs = {
  "!say",":lol:","=)",":-D",":)",";-)","LOL"
}
--наблюдение за чатом
function ChatArrival(user,data)
  Core.GetUserAllData(user)
  local data = string.sub(data,1,-2)
  local s,e,msg = string.find(data,"^%b<>%s(.*)$")
  if not user.bOperator then -- простой плохой пользователь в главном чате
    for i = 1,#trigs do
      if (string.find(msg,trigs[i]) ~= nil) then
        Core.SendPmToNick(user.sNick,botname, user.sNick..": ты написал: "..msg.." Эта команда запрещена к использованию на хабе, т.к. ботам запрещено швырять смайлы в чат ." )
        Core.SendPmToOps(botname,user.sNick.." пытался использовать запрещенную команду флуда смайлами")
        return true
      end
    end
  end
end

Core.TempBan(tCurUser,iBanTime,sBanReason,sBot,0)

BanMan.TempBan(tCurUser,iBanTime,sBanReason,sBot,true)

BanMan.TempBan(tCurUser,iBanTime,sBanReason,sBot,true)

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

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

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

    -- Папка бота:
    sPath = "SmilesLimiter\\"

    -- Папка бота:
    sPath = Core.GetPtokaXPath().."SmilesLimiter/"