Core.RegBot(botname,"","",true) -- Comment this line to not have bot appear in user list. Note: If botname is not

botname = "История_чата" -- имя бота

botname = SetMan.GetString(21)

local tProfiles = {
[-1] = 0,
[0] = 1,
[1] = 1,
[2] = 1,
[3] = 1,
}

if cmd == "!mat" then

if tProfiles[user.iProfile] == 1 then

            Core.SendToNick(user.sNick,"Вы не ввели имя жертвы!")
        end

else
Core.SendToNick(user.sNick, "У вас нет доступа к этой команде!")
end

local tNicks = {
    ["Вася"] = 1, -- Васе доступно использование команды (т.к. значение = 1)
    ["Петя"] = 0, -- Пете использование команды не доступно (т.к. значение = 0)
}

if tNicks[tUser.sNick] == 1 then
     -- код
else
Core.SendToUser(tUser, "<"..SetMan.GetString(21).."> Использование команды для вас не доступно!")
end

if sUser.iProfile == -1 then

Save = {
"+rules", "!rules",
}

function ChatArrival(sUser, sData)
local Data = string.find(sData,"%b<>%s(.*)")
if sUser.iProfile == -1 then
if Saved(Data) then
return false
end
Core.SendToUser(sUser, "<"..SetMan.GetString(21).."> Вам нельзя пользоваться чатом и приватом, пока вы не зарегистрируетесь!")
return true
end
end
ToArrival = ChatArrival

function Saved(Text)
    for _,v in ipairs(Save) do
        if string.find(Text, v) then
            return true
        end
    end
    return false
end

function ChatArrival(sUser, sData)
if sUser.iProfile == -1 then
Core.SendToUser(sUser, "<"..SetMan.GetString(21).."> Вам нельзя пользоваться чатом и приватом, пока вы не зарегистрируетесь!")
return true
end
end
ToArrival = ChatArrival

Send = "Main" -- Main: чат; PM: Личка; OpChat: ОпЧат
sAdminNick = "admin" -- Ник админа

            Core.SendToAll("*** Пользователь "..tUser.sNick.." лишён права отправки сообщений. Причина: реклама.")

if Send == "Main" then
Core.SendToNick(sAdminNick, "<"..sBot.."> *** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
elseif Send == "PM" then
Core.SendPmToNick(sAdminNick, sBot, "*** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
elseif Send == "OpChat" then
Core.SendToOpChat("<"..sBot.."> *** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
end

    if tProfiles[tUser.iProfile] == 1 then -- делаем чат доступным только тем, кому выставлен флаг в таблице
                ...
                if cmd == "!errorsregs" then
                ...
                         return true -- лишнее
        else
        Core.SendToUser(tUser, "<"..bot.."> Данная команда недоступна для вашего профиля!")
    end
return true
end

        if cmd == "!errorsregs" then
                        if tProfiles[tUser.iProfile] == 1 then -- Делаем команду доступной только тем, у кого есть флаг
                ...
        else
        Core.SendToUser(tUser, "<"..bot.."> Данная команда недоступна для вашего профиля!")
    end
return true -- глушим команду
end

Core.SendToUser(user,userinf..ftr)

Core.SendToUser(user,"<"..SetMan.GetString(21).."> "..userinf..ftr)

for sMagnet in sData:gmatch"([magnet][http]:%S+)" do

tp://ya.ru

Core.SendToNick(user.sNick,tmp)

Core.SendToNick(user.sNick, ("<%s> %s"):format(Bot, tmp))

        Core.SendToAll("<"..sBot.."> Приветствуем нового юзера на нашем хабе <"..tUser.sNick..">")

        Core.SendToUser(tUser, "<"..sBot.."> Приветствуем нового юзера на нашем хабе <"..tUser.sNick..">")

function ChatArrival(user, sData)
    local sData = string.sub(sData,1,-2)
    local sCmd = sData:match"%b<>%s+[!+*](%S+)"
    if sCmd == "test" or sCmd == "stats" or sCmd == "команда3" then
        ...
    return true
  end    
end

  if sCmd == "команда" or sCmd == "команда2" or sCmd == "команда3" then

sBot = SetMan.GetString(21)
sFile = Core.GetPtokaXPath().."scripts/HelpFiles/help.txt"

function ChatArrival(tUser, sData)
    sData = string.sub(sData,1,-2)
    local sCmd = sData:match"%b<>%s+[!+*](%S+)"
    if sCmd == "help" or sCmd == "хелп" then
         Core.SendToUser(tUser, "<"..sBot.."> "..LoadText(sFile))
         return true
    end    
end

function LoadText(filename)
    local message = ""
    local f = io.open( filename, "r" )
    if f then
        message=f:read("*all")
        message=string.gsub(message,"|","")
        f:close()
    end
    return message
end

  local sCmd = sData:match"%b<>%s+[!+*](%S+)"

function GetNormalTime(s)
    s=tonumber(s) or 0
    local r=""
    if s>=31104000 then r=math.floor(s/31104000).." лет " s=math.fmod(s,31104000) end
    if s>=2592000 then r=r..math.floor(s/2592000).." месяцев " s=math.fmod(s,2592000) end
    if s>=86400 then r=r..math.floor(s/86400).." дней " s=math.fmod(s,86400) end
    if s>=3600 then r=r..math.floor(s/3600).." часов " s=math.fmod(s,3600) end
    if s>=60 then r=r..math.floor(s/60).." минут " s=math.fmod(s,60) end
    return r..s.." секунд"
end

Core.SendToUser(tUser, "<"..sBot.."> Вы забанены на "..GetNormalTime(RekBanTime))