Turtle farm

function move(String, nbr1)
  for d = 1, nbr1 do
    if String == 'f' then
      turtle.forward()
    elseif String == 'b' then
      turtle.back()
    elseif String == 'u' then
      turtle.up()
    elseif String == 'd' then
      turtle.down()
    end
  end
end

function turn(Dir)
  if Dir== 'l' then
    turtle.turnLeft()
  elseif Dir == 'r' then
    turtle.turnRight()
  end
end

print("Combiez de fois faut-il repeter le programme ?")
r = read()

for prog = 1, r do

  --REFUEL
  turtle.select(16)
  turtle.suckDown(5)
  turtle.refuel(5)
  turtle.dropDown(5)
  move('f', 1)

  --GRAINES
  turtle.select(3)
  move('f', 1)
  turtle.suckDown(26)

  --RECOLTE CITROUILLE
  move('f', 1)
  turn('l')
  turtle.select(1)
  for i = 1, 8 do
    turtle.digDown()
  move('f', 1)
  end

  turtle.digDown()
  turn('r')
  move('f', 3)
  turn('r')

  for i = 1, 8 do
    turtle.digDown()
    move('f', 1)
  end

  turtle.digDown()
  turn('l')
  move('f', 1)
  turn('l')

  --RECOLTE WHEAT

  for w = 1, 8 do
    turtle.select(2)
    turtle.digDown()
    compa = turtle.compareTo(12)
    if compa == true then
      turtle.transferTo(3, 5)
    end
    turtle.select(3)
    turtle.placeDown()
    move('f', 1)
  end

  turtle.select(2)
  turtle.digDown()
  compa = turtle.compareTo(12)
  if compa == true then
    turtle.transferTo(3, 5)
  end
  turtle.select(3)
  turtle.placeDown()
  turn('r')
  move('f', 1)
  turn('r')

  for w = 1, 8 do
    turtle.select(2)
    turtle.digDown()
    compa = turtle.compareTo(12)
    if compa == true then
      turtle.transferTo(3, 5)
    end
    turtle.select(3)
    turtle.placeDown()
    move('f', 1)
  end

  turtle.select(2)
  turtle.digDown()
  compa = turtle.compareTo(12)
  if compa == true then
    turtle.transferTo(3, 5)
  end
  turtle.select(3)
  turtle.placeDown()
  turn('l')
  move('f', 1)
  turn('l')

  for w = 1, 8 do
    turtle.select(2)
    turtle.digDown()
    compa = turtle.compareTo(12)
    if compa == true then
      turtle.transferTo(3, 5)
    end
    turtle.select(3)
    turtle.placeDown()
    move('f', 1)
  end

  turtle.select(2)
  turtle.digDown()
  compa = turtle.compareTo(12)
  if compa == true then
    turtle.transferTo(3, 5)
  end
  turtle.select(3)
  turtle.placeDown()
  turn('r')
  move('f', 1)
  turn('r')

  --RECOLTE MELON
  turtle.select(4)
  for c = 1, 8 do
    turtle.digDown()
    move('f', 1)
  end

  turtle.digDown()
  turn('l')
  move('f', 3)
  turn('l')

  for c = 1, 8 do
    turtle.digDown()
    move('f', 1)
  end
  turtle.digDown()
  turn('l')

  --RETOUR AUX COFFRES
  move('f', 10)
  turn('l')
  move('f', 8)
  turn('l')
  move('b', 1)

  --DEPOS DANS LES COFFRES

  turtle.select(3)
  turtle.dropDown(64)
  move('b', 1)

  turtle.select(1)
  turtle.dropDown(64)
  turtle.select(2)
  turtle.dropDown(64)
  turtle.select(4)
  turtle.dropDown(64)
  turtle.select(5)
  turtle.dropDown(64)
  move('b', 1)
  sleep(5)
end