Chase_cmd, API2 | Показывает команды используемые юзерами

local sBot = SetMan.GetString(21) -- имя бота
local sAdminNick = "Otshelnik-Fм" -- пишем ник хозяина хаба
local sFile = Core.GetPtokaXPath().."scripts/Hub files/CmdLog.txt"        

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%!%+%-/%*]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendPmToNick(sAdminNick,sBot,"Послана команда хабу: "..sData)
        else
            local hFile = io.open (sFile , "a+")
            if hFile then
                hFile:write("Послана команда хабу: "..sData.."\r\n")
                hFile:close()
            end
        end
    end
end
ToArrival=ChatArrival

local sBot = SetMan.GetString(21)                    -- Ник Бота
local sAdminNick = "DrakonSP"                        -- Ник Админа
local sFile = Core.GetPtokaXPath().."scripts/Chase_Cmd/CmdLog.txt"    -- Путь к файлу лога

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%!%+%-/%*]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendToNick(sAdminNick,"<"..sBot.."> Послана команда хабу: "..sData)
        end
    local hFile = io.open (sFile , "a+")
        if hFile then
            hFile:write("Послана команда хабу: "..sData.."\r\n")
            hFile:close()
        end
    end
end
ToArrival=ChatArrival

local sBot = SetMan.GetString(21)                    -- Ник Бота
local sAdminNick = "DrakonSP"                        -- Ник Админа
    
local sFile = Core.GetPtokaXPath().."scripts/Chase_Cmd/CmdLog.txt"    -- Путь к файлу лога

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%+]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendToNick(sAdminNick,"<"..sBot.."> *** Послана команда хабу: "..sData)
        end
    local hFile = io.open (sFile , "a+")
        if hFile then
            hFile:write("["..os.date("%d.%m.%Y в %H:%M").."] "..sData.."\n")
            hFile:close()
        end
    end
end
ToArrival=ChatArrival

local Prefix = "!"        -- Префикс команды

local tProfile = {        -- Профили, которым доступно меню
    [0] = 1,            -- Master
    [1] = 1,            -- Operator
    [2] = 0,            -- Vip
    [3] = 0,            -- Reg
    [-1] = 0,            -- UnReg
}

function UserConnected(tUser)
    if tProfile[tUser.iProfile] == 1 then
        Core.SendToUser(tUser, "$UserCommand 1 3 Команды хабу\\Лог$<%[mynick]> "..Prefix.."cmdlog|")
end

OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(tUser, sData)
    local cmd = sData:match"%b<>%s+(%S+).*|"
    if cmd == ""..Prefix.."cmdlog" then
        Core.SendToUser(tUser,"<"..sBot.."> "..содержимое_текстового_файла)
        return true
    end    
end