mining

j=0

function fforward()
  while(turtle.forward()==false) do
    turtle.dig()
  end
end

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

function placeTorch()
  turtle.turnRight()
  turtle.turnRight()
  turtle.select(2)
  turtle.place()
  turtle.turnLeft()
  turtle.turnLeft()
  j=0
end

function step()
  fforward()
  fdigUp()
  turtle.select(1)
  turtle.placeDown()
  if(j>8)
    then placeTorch()
  end
  j=j+1
end

write("Maximale Laenge eingeben:")
max=tonumber(read())
i=0

while(i<max) do
  for k=1,i do
    step()
  end
  turtle.turnRight()
  i =i+2
end