tunnel

function gravelCheck()
  os.sleep(1)
  while turtle.detect() do
    turtle.dig()
  end
end
function leftTunnel()
  turtle.turnLeft()
  for i=1, 5 do
    turtle.dig()
  if turtle.detect() then
    while turtle.detect() do
        gravelCheck()
    end
    turtle.forward()
    turtle.digUp()
    else
    turtle.forward()
    turtle.digUp()
  end
  end
  for i=1, 5 do
    turtle.back()
  end
  turtle.turnRight()
end
write("")
print("How long")
x = read()
local torch = 0
local digLeft = 0
for i=1, x do
  torch = torch + 1
  digLeft = digLeft + 1
  if digLeft == 4 then
   leftTunnel()
   digLeft=0
  end
  if torch == 9 then
    turtle.select(16)
    turtle.back()
    turtle.turnRight()
    turtle.placeUp()
    turtle.turnLeft()
    turtle.forward()
    torch=0
  end
  turtle.dig()
  if turtle.detect() then
    while turtle.detect() do
      gravelCheck()
    end
  turtle.forward()
  turtle.digUp()
  else
  turtle.forward()
  turtle.digUp()
  end
end
for i=1, x do
  turtle.back()
end