JEU -> Jeu de Café               

1 joueur

Inflation comes even to Blackjack in this game where the Amstrad challenges you to a game of cards! Add the value of your cards and if you are closer to 31 than the Amstrad then you win! Of course, a hand over 31 costs you (or the Amstrad) the game.

Answer the questions asked of you by pressing the required numbers and then "RETURN".

Edité par : Melbourne House, Beam Software

Programme "Thirty One" paru sous forme de listing en pages 177 à 183 du livre "Amstrad Games Book CPC 464-664"
Programme "Treinta y una" paru sous forme de listing en pages 231 à 238 du livre "El libro gigante de los juegos para Amstrad"
Auteurs : Kevin BERGIN, Andrew LACEY

* Thirty One
a) L'ordre d'apparition des cartes, bien que calculé avec la fonction RND, est toujours le même si un reboot de la machine est effectué entre chaque session de jeu
Ajouter les lignes :

409 RANDOMIZE TIME*1.01020304
2509 RANDOMIZE TIME*1.01020304

b) Le texte des questions reste anormalement affiché lors de la révélation des cartes détenues par l'ordinateur
AVANT :

2000 LOCATE 15,15:PRINT SPACE$(20):LOCATE 15,13:PEN 1:PRINT"AMSTRAD'S HAND ":FOR I=1 TO NCCDS:COL=4*I-3:ROW=14:CDRAW=CHAND(I):GOSUB 1000:NEXT

APRES :

2000 LOCATE 1,20:PRINT CHR$(18):LOCATE 1,22:PRINT CHR$(18):LOCATE 1,15:PRINT CHR$(18):LOCATE 15,13:PEN 1:PRINT"AMSTRAD'S HAND ":FOR I=1 TO NCCDS:COL=4*I-3:ROW=14:CDRAW=CHAND(I):GOSUB 1000:NEXT

c) Le joueur peut parier une somme négative
AVANT :

470 LOCATE 1,20:INPUT"Initial bet ";X$:MBET=VAL(X$)

APRES :

470 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"Initial bet ";X$:GOSUB 4000:IF X$="" THEN 470 ELSE MBET=VAL(X$)

AVANT :

520 LOCATE 1,20:INPUT"HOW MUCH TO ADD TO YOUR BET";X$:MBET=MBET+VAL(X$)

APRES :

520 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"HOW MUCH TO ADD TO YOUR BET";X$:GOSUB 4000:IF X$="" THEN 520 ELSE MBET=MBET+VAL(X$)

Ajouter les lignes :

4000 IF X$="" THEN X$="0" ELSE IF VAL(X$)<0 THEN X$=""
4010 RETURN

* Treinta y una
a) L'ordre d'apparition des cartes, bien que calculé avec la fonction RND, est toujours le même si un reboot de la machine est effectué entre chaque session de jeu
Ajouter les lignes :

509 RANDOMIZE TIME*1.01020304
799 RANDOMIZE TIME*1.01020304

b) Le texte des questions reste anormalement affiché lors de la révélation des cartes détenues par l'ordinateur
Remplacer la ligne :

720 LOCATE 1,22:PRINT SPACE$(30):LOCATE 15,15:PRINT SPACE$(20):LOCATE 15,13:PEN 1:PRINT"MANO DE AMSTRAD":FOR I=1 TO NCO:COL=4*I-3:FIL=14:DIB=MANO(I):GOSUB 660:NEXT
par la ligne
720 LOCATE 1,20:PRINT CHR$(18):LOCATE 1,22:PRINT CHR$(18):LOCATE 1,15:PRINT CHR$(18):LOCATE 15,13:PEN 1:PRINT"MANO DE AMSTRAD":FOR I=1 TO NCO:COL=4*I-3:FIL=14:DIB=MANO(I):GOSUB 660:NEXT

c) Le joueur peut parier une somme négative
AVANT :

570 LOCATE 1,20:INPUT"Apuesta inicial";X$:APSTA=VAL(X$)

APRES :

570 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"Apuesta inicial";X$:GOSUB 900:IF X$="" THEN 570 ELSE APSTA=VAL(X$)

AVANT :

630 LOCATE 1,20:INPUT"CUANTO QUIERES ANADIR A TU APUESTA";X$:APSTA=APSTA+VAL(X$)

APRES :

630 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"CUANTO QUIERES ANADIR A TU APUESTA";X$:GOSUB 900:IF X$="" THEN 630 ELSE APSTA=APSTA+VAL(X$)

Ajouter les lignes :

900 IF X$="" THEN X$="0" ELSE IF VAL(X$)<0 THEN X$=""
910 RETURN