GAME -> Reflexion               

Le jeu du taquin se joue sur une grille de 16 cases disposées en 4 lignes et 4 colonnes. Quinze cases sont occupées par des tuiles portant des lettres, et une case reste vide pour permettre les déplacements. Le but du jeu est de replacer les lettres dans l'ordre alphabétique, de gauche à droite sur chaque ligne, puis de haut en bas, jusqu'à obtenir la configuration finale.

L'ordre à respecter est donc le suivant : les 4 premières lettres sur la première ligne, les 4 suivantes sur la deuxième ligne, les 4 suivantes sur la troisième ligne, puis les 3 dernières lettres sur la quatrième ligne, la dernière case restant vide.

Les déplacements s'effectuent en faisant glisser uniquement une tuile située à côté de la case vide, horizontalement ou verticalement. Le joueur doit utiliser cette case vide pour réorganiser progressivement les lettres jusqu'à retrouver l'ordre final correct.

Touches directionnelles pour déplacer une tuile vers la case vide

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

1) Le programme ne détecte pas et n'affiche pas de message de fin de partie victorieuse
AVANT :

3430 IF NE=15 THEN FIN=1

APRES :

3430 IF NE=16 THEN GOSUB 3140:FOR WT=0 TO 2000:NEXT:CLS:PRINT"BRAVO":FIN=1

2) L'algorithme de mélange des tuiles du taquin effectue un placement aléatoire qui peut générer une grille impossible à résoudre
Remplacer les lignes 2150 à 2230 par les lignes

2150 RANDOMIZE TIME*1.01020304:FOR I=1 TO 15:T(I)=64+I:NEXT
2155 RANDITER=0:MAXRANDITER=30+INT(15*RND):RANDX=4:RANDY=4
2160 WHILE RANDITER < MAXRANDITER
2165 X=INT(RND*4)+1:Y=INT(RND*4)+1:IF X=RANDX OR Y=RANDY THEN 2165
2170 WHILE RANDX < X:GOSUB 2180:WEND:WHILE RANDX > X:GOSUB 2185:WEND:WHILE RANDY < Y:GOSUB 2190:WEND:WHILE RANDY > Y:GOSUB 2195:WEND
2175 RANDITER=RANDITER+1:WEND:GOTO 2200
2180 IF RANDX=4 THEN RETURN ELSE T(RANDX+(RANDY-1)*4)=T(RANDX+1+(RANDY-1)*4):T(RANDX+1+(RANDY-1)*4)=0:RANDX=RANDX+1:RETURN
2185 IF RANDX=1 THEN RETURN ELSE T(RANDX+(RANDY-1)*4)=T(RANDX-1+(RANDY-1)*4):T(RANDX-1+(RANDY-1)*4)=0:RANDX=RANDX-1:RETURN
2190 IF RANDY=4 THEN RETURN ELSE T(RANDX+(RANDY-1)*4)=T(RANDX+RANDY*4):T(RANDX+RANDY*4)=0:RANDY=RANDY+1:RETURN
2195 IF RANDY=1 THEN RETURN ELSE T(RANDX+(RANDY-1)*4)=T(RANDX+(RANDY-2)*4):T(RANDX+(RANDY-2)*4)=0:RANDY=RANDY-1:RETURN
2200 WHILE RANDX < 4:GOSUB 2180:WEND
2205 WHILE RANDY < 4:GOSUB 2190:WEND