GAME -> Reflexion               

1 player

Dans ce jeu de réflexion, le joueur doit deviner une expression cachée en proposant une lettre à chaque tour, révélée si elle figure dans l'expression. La partie est perdue après cinq propositions de lettres absentes de l'expression.

Paru sous forme de listing en pages 1 à 5 dans le classeur "Comment exploiter toutes les ressources et augmenter les performances de votre Amstrad CPC 464/664/6128", Tome 4, Partie 9, Chapitre 3.7, aux Editions WEKA

1) Le programme ne limite pas la saisie du joueur aux caractères compris entre A et Z
AVANT :

4210 a$=INKEY$:IF a$="" THEN 4210

APRES :

4210 a$=UPPER$(INKEY$):IF a$="" THEN 4210 ELSE IF a$<"A" OR A$>"Z" THEN 4210

2) Le programme ne vérifie pas si le caractère saisi par le joueur a déjà été proposé
Ajouter la ligne :

3255 lettresProposees$="" 'Lettres deja proposees par le joueur

Ajouter la ligne :

4211 IF INSTR(lettresProposees$,a$)<>0 THEN 4210 ELSE lettresProposees$=lettresProposees$+a$

3) Le programme peut reproposer sans cesse la même expression à deviner
AVANT :

3030 RANDOMIZE i

APRES :

3030 RANDOMIZE TIME*1.01020304