Camping Sauvage routine

     in Environnement, Nuit
          si nuit = absent
          alors routine Camping Sauvage
               si Securite = "pas OK"
               alors routine Camping Sauvage

     in Environnement, Habitation du Membre
     in Habitation du Membre, Etendue Herbeuse

remarque : Position de l'installation, vers le milieu de l'etendue

     pas = 0
     repeter
          action "Faire", un pas, Etendue Herbeuse
          pas = pas + 1
     jusqu'a Etendue Herbeuse = absent

     action "Faire", Demi-tour
     X = 0
     repeter
          action "Faire", un pas, Etendue Herbeuse
     X = X + 1
     jusqu'a X = pas / 2

remarque : Orientation aleatoire

     routine Alea Direction

     action "Etendre", Plastique,Direction
     in Environnement, Cailloux
     action "Ramasser", 4, Cailloux
     action "Poser", 3, Cailloux, Coin du Plastique
     action "Poser", Caillou, Coin du Plastique

     action "Poser", Assiette, proche Caillou
     action "Poser", Couvert, droite, Assiette
     action "Poser", Verre, bout, Couverts
     action "Emietter", Pain, Assiette

     retour