--Own Tunnel Turtle same size 2X3 but with feature bring items in chest, set torches and refill the border with cobble stone

length = 100
torchPl = 5
torchCounter = 0
layerCounter = 0

function layerDig()		
	leftLayer()
	refillCopple()
	rightLayer()
	refillCopple()
	checkItemsAndGoEmpty()
		
end

function leftLayer()
	Dig()
	ForwardDown()
	checkLeftBorder()
	DigUp()
	MoveUppest()
	checkFrontBorder()
	turn180()
	Dig()
	ForwardUp()
	DigDown()
	MoveLowest()
	Dig()
	ForwardDown()
	checkFrontBorder()
	DigUp()
	MoveUppest()
	checkFrontBorder()
	layerCounter = layerCounter + 1
	placeTorch()
	turtle.turnLeft()
end

function rightLayer()
	Dig()
	ForwardUp()
	checkRightBorder()
	DigDown()
	MoveLowest()
	checkFrontBorder()
	turn180()
	Dig()
	ForwardDown()
	DigUp()
	MoveUppest()
	Dig()
	ForwardUp()
	checkFrontBorder()
	placeTorch()
	DigDown()
	MoveLowest()
	checkFrontBorder()
	layerCounter = layerCounter + 1
	turtle.turnRight()
end

function Dig()
	while turtle.detect() do
		turtle.dig()
		sleep(0.4)
	end
end

function DigUp()
	while turtle.detectUp() do
		turtle.digUp()
		sleep(0.4)
	end	
end

function DigDown()
	while turtle.detectDown() do
		turtle.digDown()
		sleep(0.4)
	end
end

function BackToChest()
	turn180()
	for i=1, layerCounter, 1 do
		Dig()
		turtle.forward()
	end
	Drop()
	turn180()
end

function BackToLayer()
	for i=1, layerCounter, 1 do
		Dig()
		turtle.forward()
	end
end

function Drop()
	for i=1, 14, 1 do
		turtle.select(i)
		turtle.drop(64)
	end
end

function ForwardDown()
	turtle.forward()
	if(turtle.detectDown() == false) then
		turtle.select(15)
		turtle.placeDown()
	end
end

function ForwardUp()
	turtle.forward()
	if(turtle.detectUp() == false) then
		turtle.select(15)
		turtle.placeUp()
	end
end

function MoveUppest()
	turtle.up()
	if(turtle.detectUp() == false) then
		turtle.select(15)
		turtle.placeUp()
	end
end

function MoveLowest()
	turtle.down()
	if(turtle.detectDown() == false) then
		turtle.select(15)
		turtle.placeDown()
	end
end

function turn180()
	turtle.turnLeft()
	turtle.turnLeft()
end

function checkLeftBorder()
	turtle.turnLeft()
	checkFrontBorder()
end

function checkRightBorder()
	turtle.turnRight()
	checkFrontBorder()
end

function checkFrontBorder()
	if(turtle.detect() == false) then
		turtle.select(15)
		turtle.place()
	end
end

function placeTorch()
	if(torchCounter == torchPl) then
		turn180()
		turtle.forward()
		turtle.select(16)
		turtle.place()
		torchCounter = 0
		turn180()
		turtle.forward()
	else
		torchCounter = torchCounter + 1
	end
end

function checkItemsAndGoEmpty()
	haveToEmpty = 1
	
	for i = 1, 14, 1 do
		if (turtle.getItemCount(i) == 0) then
			haveToEmpty = 0
		end
	end
	
	if (haveToEmpty == 1) then
		BackToChest()
		BackToLayer()
	end
end

function refillCopple()
	local cnt = turtle.getItemCount(15)
	if cnt < 8 then
		for i=1, 15, 1 do
			turtle.select(i)
			local comp = turtle.compareTo(16)
			if comp == true then
				turtle.transferTo(16)
			end
		end
	end
end

function start()
	local input = 1
	shell.run("clear")
	while input == 1 do
		term.setCursorPos(1,1)
		print("Menu:")
		print("=======================================")
		term.setCursorPos(1,3)
		term.clearLine()
		print("Length of the tunnel: "..length)
		term.clearLine()
		term.setCursorPos(1,5)
		term.clearLine()
		print("Enter [S] for start or [C] for change settings - [Q] quit:")
		term.clearLine()
		
		local inputstring = read()
		
		if inputstring == 'S' or inputstring == 's' then
			if checkStartConditions() == 1 then
				run()
			end
		elseif inputstring == 'C' or inputstring == 'c' then
			setting()
		elseif inputstring == 'Q' or inputstring == 'q' then
			input = 0
			shell.run("clear")
		else
			term.setCursorPos(1,10)
			term.clear()
			print("Invalid Input")
		end
	end
end

function checkStartConditions()
	term.setCursorPos(1,10)
	term.clear()
	local retValue = 1
	local torchCount = turtle.getItemCount(16)
	local cobbleCount = turtle.getItemCount(15)
	if torchCount == 0 then
		print("No torches found!")
		retValue = 0
	else
		print("Number of found torches: "..torchCount)
	end
	
	if cobbleCount == 0 then
		print("No cobble stone found!")
		retValue = 0
	else
		print("Number of found cobble stone: "..cobbleCount)
	end
	
	if retValue == 0 then
		print("Start conditions not correct - please fill torches in slot 16 and cobblestone in slot 15")
		return 0
	else
		return 1
	end
end

function setting()
	local setting = 1
	local invalidCounter = 0
	shell.run("clear")
	while setting == 1 do
		term.setCursorPos(1,1)
		print("Setting:")
		print("=======================================")
		term.setCursorPos(1,3)
		term.clearLine()
		print("Actual using tunnel length: "..length)
		term.setCursorPos(1,5)
		term.clearLine()
		print("Enter the new length of the tunnel:")
		local inputstring = read()
		
		if(tonumber(inputstring) ~= nil) then
			length = tonumber(inputstring)
			setting = 0
		else
			term.setCursorPos(1,10)
			term.clear()
			print("Invalid Input")
			invalidCounter = invalidCounter + 1
		end
		
		if invalidCounter == 3 then
			setting = 0
		end
	end
	shell.run("clear")
end

function run()
	for i=1, length / 2, 1 do
		layerDig()
	end
	
	BackToChest()
end

start()