sfsf

--MINING A STRIPMINE

--Local variables
local depth = 5
local turnLeft = true
local number_of_tunnel_pairs = 2
local piller_size = 3

--FUNCTIONS
--REFUEL WAITING
local function waitForRefueling()
    print("TURTLE NEEDS FUEL in slot 1")
    while true do
        sleep(1)
        if turtle.getFuelLevel() > 1 then
            break
        end
    end
end


--UPPDATE FUEL
local function uppdateFuel(rFL)
    while turtle.getFuelLevel() < rFL do
        turtle.select(1)
        if turtle.getItemCount() <= 1 then
            waitForRefueling() --MAKE FUNCTION
        end
        turtle.refuel(1)
    end
end


--GOING FOREWARD ONCE
local function forewardOnce()
    uppdateFuel(200)
    while turtle.detect() do
        turtle.dig()
    end
    turtle.forward()
    if turtle.detectUp() then
        turtle.digUp()
    end
    if turtle.detectDown() then
        turtle.digDown()
    end
end


-- GOING FOREWARD IN A LINE
local function forewardLine(Length)
    current_length = Length
    while current_length > 0 do
        forewardOnce()
        current_length = current_length - 1
    end
end


--TURN AT END OF THE LINE
local function turnAtEndOfLine()
    if turnLeft == true then
        turtle.turnLeft()
    else
        turtle.turnRight()
    end
    forewardLine(piller_size + 1)
    if turnLeft == true then
        turtle.turnLeft()
    else
        turtle.turnRight()
    end
end


--DO TUNNEL PAIR
local function tunnelPair()
    forewardLine(depth)
    turnAtEndOfLine()
    forewardLine(depth)
end


--FUNCTION FOR FUNCTION BELLOW !IGNORE!
local function turnSync()
    if turnLeft == true then
        turtle.turnLeft()
    else
        turtle.turnRight()
    end
end


--FUNCTION FOR FUNCTION BELOW !IGNORE!
local function turnSyncReverse()
    if turnLeft == true then
        turtle.turnRight()
    else
        turtle.turnLeft()
    end
end


--TURN AT FRONT OF LINE
local function turnAtFrontOfLine()
    turnSync()
    forewardLine(piller_size)
    turnSyncReverse()
    forewardOnce()
    turnSyncReverse()
    forewardLine(2*piller_size + 1)
    turnSyncReverse()
    forewardOnce()

    --Take away ugly stuff
    turnSyncReverse()
    forewardLine(piller_size)

    N = piller_size
    while N > 0 do
        turtle.back()
        N = N - 1
    end

    turnSync()

end


--MAIN
local function main()
    current_tunnel_pair = 1
    while current_tunnel_pair <= number_of_tunnel_pairs do
        tunnelPair()
        turnAtFrontOfLine()
        current_tunnel_pair = current_tunnel_pair + 1
    end
end


--GETTING INPUT FUNCTION
local function askForInput()
    print("NOT MADE YET")
end


--RUNNING PROGRAM
askForInput()
main()