TurtleTunnel

P_START = 0
P_PLCTORCH = 1
P_RIGHTCLR = 2
P_LEFTCLR = 3
P_RETURN = 4
P_DONE = 5

local tArgs = { ... }

local length

local state = nil
local state_file = fs.open("tunnel_state.dat", "r")
if state_file ~= nil then
    state = textutils.unserialize(state_file.readLine())
    length = state.length
    state_file.close()
else
    if #tArgs ~= 2 and #tArgs ~=1 then
        error( "Usage: tunnel3 <length>" )
    end
    length = tonumber( tArgs[1] )
    if length < 1 then
        print( "Tunnel length must be positive" )
        return
    end
    state = {i=1,n=1,phase = P_START, ["length"] = length}
end



-- Mine in a quarry pattern until we hit something we can't dig

local collected = 0

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

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

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

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

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

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

    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

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

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

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

-- Retrieve enderchest if still out
function checkChest(slotNum)
    if turtle.getItemCount(slotNum) == 0 then
        turtle.select(slotNum)
        turtle.dig()
    end
    if turtle.getItemCount(slotNum) == 0 then
        error("Missing chest")
    end
end

print( "Tunnelling..." )





checkChest(13)
checkChest(14)
checkChest(16)

function saveState()
    local state_file = fs.open("tunnel_state.dat", "w")
    state_file.writeLine(textutils.serialize(state))
    state_file.close()
end

function returnStart()
    turtle.turnLeft()
    for n=state.n, (length/3)*3-2 do
        state.n = n
        state.phase = P_RETURN
        saveState()
        turtle.select(1)
        tryForward()
    end
    tryDown()
    turtle.turnLeft()
    dump()


    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." )
    fs.delete("tunnel_state.dat")
    error(0)
end




for i=state.i,(length/3) do
    function start()
        for n=state.n,length do
            state.n = n
            state.phase = P_START
            saveState()
        print("filling path")
            turtle.select(1)
            turtle.placeDown()
            if n<length then
                tryDigUp()
                if not tryForward() then
                    error( "Aborting Tunnel." )
                end
            end
        end
        state.n = 1


    -- Hope turtle isn't shut dwon in this critical block
        turtle.turnRight()
        turtle.turnRight()
        tryUp()
    --
    --
        plcTorch()
    end

    function plcTorch()
        for n=state.n,length-1 do
            state.n = n
            state.phase = P_PLCTORCH
            saveState()
        turtle.select(1)
            tryDigUp()
            if n % 3 == 0 then
                turtle.select(15)
                while turtle.getItemCount(15) < 5 do
                    turtle.select(1)
                    turtle.dig()
                    turtle.select(13)
                    turtle.place()
                    turtle.select(15)
                    turtle.suck()
                    turtle.select(13)
                    turtle.dig()
                    turtle.select(15)
                    if turtle.getItemCount(15) < 5 then
                        print( "Add more torches to continue." )
                        sleep(1)
                    end
                end
                turtle.placeDown()
            end
            if not tryForward() then
                error( "Aborting Tunnel." )
            end
        end
        state.n = 1

    -- Hope turtle isn't shut dwon in this critical block
        turtle.turnLeft()
        tryDig()
        if not tryForward() then
            error( "Aborting Tunnel." )
        end
        turtle.turnLeft()
    --
    --
        rightClr()
    end


    function rightClr()
        for n=state.n,length-1 do
            state.n = n
            state.phase = P_RIGHTCLR
            saveState()
        turtle.select(1)
            tryDigUp()
            tryDigDown()
            if not tryForward() then
                error( "Aborting Tunnel." )
            end
        end
        state.n = 1



    -- Hope turtle isn't shut dwon in this critical block
        tryDigUp()
        tryDigDown()
        turtle.turnLeft()
        if not tryForward() then
            error( "Aborting Tunnel." )
        end
        tryDig()
        if not tryForward() then
            error( "Aborting Tunnel." )
        end
        turtle.turnLeft()
    --
    --
        leftClr()
    end

    function leftClr()
        for n=state.n,length-1 do
            state.n = n
            state.phase = P_LEFTCLR
            saveState()
        turtle.select(1)
            tryDigUp()
            tryDigDown()
            if not tryForward() then
                error( "Aborting Tunnel." )
            end
        end
        state.n = 1

    -- Hope turtle isn't shut dwon in this critical block
        if i ~= length/3 then
            turtle.turnRight()
            tryDigUp()
            tryDigDown()
            tryForward()
            tryDigUp()
            tryDigDown()
            tryForward()
            tryDigUp()
            tryDown()
            turtle.turnRight()
            state.phase = P_START
        saveState()
        else
            returnStart()
        end
    --
    --

    end

    state.i = i
    if state.phase == P_START then
        start()
    elseif state.phase == P_PLCTORCH then
        plcTorch()
    elseif state.phase == P_RIGHTCLR then
        rightClr()
    elseif state.phase == P_LEFTCLR then
        leftClr()
    elseif state.phase == P_RETURN then
        returnStart()
    end
end
returnStart()




-- vim: set ft=lua: