JUEGO -> Arcade               

1 jugador

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