formule de choix aléatoire ?

[Requillems]

Salut à tous,

Je me suis lancé dans la programmation sur ma ti-89 il y a peu de temps et j'essaye notamment de créer un petit jeu de donjon basique.

Comment faire pour que le programme affiche une phrase au hasard entre 4 phrases ??
Soit : Disp "machin chose"
Soit : Disp "je sais pas quoi"
Soit : Disp "truc muche"
Soit : Disp "abracadabra"

En l’occurrence ça serait des noms de monstres que le programme choisis aléatoirement.
Tu choisis le niveau du monstre à combattre et ensuite entre la liste des monstres de ce niveau précis tu en combat un au hasard.
???

[Adriweb]

Une solution parmi d'autre, j'imagine : tu stockes dans une variable un nombre aléatoire (compris entre tel et tel nombre), et tu fais un "if" sur la valeur du nombre aléatoire, pour savoir quelle phrase tu vas afficher.

[Bisam]

Encore mieux :

Code: Tout sélectionner

liste_phrases={"machin","truc","chose"}
Disp liste_phrases[rand(dim(liste_phrases))]

[EDIT] Version corrigée

Code: Tout sélectionner

{"machin","truc","chose"}->liste_phrases
Disp liste_phrases[rand(dim(liste_phrases))]

[Adriweb]

Ah ben c'est ce à quoi je pensais mais je savais pas si les listes de strings étaient faisables en basic 68k ...

[Requillems]

Super merci pour l'info !

[Requillems]

Au fait quand j'essaye d'exécuter le programme, la calculatrice me dit qu'il manque un ( " ) je ne comprends pas pourquoi.

[technolapin]

Est-ce que tu essaye de faire du texte?
Si oui, au cas où tu ne le saurais pas, le texte est toujours entre guillemets.
Mais bon, je sais pas, il faudrait que tu nous donne le code.

[Requillems]

J'ai écrit pour essayer :

testest()
Prgm
l_ennemi={"machin","truc","chose"}
Disp l_ennemi[rand(dim(l_ennemi))]
EndPrgm

[Requillems]

Est-ce que ça marcherait d'écrire :

testest()
Prgm
l_ennemi={"machin","truc","chose"}
Return l_ennemi[rand(dim(l_ennemi))]
EndPrgm

?

[critor]

C'est l'idée à quelques détails d'écriture près, oui:

Code: Tout sélectionner

testest()
Prgm
l_ennemi:={"machin","truc","chose"}
Return l_ennemi[randint(1,dim(l_ennemi))]
EndPrgm