projectDigsALot

local tArgs = { ... }
if #tArgs ~= 1 then
    print( "Usage: tunnel <length>" )
    return
end

-- Mine in a quarry pattern until we hit something we can't dig
local length = tonumber( tArgs[1] )
if length < 1 then
    print( "Tunnel length must be positive" )
    return
end

local depth = 0
local collected = 0

local function collect()
    collected = collected + 1
    if math.fmod(collected, 25) == 0 then
        print( "Mined "..collected.." items." )
    end
end

local function tryDig()
    while turtle.detect() do
        if turtle.dig() then
            collect()
            sleep(0.5)
        else
            return false
        end
    end
    return true
end

local function tryDigUp()
    while turtle.detectUp() do
        if turtle.digUp() then
            collect()
            sleep(0.5)
        else
            return false
        end
    end
    return true
end

local function tryDigDown()
    while turtle.detectDown() do
        if turtle.digDown() then
            collect()
            sleep(0.5)
        else
            return false
        end
    end
    return true
end

local function refuel()
    local fuelLevel = turtle.getFuelLevel()
    if fuelLevel == "unlimited" or fuelLevel > 0 then
        return
    end

    local function tryRefuel()
        for n=1,16 do
            if turtle.getItemCount(n) > 0 then
                turtle.select(n)
                if turtle.refuel(1) then
                    turtle.select(1)
                    return true
                end
            end
        end
        turtle.select(1)
        return false
    end

    if not tryRefuel() then
        print( "Add more fuel to continue." )
        while not tryRefuel() do
            os.pullEvent( "turtle_inventory" )
        end
        print( "Resuming Tunnel." )
    end
end

local function tryUp()
    refuel()
    while not turtle.up() do
        if turtle.detectUp() then
            if not tryDigUp() then
                return false
            end
        elseif turtle.attackUp() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

local function tryDown()
    refuel()
    while not turtle.down() do
        if turtle.detectDown() then
            if not tryDigDown() then
                return false
            end
        elseif turtle.attackDown() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

local function tryForward()
    refuel()
    while not turtle.forward() do
        if turtle.detect() then
            if not tryDig() then
                return false
            end
        elseif turtle.attack() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

local function branch()
    for i = 1, 7, 1 do
        tryDig()
        tryForward()
        tryDigUp()
    end
    tryUp()
    turtle.turnRight()
    tryDig()
    turtle.select(2)
    turtle.place()
    turtle.select(1)
 tryDown()

    turtle.turnRight()
    for i = 1, 8, 1 do
        tryForward()
    end

end

local function sideBranches()
    turtle.turnLeft()
    tryForward()
    branch()
    tryForward()
    branch()
    turtle.turnRight()

end

local function placeTorch()
    turtle.turnRight()
    tryUp()
    turtle.select(2)
    turtle.place()
    turtle.select(1)
    tryDown()
    turtle.turnLeft()

end

local function checkInv()
    if turtle.getItemCount(12) > 0 then
        return true
    end
    return false
end

local function returnToPoint(distance)

    while distance > 0 do
        if turtle.forward() then
            distance = distance - 1
        else
            turtle.dig()
        end
    end
end


local function turnAround()
    turtle.turnRight()
    turtle.turnRight()

end


local function mineMain()
    turtle.placeDown()
    tryDigUp()
    turtle.turnLeft()
    tryDig()
    tryUp()
    tryDig()
    turnAround()
    tryDig()
    tryDown()
    tryDig()
    turtle.turnLeft()

end

local function placeChest()
    turtle.turnLeft()
    tryForward()
    turtle.select(3)
    tryDig()
    turtle.place()
    turtle.select(1)
    tryUp()
    tryDig()
    tryDown()
    turnAround()
    tryForward()
    turtle.turnLeft()

end

function putAwayInventory()
    for i=4,16 do
        if turtle.getItemCount(i) > 0 then
            turtle.select(i)
            turtle.dropDown()
        end
    end
    turtle.select(1)
end

print( "Tunnelling..." )

nextBranch = 1
nextTorch = 2
tryDig()
tryForward()
mineMain()

for n=1,length do
    mineMain()
    if n > 1 and n < 4 then
        placeChest()
    end
    if n == nextBranch then
        sideBranches()
        nextBranch = nextBranch + 3
    end
    if n == nextTorch then
        placeTorch()
        nextTorch = nextTorch + 6
    end
    if checkInv() then
        numBlocks = n - 2
        turnAround()
        returnToPoint(numBlocks)
        turtle.turnRight()
        tryUp()
        tryForward()
        tryForward()
        putAwayInventory()
        turnAround()
        tryForward()
        tryForward()
        tryDown()
        turtle.turnLeft()
        returnToPoint(numBlocks)

    end
    if n<length then
        tryDig()
        if not tryForward() then
            print( "Aborting Tunnel." )
            break
        end
        depth = depth + 1
    else
        print( "Tunnel complete." )
        turnAround()
        depth = depth - 2
        returnToPoint(depth)
        turtle.turnRight()
        tryUp()
        tryForward()
        tryForward()
        putAwayInventory()
        turnAround()
        tryForward()
        tryForward()
        tryDown()
        turtle.turnRight()
        tryForward()
        tryForward()
        turnAround()


    end

end

--[[
print( "Returning to start..." )

-- Return to where we started
turtle.turnLeft()
turtle.turnLeft()
while depth > 0 do
    if turtle.forward() then
        depth = depth - 1
    else
        turtle.dig()
    end
end
turtle.turnRight()
turtle.turnRight()
]]

print( "Tunnel complete." )
print( "Mined "..collected.." items total." )