Desherber routine

1 index
     in Habitation du Membre, Mauvaise Herbe
     in Mauvaise Herbe, Objet
     repeter
               si Objet = absent
               alors index 2
          action "Enlever", Mauvaise Herbe, autour
     jusqu'a Mauvaise herbe = absent

2 index
     in Mauvaise Herbe, Mauvaise Herbe Couverte
     repeter
               si Mauvaise Herbe Couverte = absent
               alors index 1
          action "Enlever", Mauvaise Herbe, sous
     jusqu'a Mauvaise Herbe = absent
     index 1

     retour