Quarry.lua

partnerID = 0
turtle.refuel(1)

function mine()
    turtle.dig()
    turtle.digUp()
    turtle.forward()
end

function turnLeft()
    turtle.turnLeft()
    mine()
    turtle.turnLeft()
end

function turnRight()
    turtle.turnRight()
    mine()
    turtle.turnRight()
end

print("How wide?")
width = tonumber(read())
print("How long?")
length = tonumber(read())
print("How many layers?")
layers = tonumber(read())

function mineWidth()
    for i = width-1,1,-1 do
    mine()
    rednet.send(partnerID,"Forward")
    end
end

turnCount = 1
function mineTotal()
    for i = length,1,-1 do
        mineWidth()
        if i ~= 1 then
            if turnCount == 1 then
                turnLeft()
                rednet.send(partnerID,"turnLeft")
                turnCount = turnCount + 1
            elseif turnCount == 2 then
                turnRight()
                rednet.send(partnerID,"turnRight")
                turnCount = turnCount - 1
            end
        end
    end
end

function mineFull()
    turtle.digDown()
    turtle.down()
    rednet.send(partnerID,"Down")
    mineTotal()
    turtle.turnLeft()
    turtle.turnLeft()
    rednet.send(partnerID,"Turn Around")
end

function ivFull()
    for i = 1,16 do
        if turtle.getItemCount(i) == 0 then
            return false
        end
    end
    return true
end

function layerCount()
    for i=layers,1,-1 do
        if ivFull() == false then
            mineFull()
        else
            turtle.turnLeft()
            turtle.dig()
            turtle.place()
            for i = 2,16 do
                turtle.select(i)
                turtle.drop()
            end
            turtle.turnRight()
            turtle.select(1)
        end
        select(1)
        if turtle.getItemCount(1) == 0 then
            break
        end
    end
    for i=layers,1,-1 do
        rednet.send(partnerID,"Up")
        turtle.up()
    end
end

rednet.open("left")
rednet.receive()
rednet.send(partnerID,"Begin")

layerCount()