home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol142 / bacarrat.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.6 KB  |  143 lines
  1. 10 PRINT TAB(26);"BACCARAT"
  2. 20 PRINT
  3. 30 PRINT
  4. 40 PRINT "BACCARAT -- CHEMIN DE FER"
  5. 50 PRINT
  6. 60 PRINT "DO YOU NEED INSTRUCTIONS (Y/N)";
  7. 70 INPUT Q$
  8. 80 IF Q$<>"y" THEN IF Q$<>"Y" THEN 210
  9. 90 PRINT "   BACCARAT IS A VERY POPULAR GAME IN LAS"
  10. 100 PRINT"VEGAS. THE PLAYER AND BANKER EACH RECEIVE"
  11. 110 PRINT"TWO CARDS FROM A 'SHOE' CONTAINING 8 DECKS"
  12. 120 PRINT"OF CARDS. ALL CARD COMBINATIONS TOTALING"
  13. 130 PRINT"TEN ARE NOT COUNTED. THE ONE THAT ENDS UP"
  14. 140 PRINT"CLOSER TO NINE WINS. THE STAKES ARE HIGH;"
  15. 150 PRINT"ALL OF THE PLAYERS START WITH TEN THOUSAND"
  16. 160 PRINT"DOLLARS. YOU CAN BET ON THE DEALER OR THE"
  17. 170 PRINT"PLAYER. A THIRD CARD IS GIVEN ONLY UNDER"
  18. 180 PRINT"CERTAIN CONDITIONS, AS YOU WILL SEE. LET"
  19. 190 PRINT"US BEGIN.   GOOD LUCK!!"
  20. 200 PRINT
  21. 210 DIM M(20),F1(20),F(20),B$(13),V(13),G$(20)
  22. 220 DIM Z(9,10),Q(4,13)
  23. 230 FOR X=3 TO 6
  24. 240   FOR Y=1 TO 10
  25. 250     READ Z(X,Y)
  26. 260 NEXT Y,X
  27. 270 FOR S1=1 TO 10:READ W(S1):NEXT
  28. 280 FOR S1=1 TO 4:READ A$(S1):NEXT
  29. 290 FOR S1=1 TO 13:READ B$(S1):NEXT
  30. 300 FOR S1=1 TO 13:READ V(S1):NEXT
  31. 310 PRINT
  32. 320 INPUT "ENTER NUMBER FROM 1 TO 10000";X
  33. 330 RANDOMIZE X
  34. 340 PRINT
  35. 350 PRINT"HOW MANY PLAYERS";
  36. 360 INPUT P1
  37. 370 FOR J=1 TO P1
  38. 380   PRINT"WHAT IS THE NAME OF PLAYER"J;
  39. 390   INPUT G$(J)
  40. 400   M(J)=10000
  41. 410 NEXT J
  42. 420 FOR S1=1 TO 4
  43. 430   FOR S2=1 TO 13
  44. 440     Q(S1,S2)=0
  45. 450   NEXT S2
  46. 460 NEXT S1
  47. 470 FOR J=1 TO 6
  48. 480   C=INT(1+RND(1)*4)
  49. 490   D=INT(1+RND(1)*13)
  50. 500   Q(C,D)=Q(C,D)+1
  51. 510   IF Q(C,D)>=32 THEN 480
  52. 520   B(J)=V(D)
  53. 530   C$(J)=B$(D)+" OF "+A$(C)
  54. 540 NEXT J
  55. 550 W1=2
  56. 560 FOR J=1 TO P1
  57. 570   IF M(J)<1 THEN 670
  58. 580   PRINT G$(J)" HAS $"M(J)".  BET";
  59. 590   INPUT F(J)
  60. 600   IF F(J)>M(J) THEN 580
  61. 610   IF F(J)<>INT(F(J)) THEN 580
  62. 620   IF F(J)<1 THEN 580
  63. 630   PRINT"(1) BANKER OR (2) PLAYER";
  64. 640   INPUT F1(J)
  65. 650   IF F1(J)>=1000 THEN 580
  66. 660   IF (F1(J)-1)*(F1(J)-2)<>0 THEN 630
  67. 670 NEXT J
  68. 680 J=0
  69. 690 T1=B(1)+B(2)
  70. 700 T2=B(3)=B(4)
  71. 710 PRINT
  72. 720 PRINT"BANKER"TAB(20)"PLAYER"
  73. 730 PRINT C$(3)TAB(20)C$(1)
  74. 740 PRINT C$(4)TAB(20)C$(2)
  75. 750 IF T1<10 THEN 770
  76. 760 T1=T1-10
  77. 770 IF T2<10 THEN 790
  78. 780 T2=T2-10
  79. 790 IF W(T1+1)=0 THEN 860
  80. 800 PRINT"PLAYER MUST DRAW."
  81. 810 PRINT C$(5)
  82. 820 T1=T1+B(5)
  83. 830 IF T1<10 THEN 860
  84. 840 T1=T1-10
  85. 850 GOTO 880
  86. 860 PRINT"PLAYER CANNOT DRAW."
  87. 870 J=11
  88. 880 PRINT"PLAYERS TOTAL:"T1
  89. 890 PRINT
  90. 900 IF T2<3 THEN 960
  91. 910 IF T2>6 THEN 1020
  92. 920 IF J<>11 THEN 950
  93. 930 IF T2=6 THEN 1020
  94. 940 GOTO 960
  95. 950 IF Z(T2,B(5)+1)=0 THEN 1020
  96. 960 PRINT"BANKER MUST DRAW."
  97. 970 PRINT C$(6)
  98. 980 T2=T2+B(6)
  99. 990 IF T2<10 THEN 1010
  100. 1000 T2=T2-10
  101. 1010 GOTO 1030
  102. 1020 PRINT"BANKER CANNOT DRAW."
  103. 1030 PRINT"BANKERS TOTAL:"T2
  104. 1040 PRINT
  105. 1050 IF T2<>T1 THEN 1080
  106. 1060 PRINT"IT'S A TIE. THE HAND IS PLAYED OVER."
  107. 1070 GOTO 470
  108. 1080 IF T2<T1 THEN 1120
  109. 1090 W1=1
  110. 1100 PRINT"BANKER WINS!!"
  111. 1110 GOTO 1130
  112. 1120 PRINT"PLAYER WINS!!"
  113. 1130 FOR J=1 TO P1
  114. 1140   IF M(J)<=0 THEN 1220
  115. 1150   PRINT G$(J)" ";
  116. 1160   IF F1(J)=W1 THEN 1200
  117. 1170   M(J)=M(J)-F(J)
  118. 1180   PRINT"LOSES $"F(J)", FOR A TOTAL OF $"M(J)"."
  119. 1190   GOTO 1220
  120. 1200   M(J)=M(J)+F(J)
  121. 1210   PRINT"WINS $"F(J)", FOR A TOTAL OF $"M(J)"."
  122. 1220 NEXT J
  123. 1230 FOR J=1 TO P1
  124. 1240   IF M(J)<>0 THEN 1280
  125. 1250 NEXT J
  126. 1260 PRINT"THANK YOU FOR YOUR MONEY, AND ";
  127. 1270 GOTO 1410
  128. 1280 PRINT
  129. 1290 PRINT"-------- NEW GAME --------"
  130. 1300 PRINT
  131. 1310 FOR X=1 TO 4
  132. 1320 FOR Y=1 TO 13
  133. 1330   IF Q(X,Y)<>8 THEN 470
  134. 1340 NEXT Y,X
  135. 1350 GOTO 420
  136. 1360 DATA 1,1,1,1,1,1,1,1,0,1,0,0,1,1,1,1,1,1,0,0
  137. 1370 DATA 0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0
  138. 1380 DATA 1,1,1,1,1,1,0,0,0,0,SPADES,HEARTS,DIAMONDS
  139. 1390 DATA CLUBS,ACE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT
  140. 1400 DATA NINE,TEN,JACK,QUEEN,KING,1,2,3,4,5,6,7,8,9,0,0,0,0
  141. 1410 PRINT"THANK YOU FOR PLAYING."
  142. 1420 END
  143.