term.clear() term.setCursorPos(1, 1)

repeat
print("Enter tunnel length (even digit): ")
tunnellength = read()
until tunnellength % 2 == 0

term.clear()
term.setCursorPos(1, 1)

print("Place Fuel in Slot 1")
print("Enter number for fuel type: ")
print("")
print("No Fuel Required = 0")
print("Coal/Charcoal/Peat = 1")
print("Coal Coke = 2")
print("Biofuel Can = 3 **")
print("Coalfuel Can = 4 **")
print("** Ensure these work in your version")
fueltype = read()

function fueltypeset()
if fueltype == "1" then
fueltype = 80
elseif fueltype == "2" then
fueltype = 160
elseif fueltype == "3" then
fueltype = 520
elseif fueltype == "4" then
fueltype = 1520
end
end
fueltypeset()
term.clear()
term.setCursorPos(1, 1)

print("Drop mined cobblestone? 0=No, 1=Yes")
cobblesetting = read()
term.clear()
term.setCursorPos(1, 1)
if cobblesetting == "1" then
if turtle.getItemCount(2) < 1 then
print("Place 1 cobblestone in Slot 2")
print("")
end
end

print("Place torches? 0=No, 1=Yes")
print("Place torches in Slot 3")
torchsetting = read()
term.clear()
term.setCursorPos(1, 1)
if torchsetting == "1" then
if turtle.getItemCount(3) < tunnellength/4 then
print("Warning: You will not have enough torches for entire tunnel length.")
print("")
print("")
end
end


print("Return and deposit items to chest if inventory nears full?")
print("0=No, 1=Yes")
returnsetting  = read()
term.clear()
term.setCursorPos(1, 1)
if returnsetting == "1" then
print("Place chest immediately behind turtle.")
print("")
end

print("Deposit inventory into chest upon completion?")
print("0=No, 1=Yes")
dcomplete  = read()
term.clear()
term.setCursorPos(1, 1)
if dcomplete == "1" then
print("Place chest immediately behind turtle.")
print("")
end

print("Terminate program once length is reached?")
print("Note: This will prevent the turtle from depositing items into a chest upon completion.")
print("0=No, 1=Yes")
tcomplete  = read()
term.clear()
term.setCursorPos(1, 1)
if tcomplete == "1" then
	if dcomplete == "1" then
	print("Turtle will NOT deposit items upon completion.")
 print("")
end
end

print("")
print("Begin mining?")
print("0=Cancel Program, Any Key=Yes")
beginmine = read()
if beginmine == "0" then
os.reboot()
end

term.clear()
term.setCursorPos(1,1)
if tcomplete == "1" then
  print("Tunneling " .. tunnellength .. " blocks, then terminating.")
  elseif tcomplete == "0" then
  print("Tunneling " .. tunnellength .. " blocks, then returning.")
end
sleep(2)

torchpos = 0

function progress()
term.setCursorPos(1,3)
print("Progress: " .. torchpos .. " of " .. tunnellength)
end

function fuelcheck()
	if turtle.getFuelLevel() ~= "unlimited" then
		if turtle.getFuelLevel()/fueltype < 0.26 then
		turtle.select(1)
		turtle.refuel(1)
		end
	end
end

function dropcobble()
    local stackSize = turtle.getItemCount(2)
	if cobblesetting == "1" then
		if turtle.getFuelLevel() ~= "unlimited" then
			if stackSize > 2 then
		        stackSize = stackSize-1
		        turtle.select(2)
		        turtle.drop(stackSize)
    			end
		elseif turtle.getFuelLevel() == "unlimited" then
			if stackSize > 2 then
		        	stackSize = stackSize-1
			        turtle.select(2)
			        turtle.drop(stackSize)
    				end
			turtle.select(1)
			if turtle.compareTo(2) then
				turtle.drop()
				end

			end
		end
end


function minewallRight()
fuelcheck()
turtle.select(1)
turtle.dig()
moveforward()
turtle.digUp()
turtle.digDown()
turtle.turnRight()
moveforward()
turtle.digDown()
turtle.digUp()
moveforward()
turtle.digDown()
turtle.digUp()
turtle.turnLeft()
torchpos = torchpos + 1
progress()
end

function minewallLeft()
fuelcheck()
turtle.select(1)
turtle.dig()
moveforward()
turtle.digUp()
turtle.digDown()
turtle.turnLeft()
moveforward()
turtle.digDown()
turtle.digUp()
moveforward()
turtle.digDown()
turtle.digUp()
turtle.turnRight()
torchpos = torchpos + 1
progress()
end

function minecycle()
for z = 1, tunnellength/2 do
minewallRight()
minewallLeft()
placetorch()
end
end

function placetorch()
	if torchsetting == "1" then
		if torchpos % 4 == 0 then
		turtle.turnLeft()
		turtle.dig()
		turtle.select(3)
		turtle.place()
		turtle.turnRight()
		dropcobble()
		fuelcheck()
		fullinventory()
		turtle.select(1)
		end
	else
		if torchpos % 4 == 0 then
		dropcobble()
		fuelcheck()
		fullinventory()
		turtle.select(1)
		end
	end
end

function moveforward()
while not turtle.forward() do
sleep(0.25)
turtle.dig()
end
end

function turtlehome()
for y = 1, tunnellength do
fuelcheck()
moveforward()
end
end


function fullinventory()
local invcount = 0
	if returnsetting == "1" then
		for c = 4, 16 do
			if turtle.getItemCount(c) > 0 then
			invcount = invcount+1
			end
		end
		if invcount > 12 then
			turtle.turnLeft()
			turtle.turnLeft()
			fuelcheck()
			for f = 1, torchpos+1 do
			moveforward()
			fuelcheck()
			end
			for d = 4, 16 do
			turtle.select(d)
			turtle.dropDown()
			end
			turtle.turnLeft()
			turtle.turnLeft()
			fuelcheck()
			for f = 1, torchpos+1 do
			moveforward()
			fuelcheck()
			end
			invcount = 0
		else
			invcount = 0
		end
	end
end

function depositcomplete()
	if dcomplete == "1" then
		for d = 1, 16 do
			turtle.select(d)
			turtle.drop()
		end
	end
end

function terminatecomplete()
	if tcomplete =="1" then
		turtle.down()
		os.reboot()
  sleep(3)
	end
end

fuelcheck()
turtle.digUp()
turtle.up()
minecycle()
terminatecomplete()
turtle.turnLeft()
turtle.turnLeft()
fuelcheck()
turtlehome()
turtle.down()
depositcomplete()
turtle.turnRight()
turtle.turnRight()
term.setCursorPos(1,5)
print("Mining Successful")
term.setCursorPos(1,7)