12814
JEU -> Réflexiontypeins
© Science & Vie (1987)
 
 
 
La Phrase Cachee
cpc
 
 
screenshot
screenshot
screenshot
 
 
 
 

screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Mots Clefs

INFOS

- CATEGORIES -
JEU -> Réflexion               
- NOMBRE DE JOUEURS -
3 joueurs alternativement
- DESCRIPTION -
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.

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

- BUGS -
* 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.

 

Goto Top
CPC-POWER/CPCSOFTS, programmation par Kukulcan © 2007-2024 tous droits réservés.
Reproduction sans autorisation interdite. Tous les titres utilisés appartiennent à leurs propriétaires respectifs.
Hébergement Web, Mail et serveurs de jeux haute performance