JEU -> Réflexion               

3 joueurs alternativement

Voici un jeu de société inspiré de l'un de ceux proposés à ses débuts par la cinquième chaîne de T.V., il s'agit du jeu de la phrase cachée.

Il faut, un "juge" et trois concurrents. En premier lieu, sans que les participants le voient, le juge introduit dans l'ordinateur une phrase à deviner, ainsi qu'une voyelle quelconque qu'il aura choisie. Dès lors, une série de points s'affichera sur le tableau principal, indiquant ainsi le nombre de lettres à chaque mot. La voyelle choisie apparaîtra à l'emplacement qu'elle occupe respectivement dans chacun des mots. Le jeu peut commencer.

Le premier joueur lance la roue. A l'issue de ce lancer, le joueur verra son score crédité, au hasard, d'une somme variant de 500 et 5 000 F à moins qu'il ne tombe sur la case "PATATRAC" auquel cas, quel que soit son crédit antérieur, il se retrouvera avec une somme nulle et devra passer la main. Ensuite l'ordinateur lui demandera une consonne. Celle-ci fera gagner 100 F supplémentaires chaque fois qu'elle sera présente dans la phrase et sera inscrite aux emplacements adéquats sur le tableau principal.

Enfin l'ordinateur demandera si le joueur à une idée de la phrase. Si la réponse est non ce sera au joueur suivant de lancer la roue puis de jouer. En cas contraire, la phrase sera tapée au clavier et contrôlée. Si la réponse fournie est exacte, le joueur sera déclaré vainqueur, sinon il passera la main. Notons que, si après avoir lancé la roue, le joueur se trouve à la tête d'un crédit supérieur à 4 000 F, il lui sera possible d'acheter une voyelle, son score se trouvera alors amputé de cette somme.

Paru sous forme de listing dans le magazine Science & Vie n° 835, Avril 1987.
Auteur : Henri-Pierre PENEL

* Soucis d'affichage au niveau des scores si ce dernier passe par exemple de 5000 a 0, nous aurons a l'écran "0 0"
Pour corriger ce soucis, voici une solution :

AVANT

940 LOCATE #3,2,4:PRINT #3,SA

APRES

940 LOCATE #3,2,4:PRINT #3,USING "###### F";SA

AVANT

1020 LOCATE #3,2,4:PRINT #3,SA

APRES

1020 LOCATE #3,2,4:PRINT #3,USING "###### F";SA

AVANT

1090 LOCATE #3,2,4:PRINT #3,SA

APRES

1090 LOCATE #3,2,4:PRINT #3,USING "###### F";SA

AVANT

1120 LOCATE #4,2,4:PRINT #4,SB

APRES

1120 LOCATE #4,2,4:PRINT #4,USING "###### F";SB

AVANT

1200 LOCATE #4,2,4:PRINT #4,SB

APRES

1200 LOCATE #4,2,4:PRINT #4,USING "###### F";SB

AVANT

1270 LOCATE #4,2,4:PRINT #4,SB

APRES

1270 LOCATE #4,2,4:PRINT #4,USING "###### F";SB

AVANT

1300 LOCATE #5,2,4:PRINT #5,SC

APRES

1300 LOCATE #5,2,4:PRINT #5,USING "###### F";SC

AVANT

1380 LOCATE #5,2,4:PRINT #5,SC

APRES

1380 LOCATE #5,2,4:PRINT #5,USING "###### F";SC

AVANT

1450 LOCATE #5,2,4:PRINT #5,SC

APRES

1450 LOCATE #5,2,4:PRINT #5,USING "###### F";SC

* Lors de l'introduction d'une phrase, il est possible d'ajouter des caractères en minuscule ou majuscule, hors le programme ne gère que les majuscules
AVANT

600 LET K$=INKEY$

APRES

600 LET K$=UPPER$(INKEY$)

* Lors de l'introduction d'une phrase, il est possible d'ajouter des caractères autres que consonnes ou voyelles, ce qui ne correspond plus au principe du jeu

625 IF ASC(K$)=32 OR (ASC(K$)>=65 AND ASC(K$)<=90) THEN 630 ELSE 600

* Lors de l'introduction d'une phrase, il est possible de valider une phrase vide, ce qui n'est pas logique. Nous allons demander a avoir 10 caractères minimum :
AVANT

620 IF ASC(K$)=13 THEN LET I=100:GOTO 680

APRES

620 IF ASC(K$)=13 THEN IF I>10 THEN LET I=100:GOTO 680 ELSE 600

* En cours de jeu, seul les caractères en majuscule sont testé, pour éviter les soucis de saisie dû a l'oublie de l'appuye sur la touche CAPS LOCK, il faut modifier le programme comme suit :
AVANT

730 LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$

APRES

730 LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)

AVANT

990 LET K$=INKEY$:IF K$="" THEN GOTO 990

APRES

990 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 990

AVANT

1030 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$

APRES

1030 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)

AVANT

1050 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$

APRES

1050 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)

AVANT

1170 LET K$=INKEY$:IF K$="" THEN GOTO 1170

APRES

1170 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 1170

AVANT

1210 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$

APRES

1210 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)

AVANT

1230 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$

APRES

1230 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)

AVANT

1350 LET K$=INKEY$:IF K$="" THEN GOTO 1350

APRES

1350 LET UPPER$(INKEY$):IF K$="" THEN GOTO 1350

AVANT

1390 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$

APRES

1390 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)

AVANT

1410 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$

APRES

1410 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)

AVANT

1510 LET K$=INKEY$:IF K$="" THEN GOTO 1510

APRES

1510 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 1510

AVANT

1840 LET K$=INKEY$

APRES

1840 LET K$=UPPER$(INKEY$)

* Lors de l'introduction d'une phrase, il n'est pas possible en cas d'erreur de saisie de revenir en arrière.