Топик Хаба, Автосмена топика

taimer = 60 -- в минутах

messarray={ 
[[Сообщение]],
}

function OnStartup()
 tmr = TmrMan.AddTimer (taimer*60*1000)
end

function OnTimer(tmr)
 Core.SendToAll(" "..messarray[math.random(1,#messarray)])
end

local iTimer=60 -- в минутах
local sMsg,iId={ 
  "Топик1",
  "Топик2"
}
function OnStartup()
  iId=TmrMan.AddTimer(iTimer*60000)
end
function OnTimer(iId)
  SetMan.SetString(10,sMsg[math.random(1,#sMsg)]:sub(1,256))
end

local iTimer=1 -- в минутах
local sMsg,iId={
"Все меняем этот адресс 10.8.12.66 на НОВЫЙ доменный dchub://CRYSIS.myftp.org:666",
"Сохраняем хаб /fav",
"Не забывай Регистрироватся с помощью меню",
"Металлист-Олимпиакос 1:0",
}
function OnStartup()
iId=TmrMan.AddTimer(iTimer*60000)
end
function OnTimer(iId)
SetMan.SetString(10,sMsg[math.random(1,#sMsg)]:sub(1,256))
end
function UserConnected(sUser)
if tProfiles[sUser.iProfile] == 1 then
Core.SendToNick(sUser.sNick,"$UserCommand 1 3 Меню админа\\Добавить топик$<%[mynick]> !topik %[line:Введите топик]|")
Core.SendToNick(sUser.sNick,"$UserCommand 1 3 Меню админа\\Удалить топик$<%[mynick]> !deltopik %[line:Введите № топик]|")
Core.SendToNick(sUser.sNick,"$UserCommand 1 3 Меню админа\\Показать все топики$<%[mynick]> !alltopik|")
end
end

OpConnected = UserConnected
RegConnected = UserConnected

if tProfiles[sUser.iProfile] == 1 then

local BotName = SetMan.GetString(21)
local MenuName = "Топик"
local iTimer = 1 -- в минутах
local TopFile = "scripts\\Topic\\topic.dat"

function OnStartup()
  iId=TmrMan.AddTimer(iTimer*60000)
end

function OnTimer(iId)
  SetMan.SetString(10,TopFile[math.random(1,#TopFile)]:sub(1,256))
end

function OpConnected(tUser)
 if tUser.iProfile == 0 then
 Core.SendToNick(tUser.sNick,"$UserCommand 1 3 "..MenuName.."\\Добавить топик$<%[mynick]> !topic_add %[line:добавить топик]&*#124;")
 Core.SendToNick(tUser.sNick,"$UserCommand 1 3 "..MenuName.."\\Просмотреть все топики$<%[mynick]> !topic_view&*#124;")
end
--* удалить

function ChatArrival(tUser, sData)

 local data = string.sub(sData, 1, -2)
 local _, _, nick = string.find(data, "<(.*)>")
 local _, _, cmd = string.find(data, "%b<>%s+(%S+)")
 if tUser.iProfile == 0 then
 if cmd == "!topic_add" then
     local _, _, msg = string.find(data, cmd.."(.*)")
     if msg == nil then return false end

     local handle = io.open(TopFile, "a+")
     if handle ~= nil then
         local time = os.date("%d.%m.%Y %H:%M:%S")
         handle:write(""..msg.."")
         handle:close()
     end
     return true
 end
 if cmd == "!topic_view" then
     local handle = io.open(TopFile, "r")
     if handle ~= nil then
         local top = handle:read("*a")
         Core.SendToNick(tUser.sNick, "<"..BotName.."> "..top)
         handle:close()
     else
         Core.SendToNick(tUser.sNick, "<"..BotName.."> Нет топиков\n")
     end
     return true
 end
end

OpConnected = UserConnected
RegConnected = UserConnected
end
end