sinarb

function NoArbolIzq()
  turtle.select(16)
      if turtle.compare()==true then
         turtle.back()
         turtle.turnRight()
    end
    end



function ArbolIzq()
  turtle.turnLeft()
  turtle.forward()
  turtle.select(2)

    NoArbolIzq()
    turtle.select(2)
    if turtle.compare()==true then
       turtle.dig()
       turtle.forward()
         while turtle.compareUp()==true do
            turtle.digUp()
            turtle.up()
         end
         if turtle.compareUp()==false then
            repeat turtle.down()
            until turtle.compareDown()==true
                  if turtle.compareDown()==true then
                     turtle.digDown()
                     turtle.down()
                     turtle.back()
                     turtle.back()
                     turtle.turnRight()
                     turtle.up()
            end

    end
 end

function NoArbolDer()
  turtle.select(16)
    if turtle.compare()==true then
       turtle.back()
       turtle.turnLeft()
    end
    end
    end

function ArbolDer()
turtle.turnRight()
turtle.forward()
turtle.select(2)

      NoArbolDer()
        turtle.select(2)
        if turtle.compare()==true then
           turtle.dig()
           turtle.forward()
             while turtle.compareUp()==true do
                   turtle.digUp()
                   turtle.up()
             end
             if turtle.compareUp()==false then
                 repeat turtle.down()
                 until  turtle.compareDown()==true
                       if turtle.compareDown()==true then
                           turtle.digDown()
                           turtle.down()
                           turtle.back()
                           turtle.back()
                           turtle.turnLeft()
                           turtle.up()



end
end
end
end



ArbolIzq()
ArbolDer()
for i = 1, 5 do
    turtle.forward()
end
ArbolIzq()
ArbolDer()