FirSapplingByBlue

local function diggingupdown()
 local height = 0

 turtle.dig()
 turtle.forward()
 turtle.dig()

 while turtle.digUp() do
   turtle.up()
   turtle.dig()
   height = height + 1
 end

 turtle.turnRight()
 turtle.dig()
 turtle.forward()
 turtle.turnLeft()
 turtle.dig()

 while height > 0 do
   height = height - 1
   turtle.digDown()
   turtle.down()
   turtle.dig()
 end
  turtle.back()
  turtle.turnLeft()
  turtle.forward()
  turtle.turnRight()
  turtle.forward()
end

local function sappling()
 turtle.select(1)
 turtle.suck()
 turtle.place()
 turtle.turnRight()
 turtle.forward()
 turtle.turnLeft()
 turtle.suck()
 turtle.place()
 turtle.back()
 turtle.place()
 turtle.turnLeft()
 turtle.forward()
 turtle.turnRight()
 turtle.suck()
 turtle.place()
 turtle.select(2)
 turtle.place()
 turtle.turnRight()
 turtle.turnRight()
 for slot=3,7 do
   turtle.select(slot)
   turtle.drop()
 end
 turtle.turnRight()
 turtle.turnRight()
 turtle.select(16)
 while not turtle.compare() do
  turtle.select(2)
  turtle.place()
  turtle.select(16)
 end
end

while true do
 diggingupdown()
 sappling()
end