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