turtle.bridge 1.8

-- Welcome to the TurtleBridge program.
local function ascend()
  turtle.digUp()
  turtle.up()
  turtle.select(16)
  turtle.placeDown()
end
local function descend()
  turtle.digDown()
  turtle.down()
end
local function refuel()
  turtle.select(5)
  turtle.digUp()
  turtle.select(2)
  turtle.placeUp()
  turtle.select(15)
  turtle.suckUp()
  shell.run("refuel all")
  turtle.select(2)
  turtle.digUp()
end
local function restock()
  turtle.select(5)
  turtle.digUp()
  turtle.select(1)
  turtle.placeUp()
  turtle.select(16)
  turtle.suckUp()
  turtle.select(1)
  turtle.digUp()
end

local function unload()
  turtle.select(5)
  turtle.digUp()
  turtle.select(3)
  turtle.placeUp()
  for s = 4, 14 do
    turtle.select(s)
    turtle.dropUp()
  end
  turtle.select(3)
  turtle.digUp()
end

local function checks()

  if turtle.getFuelLevel() < 140 then
    refuel()
  end

  if turtle.getItemCount(16) < 64 then
    restock()
  end

end

local function surface()
  if turtle.getItemCount(16) < 4 then
    checks()
    unload()
  end
  if turtle.getFuelLevel() < 4 then
    checks()
    unload()
  end
  turtle.turnLeft()
  turtle.select(16)
  turtle.dig()
  turtle.place()
  turtle.turnRight()
  turtle.turnRight()
  turtle.select(16)
  turtle.dig()
  turtle.place()
  turtle.turnLeft()
  ascend()
  turtle.digUp()
  turtle.dig()
  turtle.forward()
end

local function pillar()
  checks()
  unload()

  for i = 1, 63 do
    descend()
  end

  for i = 1, 62 do
    ascend()
  end
  surface()
end

local function beginArch()

  checks()
  unload()

  for i = 1, 10 do
    descend()
  end

  for i = 1, 9 do
    ascend()
  end
  surface()
  for i = 1, 8 do
    descend()
  end

  for i = 1, 7 do
    ascend()
  end
  surface()
  for i = 1, 5 do
    descend()
  end

  for i = 1, 4 do
    ascend()
  end
  surface()
  for i = 1, 3 do
    descend()
  end

  for i = 1, 2 do
    ascend()
  end
  surface()
  for i = 1, 2 do
    descend()
  end

  for i = 1, 1 do
    ascend()
  end
  surface()
  for i = 1, 2 do
    descend()
  end

  for i = 1, 1 do
    ascend()
  end
  surface()
  for i = 1, 1 do
    descend()
  end
  surface()
  for i = 1, 1 do
    descend()
  end
  surface()
  for i = 1, 1 do
    descend()
  end
  surface()

end

local function endArch()

  checks()
  unload()

    for i = 1, 1 do
    descend()
  end
  surface()
  for i = 1, 1 do
    descend()
  end
  surface()
  for i = 1, 1 do
    descend()
  end
  surface()
  for i = 1, 2 do
    descend()
  end

  for i = 1, 1 do
    ascend()
  end
  surface()
  for i = 1, 2 do
    descend()
  end

  for i = 1, 1 do
    ascend()
  end
  surface()
  for i = 1, 3 do
    descend()
  end

  for i = 1, 2 do
    ascend()
  end
  surface()
  for i = 1, 5 do
    descend()
  end

  for i = 1, 4 do
    ascend()
  end
  surface()
  for i = 1, 8 do
    descend()
  end

  for i = 1, 7 do
    ascend()
  end
  surface()
  for i = 1, 10 do
    descend()
  end

  for i = 1, 9 do
    ascend()
  end
  surface()

end

local function path()
  descend()
  for i = 1, 10 do
    surface()
    descend()
  end
  ascend()
end

-- while true do
-- pillar()
-- pillar()
-- pillar()
-- beginArch()
path()
endArch()

-- end