ore quarry derchest

local args = {...}
 if args[1] == "-reboot" then
 rowLength = args[2]
 rows = args[3]
 startingY = args[4]
 curRow = args[5]
 y = args[6]
 else
if fs.exists("startup") then
 fs.delete("startup")
end
if #args ~= 3 then
  print("Usage: dig <row length> <width> <current y>")
  error()
end
rowLength = args[1]
rows = args[2]
startingY = args[3]
curRow = 1

y = startingY
 end
function full()
  fullSlots = 0
  for i=2,15 do
    if turtle.getItemCount(i) > 0 then
      fullSlots = fullSlots + 1
    end
  end
  print(fullSlots .. " slots are full")
  return(fullSlots == 14)
end

function checkFuel()
  if turtle.getFuelLevel() < 10 then
    turtle.select(1)
    turtle.refuel(1)
    end
end

function digMove()
  checkFuel()
  while turtle.detect() do
    turtle.dig()
    os.sleep(0.5)

  end
  turtle.forward()
  updateloc()
  turtle.digUp()
  turtle.digDown()
      if full() then
 turtle.dig()
 turtle.select(16)
 turtle.place()
 for i = 1,15 do
   turtle.select(i)
   turtle.drop()
 end
 turtle.select(16)
 turtle.dig()
 end
end

function turn()
updateloc()
  if curRow % 2 == 0 then
    turtle.turnRight()
  else
    turtle.turnLeft()
  end
end

function dig()
  turtle.digDown()
  turtle.down()
  y = y - 1
  updateloc()
    if full() then
 turtle.dig()
 turtle.select(16)
 turtle.place()
 for i = 1,15 do
   turtle.select(i)
   turtle.drop()
 end
 turtle.select(16)
 turtle.dig()
 updateloc()
 end
end

function back()
  turtle.turnLeft()
  for i=1,rows do
    checkFuel()
    turtle.forward()
	updateloc()
  end
  turtle.turnLeft()
end

function up()
  for i=1,(startingY - y) do
    checkFuel()
    turtle.up()
    y = y + 1
	updateloc()
  end
end


function down(x)
  for i=1,x do
    checkFuel()
    dig(x)
  end
end

function chest()
  turtle.turnLeft()
  turtle.turnLeft()
  for i=2,16 do
    turtle.select(i)
    turtle.drop()
  end
  if turtle.getItemCount(1) < 3 then
    turtle.up()
    turtle.select(1)
    turtle.suck()
    turtle.down()
  end
  turtle.turnRight()
  turtle.turnRight()
end

function level()
  curRow = 1
  for i=1,rows do
    for i=1,rowLength-1 do
      digMove()
	  updateloc()
    end
    if curRow == tonumber(rows) then

    else
      turn()
      digMove()
      turn()
      curRow = curRow + 1
	  updateloc()
    end
  end
  back()
  tempY = y
  if full() then
 turtle.dig()
 turtle.select(16)
 turtle.place()
 for i = 1,15 do
   turtle.select(i)
   turtle.drop()
 end
 turtle.select(16)
 turtle.dig()
 down(3)
  else
    down(3)
  end
  turtle.digDown()
end
 function updateloc()
  w = fs.open("startup","w")
  w.writeLine('shell.run("dig -reboot '..rowLength..' '..rows..' '..startingY..' '..curRow..' '..y..'")')
 end
function quarry()
 if args[1] == "-reboot" then
 else
  down(2)
 end
  turtle.digDown()
  updateloc()
  while y > 2 do
    level()
  end
  up()
  fs.delete("startup")
end

quarry()