sdf

local dn = 15
local counter = 0
local length, walk = ...
local delay = 0.30
if length == nil then
    print("Jendrek stinkt, give a number ffs...\n")
    return false
end

if walk == 'true' then
    walk = true
else
    walk = false
end


X = 0
Y = 0
Z = 0
O = 0

--[[
Forward = 0
Right = 1
Back = 2
Left = 3
]]--


function left(q)
    if q == nil then q = 1 end
    for i=1,q do
        turtle.turnLeft()
        if O == 0 then
            O = 3
        else
            O = O - 1
        end
    end
    return true
end

function right(q)
    if q == nil then q = 1 end
    for i=1,q do
        turtle.turnRight()
        if O == 3 then
            O = 0
        else
            O = O + 1
        end
    end
    return true
end

function up(q)
    if q == nil then q = 1 end
    for i=1,q do
        while not turtle.up() do
            digUp()
            turtle.up()
            sleep(delay)
        end
        Y = Y + 1
    end
    return true
end

function down(q)
    if q == nil then q = 1 end
    for i=1,q do
        while not turtle.down() do
            digDown()
            turtle.attackDown()
            sleep(delay)
        end
        Y = Y - 1
    end
    return true
end

function forward(q)
    if q == nil then q = 1 end
    for i=1,q do
        while not turtle.forward() do
            turtle.dig()
            turtle.attack()
            sleep(delay)
        end
        if O == 0 then
            X = X + 1
        elseif O == 1 then
            Z = Z + 1
        elseif O == 2 then
            X = X - 1
        elseif O == 3 then
            Z = Z - 1
        end
    end
    return true
end

function back()
    right()
    right()
    forward()
    left()
    left()
    return true
end

function orient(arg1)
    while arg1 ~= O do
            right()
    end
    return true
end

function dig()
    while turtle.detect() do
        turtle.dig()
        sleep(delay)
    end
    return true
end

function digUp()
    while turtle.detectUp() do
        turtle.digUp()
        sleep(delay)
    end
    return true
end

function digDown()
    while turtle.detectDown() do
        turtle.digDown()
        sleep(delay)
    end
    return true
end


function go(lx,ly,lz)
    if X < lx then
        orient(0)
        for i=1,(lx-X) do
            forward()
        end
    end

    if X > lx then
        orient(2)
        for i=1,X-lx do
            forward()
        end
    end

    if Y < ly then
        for i=1,ly-Y do
            up()
        end
    end

    if Y > ly then
        for i=1,Y-ly do
            down()
        end
    end

    if Z < lz then
        orient(1)
        for i=1,lz-Z do
            forward()
        end
    end

    if Z > lz then
        orient(3)
        for i=1,Z-lz do
            forward()
        end
    end
end


function deposit()
    for i=1,16 do
        turtle.select(i)
        while turtle.drop() == false and turtle.getItemCount() ~= 0 do -- Waits until turtle can deposit item
            sleep(1)
        end
        turtle.drop()
    end
    turtle.select(1)
    return true
end

function placetorch()
	if counter == 8 then
		turtle.select(1)
		local data = turtle.getItemDetail()
		if data.name == "torch" then
			right()
			turtle.place()
			left()
		end
		counter = 0
	end
end


function mine()
    dig()
    forward()
    digUp()
    digDown()
    up()
    left()
    dig()
    right(2)
    dig()
    down()
    dig()
    left(2)
    dig()
    down()
    dig()
    right(2)
    dig()
	placetorch()
    left()
    up()
end


function check()
    if turtle.getItemCount(16) == 0 then
        return false
    else
        return true
    end
end

function notify(include)
    if X % dn == 0 and X ~= 0 then
        print("The turtle has traveled "..X.."/"..length+include.." blocks so far")
    end
    return true
end

local dni = 0
if walk then
    while turtle.detect() == false do
        forward()
        dni = dni + 1
        notify(dni)
    end
end

for i=1,length do
    mine()
    notify(dni)
    if check() then
        local lx,ly,lz = X,Y,Z
        go(0,0,0)
        orient(2)
        deposit()
        orient(0)
        go(lx,ly,lz)
    end
end


go(0,0,0)
orient(2)
deposit()
orient(0)
print("Finished")