Forum TI-Planet.org

Bonjour,

Je viens de créer un petit programme de jeux et j'aimerais savoir si il y a une astuce pour pouvoir créer un record.

Salut,

C'est quoi comme jeu? Si tu le souhaites, n'hésite pas à l'uploader sur le site

Pour créer un record, il te suffit d'enregistrer le score actuel dans une liste, et de comparer la variable stoquée avec le score. Si le score actuel est supérieur au score dans ta liste, tu mets à jour celle-ci.

Tu l'as créé en quel langage ton jeu ? Je suppose Basic, mais on ne sait jamais...

Voici mon programme de jeux, le but est de trouvé le nombre aléatoire.

Code: Select all

:ClrHome
: Disp "NIVEAU FACILE" // J'indique la difficulté du niveau
: 0->C
:randInt(1,10)->A
:While A≠B
: Prompt B
:C+1->C // Pour compter le nombre de coup
:If B=A:Then:ClrHome:Disp "BRAVO":Disp C:Disp " COUP(S)":Disp "FACILE"
:End
:If A>B:Then:Disp "+ GRAND"
:End
:If A<B:Then:Disp "+ PETIT"
:End
:End

Le plus pratique est en effet d'enregistrer le score dans une liste personnalisée, qui aura peu de chances d'être écrasée par un autre programme.

En début de programme, mets l'instruction suivante qui crée la liste si elle n'existe pas déjà (ce qui évitera des erreurs), et ne changera rien dans les autres cas :

1→dim(_LRECJ

Le record à comparer ou modifier qui sera par défaut de 0, sera alors accessible avec :

_LRECJ(1

Le préfixe de liste perso _L se tape en allant dans le menu

D'accord je vais tester ça et je vous tient au courant, je peux mettre ce que je veux après le L ou juste RECJ ?

Ce que tu veux avec 5 caractères ou moins.

Je te conseille de mettre 5 caractères - ça diminue les chances qu'un autre programme utilise la même liste perso que toi.

D'accord, je vais tester ça

J'ai fait ce programme pour essayer de comprendre comment sa marche mais la le record ne marche pas car qu'importe est la variable C elle s'affiche quand même, ou est mon erreur?

Code: Select all

:1->dim(lRECJ
:5->B
:0->C
:0->A
:While A≠B
:Prompt À
:C+1->C
:End
:If C>LRECJ(1
:Then
:C->dim(LRECJ
:Disp "RECORD"
:Disp C
:End


Déjà, au début du programme, tu ne remets pas le score déjà sauvegardé dans C.
Ensuite, à la fin du programme, tu ne sauvegardes pas le score dans la liste, tu changes la taille de la liste.

Ton code devrait plutôt être

Code: Select all

:1->dim(lRECJ
:5->B
:lRECJ(1->C
:0->A
:While A≠B
:Prompt À
:C+1->C
:End
:If C>LRECJ(1
:Then
:C->LRECJ(1
:Disp "RECORD"
:Disp C
:End