sky chat bot

local component = require("component")
local computer = require("computer")
local cb = component.chat_box
local event = require("event")
local colors = require("colors")
local terminal = require("term")
local radar = component.radar

terminal.clear()
print("ЧатБот варпа Sky")
print("Разработал: FERROUS")

local botName = " §8Светлана: §8"

local blackList = {
    "FERROUS",
    "Hedboys"
}

local playersGreeted = {}

local state = false

function dump(table)
    if type(table) == 'table' then
       local s = '{ '
       for k,v in pairs(table) do
          if type(k) ~= 'number' then k = '"'..k..'"' end
          s = s .. '['..k..'] = ' .. dump(v) .. ','
       end
       return s .. '} '
    else
       return tostring(table)
    end
end

function Ads()
    cb.say(botName .. "➢ §c/warp sky - §7магазин предлагает всем заинтересованным лицам разделы под каждую основную модификацию сервера.§7 §7Прекрасное оформление, которое станет настоящей жемчужиной любого игрока!§7")
    cb.say(botName .. "➢ §6[Механизмы]")
    cb.say(botName .. "➢ §bМагия и пчелы- [THAUMCRAFT + WITCHERY + §bFORESTRY]§b")
    cb.say(botName .. "➢ §aТехника - [IC2 + AE2 + TE]§a")
    cb.say(botName .. "➢ §dСовершенно любые заказы, ритуалы, обряды§d")
    cb.say(botName .. "➢ §cИ многое другое, приходите и запишите нас §cв блокноте!")

    resetArray(playersGreeted)
end

function checkIsLocalChat(message)
    local firstLetter = string.sub(message, 1, 1)
    return firstLetter ~= "!"
end

function isNumber(str)
    return type(tonumber(str)) == "number"
end

function thanksForUser(message, nick)
    if checkIsLocalChat(message) == true then
        if isNumber(message) == true then
            cb.say(botName .. "§cСпасибо за покупку, " .. nick)
        end
    end
end

function handlerMessage(message, nick)
    print(nick, " написал " .. message)
    thanksForUser(message, nick)
end

function resetArray(array)
    for i = 1, #array do
        array[i] = nil
    end
end

function findElement(array, str)
    local state = false
    for k, v in pairs(array) do
        if v == str then
            state = true
        end
    end
    return state
end

cb.setName("§cSKY§7Bot§7")
cb.setDistance(250)

for i = 1, #blackList do
    computer.addUser(blackList[i])
end

local t = event.timer(650, Ads, math.huge)

while true do
    local _, _, nick, msg = event.pull(1, "chat_message")
    if msg ~= nil and nick ~= nil then
        handlerMessage(msg, nick)
    end

    local players = radar.getPlayers()

    for i = 1, #players do
        local current = players[i].name
        if not findElement(blackList, current) then
            if not findElement(playersGreeted, current) then
                table.insert(playersGreeted, current)
                print(current, " пришел на варп")
                cb.say(botName .. "§cДобро пожаловать, " .. current .. ", будем рады видеть тебя вновь!")
            end
        end
    end

    local hour = tonumber(os.date('%H'))

    if hour % 4 == 0 and state == false then
        cb.say(botName .. "§c/warp sky§7 - тот варп, который рад каждому посетителю. Спасибо, что вы остаетесь с нами. ")
        state = true
    end
    if hour % 4 ~= 0 and state == true then
        state = false
    end
end