pour jeu
#choisit le mot au hasard, et affecte les variables :mot et :longueur
ve ftc 3  ct
vocabulaire
donne "longueur compte :mot

#initialise la variable :recherche qui donnera l'état d'avancement de la découverte du mot.
donne "recherche []
repete :longueur [     donne "recherche metsdernier "_ :recherche  ]  
ecris :recherche

#initialise le compteur pour le nombre maximal de coups
donne "coups 0
donne "nb_lettres_trouvées 0

#commence le jeu
tantque [:coups<7] [
    lis [écris une lettre] "lettre
    donne "y :nb_lettres_trouvées  
    donne "x 1
    #vérifie toutes les lettres du mot pour voir si elles correspondent avec celle donnée
    repete :longueur [
            si :lettre=item :x :mot  [
                    #vérifie que la lettre n'a pas déja été donnée
                    si :lettre=item :x :recherche [ecris [déja donné!]] [
                    #la lettre est bonne et n'a jamais été donnée
                    donne "recherche remplace :recherche :x :lettre
                    donne "nb_lettres_trouvées :nb_lettres_trouvées+1  ]
                    ]
            donne "x :x+1
            ]

    #incrémente le nombre de coups si la lettre donnée n'est pas bonne, et rajoute un élèment au dessin
    si :y=:nb_lettres_trouvées [donne "coups :coups+1 dessin]
    ecris :recherche
   
    #sort de la boucle si toutes les lettres ont été trouvées
    si :nb_lettres_trouvées=:longueur [donne "coups 8]
]


si :coups=7 [ecris "PERDU]  [ecris [BRAVO, tu as gagné!] ]

fin
 

pour dessin
si :coups=1 [ lc re 50 bc  fcc 10 td 90 av 100 re 200 av 100 tg 90 ]
si :coups=2 [ av 350 td 90 ]
si :coups=3 [ av 200 re 50 td 90 av 50]
si :coups=4 [ fcc 13 tg 90 repete 270[av 1 td 2] tg 90]
si :coups=5 [ av 130 re 100 ]
si :coups=6 [ td 45 av 50 re 50 tg 90 av 50 re 50 td 45 av 100 ]
si :coups=7 [ td 45 av 50 re 50 tg 90 av 50 re 50 td 45 ]
fin

pour vocabulaire

donne "resultat hasard 50

si :resultat =  0   [ donne "mot [C O N J O I N D R E] ]

si :resultat =  1   [ donne "mot [ C O N T R A I N D R E] ]

si :resultat = 2    [ donne "mot [ P R E D I R] ]

si :resultat = 3    [ donne "mot [ A C Q U E R I R ] ]

si :resultat = 4    [ donne "mot [ C I R C O N S C R I R E] ]

si :resultat = 5    [ donne "mot [ C O U R I R] ]

si :resultat = 6    [ donne "mot [D I S CO N V E N I R] ]

si :resultat = 7    [ donne "mot [R E A D M E T T R E] ]

si :resultat = 8    [ donne "mot [S O U B A T T R E] ]

si :resultat = 9    [ donne "mot [S U B V E N I R] ]

si :resultat = 10  [ donne "mot [T R A N S P A R A I T R E] ]

si :resultat = 11  [ donne "mot [C O M M E N C E R] ]

si :resultat = 12  [ donne "mot [T R A N S F E R E R] ]

si :resultat = 13  [ donne "mot [A S S I E G E R] ]

si :resultat = 14  [ donne "mot [O U B L I E R] ]

si :resultat = 15  [ donne "mot [P A Y E R] ]

si :resultat = 16  [ donne "mot [ C R E E R] ]

si :resultat = 17  [ donne "mot [N O Y E R] ]

si :resultat = 18  [ donne "mot [ E N N U Y E R] ]

si :resultat = 19  [ donne "mot [ A C H E T E R] ]

si :resultat = 20  [ donne "mot [ A M E N E R] ]

si :resultat = 21  [ donne "mot [ F I N I R] ]

si :resultat = 22  [ donne "mot [ C H O I S I R] ]

si :resultat = 23  [ donne "mot [ C E U L L I R] ]

si :resultat = 24  [ donne "mot [ M O U R I R] ]

si :resultat = 25  [ donne "mot [ O U V R I R] ]

si :resultat = 26  [ donne "mot [ O F F R I R E ] ]

si :resultat = 27  [ donne "mot [ S A V O I R ] ]

si :resultat = 28  [ donne "mot [ P O U V O I R ] ]

si :resultat = 29  [ donne "mot [ A T T E N D R E] ]

si :resultat = 30 [ donne "mot [ P R E N D R E] ]

si :resultat = 31  [ donne "mot [ M E T T R E] ]

si :resultat = 32  [ donne "mot [ A S S E O I R] ]

si :resultat = 33  [ donne "mot [ B O U I L L I R] ]

si :resultat = 34  [ donne "mot [ C E I N D R E] ]

si :resultat = 35  [ donne "mot [ C O M M E T R E] ]

si :resultat = 36  [ donne "mot [ E N F R E I N D R E] ]

si :resultat = 37  [ donne "mot [ O M E T T R E] ]

si :resultat = 38  [ donne "mot [R E V O U L O I R] ]

si :resultat = 39  [ donne "mot [ V E T I R] ]

si :resultat =  40 [ donne "mot [ S U S P R E N D R E] ]

si :resultat = 41  [ donne "mot [ S O U F F R I R] ] 

si :resultat = 42  [ donne "mot [ R A B A T T R E ] ]

si :resultat = 43  [ donne "mot [ R E P E N D R E] ]

si :resultat = 44  [ donne "mot [ F E N D R E] ]

si :resultat = 45  [ donne "mot [ E X C L U R E] ]

si :resultat = 46  [ donne "mot [F A L L O I R ] ]

si :resultat = 47  [ donne "mot [ P R O V E N I R] ]

si :resultat = 48  [ donne "mot [ P O I N D R E ] ]

si :resultat = 49  [ donne "mot [ P R E S S E N T I R] ]

si :resultat = 50  [ donne "mot [ D E C O U V R I R] ]

fin