mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 16:16:32 -05:00
96 lines
2.3 KiB
QBasic
96 lines
2.3 KiB
QBasic
|
10 REM *** GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY
|
||
|
|
20 REM *** ADLAI STEVENSON HIGH SCHOOL, PRAIRIE VIEW, ILL
|
||
|
|
30 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL
|
||
|
|
40 REM *** QUICK PORT TO EDUSYSTEM 50 BY RENAUD FIVET
|
||
|
|
100 RANDOMIZE
|
||
|
|
101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:"
|
||
|
|
102 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP."
|
||
|
|
103 PRINT "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING"
|
||
|
|
104 PRINT "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE"
|
||
|
|
105 PRINT "A VALUE BETWEEN THE FIRST TWO."
|
||
|
|
106 PRINT "IF YOU DO NOT WANT TO BET, INPUT A 0."
|
||
|
|
110 PRINT
|
||
|
|
160 Q=100
|
||
|
|
190 PRINT "YOU NOW HAVE"Q"DOLLARS."
|
||
|
|
195 PRINT
|
||
|
|
200 GOTO 260
|
||
|
|
210 Q=Q+M
|
||
|
|
220 GOTO 190
|
||
|
|
240 Q=Q-M
|
||
|
|
250 GOTO 190
|
||
|
|
260 PRINT "HERE ARE YOUR NEXT TWO CARDS..."
|
||
|
|
270 A=INT(14*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 B>14 THEN 300
|
||
|
|
330 IF A>=B THEN 270
|
||
|
|
350 IF A<11 THEN 400
|
||
|
|
360 IF A=11 THEN 420
|
||
|
|
370 IF A=12 THEN 440
|
||
|
|
380 IF A=13 THEN 460
|
||
|
|
390 IF A=14 THEN 480
|
||
|
|
400 PRINT A
|
||
|
|
410 GOTO 500
|
||
|
|
420 PRINT "JACK"
|
||
|
|
430 GOTO 500
|
||
|
|
440 PRINT "QUEEN"
|
||
|
|
450 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 650
|
||
|
|
570 PRINT "JACK"
|
||
|
|
580 GOTO 650
|
||
|
|
590 PRINT "QUEEN"
|
||
|
|
600 GOTO 650
|
||
|
|
610 PRINT "KING"
|
||
|
|
620 GOTO 650
|
||
|
|
630 PRINT "ACE"
|
||
|
|
650 PRINT
|
||
|
|
660 PRINT "WHAT IS YOUR BET";\INPUT M
|
||
|
|
670 IF M>0 THEN 680
|
||
|
|
675 PRINT "CHICKEN!!"\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"Q"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=14 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"
|
||
|
|
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
|
||
|
|
1000 PRINT
|
||
|
|
1010 PRINT "SORRY, FRIEND, BUT YOU BLEW YOUR WAD."
|
||
|
|
1020 PRINT "TRY AGAIN (YES OR NO)";\INPUT A$
|
||
|
|
1030 IF A$="YES" THEN 110
|
||
|
|
1040 PRINT\PRINT "O.K. HOPE YOU HAD FUN!!"
|
||
|
|
1050 END
|