QuarryBot

function CleanClear()
  term.clear()
  term.setCursorPos(1, 1)
end

currentLevel = 0
function Quarry(xDistance, zDistance, Depth, returnFrequency, amntOfTorches)

    for currentLevel = 1, Depth do
        turtle.digDown()
        turtle.down()

        if currentLevel >= turtle.getFuelLevel() then --If runs out of fuel
            local oldLevel = currentLevel
            for clvl = currentLevel, 0 do
            turtle.digUp()
            turtle.up()
            end
            currentLevel = 0

            CleanClear()
            currentLevel = 0
            print("Returned To Surface\n")
            print("Reason:\nRan out of fuel.\n")
            print("Refuel?")
            print("Enter Y for yes or anything else to end the Quarry.")
            fuelConfQuarry = read()

            if fuelConfQuarry == "Y" then
                CleanClear()
                print("Enter the amount of items of fuel you want to load in or enter \'all\' to load QuarryBot with all the fuel within its inventory. If you don't use \'all\' then it will only take fuel from the top-left slot.\n")
                local fuelParamEnter = read()

                if fuelParamEnter == "all" then
                    Fuel(true, 0)
                else
                    Fuel(false, fuelParamEnter)
                end

                print("Refuelled!\n")
                print("There is now "..turtle.getFuelLevel().." fuel inside of QuarryBot.")
                sleep(2)
                CleanClear()
                textutils.slowPrint("Continuing Quarry...")

                for nclvl = currentLevel, oldLevel do
                    turtle.digDown()
                    turtle.down()
                end
                currentLevel = oldLevel

            else
            CleanClear()
            print("Thank you for using QuarryBot!")
            sleep(1)
            os.shutdown()
            end
        end

        local success, data = turtle.inspectDown()
        if success then --If detects bedrock below
            if data.name == "minecraft:bedrock" then
                for bclvl = currentLevel, 0 do
                    turtle.digUp()
                    turtle.up()
                end
                currentLevel = 0
                break
            end
        end

        if currentLevel == Depth then
            print("Depth Called!")
            for dclvl = currentLevel, 0 do
                turtle.digUp()
                turtle.up()
            end
        end

        print ("cL: "..currentLevel.." D: "..Depth)
    end
    currentLevel = 0

end

function Fuel(all, amount)
  if all == true then

    for i = 1, 16 do
          turtle.select(i)
          if turtle.refuel(0) then
            turtle.refuel(turtle.getItemCount(i))
          end
        end
        turtle.select(1)

  else

    turtle.select(1)
        if(turtle.refuel(0)) then
          turtle.refuel(tonumber(amount))
        end

  end
end

function Confirm(xD, zD, dep, retFq)
  CleanClear()
  textutils.slowPrint("So...")
  sleep(2)
  CleanClear()
  textutils.slowPrint("Quarry Parameter Preview\n")
  print("Quarry X: "..xD)
  print("Quarry Z: "..zD)
  print("Quarry depth: "..dep)
  print("Quarry return frequency: "..retFq.."\n")
  sleep(2)
  print("Is this correct?")
  textutils.slowPrint("Y for yes or anything else for no...")
  confirmEnter = read()

   if confirmEnter ~= "Y" then
    CleanClear()
    print("Okay... Restarting program.")
    sleep(1)
    Start()
  else
    CleanClear()
    textutils.slowPrint("Quarry Fuel Preview\n")
    local amOfFuelIn = turtle.getFuelLevel()
    if amOfFuelIn <= 0 then
      print("It seems that there is no fuel left in QuarryBot. In order to continue, enter the amount of items of fuel you want to load in or enter \'all\' to load QuarryBot with all the fuel within its inventory. If you don't use \'all\' then it will only take fuel from the top-left slot.\n")
      local fuelParamEnter = read()

         if fuelParamEnter == "all" then
        Fuel(true, 0)
          else
        Fuel(false, fuelParamEnter)
          end

      print("Refuelled!\n")
      print("There is now "..turtle.getFuelLevel().." fuel inside of QuarryBot.")
      sleep(2)
    else
    print("Would you like to refuel? Enter Y for yes or anything else for no...")
    local fuelConfCheck = read()

    if fuelConfCheck == "Y" then
    print("In order to continue, enter the amount of items of fuel you want to load in or enter \'all\' to load QuarryBot with all the fuel within its inventory. If you don't use \'all\' then it will only take fuel from the top-left slot.\n")

      local fuelParamEnter = read()
      if fuelParamEnter == "all" then
        Fuel(true, 0)
          else
        Fuel(false, fuelParamEnter)
          end
      print("Refuelled!\n")
      print("There is now "..turtle.getFuelLevel().." fuel inside of QuarryBot.")
      sleep(2)
    end
    end
    CleanClear()
    textutils.slowPrint("Quarry Light Preview\n")
    print("Please enter how frequently you want the QuarryBot to place a torch on a wall of the Quarry.")
    print("(Per levels. For example, if you entered \'5\' then it would place a torch every 5 levels it goes down. If you do not want torches to be placed, enter \'0\'. If you are going to be placing torches, make sure that there are some torches in QuarryBot's inventory otherwise they won't be placed!)\n")
    local amountOfTorchesToPlace = tonumber(read())
    CleanClear()
    textutils.slowPrint("Starting Quarry...")
    sleep(3)
    Quarry(xD, zD, dep, amountOfTorchesToPlace)
end
end

function Start()
  CleanClear()
  textutils.slowPrint("Welcome to Quarry")
  sleep(2)
  print("How far on the X-Axis do you want to quarry?")
  local xDist = tonumber(read())
  sleep(1)
  print("How far on the Z-Axis do you want to quarry?")
  local zDist = tonumber(read())
  sleep(1)
  print("How deep would you like to quarry?")
  local depth = tonumber(read())
  sleep(1)
  print("How often would you like the QuarryBot to return to the surface?")
  print("(Per the amount of blocks the quarry mines.)")
  local returnFreq = tonumber(read())
  sleep(2)
  Confirm(xDist, zDist, depth, returnFreq)
end

Start()