quarry

function forward()
  if turtle.forward() then

  else
    while turtle.detect() do
      sleep(1)
    end
    turtle.forward()
  end
end

function placeQuarry()

  turtle.up();
  turtle.select(1);
  turtle.place();

  turtle.down();
  turtle.down();
  turtle.select(2);
  turtle.place();

  turtle.select(3);

  turtle.transferTo(1,1);
  turtle.transferTo(2,1);

  turtle.up()


  while true do
    p = peripheral.wrap("front");

    if p.isActive() ~= "true" then
      break
    else
      sleep(1)
    end
  end

  print("Quarry finished")

  turtle.select(1);
  turtle.transferTo(3,1);
  turtle.select(2);
  turtle.transferTo(3,1);

  turtle.up()
  turtle.select(1);
  turtle.dig();

  turtle.down();
  turtle.down();
  turtle.dig();

  turtle.up();

  for i=0,8,1 do
     forward()
  end
  sleep(5)
end

while true do
  placeQuarry()
end