JEU -> Réflexion               

2 joueurs alternativement

Ce jeu de réflexion se pratique à deux joueurs sur un damier de 8 cases de côté. L'un des joueurs incarne le loup, lequel peut se déplacer vers l'avant comme vers l'arrière, exclusivement en diagonale. L'autre joueur dirige les agneaux, qui ne sont autorisés à se déplacer que vers l'avant, également en diagonale. Les cases déjà occupées sont inaccessibles et aucun saut n'est permis.

La partie est remportée par le loup s'il parvient à atteindre la ligne du bas avant que l'ensemble des agneaux n'atteigne la ligne du haut. Dans le cas contraire, la victoire revient aux agneaux.

Le loup peut se déplacer dans toutes les directions :
Q = Vers le haut et la gauche
S = Vers le haut et la droite
W = Vers le bas et la gauche
X = Vers le bas et la droite
Si le loup est encercle par les agneaux, saisir P pour passer.

Les agneaux ne peuvent se deplacer que vers le haut. Ils sont représentés par 1, 2, 3 et 4.
Pour déplacer l'agneau 3 vers la droite, tapez 3D. Pour le déplacer vers la gauche, tapez 3G.

Paru sous forme de listing en pages 1 à 14 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.8, aux Editions WEKA

1) Le programme autorise un déplacement invalide d'un loup ou d'un agneau vers un case déjà occupée
Ajouter la ligne :

3556 XN=4*VAL(MID$(T$,C,1))+2:YN=2*VAL(MID$(T$,C-1,1))+1:IF (XN=XL AND YN=YL)OR(XN=X1 AND YN=Y1)OR(XN=X2 AND YN=Y2)OR(XN=X3 AND YN=Y3)OR(XN=X4 AND YN=Y4) THEN LOCATE 1,20:PRINT"Case deja occupee";CHR$(18):FOR wt=0 TO 2000:NEXT:GOTO 3420

2) Le programme ne bloque pas le déplacement d'un loup ou d'un agneau hors des limites du damier
Ajouter la ligne :

3555 IF INSTR("12345678",MID$(T$,C-1,1))=0 OR INSTR("12345678",MID$(T$,C,1))=0 THEN LOCATE 1,20:PRINT"Deplacement hors des limites du damier";CHR$(18):FOR wt=0 TO 2000:NEXT:GOTO 3420

3) Le programme doit autoriser l'absence de déplacement du loup car il peut être encerclé par les agneaux
Ajouter la ligne :

2125 PRINT:PRINT"Si le loup est encercle par les agneaux, saisir P pour passer."

Ajouter la ligne :

3452 IF S=0 AND R$="P" THEN 3410

AVANT :

3450 IF S=0 THEN INPUT "Jeu du loup (Q,S,W,X) : ";R$

APRES :

3450 IF S=0 THEN INPUT "Jeu du loup (Q,S,W,X,P) : ";R$

4) Le programme ne vérifie pas que l'ordre de déplacement du loup saisi par le joueur respecte l'expression régulière [QqSsWwXxPp]
Ajouter la ligne :

3451 IF S=0 THEN R$=UPPER$(R$):IF LEN(R$)<>1 OR INSTR("QSWXP",R$)=0 THEN LOCATE 1,20:PRINT"Saisie invalide";CHR$(18):FOR wt=0 TO 2000:NEXT:GOTO 3420

5) Le programme ne vérifie pas que l'ordre de déplacement de l'agneau saisi par le joueur respecte l'expression régulière [1-4][GgDd]
AVANT :

3460 IF S=1 THEN INPUT "Jeu des agneaux (ND,NG) : ";R$:GOTO 3520

APRES :

3460 IF S=1 THEN INPUT "Jeu des agneaux (ND,NG) : ";R$

Ajouter la ligne :

3461 IF S=1 THEN R$=UPPER$(R$):IF LEN(R$)<>2 OR INSTR("1234",LEFT$(R$,1))=0 OR INSTR("GD",RIGHT$(R$,1))=0 THEN LOCATE 1,20:PRINT"Saisie invalide";CHR$(18):FOR wt=0 TO 2000:NEXT:GOTO 3420 ELSE 3520

6) Le programme n'effectue aucune validation de la saisie relative au choix de l'animal qui commence la partie (loup ou agneau)
Ajouter la ligne :

3065 IF s<>0 AND s<>1 THEN PRINT:PRINT"Saisie invalide":FOR wt=0 TO 2000:NEXT:GOTO 3030

Site de l'auteur : "site"