minar

function checkFuel()
 while turtle.getFuelLevel() < 20 do
  turtle.select(16)
  turtle.refuel(1)
  turtle.select(1)
 end
end

function minar()
 while not turtle.forward() do
  turtle.dig()
 end
end

function minarAbajo()
 while not turtle.down() do
  turtle.digDown()
 end
end

function minarArriba()
 while not turtle.up() do
  turtle.digUp()
 end
end

function chunk()
 for i = 0, 4 do
  checkFuel()
  minar()
 end

 minarArriba()
 turtle.turnLeft()
 turtle.turnLeft()

 for i = 0, 4 do
  checkFuel()
  minar()
 end

 minarArriba()
 turtle.turnLeft()
 turtle.turnLeft()
end

print("Bienvenido a capitalismineitor")
print("Introduzca el largo del tunel: ")
local largo = read()
local numchunks = 4


for i = 0, largo do
 checkFuel()
 minar()
 turtle.turnRight()

 for j = 0, numchunks do
  chunk()
 end

 for i = 0, 4 do
  checkFuel()
  minar()
 end

 turtle.turnLeft()
 turtle.turnLeft()

 for i = 0, 4 do
  minar()
 end

 turtle.turnRight()

 for i = 0, numchunks*2+1 do
  minarAbajo()
 end
end
print("Fin programa")