quarry

local lines =  tonumber(...)


local sStep,stepINV     = "top" , false
local sClutch,clutchINV   = "back" , true
local sShift,shiftINV    = "right" , true
local sPower,powerINV    = "left" , false
local sFeedback,feedbackINV = "bottom" , false


redstone.setOutput(sShift , not(shiftINV == true))
redstone.setOutput(sPower , not(powerINV == true))
redstone.setOutput(sClutch , not(true == clutchINV)) --move up
sleep(1)
local feedback = feedbackINV
while (feedback == feedbackINV) do
    feedback = redstone.getInput(sFeedback)
end
redstone.setOutput(sClutch , not(false == clutchINV))
redstone.setOutput(sPower , not(powerINV == false))
sleep(1)



while lines > 0 do

    print(lines)

    lines = lines - 1



    redstone.setOutput(sClutch,not(false == clutchINV))
    redstone.setOutput(sPower , not(powerINV == false))
    redstone.setOutput(sShift , not(shiftINV == true))
    redstone.setOutput(sStep , not(true == stepINV))
    sleep(0.5)
    redstone.setOutput(sStep , not(false == stepINV))     -- step
    sleep(1)
    local feedback = feedbackINV
    while (feedback == feedbackINV) do
        feedback = redstone.getInput(sFeedback)
        sleep(1)
    end
    sleep(1)


    redstone.setOutput(sShift , not(shiftINV == false))
    redstone.setOutput(sPower , not(powerINV == true))
    redstone.setOutput(sClutch , not(true == clutchINV)) --move down
    sleep(1)
    local feedback = feedbackINV
    while (feedback == feedbackINV) do
        feedback = redstone.getInput(sFeedback)
        sleep(1)
    end
    redstone.setOutput(sClutch,not(false == clutchINV))
    redstone.setOutput(sPower , not(powerINV == false))
    sleep(1)



    redstone.setOutput(sShift , not(shiftINV == true))
    redstone.setOutput(sPower , not(powerINV == true))
    redstone.setOutput(sClutch , not(true == clutchINV)) --move up
    sleep(1)
    local feedback = feedbackINV
    while (feedback == feedbackINV) do
        feedback = redstone.getInput(sFeedback)
        sleep(1)
    end
    redstone.setOutput(sClutch , not(false == clutchINV))
    redstone.setOutput(sPower , not(powerINV == false))
    sleep(1)



end

print("done")