TweakedCCMiningTurtle.lua

resetScreen()
	term.clear()
	term.setCursorPos(14,1)
	write("Mining Turtle")
	term.setCursorPos(5,2)
	write("For CyanideEpic and his friends")
	term.setCursorPos(1,13)
	write("By PrinceTommen, version "..version)
	term.setCursorPos(1,4)
end	  
function textOutput(output_message, x_screen_pos, z_screen_pos, clear_area)
	term.setCursorPos(x_screen_pos,z_screen_pos)
	if clear_area == 0 then
		clear_area = string.len(output_message)
	end	
	write(output_message..string.rep(" ", (clear_area - string.len(output_message))))
end
function securedInput(x_screen_pos, z_screen_pos, nature, lower_value, upper_value, example1, example2)
	example = {example1, example2}
	local function shortExample(example_int, example, boolStringPart)
		tableShortExample = {}
		tableShortExample[example_int] = example[example_int].." ("..string.sub(string.lower(example[example_int]), 1, 1)..") "
		if boolStringPart then
			return string.sub(string.lower(example[example_int]), 1, 1) 
		else
			return tableShortExample[example_int]
		end	
	end
	incipit = shortExample(1, example, false).."/ "..shortExample(2, example, false)..": "
	if nature == "text" then
		repeat
			textOutput(incipit, x_screen_pos, z_screen_pos, 39)
			term.setCursorPos(string.len(incipit)+1,z_screen_pos)	
			user_input = string.sub(string.lower(read()), 1, 1)
		until (user_input == shortExample(1, example, true) or user_input == shortExample(2, example, true))
	elseif nature == "integer" then
		repeat
			textOutput(" ", x_screen_pos, z_screen_pos, (39 - x_screen_pos))
			term.setCursorPos(x_screen_pos,z_screen_pos)
			user_input = tonumber(read())	
		until (user_input >= lower_value and user_input <= upper_value)
	end	
	return user_input
end
function clearLines(firstLine, lastLine)
	a = 1
	for a=1, (lastLine-firstLine+1) do
		textOutput("", 1, (firstLine+a-1), 40)
	end
end
function convertToBool(var, boolTrue)
	if var == boolTrue then
		var = true
	else
		var = false
	end
	return var
end
function turn(FacingAngle, Bool_rotation, Rotation_integer)
	if Bool_rotation then
		for u=1, Rotation_integer do
			turtle.turnRight()
		end
		FacingAngle = FacingAngle + Rotation_integer
	else
		for u=1, Rotation_integer do
			turtle.turnLeft()
		end
		FacingAngle = FacingAngle - Rotation_integer
	end
	FacingAngle = math.abs((FacingAngle - 1)%4+1)
	return FacingAngle
end
local function refuel()
	turtle.select(torches_slots+current_slot[2])
	while not(turtle.refuel(1)) do
		for f=1, fuel_slots do
			current_slot[2], shortage[2] = rotateSlot(2, torches_slots+1, fuel_slots)
			turtle.select(torches_slots+current_slot[2])
			if turtle.refuel(1) then
				boolRefuel = true
				break
			else
				boolRefuel = false
			end
		end
		if not(boolRefuel) then
			textOutput("No Fuel -", 1, 11, 0)
			current_slot[2], shortage[2] = manageShortage(2, torches_slots+1, torches_slots+fuel_slots) 
		end
	end
	refuel_count = 80 - turtle.getFuelLevel()
	textOutput("Fuel OK -", 1, 11, 0)
	return refuel_count  
end
function moveForward(FacingAngle, Boolfb, moving_integer, digUpBool, digDownBool, refuel_count)
	local moving_count = 1
	for moving_count=1,moving_integer do
		if (refuel_count == 80) then
			refuel_count = refuel()
		end
		Bool1 = false
		while not(Bool1) do
			if (Boolfb) then
				turtle.dig()
				Bool1 = turtle.forward()
				if (digUpBool) then
					turtle.digUp()
				end
				if (digDownBool) then
					turtle.digDown()
				end  
			else
				Bool1 = turtle.back()
				if not(Bool1) then
					turn(FacingAngle, true, 2)
					turtle.dig()
					turn(FacingAngle, false, 2)
				end
			end    
		end
		moving_count = moving_count + 1
		refuel_count = refuel_count + 1
	end 
	return refuel_count  
end
function moveUp(Boolud, moving_integer, refuel_count, Bool_DigFront)
	local moving_count = 1
	for moving_count=1, moving_integer do
		if (refuel_count == 80) then
			refuel_count = refuel()
		end
		Bool2 = false
		if Bool_DigFront then
			turtle.dig()
		end
		while not(Bool2) do
			if (Boolud) then
				turtle.digUp()   
				Bool2 = turtle.up()
			else
				turtle.digDown()
				Bool2 = turtle.down()
			end
		end
		moving_count = moving_count + 1
		refuel_count = refuel_count + 1
	end
	return refuel_count
end
function manageShortage(managedItem, initial_item_slot, final_item_slot)
	textOutput("The turtle has used all the "..(itemNames[managedItem+3]).." intitially given. Have you refilled all the "..(itemNames[managedItem+3]).." slots ?", 1, 4, 0)
	textOutput("Press enter if all the "..(itemNames[managedItem+3]).." slots are refilled (slots "..(initial_item_slot).." to "..(final_item_slot)..").", 1, 7, 0)
	repeat
		turn(FacingAngle, true, 4)
		os.startTimer(1)
		press, key = os.pullEvent("key")
	until (key == keys.enter)
	clearLines(4,10)
	current_slot[managedItem] = 1
	shortage[managedItem] = false
	return current_slot[managedItem], shortage[managedItem]
end
function rotateSlot(managedItem, control_slot, rotation_controler)
	if (turtle.getItemCount(control_slot) == 0) or (managedItem == 2) then			
		if current_slot[managedItem]==rotation_controler and (managedItem ~= 2) then
			shortage[managedItem] = true
		else
			current_slot[managedItem]=((current_slot[managedItem])%rotation_controler)+1
		end
	end
	return current_slot[managedItem], shortage[managedItem]
end					
function inventoryManagement(refuel_count,Right_or_Left,throw_cobble)
	function fullInventory(n)
		n = m + 1
		repeat
			item_count = turtle.getItemCount(n)
			if (item_count ~= 0) then          
				boolSlotOccupied = true
				n = n + 1  
			else
				boolSlotOccupied = false  
			end  
		until (boolSlotOccupied == false) or (n == 17)
		return n
	end
	if Chest_approval then
		m = torches_slots + chests_slots + fuel_slots + garbage_slots
		thrown_slots = 0
		if (turtle.getItemCount(16) ~= 0) and (m~=16) then
			if fullInventory(m)==17 then
				if throw_stuff then
					for k=1, garbage_slots do
						for j=1, (16-m) do
							turtle.select(m - garbage_slots + k)
							Bool_match_stuff = turtle.compareTo(m+j)
							if Bool_match_stuff then
								thrown_slots = thrown_slots + 1
								turtle.select(m+j)
								turtle.drop()	 
							end
						end
						turtle.select(m - garbage_slots + k)
						turtle.drop(turtle.getItemCount(m - garbage_slots + k)-1)
					end	
					for z = (m+1), 16 do
						for u = (z+1), 16 do
							if turtle.getItemCount(u)~=0 then
								turtle.select(u)
								turtle.transferTo(z)
							end
						end
					end
				end
				if not(throw_stuff) or ((thrown_slots <= 2) and (fullInventory(n)>15)) then
					if shortage[3] then
						textOutput("No Chests", 24, 11, 0)
						current_slot[3], shortage[3] = manageShortage(3, torches_slots+fuel_slots+1, torches_slots+fuel_slots+chests_slots)
					end
					textOutput("Chests OK", 24, 11, 0)
					if (Right_or_Left == "left") then
						FacingAngle = turn(FacingAngle, true, 1)
					else
						FacingAngle = turn(FacingAngle, false, 1)
					end  
					refuel_count = moveForward(FacingAngle, true, 1, false, true, refuel_count)
					turtle.select(torches_slots+fuel_slots+current_slot[3])
					turtle.digDown()
					turtle.placeDown()
					for u=(m+1),16 do
						if turtle.getItemCount(u)~=0 then
							turtle.select(u)
							turtle.dropDown()
						end
					end
					if enderchest then
						turtle.select(torches_slots+fuel_slots+1)
						turtle.drop()
						turtle.digDown()
					end
					current_slot[3], shortage[3] = rotateSlot(3, torches_slots+fuel_slots+current_slot[3], chests_slots)
					refuel_count = moveForward(FacingAngle, false, 1, false, false, refuel_count)
					if (Right_or_Left == "left") then
						FacingAngle = turn(FacingAngle, false, 1)
					else
						FacingAngle = turn(FacingAngle, true, 1)
					end
				end	  
			end
		end
	end
	turtle.select(1)
	return refuel_count  
end
function placeTorch(Position)
	if Torch_approval then
		if shortage[1] then
			textOutput("No Torches -", 11, 11, 0)
			current_slot[1], shortage[1] = manageShortage(1, 1, torches_slots) 
		end
		textOutput("Torches OK -", 11, 11, 0)
		turtle.select(current_slot[1])
		if Position == "front" then
			turtle.dig()
			turtle.place()
		elseif Position ==	"below" then
			turtle.digDown()
			turtle.placeDown()
		elseif Position == "up" then
			turtle.digUp()
			turtle.placeUp()
		end
		current_slot[1], shortage[1] = rotateSlot(1, current_slot[1], torches_slots)
	end
end
function digVerticalLayer(refuel_count, FacingAngle, Width, Height, Height_Position, Bool_Torches, Right_or_Left)
	if Right_or_Left then
		Right_or_Left = "left"
	else
		Right_or_Left = "right"
	end	
	done_columns = 0
	if (Height_Position == "up") then
		for columns=1, math.floor(Width/4) do
			turtle.digUp()
			if (Height > 3) then
				refuel_count = moveUp(true, 1, refuel_count, false)
				turtle.dig()
				refuel_count = moveUp(false, (Height-2), refuel_count, true)
				turtle.digDown()
			end
			refuel_count = moveForward(FacingAngle, true, 2, true, true, refuel_count)
			refuel_count = inventoryManagement(refuel_count, Right_or_Left, throw_cobble)
			if (Height > 3) then
				refuel_count = moveUp(false, 1, refuel_count, false)
				turtle.dig()
				refuel_count = moveUp(true, (Height-2), refuel_count, true)
				turtle.digUp()
			end
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			done_columns = done_columns + 1
			if (Width - 4*done_columns ~= 0) then
				refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			end
		end  
		if ((Width - 4*math.floor(Width/4)) == 0) then
			Height_Position = "up"
		elseif ((Width - 4*math.floor(Width/4)) == 1) then
			turtle.digUp()
			refuel_count = moveUp(false, (Height-3), refuel_count, false)
			turtle.digDown()
			refuel_count = inventoryManagement(refuel_count, Right_or_Left, throw_cobble)
			Height_Position = "down"
		elseif ((Width - 4*math.floor(Width/4)) >= 2) then
			if (Height > 3) then
				refuel_count = moveUp(true, 1, refuel_count, false)
				turtle.dig()
				refuel_count = moveUp(false, (Height-2), refuel_count, true)
				turtle.digDown()
			end
			turtle.digUp()
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			refuel_count = inventoryManagement(refuel_count, Right_or_Left, throw_cobble)
			Height_Position = "down"
			if ((Width - 4*math.floor(Width/4)) == 3) then
				refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
				refuel_count = moveUp(true, (Height - 3), refuel_count, false)
				turtle.digUp()
				Height_Position = "up"
			end
		end	
	elseif (Height_Position == "down") then
		for columns=1, math.floor(Width/4) do
			turtle.digDown()
			if (Height > 3) then
				refuel_count = moveUp(false, 1, refuel_count, false)
				turtle.dig()
				refuel_count = moveUp(true, (Height - 2), refuel_count, true)
				turtle.digUp()
			end
			refuel_count = moveForward(FacingAngle, true, 2, true, true, refuel_count)
			if (Height > 3) then
				refuel_count = moveUp(true, 1, refuel_count, false)
				turtle.dig()
				refuel_count = moveUp(false, (Height - 2), refuel_count, true)
				turtle.digDown()
			end
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			done_columns = done_columns + 1
			if (Width - 4*done_columns ~= 0) then
				refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			end
			refuel_count = inventoryManagement(refuel_count, Right_or_Left, throw_cobble)
			if (done_columns%2 == 0) and Bool_Torches then
				FacingAngle = turn(FacingAngle,true , 1)
				placeTorch("front")
				FacingAngle = turn(FacingAngle, false, 1)
			end
		end
		if ((Width - 4*math.floor(Width/4)) == 0) then
			Height_Position = "down"
		elseif ((Width - 4*math.floor(Width/4)) == 1) then
			turtle.digDown()	  
			refuel_count = moveUp(true, (Height - 3), refuel_count, false)
			turtle.digUp()
			Height_Position = "up"
		elseif ((Width - 4*math.floor(Width/4)) >= 2) then
			if (Height > 3) then
				refuel_count = moveUp(false, 1, refuel_count, false)
				turtle.dig()	  
				refuel_count = moveUp(true, (Height - 2), refuel_count, true)
				turtle.digUp()
			end
			turtle.digDown()
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			Height_Position = "up"
			if ((Width - 4*math.floor(Width/4)) == 3) then
				refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
				refuel_count = moveUp(false, (Height - 3), refuel_count, false)
				turtle.digDown()
				refuel_count = inventoryManagement(refuel_count, Right_or_Left, throw_cobble)
				Height_Position = "down"
			end		
		end  	  
	end
	return refuel_count, Height_Position	  
end

enderchest, throw_stuff, Chest_approval, Torch_approval, Chest_mismatch, Torch_mismatch = false, false, false, false, false, false
shortage, itemNames = {false, false, false}, {"torch", "fuel", "chest", "torches", "fuel", "chests"}

resetScreen()
if (io.open("favorite", "r") ~= nil) then
		resetScreen()
		textOutput("Do you wish to use your favorite configuration ?", 1, 4, 0)
		Favorite_approval = securedInput(1, 6, "text", 0, 0, "Yes", "No")
	if (Favorite_approval == "y") then
		handle = fs.open("favorite", "r")
		input = handle.readAll()
		handle.close()
		favorite = textutils.unserialize(input)
		tunnels_integer = favorite.tunnels_integer
		Width = favorite.Width
		Height = favorite.Height
		Length = favorite.Length
		tunnels_separation = favorite.tunnels_separation
		throw_stuff = favorite.throw_stuff
		enderchest = favorite.enderchest
		Torch_approval = favorite.Torch_approval
		Chest_approval = favorite.Chest_approval
	end
end	
if (io.open("favorite", "r") == nil) or ((io.open("favorite", "r") ~= nil) and (Favorite_approval == "n")) then
	resetScreen()
	textOutput("Number of parallel tunnels ? ", 1, 4, 0)
	tunnels_integer = securedInput(37, 4, "integer", 1, 1000, " ", " ")
	textOutput("Width of the tunnels ? ", 1, 5, 0)
	Width = securedInput(37, 5, "integer", 1, 1000, " ", " ")
	term.setCursorPos(1,6)
	textOutput("Height of the tunnels ? ", 1, 6, 0)
	Height = securedInput(37, 6, "integer", 1, 200, " ", " ")
	if (Height < 3) then
		Height = 3
	end
	term.setCursorPos(1,7)
	textOutput("Length of the tunnels ? ", 1, 7, 0)
	Length = securedInput(37, 7, "integer", 1, 100000, " ", " ")
	if (tunnels_integer > 1) then
		term.setCursorPos(1,8)
		textOutput("Separating blocks between tunnels ? ", 1, 8, 0)
		tunnels_separation = securedInput(37, 8, "integer", 1, 1000, " ", " ")
	else
		tunnels_separation = 0
	end	
	
	resetScreen()
	textOutput("To use regular chests, press c", 1, 4, 0)
	textOutput("To use an enderchest, press e", 1, 5, 0)
	textOutput("To use torches, press t", 1, 6, 0)
	textOutput("To throw away specific items, press p", 1, 7, 0)
	textOutput("Press enter once you have chosen all the options you wanted to activate.", 1, 11, 0)
	while true do
		press, key = os.pullEvent("key")
		if press == "key" and key == keys.enter then
			break
		elseif key == keys.c then
			if Chest_approval then
				Chest_approval = false
				textOutput("", 10, 9, 11)
			else	
				Chest_approval = true
				textOutput("Chests,", 10, 9, 11)
			end
		elseif key == keys.e then
			if enderchest then
				enderchest = not(enderchest)
				textOutput("", 10, 9, 11)
			else
				Chest_approval = true
				enderchest = true
				textOutput("Enderchest,", 10, 9, 11)
			end
		elseif key == keys.t then
			if Torch_approval then
				Torch_approval = false
				textOutput("", 1, 9, 8)
			else
				Torch_approval = true
				textOutput("Torches,", 1, 9, 8)
			end
		elseif key == keys.p then
			if throw_stuff then
				throw_stuff = not(throw_stuff)
				textOutput("", 22, 9, 12)			
			else	
				throw_stuff = true
				textOutput("Throw items.", 22, 9, 12)
			end	
		end	
	end
	resetScreen()
	
	textOutput("Do you want to save this configuration as your favorite ?", 1, 4, 0)
	New_favorite = securedInput(1, 6, "text", 0, 0, "Yes", "No")
	
	if (New_favorite == "y") then
		favorite = {}
		favorite.tunnels_integer = tunnels_integer
		favorite.Width = Width
		favorite.Height = Height
		favorite.Length = Length 
		favorite.tunnels_separation = tunnels_separation
		favorite.Torch_approval = Torch_approval
		favorite.Chest_approval = Chest_approval
		favorite.throw_stuff = throw_stuff
		favorite.enderchest = enderchest
		output = textutils.serialize(favorite)
		handle = fs.open("favorite", "w")
		handle.write(output)
		handle.close()
	end
end
resetScreen()
textOutput("To manage extra slots, press s", 1, 4, 0)
textOutput("This option allows you to have several torches/fuel/chests slots, as well as different items to throw", 1, 6, 0)
textOutput("Else, press enter to skip this step.", 1, 10, 0)
torches_slots, chests_slots, garbage_slots = 0, 0, 0	
while true do
	press, key = os.pullEvent("key")
	if press == "key" and key == keys.enter then
		fuel_slots = 1
		break
	elseif key == keys.s then
		repeat
			turtle.select(1)
			resetScreen()
			textOutput("Number of fuel slots ? ", 1, 4, 0)
			fuel_slots = securedInput(29, 4, "integer", 1, 16, " ", " ")	
			slot_total = fuel_slots
			if Torch_approval then	
				textOutput("Number of torches slots ? ", 1, 5, 0)
				torches_slots = securedInput(29, 5, "integer", 1, 16, " ", " ")
				slot_total = slot_total + torches_slots
			end	
			if Chest_approval  and not(enderchest) then	
				textOutput("Number of chests slots ? ", 1, 6, 0)
				chests_slots = securedInput(29, 6, "integer", 1, 16, " ", " ")
				slot_total = slot_total + chests_slots
			end	
			if throw_stuff then	
				textOutput("Number of undesired items ? ", 1, 7, 0)
				garbage_slots = securedInput(29, 7, "integer", 1, 16, " ", " ")
				slot_total = slot_total + garbage_slots
			end
		until (slot_total < 16)
		break
	end
end
resetScreen()
if (tunnels_integer > 1) then
	textOutput("The first tunnel will be in front of the turtle. Do you want the tunnels to be dug on the right or on the left of the first tunnel (They will be parallel to the first one) ?", 1, 4, 0)
	Bool_direction = securedInput(1, 9, "text", 0, 0, "Right", "Left")
end
if (tunnels_integer == 1) and (Width > 1) then
	textOutput("In front of the turtle will be one side of the tunnel. Do you want it to mine the rest on the left or on the right ?", 1, 4, 0)
	Bool_direction = securedInput(1, 9, "text", 0, 0, "Right", "Left")
end
resetScreen()
if Torch_approval then
	if torches_slots > 1 then
		textOutput("Torches in the slots 1 to "..torches_slots, 1, 4, 0) 
	else
		torches_slots = 1
		textOutput("Torches in the slot 1", 1, 4, 0)
	end
end
if fuel_slots > 1 then
	textOutput("Fuel in the slots "..(torches_slots+1).." to "..(torches_slots+fuel_slots), 1, 5, 0)
else
	fuel_slots = 1
	textOutput("Fuel in the slot "..(torches_slots+1), 1, 5, 0)
end
if Chest_approval  and not(enderchest) then
	if chests_slots > 1 then
		textOutput("Chests in the slots "..(torches_slots+fuel_slots+1).." to "..(torches_slots+fuel_slots+chests_slots), 1, 6, 0)
	else
		chests_slots = 1
		textOutput("Chests in the slot "..(torches_slots+fuel_slots+1), 1, 6, 0)
	end
end		
if enderchest then
	textOutput("The enderchest in the slot "..(torches_slots+fuel_slots+1), 1, 6, 0)
	chests_slots = 1
end
if throw_stuff then
	if garbage_slots > 1 then
		textOutput("Please make sure there are samples of the items to throw in the slots "..(torches_slots+fuel_slots+chests_slots+1).." to "..(torches_slots+fuel_slots+chests_slots+garbage_slots), 1, 8, 0)
	else
		garbage_slots = 1
		textOutput("Please make sure there is a sample of the item to throw in the slot "..(torches_slots+fuel_slots+chests_slots+1), 1, 8, 0)
	end 
end  
if (Bool_direction == "r") then
	Bool_direction = true
else
	Bool_direction = false
end
textOutput("Press enter to start", 1, 11, 0)
while true do
	press, key = os.pullEvent("key")
	if press == "key" and key == keys.enter then
		break
	end	
end
resetScreen()
textOutput("", 1, 11, 20)
if Torch_approval and (turtle.getItemCount(1) == 0) then
	textOutput("The torches slot is empty. Are you sure you want to use torches ?", 1, 4, 0)
	Torch_approval = convertToBool(securedInput(1, 6, "text", 0, 0, "Yes", "No"), "y")
elseif Torch_approval and (turtle.getItemCount(1) ~= 0) then
	for u = 1, torches_slots-1 do
		turtle.select(u+1)
		if  not(turtle.compareTo(1)) then
			Torch_mismatch = true
		end
	end
	if Torch_mismatch then
		resetScreen()
		textOutput("All the slots dedicated to the torches have not been set up correctly. Are you sure you want to use torches ?", 1, 4, 0)
		Torch_approval = convertToBool(securedInput(1, 7, "text", 0, 0, "Yes", "No"), "y")
	end
end

if Chest_approval and (turtle.getItemCount(torches_slots + fuel_slots + 1) == 0) then
	resetScreen()
	textOutput("The chests slot is empty. Are you sure you want to use chests ?", 1, 4, 0)
	Chest_approval = convertToBool(securedInput(1, 6, "text", 0, 0, "Yes", "No"), "y")
elseif Chest_approval and (turtle.getItemCount(torches_slots + fuel_slots + 1) ~= 0) then
	for u = 1, chests_slots-1 do
		turtle.select(torches_slots + fuel_slots + u + 1)
		if  not(turtle.compareTo(torches_slots + fuel_slots + 1)) then
			Chest_mismatch = true
		end
	end	
	if Chest_mismatch then
		resetScreen()
		textOutput("All the slots dedicated to the chests have not been set up correctly. Are you sure you want to use chests ?", 1, 4, 0)
		Chest_approval = convertToBool(securedInput(1, 7, "text", 0, 0, "Yes", "No"), "y")
	end
end
if Torch_approval then
	empty_torches_slots = 0
	for u = 1, torches_slots do
		if turtle.getItemCount(u) == 0 then
		    empty_torches_slots = empty_torches_slots + 1
		end
	end
	if empty_torches_slots == torches_slots then
		shortage[1] = true
	end
	textOutput("No Torches -", 11, 11, 0)
end	
if Torch_approval and (turtle.getItemCount(1) ~= 0) then
	shortage[1] = false
	textOutput("Torches OK -", 11, 11, 0)
end
if Chest_approval then
	empty_chests_slots = 0
	for u = 1, chests_slots do
		if turtle.getItemCount(torches_slots + fuel_slots + u) == 0 then
		    empty_chests_slots = empty_chests_slots + 1
		end
	end
	if empty_chests_slots == chests_slots then
		shortage[3] = true
	end
	textOutput("No Chests -", 24, 11, 0)
end	
if Chest_approval and (turtle.getItemCount(torches_slots + fuel_slots + 1) ~= 0) then
	shortage[3] = false
	textOutput("Chests OK -", 24, 11, 0)
end
textOutput("Fuel OK -", 1, 11, 0)
refuel_count = 80 - turtle.getFuelLevel()
FacingAngle, tunnel_forth, current_slot= 0, true, {1, 1, 1}
refuel_count = moveUp(true, 1, refuel_count, false)
if (Width == 1) then
	refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
end
for done_tunnels=1, tunnels_integer do
	if (Width >= 2) then
		for done_layers=1, math.ceil(Length/2) do
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			FacingAngle = turn(FacingAngle, Bool_direction, 1)
			refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, Width, Height, "down", false, Bool_direction)
			FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
			refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, Width, Height, Height_Position, false, not(Bool_direction))
			FacingAngle = turn(FacingAngle, Bool_direction, 1)
			if (done_layers%4 == 0) then
				refuel_count = moveUp(false, 1, refuel_count, false)
				FacingAngle = turn(FacingAngle, Bool_direction, 1)
				placeTorch("front")
				FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
				refuel_count = moveUp(true, 1, refuel_count, false)
			end
		end
	elseif (Width == 1) then
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, 2*math.ceil(Length/2), Height, "down", true, Bool_direction) 
	end
	if (Height_Position == "up") then
		refuel_count = moveUp(false, (Height - 3), refuel_count, false)
		Height_Position = "down"
	end
	if tunnel_forth and (tunnels_integer - done_tunnels >= 1) then
		refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, ((2*Width)+tunnels_separation), Height, "down", false, not(Bool_direction))
		if (Height_Position == "up") then
			refuel_count = moveUp(false, (Height - 3), refuel_count, false)
			Height_Position = "down"
		end
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		placeTorch("below")
	elseif not(tunnel_forth) then
		refuel_count = moveForward(FacingAngle, true, 1, true, false, refuel_count)
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, ((2*Width)-1+tunnels_separation), Height, "down", false, Bool_direction)
		FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
		refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
		FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, ((2*Width)-1+tunnels_separation), Height, Height_Position, false, not(Bool_direction))
		if (Height_Position == "up") then
			refuel_count = moveUp(false, (Height - 3), refuel_count, false)
			Height_Position = "down"
		end
		FacingAngle = turn(FacingAngle, Bool_direction, 2)
		refuel_count = moveForward(FacingAngle, true, (Width-2), true, true, refuel_count)
		placeTorch("front")
		FacingAngle = turn(FacingAngle, not(Bool_direction), 2)
		refuel_count = moveForward(FacingAngle, true, (Width-2), true, true, refuel_count)
		if (tunnels_integer - done_tunnels ~= 0) then
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, (tunnels_separation+1), Height, Height_Position, false, Bool_direction)
			FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
			refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
			FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
			refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, (tunnels_separation+1), Height, Height_Position, false, not(Bool_direction))
			refuel_count = moveForward(FacingAngle, false, tunnels_separation, true, true, refuel_count)
			FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
			placeTorch("front")
			FacingAngle = turn(FacingAngle, not(Bool_direction), 2)
		end	
	end
	if tunnel_forth and (tunnels_integer - done_tunnels == 0) and (Width > 1) then
		refuel_count = moveForward(FacingAngle, false, 2*math.ceil(Length/2), false, false, refuel_count)
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		refuel_count = moveForward(FacingAngle, true, 1, false, false, refuel_count)
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, (Width - 1), Height, Height_Position, false, Bool_direction)
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		refuel_count = moveForward(FacingAngle, true, 1, false, false, refuel_count)
		FacingAngle = turn(FacingAngle, Bool_direction, 1)
		refuel_count, Height_Position = digVerticalLayer(refuel_count, FacingAngle, (Width - 1), Height, Height_Position, false, not(Bool_direction))
		if (Height_Position == "up") then
			refuel_count = moveUp(false, (Height - 3), refuel_count, false)
			Height_Position = "down"
		end
		refuel_count = moveForward(FacingAngle, false, (Width - 2), false, false, refuel_count)
		FacingAngle = turn(FacingAngle, Bool_direction, 2)
	end
	if (Width == 1) and (tunnels_integer - done_tunnels ~= 0) then
		refuel_count = moveForward(FacingAngle, true, 1, true, true, refuel_count)
	elseif (Width == 1) and (tunnels_integer - done_tunnels == 0) and tunnel_forth then
		refuel_count = moveForward(FacingAngle, false, (2*math.ceil(Length/2)), false, false, refuel_count)
	end
	tunnel_forth = not(tunnel_forth)
end
refuel_count = moveUp(false, 1, refuel_count, false)
if (Width == 1) and not(tunnel_forth) then
	refuel_count = moveForward(FacingAngle, false, 1, false, false, refuel_count)
	turn(FacingAngle, Bool_direction, 1)
end
refuel_count = moveForward(FacingAngle, false, ((tunnels_integer*Width) - 1 + (tunnels_separation*(tunnels_integer - 1))), false, false, refuel_count)
FacingAngle = turn(FacingAngle, not(Bool_direction), 1)
refuel_count = moveForward(FacingAngle, true, 1, false, false, refuel_count)
resetScreen()
write("Done. I hope I worked well !")
term.setCursorPos(1,8)