Запросы на скрипты

LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end
        
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end

LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 10) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 10) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[10] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    --SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    VH:SendDataToUser("$To: "..botname.." From: "..botname.." $<"..botname..">"string.format("Последние 10 сообщений:\n")..GetMessages()"|",botname)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end

LastTenMessages = {}
NumberOfMessages = 10

_, botname = VH:GetConfig("config", "hub_security")

function VH_OnParsedMsgChat(nick, data)
    if (string.find(data, "^[%.%+!]")) then
        -- we start with a command
    else
        nowdate = os.date("%X")
        AddMessage("["..nowdate.."] <"..nick..">"..data..string.format("\n"))
    end  
    return 1
end

function AddMessage(message)
    if (NumberOfMessages == 0) then
        LastTenMessages[1] = message
        NumberOfMessages = 1
    elseif (NumberOfMessages < 20) then
        NumberOfMessages = NumberOfMessages + 1
        LastTenMessages[NumberOfMessages] = message
    elseif (NumberOfMessages == 20) then
         for i = 1, 19, 1 do
            LastTenMessages[i] = LastTenMessages[i+1]
        end
        LastTenMessages[20] = message
    end
end

function GetMessages()
    if (NumberOfMessages == 0) then
        return ""
    else
        TempString = ""
        for i = 1, NumberOfMessages, 1 do
            TempString = TempString.."   "..LastTenMessages[i] -- fixd
        end
        return TempString
    end
end

function VH_OnUserLogin(nick)
    local class=GetClass(nick)
      if class >= 3 then
    --SendMessageToUser(string.format("Последние 10 сообщений:\n")..GetMessages(), nick, botname)
    VH:SendPMToAll(string.format("Последние 22 сообщений:\n")..GetMessages(), botname, 3, 10)
      end
    return 1
end

function SendMessageToUser(data, nick, from)
    result, err = VH:SendDataToUser("<"..from.."> "..data.."|", nick)
    return 1
end

function GetClass(nick)
    res, class=VH:GetUserClass(nick)
    if res and class then
        return class
    else
         return false
    end
end