Boite a Sucre routine

remarque : Cette routine maintient en secret une boite a sucre pleine le plus longtemps possible

     Date sucre = Date Courante

     in Environnement, Environnement du Membre(Courant)
     in Environnement du Membre(Courant), Boite
     in Boite, Sucre
     in Sucre, Type

          si Sucre = absent
          alors Boite a Sucre
     in Liste Sucre, Lieu Sucre
     in Environnement, Lieu Sucre
          si Lieu Sucre = absent
          alors Boite a Sucre
               si Securite = "Pas OK"
               alors routine Boite a Sucre
     in Liste Sucre, Heure
          si Heure Courante = Heure
          alors index 1
     out, Liste Sucre, Heure Courante

1 index
          si Boite = pleine
          alors Boite a Sucre

     repeter
          action "Mettre", Sucre, Type, Boite
     jusqu'a Boite = pleine
     Date Sucre = Date Sucre + 1

2 index
          si Date Sucre > Date Courante
          alors index 2

     routine Boite a Sucre

     retour