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

local sBot = SetMan.GetString(21)

local Hub=[[Текст]]


function UserConnected(tUser)
Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Информатор $<%[mynick]> !hub|")

end
RegConnected=UserConnected
OpConnected=UserConnected



function ChatArrival(tUser, sData)
local sCmd = sData:match"%b<>%s+[!%+%*](%S+).*|$"
    if sCmd == "hub" then
            Core.SendToUser(tUser,"<"..sBot.."> "..Hub)
          return true
    end
end

local sBot = SetMan.GetString(21)    --присваиваем переменной Ник БОТа ХАБа
local Hub=[[Текст]]                    --Ваш текст сообщения
--------------------
function UserConnected(tUser)        --Отсылаем меню
Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Информатор $<%[mynick]> !hub||")
end
RegConnected,OpConnected=UserConnected,UserConnected
--------------------
function ChatArrival(tUser, sData)    --Вылавливаем сообщение чата
local sCmd = sData:match"%b<>%s+[!%+%*](%S+).*|$"    --Выделяем команду
    if sCmd == "hub" then            --Проверяем что это нужная команда
            local users = Core.GetOnlineUsers()        --Запрашиваем список всех пользователей
            for i = 1, #users do                    --Перебираем таблицу пользователей
            Core.SendPmToUser(users[i], sBot, "Здравствуйте "..users[i].sNick.."\n"..Hub.."\n")    --Посылаем сообщение каждому пользователю в личку (с приветствием ника)
            end
            return true                --После выполнения команды не даём сообщению (!hub) попасть в чат
    end
end