Quarry

xCoord = -1668
zCoord = -484
yCoord = 127

orientation = 4
orientations = {"North","East","South","West"}

zDiff = {-1, 0, 1, 0}
xDiff = {0, 1, 0, -1}

Length = 9
Width = 10
yMin = yCoord

xQuarry = 999
zQuarry = 999
yQuarry = 150

xProgress = 999
zProgress = 999
yProgress = 150
oProgress = 1

xHome = xCoord
zHome = zCoord
yHome = yCoord

yTravel = 145

jobAvailable = true

HiveID = 55

function inventoryFull()
    turtle.select(9)
    full = turtle.getItemCount(9) > 0
    turtle.select(1)
    return full
end

function left()
    orientation = orientation -1
    orientation = (orientation -1) % 4
    orientation = orientation +1

    turtle.turnLeft()
end

function right()
    orientation = orientation -1
    orientation = (orientation +1) % 4
    orientation = orientation +1

    turtle.turnRight()
end

function moveForward()
    xCoord = xCoord + xDiff[orientation]
    zCoord = zCoord + zDiff[orientation]
    while turtle.detect() do
        turtle.dig()
    end
    moved = false
    while not(moved) do
        moved = turtle.forward()
    end
end

function moveUp()
    yCoord = yCoord +1

    turtle.digUp()

    moved = false
    while not(moved) do
        moved = turtle.up()
    end
end

function moveDown()
    yCoord = yCoord -1

    turtle.digDown()

    moved = false
    while not(moved) do
        moved = turtle.down()
    end

    if yMin > yCoord then
        yMin = yCoord
    end
end

function look(direction)
    while direction ~= orientations[orientation] do
        right()
    end
end

function goto(xTarget,zTarget,yTarget)
    while yTarget < yCoord do
        moveDown()
    end
    while yTarget > yCoord do
        moveUp()
    end

    if xTarget < xCoord then
        look("West")
        while xTarget < xCoord do
            moveForward()
        end
    end
    if xTarget > xCoord then
        look("East")
        while xTarget > xCoord do
            moveForward()
        end
    end

    if zTarget < zCoord then
        look("North")
        while zTarget < zCoord do
            moveForward()
        end
    end
    if zTarget > zCoord then
        look("South")
        while zTarget > zCoord do
            moveForward()
        end
    end
end

function returnItems()
    xProgress = xCoord
    zProgress = zCoord
    yProgress = yCoord
    oProgress = orientation

    goto(xHome, zHome, yTravel)
    goto(xHome, zHome, yHome)
    look("North")
    for i = 1,9 do
        turtle.select(i)
        turtle.drop()
    end
    turtle.select(1)

    goto(xProgress, zProgress, yTravel)
    goto(xProgress, zProgress, yProgress)
    look(orientations[oProgress])
end

function digLine()
    for i = 1,Length do
        if inventoryFull() then
            returnItems()
        end
        moveForward()
    end
end

function digLayer()
    for i = 1,Width do
        digLine()
        if (i%2) == 1 and i < Width then
            left()
            moveForward()
            left()
        elseif i < Width then
            right()
            moveForward()
            right()
        end
    end
    goto(xQuarry, zQuarry, yCoord)
    look("North")
    moveDown()
end

function digQuarry(xTarget, zTarget, yTarget)
    xQuarry = xTarget
    zQuarry = zTarget
    yQuarry = yTarget

    goto(xQuarry,zQuarry,yTravel)
    goto(xQuarry,zQuarry,yQuarry)
    look("North")
    while yMin > 5 do
        digLayer()
    end
    goto(xQuarry, zQuarry, yQuarry)
    goto(xHome, zHome, yTravel)
    goto(xHome, zHome, yHome)
    yMin = 999
end

function getJob()
    while jobAvailable do
        print("Requesting Job")
        rednet.send(HiveID, "getJob")
        id, message,protocol = rednet.receive()

        if message == "yes" then
            id, xRec, protocol = rednet.receive()
            id, zRec, protocol = rednet.receive()
            id, yRec, protocol = rednet.receive()

            xQuarry = tonumber(xRec)
            zQuarry = tonumber(zRec)
            yQuarry = tonumber(yRec)

            print("Job at X:".. xQuarry.." Y:"..zQuarry)
            digQuarry(xQuarry, zQuarry, yQuarry)
            print("Finished Job")
        elseif message == "no" then
            print("No more Jobs")
            jobAvailable = false
        end
    end
end

rednet.close("right")
rednet.open("right")
getJob()