News by Hubbabot

local sBot    = "PR"    -- Имя бота-спамера
local nCounter    = 050    -- Стартовое значение счётчика
local nMaxCount    = 100    -- Максимальное значение счётчика

local sMsg    =
[[  Здесь могла быть ваша реклама.]]

function OnStartup()
    sBot = sBot or SetMan.GetString(21)
    sMsg = "<"..sBot.."> "..sMsg
end

function ChatArrival(_, sData)
    nCounter = nCounter + 1
    if nCounter >= nMaxCount then
        TmrMan.AddTimer(math.max(sData:len() / 20, 3) * 1000, "SendSpam")
        nCounter = 0
    end
end

function UserConnected(tUser)
    Core.SendToNick(tUser.sNick, sMsg)
end
RegConnected, OpConnected = UserConnected, UserConnected

function SendSpam(nTimerId)
    Core.SendToAll(sMsg)
    TmrMan.RemoveTimer(nTimerId)
end