ex

args = {...}

widthx=0
widthy=0
depth=0

x=0
y=0
d=0

xdir=1
ydir=0

xdirSurface = 1
ydirSurface = 0

onWayUp=0

ignoreCount=0

onWayHome=0

lastSpotx=0
lastSpoty=0
lastSpotd=0

lastSpotxdir=1
lastSpotydir=0

useEnderChest = false
isChestPlaced = false



maxSlot = 15

function getCountFreeSlots()
  freeslots = 0
  for i=ignoreCount+1,maxSlot do
    if turtle.getItemCount(i)==0 then
      freeslots=freeslots+1
    end
  end
  return freeslots
end

function checkInventory()
  if getCountFreeSlots() == 0 and onWayHome == 0 then
    for j = 1,ignoreCount do
      turtle.select(j)
        if turtle.getItemSpace(j) < turtle.getItemCount(j) then
          turtle.drop( ( (turtle.getItemSpace(j) + turtle.getItemCount(j)) / 2) - turtle.getItemSpace(j))
        end
      for i=ignoreCount+1,maxSlot do
        turtle.select(j)
        if turtle.compareTo(i) then
          turtle.select(i)
          turtle.drop()
        end
      end
    end
    turtle.select(1)
    if getCountFreeSlots() == 0 then
      if useEnderChest then
        placeEnderChest()
        clearInventory()
        retrieveEnderChest()
      else
        onWayHome=1
        lastSpotx=x
        lastSpoty=y
        lastSpotd=d
        lastSpotxdir=xdir
        lastSpotydir=ydir
      end
    end
  end
  if onWayHome==1 then
    goHome()
  end
  if onWayHome==2 then
    goBack()
  end
end

function right()
  if turtle.turnRight() then
    help=xdir
    xdir=-ydir
    ydir=help
  end
  save()
end

function left()
  if turtle.turnLeft() then
    help=xdir
    xdir=ydir
    ydir=-help
  end
  save()
end

function forward()
  refuel()
  while not turtle.forward() do
    os.sleep(0)
    turtle.dig()
    if onWayHome == 0 then
      checkInventory()
    end
  end
  x=x+xdir
  y=y+ydir
  save()
end

function up()
  refuel()
  while turtle.up() == false do
    os.sleep(0)
    turtle.digUp()
    if onWayHome == 0 then
      checkInventory()
    end
  end
  d=d-1
  save()
end

function down()
  refuel()
  while turtle.down() == false do
    os.sleep(0)
    if not turtle.digDown() then
      return false
    end
    if onWayHome == 0 then
      checkInventory()
    end
  end
  d=d+1
  save()
  return true
end

function isRabbitHoleSpot()
  if ((x + ((y*2) % 5)) % 5) == 0 then
    return true
  else
    return false
  end
end

function rabbitHole()

  if isRabbitHoleSpot() and onWayUp == 0 then
    if d==0 then
      xdirSurface=xdir
      ydirSurface=ydir
    end
    while d~=depth and down() do
      rotaDigger()
    end
    onWayUp=1
  end
  if onWayUp==1 then
    while d ~= 0 do
      up()
    end
    rotateTo(xdirSurface,ydirSurface)

    for i=1,ignoreCount do
      if turtle.getItemCount(i) > 1 then
        turtle.select(i)
        turtle.placeDown()
        i=ignoreCount
      end
    end
    turtle.select(1)
    onWayUp=0
  end

end

function isIgnoreBlock()
  for i = 1,ignoreCount do
    turtle.select(i)
    if turtle.compare() then
      return true
    end
  end
  return false
end

function rotaDigger()
  for i=1,3 do
    if isIgnoreBlock() == false then
      turtle.dig()
      if onWayHome == 0 then
        checkInventory()
      end
    end
    left()
  end
  if isIgnoreBlock() == false then
    turtle.dig()
    if onWayHome == 0 then
      checkInventory()
    end
  end
end

function goHome()

  if d ~= 0 then
    onWayUp=1
    rabbitHole()
  end
  while not (xdir==-1) do
    left()
  end
  while not (x==0) do
    forward()
  end
  while not (ydir==-1) do
    left()
  end
  while not (y==0) do
    forward()
  end
  while not (xdir==-1) do
    left()
  end
  placeEnderChest()
  clearInventory()
  retrieveEnderChest()
  onWayHome=2
end

function goBack()
  if d ~= 0 then
    onWayUp=1
    rabbitHole()
  end
  while not (xdir==1) do
    left()
  end
  while not (x==lastSpotx) do
    forward()
  end
  while not (ydir==1) do
    left()
  end
  while not (y==lastSpoty) do
    forward()
  end
  while not (d==lastSpotd) do
    down()
  end
  rotateTo(lastSpotxdir,lastSpotydir)
  onWayHome=0
end

function rotateTo(dirxnew, dirynew)
  while not (xdir==dirxnew and ydir==dirynew) do
    left()
  end
end


function refuel()
  term.clear()
  print("need fuel")
  while turtle.getFuelLevel() < 80 do
    for i=ignoreCount+1,maxSlot do
      turtle.select(i)
      if turtle.compareTo(16) then
        turtle.transferTo(16)
      end
    end
    turtle.select(16)
    turtle.refuel(turtle.getItemCount(16)-1)
  end
  term.clear()
  turtle.select(1)
end

function clearInventory()
  for i=ignoreCount+1,maxSlot do
    turtle.select(i)
    if turtle.compareTo(16) then
      turtle.transferTo(16)
    end
  end
  for i=ignoreCount+1,maxSlot do
    turtle.select(i)
    if useEnderChest then
      turtle.dropUp()
    else
      turtle.drop()
    end
  end
end

function placeEnderChest()
  if useEnderChest and not isChestPlaced then
    turtle.digUp()
    turtle.select(15)
    turtle.placeUp()
    isChestPlaced = true
    save()
  end
end

function retrieveEnderChest()
  if useEnderChest and isChestPlaced then
    turtle.select(15)
    turtle.dropUp()
    turtle.digUp()
    isChestPlaced = false
    save()
  end
end

function uTurn()
  if y == widthy-1 then
    return
  end
  if xdir == 1 and x == widthx-1 then
    right()
    rabbitHole()
    forward()
    right()
    return
  end
  if xdir == -1 and x == 0 then
    left()
    rabbitHole()
    forward()
    left()
    return
  end
  if (xdir==0 and (x==0 or x==widthx-1)) then
    if x==0 then
      if y%2==1 then
        rabbitHole()
        forward()
      end
    left()
    return
    end
    if x==widthx-1 then
      if y%2==0 then
        rabbitHole()
        forward()
      end
      right()
      return
    end
  end
end

function readFromSave()
  if fs.exists("ex.save") then
    h=fs.open("ex.save","r")
    if h ~= nil then
      widthx=tonumber(h.readLine())
      widthy=tonumber(h.readLine())
      depth=tonumber(h.readLine())
      x=tonumber(h.readLine())
      y=tonumber(h.readLine())
      d=tonumber(h.readLine())
      xdir=tonumber(h.readLine())
      ydir=tonumber(h.readLine())
      xdirSurface=tonumber(h.readLine())
      ydirSurface=tonumber(h.readLine())
      onWayUp=tonumber(h.readLine())
      ignoreCount=tonumber(h.readLine())
      onWayHome=tonumber(h.readLine())
      lastSpotx=tonumber(h.readLine())
      lastSpoty=tonumber(h.readLine())
      lastSpotd=tonumber(h.readLine())
      lastSpotxdir=tonumber(h.readLine())
      lastSpotydir=tonumber(h.readLine())
      useEnderChest=toboolean(h.readLine())
      isChestPlaced=toboolean(h.readLine())
      h.close()
      return true
    else
      return false
    end
  else
    return false
  end
end

function save()
  h=fs.open("ex.save","w")
  if h~= nil then
    h.writeLine(widthx)
    h.writeLine(widthy)
    h.writeLine(depth)
    h.writeLine(x)
    h.writeLine(y)
    h.writeLine(d)
    h.writeLine(xdir)
    h.writeLine(ydir)
    h.writeLine(xdirSurface)
    h.writeLine(ydirSurface)
    h.writeLine(onWayUp)
    h.writeLine(ignoreCount)
    h.writeLine(onWayHome)
    h.writeLine(lastSpotx)
    h.writeLine(lastSpoty)
    h.writeLine(lastSpotd)
    h.writeLine(lastSpotxdir)
    h.writeLine(lastSpotydir)
    h.writeLine(useEnderChest)
    h.writeLine(isChestPlaced)
    h.flush()
    h.close()
  end
end

function toboolean(v)
    return (type(v) == "string" and v == "true") or (type(v) == "number" and v ~= 0) or (type(v) == "boolean" and v)
end

function main()
  if args[1] == nil or args[1] == "" or args[1] == "-h" or args[1]=="--help" or args[1] == "help" then
    print("Usage:")
    print("ex lenght, width, depth, ignoreCount, [-e|--enderchest]")
    print("Put ignoreBlocks in slot 1 to ignoreCount")
    print("Put enderchest in slot 15 if needed")
    print("Put fuel in slot 16")
    return
  end
  if args[1] == "continue" then
   if readFromSave() == false then
     return 1
   end
  else
    widthx=tonumber(args[1])
    widthy=tonumber(args[2])
    depth=tonumber(args[3])
    ignoreCount=tonumber(args[4])
    if args[5] ~= nil and (args[5]=="-e" or args[5]=="--enderchest") then
      useEnderChest = true
      maxSlot = 14
    end
  end
  term.clear()
  if useEnderChest and turtle.getItemCount(15) == 0 then
    print("no enderchest. canceled.")
  end
  if turtle.getItemCount(16) == 0 then
    print("no fuel. canceled.")
  end
  retrieveEnderChest()
  repeat
    rabbitHole()
    forward()
    uTurn()
    term.clear()
  until y == widthy-1 and ((xdir==-1 and x==0) or (xdir==1 and x==widthx-1))

  onWayHome=1
  goHome()
  onWayHome=0
  fs.delete("ex.save")
  clearInventory()

end

main()