TurtleLight

local depth = 0
local collected = 0
local slot

local function dump()
    turtle.dig()
    turtle.select(14)
    turtle.place()
    for i=1,12 do
        turtle.select(i)
        turtle.drop()
    end
    turtle.select(14)
    turtle.dig()
end

local function collect()
    collected = collected + 1
    if math.fmod(collected, 25) == 0 then
        print( "Mined "..collected.." items." )
    end
    if math.fmod(collected, 128) == 0 then
        dump()
    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()
        turtle.dig()
        turtle.select(16)
        turtle.place()
        turtle.suck()
        if turtle.refuel() then
            turtle.dig()
            return true
        else
            turtle.dig()
            return false
        end
    end

    if not tryRefuel() then
        print( "Add more fuel to continue." )
        while not tryRefuel() do
            sleep(1)
        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


for i=1,47-1 do
    if i % 4 == 0 then
        turtle.turnLeft()
        for j=1,47-1 do
            tryForward()
            if j % 4 == 0 then
                tryDigDown()
                for k = 1,16 do
                    if turtle.getItemCount(k) > 0 then
                        turtle.select(k)
                        break
                    end
                end
                turtle.placeDown()
            end
        end
        turtle.turnRight()
        turtle.turnRight()
        for j=1,47-1 do
            tryForward()
        end
        turtle.turnLeft()
    end
    tryForward()
end


print( "Tunnel complete." )
--[[
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." )
-- vim: set ft=lua: