Snake

local output = {
    name                    = "Snake",
    version                 = "0.1",
    autors                  = {"qwertyMAN"},
    info                    =
    "This is info for game Snake"
}
output.func                 = function(input)
    local term              = require("term")
    local event             = require("event")
    local component         = require("component")
    local gpu               = component.gpu
    local display           = {gpu.getResolution()}
    local players           = {}        -- свойства игроков
    local players_vector    = {}        -- направления игроков
    local area              = {}        -- игровое поле
    local turn              = {}        -- таблица поворота
    local target            = {}        -- координаты цели
    local border            = {0,0}     -- неиспользуемый отступ от края экрана
    local t                 = 1/8       -- скорость игры
    local exit_game         = false     -- для выхода из игры
    local size              = {math.modf((display[1]-border[1])/2), math.modf(display[2]-border[2])} -- размер игрового поля
    math.randomseed(os.time())

    turn[1]={0,-1}
    turn[2]={0,1}
    turn[3]={-1,0}
    turn[4]={1,0}

    local command={}                    -- управление:
    command[200]=function(nick)         -- вверх
        if players_vector[nick] ~= 2 then
            players_vector[nick] = 1
        end
    end
    command[208]=function(nick)         -- вниз
        if players_vector[nick] ~= 1 then
            players_vector[nick] = 2
        end
    end
    command[203]=function(nick)         -- влево
        if players_vector[nick] ~= 4 then
            players_vector[nick] = 3
        end
    end
    command[205]=function(nick)         -- вправо
        if players_vector[nick] ~= 3 then
            players_vector[nick] = 4
        end
    end

    -- генерация поля
    for i=1, size[1] do
        area[i]={}
        for j=1, size[2] do
            area[i][j]=false
        end
    end

    local function conv_cord(sx,sy)
        return sx*2-1+border[1], sy+border[2]
    end

    local function gen_target()
        while true do
            local x,y = math.random(1,size[1]), math.random(1,size[2])
            if not area[x][y] then
                target = {x,y}
                gpu.setBackground(0x0000ff)
                local rezerv = {conv_cord(x,y)}
                gpu.set(rezerv[1], rezerv[2], "  ")
                gpu.setBackground(0x000000)
                break
            end
        end
    end

    local function keyboard(_,_,_,key,nick)
        local swich = true
        for i=1, #players do
            if nick==players[i].name then
                swich = false
            end
        end
        if swich and (key==200 or key == 203 or key == 205 or key == 208) then
            -- если игрока нет в списке
            players[#players+1]={name=nick,number=5,cord={5,5}}
            area[players[#players].cord[1]][players[#players].cord[2]]=players[#players].number
        end
        if key == 16 then -- выход
            exit_game = true
        elseif command[key] then
            command[key](nick)
        end
    end

    local function update()
        -- проверка есть ли препятствие
        for i=#players, 1, -1  do
            local cord = turn[players_vector[players[i].name]]
            local cord_2 = {players[i].cord[1]+cord[1],players[i].cord[2]+cord[2]}
            gpu.setBackground(0xffffff)
            local rezerv = {conv_cord(players[i].cord[1], players[i].cord[2])}
            gpu.set(rezerv[1], rezerv[2], "  ")
            gpu.setBackground(0x000000)
            if cord_2[1]>size[1] then
                cord_2[1] = 1
            elseif cord_2[1] < 1 then
                cord_2[1] = size[1]
            elseif cord_2[2]>size[2] then
                cord_2[2] = 1
            elseif cord_2[2] < 1 then
                cord_2[2] = size[2]
            end
            if not area[cord_2[1]][cord_2[2]] then
                players[i].cord[1]=cord_2[1]
                players[i].cord[2]=cord_2[2]
                area[players[i].cord[1]][players[i].cord[2]]=players[i].number
                gpu.setBackground(0x00ff00)
                gpu.setForeground(0x000000)
                local rezerv = {conv_cord(players[i].cord[1], players[i].cord[2])}
                gpu.set(rezerv[1], rezerv[2], string.sub(players[i].name,1,2))
                if target[1]==players[i].cord[1] and target[2]==players[i].cord[2] then
                    players[i].number = players[i].number+1
                    gen_target()
                end
            else
                table.remove(players,i)
            end
            gpu.setBackground(0x000000)
            gpu.setForeground(0xffffff)
        end

        -- обновление и добавление ячеек
        for i=1, size[1] do
            for j=1, size[2] do
                if area[i][j] then
                    if area[i][j]>0 then
                        area[i][j]=area[i][j]-1
                    else
                        area[i][j]=false
                        gpu.setBackground(0x000000)
                        local rezerv = {conv_cord(i,j)}
                        gpu.set(rezerv[1], rezerv[2], "  ")
                    end
                end

            end
        end
    end

    -- очищаем экран
    gpu.setBackground(0x000000)
    gpu.setForeground(0xffffff)
    term.clear()
    event.listen("key_down", keyboard)

    gen_target()

    -- тело игры
    while true do
        os.sleep(t)
        if exit_game then
            term.clear()
            print("Exit game")
            os.sleep(2)
            term.clear()
            return
        end
        update()
    end

    term.clear()
end
return output