Karyer 10x10

--Я написал небольшой и простой код для робота.
--Его задача копать 10х10 карьер до бедрока.
--Выбрасивает мусор когда пройдёт 10 столбов.
--В 1,2,3 слот нужно положить то что робот будет выкидывать. Иначе если попадёт туда руда он будет и её выбрасывать.
--(песок, булыжник, гравий, землю) любо что но главное что бы первые 3 слота были заполнены.
-- http://computercraft.ru/topic/832-robot-shakhtyor/

--======http://computercraft.ru,  2015. zed(c) =====
robot = require("robot")
d = 1
print("На какой высоте стоит робот")
a = io.read()


function stolb()
    for i = 1, a - 6 do
        robot.swingDown()
        robot.down()
    end
    for i = 1, a - 6 do
        robot.up()
    end
end

function povorot()
    if d == 1
        then    robot.turnLeft()    robot.swing()   robot.forward() robot.turnLeft() robot.swing() robot.forward() d = d + 1
        else    robot.turnRight()   robot.swing()   robot.forward() robot.turnRight() robot.swing() robot.forward() d = d - 1
    end
end

function mysor()
    for i = 1, 3 do
        robot.drop(robot.count()-1)
        for j = 4, 16 do
            robot.select(j)
            if robot.compareTo(i) == true then robot.drop()
            end
        end
    end
end

function put()
    for f = 1, 10 do
        for i = 1, 10 do
            stolb()
            robot.swing()
            robot.forward()
        end
        mysor()
        povorot()
    end
end

put()