CC Turtle: Digger (LxWx1H) v0.2.6

local args = { ... }

local fl = turtle.getFuelLevel()
local dumpinventory = false

if #args < 1 then
    print("Usage: " .. args[0] .. " <length> [width] [dump inventory when done (true|false)]")
    return
end

local length = tonumber( args[1] )

if #args >= 2 then
    width = tonumber( args[2] )
else
    width = length
end

if #args == 3 then
    dumpinventory = args[3]
end

if length < 1 then
    print("Error: Length must be at least 1")
    return
end

if width < 1 then
    print("Error: Width must be at least 1")
    return
end

-- FIXME: We should use a better, runtime fuel check
--if fl < (length * 2) then
--  print("Error: Not enough fuel to complete the action (need at least " .. (length * 2) .. ")")
--  return
--end

local posX = -1         -- Relative distance from the starting corner. We start one block outside of the area.
local posZ = 0
local orientation = 0   -- 0: starting orientation; 1: right; 2: back; 3: left
local doneX = 0         -- Already cleared area, length
local doneZ = 0         -- Already cleared area, width
local tunnelDirection = 0   -- Direction that the tunnels will be dug
local distanceTraveled = 0  -- Total distance moved
local numBlocks = 0         -- Total number of blocks mined
local numAttacks = 0        -- Total number of times that we attacked mobs


-- Dig the block in front of the turtle until no block is detected anymore
function digUntilClear(face)
    if face == nil then
        face = "front"
    end

    if face == "up" then
        -- If there is a block above, dig it. Loop in case of falling sand/gravel.
        while turtle.detectUp() == true do
            if turtle.digUp() == true then
                numBlocks = numBlocks + 1
            else
                print("digUntilClear(\"up\"): Could not dig the block above! Aborting...")
                return false
            end
            sleep(0.5)
        end
    elseif face == "down" then
        -- If there is a block below, dig it.
        while turtle.detectDown() == true do
            if turtle.digDown() == true then
                numBlocks = numBlocks + 1
            else
                print("digUntilClear(\"down\"): Could not dig the block below! Aborting...")
                return false
            end
            sleep(0.5)
        end
    else -- front
        -- If there is a block in front, dig it. Loop in case of falling sand/gravel.
        while turtle.detect() == true do
            if turtle.dig() == true then
                numBlocks = numBlocks + 1
            else
                print("digUntilClear(): Could not dig the block in front! Aborting...")
                return false
            end
            sleep(0.5)
        end
    end

    return true
end


-- Attack as long as the attack succeeds (= mobs in front)
function attackUntilClear()
    local tmp1 = 0

    -- Attack if there are mobs in front of the turtle
    while turtle.attack() == true do
        numAttacks = numAttacks + 1
        -- Failsafe limit
        tmp1 = tmp1 + 1
        if tmp1 > 100 then
            print("attackUntilClear(): Hit the failsafe limit (100) of attacks!")
            return false
        end
    end

    return true
end


-- Move forward one block
function moveForward(dist)
    local tmp2 = 0

    if dist <= 0 then
        return true
    end

    for i = 1, dist do
        tmp2 = 0
        -- Attack while we can't move forward (because someONE is blocking us)
        while turtle.forward() == false do
            if attackUntilClear() == false then
                print("moveForward(dist = " .. dist .. "): attackUntilClear() returned false")
                return false
            end

            -- Failsafe limit
            tmp2 = tmp2 + 1
            if tmp2 > 100 then
                print("moveForward(dist = " .. dist .. "): Hit the failsafe limit (100) of trying to move")
                return false
            end
        end

        if orientation == 0 then
            posX = posX + 1
        elseif orientation == 1 then
            posZ = posZ + 1
        elseif orientation == 2 then
            posX = posX - 1
        elseif orientation == 3 then
            posZ = posZ - 1
        else
            print("moveForward(dist = " .. dist .. "): Invalid orientation!")
            return false
        end

        distanceTraveled = distanceTraveled + 1
    end

    return true
end


function turnRight()
    turtle.turnRight()
    orientation = (orientation + 1) % 4
end


function turnLeft()
    turtle.turnLeft()
    orientation = (orientation - 1) % 4
end


function reOrient(dir)
    if dir == orientation then
        return true
    end

    if dir > orientation then
        if (dir - orientation) <= 2 then
            while orientation ~= dir do
                turnRight()
            end
        else
            while orientation ~= dir do
                turnLeft()
            end
        end
    else -- orientation >= dir
        if (orientation - dir) <= 2 then
            while orientation ~= dir do
                turnLeft()
            end
        else
            while orientation ~= dir do
                turnRight()
            end
        end
    end

    return true
end


function digLeftAndRight(first, turn)
    if turn == nil then
        turn = "forward"
    end
    if first == nil then
        first = "left"
    end

    -- Dig to the left first
    if first == "left" then
        -- Dig the blocks that are to the left and to the right
        turnLeft()
        if digUntilClear() == false then
            print("digLeftAndRight(first = " .. first .. ", turn = " .. turn .. "): digUntilClear() (left)")
            return false
        end

        turnRight()
        turnRight()
        if digUntilClear() == false then
            print("digLeftAndRight(first = " .. first .. ", turn = " .. turn .. "): digUntilClear() (right)")
            return false
        end

        -- Which way do we want to be left facing
        if turn == "forward" or turn == nil then
            turnLeft()
        elseif turn == "backward" then
            turnRight()
        -- else: stay facing right
        end
    elseif first == "right" then -- right first
        -- Dig the blocks that are to the left and to the right
        turnRight()
        if digUntilClear() == false then
            print("digLeftAndRight(first = " .. first .. ", turn = " .. turn .. "): digUntilClear() (right)")
            return false
        end

        turnLeft()
        turnLeft()
        if digUntilClear() == false then
            print("digLeftAndRight(first = " .. first .. ", turn = " .. turn .. "): digUntilClear() (left)")
            return false
        end

        -- Which way do we want to be left facing
        if turn == "forward" then
            turnRight()
        elseif turn == "backward" then
            turnLeft()
        -- else: stay facing left
        end
    else
        print("digLeftAndRight(first = " .. first .. ", turn = " .. turn .. "): Invalid 'first' value")
        return false
    end

    return true
end


-- Dig a 3 wide, 1 high tunnel
-- len: Length of the tunnel we want to dig. We start outside of it.
-- lr: Do we want to dig to the left or to the right first (parameter to digLeftAndRight() )
-- turn: Which way do we want to face after the digLeftAndRight() finishes.
function digAndMoveForward3Wx1H(len, first, turn)
    if len <= 0 then
        return true
    end

    for i = 1, len do
        -- Dig the block in front
        if digUntilClear() == false then
            print("digAndMoveForward3Wx1H(): digUntilClear() (front, i = " .. i .. ")")
            return false
        end

        -- Move to the digged spot
        if moveForward(1) == false then
            print("digAndMoveForward3Wx1H(): moveForward(1) (i = " .. i .. ")")
            return false
        end

        -- Dig the blocks that are to the left and to the right
        if i < len then
            -- Reorient to the forward direction
            if digLeftAndRight(first, "forward") == false then
                print("digAndMoveForward3Wx1H(): digLeftAndRight(first = " .. first .. ") (i = " .. i .. ")")
                return false
            end
        else
            -- Last block, reorient to the requested direction
            if digLeftAndRight(first, turn) == false then
                print("digAndMoveForward3Wx1H(): digLeftAndRight(first = " .. first .. ", turn = " .. turn .. ") (last)")
                return false
            end
        end
    end

    return true
end


-- Dig a 2 wide, 1 high tunnel (to the right)
function digAndMoveForward2Wrx1H(len, turn)
    if len <= 0 then
        return true
    end
    if turn == nil then
        turn = "forward"
    end

    for i = 1, len do
        -- Dig the block directly in front
        if digUntilClear() == false then
            print("digAndMoveForward2Wrx1H(): digUntilClear() (front, i = " .. i .. ")")
            return false
        end

        -- Move to the digged spot
        if moveForward(1) == false then
            print("digAndMoveForward2Wrx1H(): moveForward(1) (i = " .. i .. ")")
            return false
        end

        -- Dig the block that is to the right
        turnRight()
        if digUntilClear() == false then
            print("digAndMoveForward2Wrx1H(): digUntilClear() (right, i = " .. i .. ")")
            return false
        end

        if i < len or turn == "forward" then
            -- Reorient to the forward direction
            turnLeft()
        elseif turn == "backward" then
            -- Turn around (= backwards)
            turnRight()
        -- else: leave facing right
        end
    end

    return true
end


-- Dig a 2 wide, 1 high tunnel (to the left)
function digAndMoveForward2Wlx1H(len, turn)
    if len <= 0 then
        return true
    end
    if turn == nil then
        turn = "forward"
    end

    for i = 1, len do
        -- Dig the block directly in front
        if digUntilClear() == false then
            print("digAndMoveForward2Wlx1H(): digUntilClear() (front, i = " .. i .. ")")
            return false
        end

        -- Move to the digged spot
        if moveForward(1) == false then
            print("digAndMoveForward2Wlx1H(): moveForward(1) (i = " .. i .. ")")
            return false
        end

        -- Dig the block that is to the left
        turnLeft()
        if digUntilClear() == false then
            print("digAndMoveForward2Wlx1H(): digUntilClear() (left, i = " .. i .. ")")
            return false
        end

        if i < len or turn == "forward" then
            -- Reorient to the forward direction
            turnRight()
        elseif turn == "backward" then
            -- Turn around (= backwards)
            turnLeft()
        -- else: leave facing left
        end
    end

    return true
end


-- Dig and move forward in a straight line (1 high)
function digAndMoveForward1Wx1H(len)
    if len <= 0 then
        return true
    end

    for i = 1, len do
        if digUntilClear() == false then
            print("digAndMoveForward1Wx1H(len = " .. len .. "): digUntilClear() (i = " .. i .. ")")
            return false
        end

        if moveForward(1) == false then
            print("digAndMoveForward1Wx1H(len = " .. len .. "): moveForward(1) (i = " .. i .. ")")
            return false
        end
    end

    return true
end


-- Dig and move forward in a straight line (2 high, up)
function digAndMoveForward1Wx2Hu(len)
    if len <= 0 then
        return true
    end

    for i = 1, len do
        if digUntilClear() == false then
            print("digAndMoveForward1Wx2Hu(len = " .. len .. "): digUntilClear() (i = " .. i .. ")")
            return false
        end

        if moveForward(1) == false then
            print("digAndMoveForward1Wx2Hu(len = " .. len .. "): moveForward(1) (i = " .. i .. ")")
            return false
        end

        if digUntilClear("up") == false then
            print("digAndMoveForward1Wx2Hu(len = " .. len .. "): digUntilClear(\"up\") (i = " .. i .. ")")
            return false
        end
    end

    return true
end


-- Dig and move forward in a straight line (2 high, down)
function digAndMoveForward1Wx2Hd(len)
    if len <= 0 then
        return true
    end

    for i = 1, len do
        if digUntilClear() == false then
            print("digAndMoveForward1Wx2Hd(len = " .. len .. "): digUntilClear() (i = " .. i .. ")")
            return false
        end

        if moveForward(1) == false then
            print("digAndMoveForward1Wx2Hd(len = " .. len .. "): moveForward(1) (i = " .. i .. ")")
            return false
        end

        if digUntilClear("down") == false then
            print("digAndMoveForward1Wx2Hd(len = " .. len .. "): digUntilClear(\"down\") (i = " .. i .. ")")
            return false
        end
    end

    return true
end


-- Move to the starting position for 1-wide-dig-to-the-right tunnels
function moveTo1WStartPos()
    -- Corner case: 1x1 area
    if posX < 0 and length == 1 then
        return true
    end
    -- The tunnels go "back and forth" from the starting position/orientation
    if tunnelDirection == 0 then
        -- We only have to move (and turn!) if we have dug something already
        -- ie. if this is the first tunnel and 1 wide, then we should be on the start position already
        if doneZ > 0 then
            reOrient(1)

            if digAndMoveForward1Wx1H(doneZ - posZ) == false then
                print("moveTo1WStartPos(): digAndMoveForward1Wx1H(doneZ - posZ)")
                return false
            end
        end

        -- We are at the starting end of the area
        if posX == 0 then
            reOrient(0)
        elseif posX == (length - 1) then -- We are at the back end of the area
            reOrient(2)
        else
            print("moveTo1WStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    -- The tunnels go "sideways/left and right" from the starting position/orientation
    elseif tunnelDirection == 1 then
        -- We only have to move (and turn!) if we have dug something already
        -- ie. if this is the first tunnel and 1 wide, then we should be on the position already
        if doneX > 0 then
            reOrient(0)

            if digAndMoveForward1Wx1H(doneX - posX) == false then
                print("moveTo1WStartPos(): digAndMoveForward1Wx1H(doneX - posX)")
                return false
            end
        end

        -- We are at the starting end of the area
        if posZ == 0 then
            reOrient(1)
        elseif posZ == (width - 1) then -- We are at the back end of the area
            reOrient(3)
        else
            print("moveTo2WrStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    end

    return true
end


-- Move to the starting position for 2-wide-dig-to-the-right tunnels
function moveTo2WrStartPos()
    -- The tunnels go "back and forth" from the starting position/orientation
    if tunnelDirection == 0 then
        reOrient(1)

        -- We are at the starting end of the area
        if posX == 0 then
            if digAndMoveForward1Wx1H(doneZ - posZ) == false then
                print("moveTo2WrStartPos(): digAndMoveForward1Wx1H(doneZ - posZ)")
                return false
            end
            -- Dig the block to the right of the start position
            if digUntilClear() == false then
                print("moveTo2WrStartPos(): digUntilClear() returned false")
                return false
            end
        elseif posX == (length - 1) then -- We are at the back end of the area
            if digAndMoveForward1Wx1H(doneZ - posZ + 1) == false then
                print("moveTo2WrStartPos(): digAndMoveForward1Wx1H(doneZ - posZ + 1)")
                return false
            end
        else
            print("moveTo2WrStartPos(): Invalid position while trying to reOrient()")
            return false
        end

        -- We are at the starting end of the area
        if posX == 0 then
            reOrient(0)
        elseif posX == (length - 1) then -- We are at the back end of the area
            reOrient(2)
        else
            print("moveTo2WrStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    -- The tunnels go "sideways/left and right" from the starting position/orientation
    elseif tunnelDirection == 1 then
        reOrient(0)

        -- We are at the starting end of the area
        if posZ == 0 then
            if digAndMoveForward1Wx1H(doneX - posX + 1) == false then
                print("moveTo2WrStartPos(): digAndMoveForward1Wx1H(doneX - posX + 1)")
                return false
            end
            reOrient(1)
        elseif posZ == (width - 1) then -- We are at the back end of the area
            if digAndMoveForward1Wx1H(doneX - posX) == false then
                print("moveTo2WrStartPos(): digAndMoveForward1Wx1H(doneX - posX)")
                return false
            end
            -- Dig the block to the right of the start position
            if digUntilClear() == false then
                print("moveTo2WrStartPos(): digUntilClear() returned false")
                return false
            end
            reOrient(3)
        else
            print("moveTo2WrStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    end

    return true
end


-- Move to the starting position for 2-wide-dig-to-the-left tunnels
function moveTo2WlStartPos()
    -- The tunnels go "back and forth" from the starting position/orientation
    if tunnelDirection == 0 then
        reOrient(1)

        -- We are at the starting end of the area
        if posX == 0 then
            if digAndMoveForward1Wx1H(doneZ - posZ + 1) == false then
                print("moveTo2WlStartPos(): digAndMoveForward1Wx1H(doneZ - posZ + 1)")
                return false
            end
        elseif posX == (length - 1) then -- We are at the back end of the area
            if digAndMoveForward1Wx1H(doneZ - posZ) == false then
                print("moveTo2WlStartPos(): digAndMoveForward1Wx1H(doneZ - posZ)")
                return false
            end
            -- Dig the block to the left of the start position
            if digUntilClear() == false then
                print("moveTo2WlStartPos(): digUntilClear() returned false")
                return false
            end
        else
            print("moveTo2WlStartPos(): Invalid position while trying to reOrient()")
            return false
        end

        -- We are at the starting end of the area
        if posX == 0 then
            reOrient(0)
        elseif posX == (length - 1) then -- We are at the back end of the area
            reOrient(2)
        else
            print("moveTo2WlStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    -- The tunnels go "sideways/left and right" from the starting position/orientation
    elseif tunnelDirection == 1 then
        reOrient(0)

        -- We are at the starting end of the area
        if posZ == 0 then
            if digAndMoveForward1Wx1H(doneX - posX) == false then
                print("moveTo2WlStartPos(): digAndMoveForward1Wx1H(doneX - posX)")
                return false
            end
            -- Dig the block to the left of the start position
            if digUntilClear() == false then
                print("moveTo2WlStartPos(): digUntilClear() returned false")
                return false
            end
            reOrient(1)
        elseif posZ == (width - 1) then -- We are at the back end of the area
            if digAndMoveForward1Wx1H(doneX - posX + 1) == false then
                print("moveTo2WlStartPos(): digAndMoveForward1Wx1H(doneX - posX + 1)")
                return false
            end
            reOrient(3)
        else
            print("moveTo2WlStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    end

    return true
end


-- Move to the starting position for 3-wide tunnels
function moveTo3WStartPos()
    -- The tunnels go "back and forth" from the starting position/orientation
    if tunnelDirection == 0 then
        reOrient(1)

        if digAndMoveForward1Wx1H(doneZ - posZ + 1) == false then
            print("moveTo3WStartPos(): digAndMoveForward1Wx1H(doneZ - posZ + 1)")
            return false
        end
        -- Dig the block to the right of the start position
        if digUntilClear() == false then
            print("moveTo2WrStartPos(): digUntilClear() returned false")
            return false
        end

        -- We are at the starting end of the area
        if posX == 0 then
            reOrient(0)
        elseif posX == (length - 1) then -- We are at the back end of the area
            reOrient(2)
        else
            print("moveTo3WStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    -- The tunnels go "sideways/left and right" from the starting position/orientation
    elseif tunnelDirection == 1 then
        reOrient(0)

        if digAndMoveForward1Wx1H(doneX - posX + 1) == false then
            print("moveTo3WStartPos(): digAndMoveForward1Wx1H(doneX - posX + 1)")
            return false
        end
        -- Dig the block to the right of the start position
        if digUntilClear() == false then
            print("moveTo2WrStartPos(): digUntilClear() returned false")
            return false
        end

        -- We are at the starting end of the area
        if posZ == 0 then
            reOrient(1)
        elseif posZ == (width - 1) then -- We are at the back end of the area
            reOrient(3)
        else
            print("moveTo3WStartPos(): Invalid position while trying to reOrient()")
            return false
        end
    end

    return true
end


-- Select the first slot so that the items get filled to the inventory starting from the first slot
turtle.select(1)

-- Corner case check: only move if the area is bigger than 1x1.
-- With 1x1 areas, the block gets dug in the end of the 1-wide tunneling phase.
if length > 1 then
    if digAndMoveForward1Wx1H(1) == false then
        print("digAndMoveForward1Wx1H(1): Error while trying to move to the starting corner of the area")
        return false
    end
end

-- We prefer to dig the tunnels in the longer dimension's direction, to avoid zig-zag
if length >= width then
    tunnelDirection = 0
    -- Dig tunnels until the requested width has been dug
    -- First, dig as many 3-wide tunnels as we can
    while (width - doneZ) >= 3 do
        if moveTo3WStartPos() == false then
            print("Area: dir: 0; 3-wides; moveTo3WStartPos()")
            return false
        end
        if posX == 0 then
            if digAndMoveForward3Wx1H(length - 1, "left", "right") == false then
                print("Area: dir: 0; 3-wides; digAndMoveForward3Wx1H(" .. (length - 1) .. ", \"left\", \"right\")")
                return false
            end
        elseif posX == (length - 1) then
            if digAndMoveForward3Wx1H(length - 1, "right", "left") == false then
                print("Area: dir: 0; 3-wides; digAndMoveForward3Wx1H(" .. (length - 1) .. ", \"right\", \"left\")")
                return false
            end
        else
            print("Error: Invalid position while digging 3-wide tunnels")
            return false
        end

        doneZ = doneZ + 3
    end
    -- Then dig 0 or 1 2-wide tunnels
    while (width - doneZ) >= 2 do
        if posX == 0 then
            if moveTo2WrStartPos() == false then
                print("Area: dir: 0; 2-wides; moveTo2WrStartPos()")
                return false
            end
            if digAndMoveForward2Wrx1H(length - 1, "right") == false then
                print("Area: dir: 0; 2-wides; digAndMoveForward2Wrx1H(" .. (length - 1) .. ", \"right\")")
                return false
            end
        elseif posX == (length - 1) then
            if moveTo2WlStartPos() == false then
                print("Area: dir: 0; 2-wides; moveTo2WlStartPos()")
                return false
            end
            if digAndMoveForward2Wlx1H(length - 1, "left") == false then
                print("Area: dir: 0; 2-wides; digAndMoveForward2Wlx1H(" .. (length - 1) .. ", \"left\")")
                return false
            end
        else
            print("Error: Invalid position while digging 2-wide tunnels")
            return false
        end

        doneZ = doneZ + 2
    end
    -- And finally dig 0 or 1 1-wide tunnels
    while (width - doneZ) > 0 do
        -- The same function for the start position as the 2Wr
        if moveTo1WStartPos() == false then
            print("Area: dir: 0; 1-wides; moveTo1WStartPos()")
            return false
        end
        if digAndMoveForward1Wx1H(length - 2) == false then
            print("Area: dir: 0; 1-wides; digAndMoveForward1Wx1H(" .. (length - 1) .. ")")
            return false
        end
        if digUntilClear() == false then
            print("Error: digUntilClear() returned false (while digging the last block)")
            return false
        end
        doneZ = doneZ + 1
    end
else
    tunnelDirection = 1
    -- Dig tunnels until the requested length has been dug (we are digging the tunnels "sideways",
    -- because the requested width is larger than the length)
    -- First, dig as many 3-wide tunnels as we can
    while (length - doneX) >= 3 do
        if moveTo3WStartPos() == false then
            print("Area: dir: 1; 3-wides; moveTo3WStartPos()")
            return false
        end
        if posZ == 0 then
            if digAndMoveForward3Wx1H(width - 1, "right", "left") == false then
                print("Area: dir: 1; 3-wides; digAndMoveForward3Wx1H(" .. (width - 1) .. ", \"right\", \"left\")")
                return false
            end
        elseif posZ == (width - 1) then
            if digAndMoveForward3Wx1H(width - 1, "left", "right") == false then
                print("Area: dir: 1; 3-wides; digAndMoveForward3Wx1H(" .. (width - 1) .. ", \"left\", \"right\")")
                return false
            end
        else
            print("Error: Invalid position while digging 3-wide tunnels")
            return false
        end
        doneX = doneX + 3
    end
    -- Then dig 0 or 1 2-wide tunnels
    while (length - doneX) >= 2 do
        if posZ == 0 then
            if moveTo2WlStartPos() == false then
                print("Area: dir: 1; 2-wides; moveTo2WlStartPos()")
                return false
            end
            if digAndMoveForward2Wlx1H(width - 1, "left") == false then
                print("Area: dir: 1; 2-wides; digAndMoveForward2Wlx1H(" .. (width - 1) ..", \"left\")")
                return false
            end
        elseif posZ == (width - 1) then
            if moveTo2WrStartPos() == false then
                print("Area: dir: 1; 2-wides; moveTo2WrStartPos()")
                return false
            end
            if digAndMoveForward2Wrx1H(width - 1, "right") == false then
                print("Area: dir: 1; 2-wides; digAndMoveForward2Wrx1H(" .. (width - 1) .. ", \"right\")")
                return false
            end
        else
            print("Error: Invalid orientation while digging 2-wide tunnels")
            return false
        end
        doneX = doneX + 2
    end
    -- And finally dig 0 or 1 1-wide tunnels
    while (length - doneX) > 0 do
        -- The same function for the start position as the 2Wr
        if moveTo1WStartPos() == false then
            print("Area: dir: 1; 1-wides; moveTo1WStartPos()")
            return false
        end
        if digAndMoveForward1Wx1H(width - 2) == false then
            print("Area: dir: 1; 1-wides; digAndMoveForward1Wx1H(" .. (width - 1) .. ")")
            return false
        end
        if digUntilClear() == false then
            print("Error: digUntilClear() returned false (while digging the last block)")
            return false
        end
        doneX = doneX + 1
    end
end


function moveToX(X)
    if X < posX then
        reOrient(2)
        if digAndMoveForward1Wx1H(posX - X) == false then
            print("moveToX(): digAndMoveForward1Wx1H(posX - X = " .. (posX - X) .. ")")
            return false
        end
    elseif posX < X then
        reOrient(0)
        if digAndMoveForward1Wx1H(X - posX) == false then
            print("moveToX(): digAndMoveForward1Wx1H(X - posX = " .. (X - posX) .. ")")
            return false
        end
    end

    return true
end


function moveToZ(Z)
    if Z < posZ then
        reOrient(3)
        if digAndMoveForward1Wx1H(posZ - Z) == false then
            print("moveToZ(): digAndMoveForward1Wx1H(posZ - Z = " .. (posZ - Z) .. ")")
            return false
        end
    elseif posZ < Z then
        reOrient(1)
        if digAndMoveForward1Wx1H(Z - posZ) == false then
            print("moveToZ(): digAndMoveForward1Wx1H(Z - posZ = " .. (Z - posZ) .. ")")
            return false
        end
    end

    return true
end

if length > 1 or width > 1 then
    -- Return to the starting corner
    if orientation == 0 or orientation == 3 then
        moveToZ(0)
        moveToX(0)
    else
        moveToX(0)
        moveToZ(0)
    end
end


if posX == 0 then
    reOrient(2)
    if digAndMoveForward1Wx1H(1) == false then
        print("digAndMoveForward1Wx1H(1): Error while trying to move to the starting corner of the area")
        return false
    end
elseif posX ~= -1 then
    print("Error: Wrong position while trying to move to the starting spot")
    return false
end

if dumpinventory == "true" then
--  reOrient(2)
    -- If there is a block behind the starting position, assume it is a chest
    -- and dump the inventory to it.
    if turtle.detect() then
        for i = 1, 16 do
            turtle.select(i)
            turtle.drop()
--          if turtle.drop() == false then
--              break
--          end
        end
    end
end

-- And finally reorient
reOrient(0)

-- And print a summary
print("Done.")
print("Mined " .. numBlocks .. " blocks.")
print("Moved a total of " .. distanceTraveled .. " blocks.")
print("Attacked mobs " .. numAttacks .. " times.")