Acey_Ducey.BAS, Jeu en PC-Basic
Jeux en GW-Basic (PC-Basic)
Il s'agit d'une simulation du jeu de cartes Acey Ducey. Dans le jeu, le croupier (l'ordinateur) distribue deux cartes face visible.
Vous avez la possibilité de parier ou de ne pas parier selon que vous pensez ou non que la prochaine carte distribuée aura une valeur entre les deux premières.
Votre argent initial (Q) est fixé à 100 $ ; vous pouvez modifier l'Énoncé 110 si vous voulez commencer avec plus ou moins de 100 $.
Le jeu continue jusqu'à ce que vous perdiez tout votre argent ou que vous interrompiez le programme. L'auteur original du programme était Bill Palmby de Prairie View, Illinois.
10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
20 PRINT TAB(15);"CREATIVE
COMPUTING MORRISTOWN, NEW JERSEY"
21 PRINT
22 PRINT
23 PRINT
30
PRiNT"ACEY-DUCEY IS PLAYED IN THE F0LLOWING MANNER "
40 PRINT"THE DEALER
(COMPUTER) DEALS TWO CARDS FACE UP"
30 PRINT"YOU HAVE AN OPTION TO BET OR NOT
BET DEPENDING"
60 PRINT"ON UKETHER OR NOR YOU FEEL THE CARD UILL HAVE"
70
PRINT"A VALUE BETUEEN THE FIRST TUO."
80 PRINT"IF YOU DO NOT UANT TO BET,
INPUT A 0"
100 N=100
110 Q=100
120 PRINT"YOU NOU HAVE ";Q;" DOLLARS"
130 PRINT
140 GOTO 260
210 Q = Q+M
220 GOTO 120
240 Q = Q-M
250
GOTO 120
260 PRINT"HERE ARE YOUR NEXT TUO CARDS "
270 A=INT(l4*RND(1))+2
280 IF A<2 THEN 270
290 IF A>14 THEN 270
300 B=INT(14*RND(1))+2
310 IF
B<2 THEN 300
320 IF BM4 THEN 300
330 IF A>=8 THEN 270
350 IF A<11 THEN
400
360 IF A=11 THEN 420
370 IF A-=12 THEN 440
360 IF A=13 THEN 460
370 IF A=14 THEN 480
400 PRINT A
410 GOTO 500
420 PRINT"JACK"
430
GOTO 500
440 PRINT"QUEEN"
430 GOTO 500
460 PRINT"KING"
470 GOTO 500
480 PRINT"ACE"
500 IF B<11 THEN 550
510 IF B=11 THEN 570
520 IF B=12
THEN 590
530 IF B=13 THEN 610
540 IF B=14 THEN 630
550 PRINT B
560
GOTO 630
570 PRINT"JACK"
580 GOTO 650
590 PRINT"QUEEN"
600 GOTO 650
610 PRINT"KINQ"
620 GOTO 650
630 PRINT"ACE"
640 PRINT
650 PRINT
660 INPUT"WHAT IS YOUR BET";M
670 IF M<>0 THEN 680
673 PRINT"CHICKEN!"
676 PRINT
677 GOTO 260
680 IF M<=Q THEN 730
690 PRINT"SORRY, MY FRIEND
BUT YOU BET TOO MUCH"
700 PRINT"YOU HAVE ONLY ";0;" DOLLARS TO BET"
710
GOTO 650
730 C = INt(14*RND(1))+2
740 IF C<2 THEN 730
750 IF C>14 THEN
730
760 IF C<11 THEN 810
770 IF C = 11 THEN 830
780 IF C=12 THEN 850
790 IF C=13 THEN 870
800 IF C=I4 THEN 890
810 PRINT C
820 GOTO 910
830 PRINT"JACK"
840 GOTO 910
850 PRINT"QUEEN"
860 GOTO 910
870
PRINT"KING"
880 GOTO 910
890 PRINT "ACE"
900 PRINT
910 IF C>A THEN
930
920 GOTO 970
930 IF C>=B THEN 970
950 PRINT"YOU WIN!"
960 GOTO
210
970 PRINT"SORRY, YOU LOSE"
980 IF M<Q THEN 240
990 PRINT
1000
PRINT
1010 PRINT"SORRY, FRIEND BUT YOU BLEU YOUR WAD"
1020 INPUT"TRY AGAIN
(YES OR NO)";A$
1030 IF A$="YES" THEN 110
1040 PR1N"0K HOPE YOU HAD FUN"
1030 END
