Tunnel[OC]

c= require('component')
r= require('robot')
ic= c.inventory_controller
length= 1000
function scan_inv(slot)
   slots= {}
   for i=1,15 do
      r.select(i)
      if (r.compareTo(slot)) then
         slots[#slots]= i
      end
   end
   return slots
end
slot1= scan_inv(16)
function update()
   r.select(slot1[#slot1])
   if (r.compareTo(16) == false) then
      table.remove(slot1[#slot1])
   end
   r.select(slot1[#slot1])
end
update()

function tubengR()
   r.swing()
   r.forward()
   for i=1,3 do
      r.swingUp()
      r.up()
      r.turnLeft()
      r.swing()
      r.turnRight()
   end
   r.swingUp()
   r.up()
   r.turnRight()
   r.swing()
   r.forward()
   r.turnLeft()
    for i=1,4 do
      r.swingDown()
      r.down()
   end
   r.turnRight()
   r.swing()
   r.forward()
   r.turnLeft()
   for i=1,3 do
      r.swingUp()
      r.up()
      r.turnRight()
      r.swing()
      r.turnLeft()
   end
   r.swingUp()
   r.up()
end

function tubengL()
   r.swing()
   r.forward()
   for i=1,3 do
      r.swingDown()
      r.down()
      r.turnRight()
      r.swing()
      r.turnLeft()
   end
   r.swingDown()
   r.down()
   r.turnLeft()
   r.swing()
   r.forward()
   r.turnRight()
    for i=1,4 do
      r.swingUp()
      r.up()
   end
   r.turnLeft()
   r.swing()
   r.forward()
   r.turnRight()
   for i=1,3 do
      r.swingDown()
      r.down()
      r.turnLeft()
      r.swing()
      r.turnRight()
   end
   r.swingDown()
   r.down()
end
for i=1,length do
tubengR()
tubengL()
end