Tunnel2021_2

local args = {...}
local distance = tonumber(args[1])
local fuel = 1
local torches = 2
local place_block = 3
local max_slot = 16

local function refuel()
    if turtle.getFuelLevel() == 0 then
        local prev = turtle.getSelectedSlot()
        turtle.select(fuel)
        if not turtle.refuel(1) then
            print('Need more fuel')
            while not turtle.refuel(1) do
                sleep(1)
            end
        end
        turtle.select(prev)
    end
end

-- local function smart_dig_forward()
--     if turtle.detect() then
--         turtle.dig()
--     else
--         return
--     end

--     local slot = turtle.getSelectedSlot()
--     local i = 0

--     if (slot != max_slot) then
--         while (turtle.getItemCount() > 0 and slot != max_slot)
--         do
--             turtle.select(slot + i)
--             i = i + 1
--         end
--     end
-- end


local function tryForwards()
    refuel()
    while not turtle.forward() do
        if turtle.detect() then
            turtle.dig()
        end
        sleep(0.5)
    end
end

local function tryDown()
    refuel()
    while not turtle.down() do
        if turtle.detectDown() then
            turtle.digDown()
        end
        sleep(0.5)
    end
end

local function tryUp()
    refuel()
    while not turtle.up() do
        if turtle.detectUp() then
            turtle.digUp()
        end
        sleep(0.5)
    end
end

local function dig_block_gravel()
    turtle.dig()
    sleep(.5)
    while turtle.detect() do
        turtle.dig()
    end
end

local function placeTorch()
    local prev = turtle.getSelectedSlot()
    turtle.select(torches)
    turtle.place()
    turtle.select(prev)
end

local function placeBlock()
    local prev = turtle.getSelectedSlot()
    turtle.select(place_block)
    turtle.placeDown()
    turtle.select(prev)
end

local function clearSection(currDistance)
    tryUp()
    sleep(.25)
    tryUp()

    tryForwards()

    turtle.turnLeft()
    dig_block_gravel()

    turtle.turnRight()
    turtle.turnRight()
    dig_block_gravel()


    turtle.turnLeft()
    tryDown()

    turtle.turnLeft()
    turtle.dig()
    if currDistance % 6 == 1 then
        placeTorch()
    end

    turtle.turnRight()
    turtle.turnRight()
    turtle.dig()
    if currDistance % 6 == 1 then
        placeTorch()
    end

    turtle.turnLeft()
    tryDown()

    if not turtle.detectDown() then
        placeBlock()
    end

    turtle.turnLeft()
    tryForwards()

    if not turtle.detectDown() then
        placeBlock()
    end


    turtle.turnRight()
    turtle.turnRight()
    tryForwards()
    tryForwards()

    if not turtle.detectDown() then
        placeBlock()
    end

    turtle.turnLeft()
    turtle.turnLeft()
    tryForwards()

    turtle.turnRight()
end



local curr_distance = 0

while(curr_distance <= distance)
do
    turtle.select(1)

    for i = curr_distance, distance-1, 1 do
        clearSection(i)

        local slot = turtle.getSelectedSlot()

        if (slot ~= max_slot) then
            local j = 0
            while (turtle.getItemCount() > 0 and turtle.getSelectedSlot() ~= max_slot)
            do
                turtle.select(slot + j)
                j = j + 1
            end
        end

        curr_distance = curr_distance + 1

        if (turtle.getSelectedSlot() == 16) then
            break
        else
            turtle.select(slot)
        end

    end
    print(curr_distance)

    turtle.turnRight()
    turtle.turnRight()

    for i = 1, curr_distance, 1 do
        tryForwards()
    end

    for i = 4, 16, 1 do
        turtle.select(i)
        turtle.drop()
    end

    turtle.turnRight()
    turtle.turnRight()

    if (curr_distance == distance) then
        break
    end

    for i = 1, curr_distance, 1 do
        tryForwards()
    end
end