Quarry

wireSlot = 1
quarrySlot = 2
engineSlot = 3
enderChestSlot = 4
refuelSlot = 16
cobbleSlot = 5
torchSlot = 6
fuelMin = 6000
gateReader = peripheral.wrap("right")

function refuel()
  --if turtle.getFuelLevel() < fuelMin then
    turtle.select(refuelSlot)
    turtle.placeUp()
    turtle.suckUp()
    turtle.refuel(turtle.getItemCount(refuelSlot))
    turtle.digUp()
    turtle.select(1)
  --end
end

function setupQuarry()
  turtle.select(quarrySlot)
  turtle.place()
  turtle.up()
  turtle.select(engineSlot)
  turtle.placeDown()
  turtle.select(enderChestSlot)
  turtle.place()
  turtle.turnRight()
  turtle.turnRight()
  turtle.select(cobbleSlot)
  turtle.dig()
  turtle.place()
  turtle.turnRight()
  turtle.turnRight()
  turtle.up()
  turtle.select(torchSlot)
  turtle.placeDown()
  turtle.turnLeft()
  turtle.forward()
  turtle.down()
  turtle.down()
  turtle.turnRight()
  turtle.forward()
  turtle.select(1)
end

function clearQuarry()
  turtle.turnLeft()
  turtle.turnLeft()
  turtle.forward()
  turtle.up()
  turtle.turnLeft()
  turtle.select(torchSlot)
  turtle.dig()
  turtle.forward()
  turtle.turnRight()
  turtle.select(cobbleSlot)
  turtle.dig()
  turtle.turnRight()
  turtle.turnRight()
  turtle.select(enderChestSlot)
  turtle.dig()
  turtle.select(engineSlot)
  turtle.digDown()
  turtle.down()
  turtle.select(quarrySlot)
  turtle.dig()
  turtle.select(1)
end

function move()
  turtle.up()
  turtle.select(wireSlot)
  for i = 1,9,1 do
    turtle.placeDown()
    turtle.forward()
  end
  turtle.down()
  turtle.select(1)
end

function waitForEnd()
  data = gateReader.get()
  while not data["Work Done"] do
    data = gateReader.get()
    sleep(1)
  end
end

function setup()
  refuel()
  if turtle.getItemCount(2) == 1 then
    data = gateReader.get()
    if data["Work Done"] then
      clearQuarry()
      move()
    else
      waitForEnd()
      clearQuarry()
      move()
    end
  end
end

function cycle()
  setupQuarry()
  waitForEnd()
  clearQuarry()
  move()
end

setup()

while true do
  while turtle.getItemCount(wireSlot) > 9 do cycle() end
  print("Out of cable!")
  sleep(5)
end