home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / DICE.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  6.8 KB  |  250 lines
  1.  
  2. 1 REM WRITTEN BY:    ROY A. WILSON
  3. 2 REM                CERRITOS COLLEGE
  4. 3 REM                NORWALK, CALIFORNIA
  5. 4 REM
  6. 5 REM
  7. 10 FOR I=1 TO 10:PRINT:NEXT I
  8. 25 PRINT TAB(20);"***** DICE *****":FOR I=1 TO 10:PRINT:NEXT I
  9. 20 PRINT "HI.  WOULD YOU LIKE TO ROLL THE DICE WITH ME";
  10. 30 INPUT A$
  11. 40 T = 100
  12. 50 IF A$ = "Y" THEN 80
  13. 60 IF A$ = "YES" THEN 80
  14. 65 PRINT
  15. 70 PRINT"BEAT IT KID, YOU BOTHER ME."
  16. 72 PRINT
  17. 75 GOTO 1820
  18. 80 PRINT
  19. 90 PRINT"O.K., BUT I DON'T PLAY WITH STRANGERS."
  20. 95 PRINT"WHAT'S YOUR NAME?"
  21. 100 PRINT
  22. 110 INPUT N$
  23. 150 PRINT
  24. 160 PRINT
  25. 180 GOSUB 1830
  26. 185 IF G>0 THEN 210
  27. 190 PRINT"WOULD YOU LIKE THE RULES, ";N$;
  28. 200 GOTO 230
  29. 210 IF G>1 THEN 440
  30. 220 PRINT "WOULD YOU LIKE THE RULES AGAIN";
  31. 230 INPUT A$
  32. 240 IF LEFT$(A$,1)<>"Y" THEN 440
  33. 250 GOSUB 1830
  34. 260 PRINT"YOU MUST BET AT LEAST ONE DOLLAR TO PLAY,AND YOU"
  35. 265 PRINT"CANNOT BET MORE THAN YOU HAVE.  IF YOU BET A NEGATIVE"
  36. 270 PRINT"AMOUNT, YOU WILL BE BETTING ON THE 'DON'T PASS' LINE."
  37. 272 PRINT
  38. 275 PRINT"HERE ARE THE RULES FOR THE 'PASS' LINE."
  39. 280 PRINT"IF YOU ROLL A SEVEN OR AN ELEVEN ON THE FIRST"
  40. 290 PRINT"ROLL OF THE DICE, YOU WIN THE BET."
  41. 300 PRINT
  42. 310 PRINT"IF YOU ROLL A TWO, THREE, OR TWELVE ON THE FIRST"
  43. 315 PRINT"ROLL OF THE DICE, YOU LOSE THE BET."
  44. 320 PRINT
  45. 330 PRINT"UNDERSTAND SO FAR?"
  46. 335 INPUT A$
  47. 336 IF LEFT$(A$,1)<>"Y" THEN PRINT"YOU'RE NOT TOO SWIFT..."
  48. 340 PRINT
  49. 350 PRINT"AFTER YOU HAVE YOUR POINT, YOU CONTINUE ROLLING"
  50. 355 PRINT"THE DICE UNTIL EITHER YOUR POINT COMES UP AGAIN"
  51. 360 PRINT"OR THE NUMBER SEVEN DOES."
  52. 365 PRINT
  53. 370 PRINT"IF YOUR POINT COMES UP BEFORE THE NUMBER SEVEN,"
  54. 375 PRINT"YOU WIN.  HOWEVER, IF THE SEVEN APPEARS FIRST"
  55. 380 PRINT"YOU LOSE THE BET AND MUST START OVER AGAIN."
  56. 390 PRINT
  57. 400 PRINT
  58. 410 PRINT "READY TO PLAY, ";N$;
  59. 420 INPUT A$
  60. 430 IF LEFT$(A$,1) <> "Y" THEN 1790
  61. 440 GOSUB 1830
  62. 500 IF G>0 THEN 515
  63. 510 PRINT "OK ";N$;", HERE'S $100.00.  SEE WHAT YOU CAN DO."
  64. 515 PRINT: V=0
  65. 516 PRINT"    NOTE:  A BET OF ZERO ENDS THE GAME."
  66. 520 PRINT
  67. 530 T$ = STR$(T)
  68. 540 PRINT "YOU HAVE $";T$;".  HOW MUCH WOULD YOU LIKE TO BET";
  69. 550 INPUT B1
  70. 555 GOSUB 1830
  71. 560 B = INT(ABS(B1))
  72. 570 B$ = STR$(B)
  73. 572 IF B1 >= 0 THEN 588
  74. 573 IF ABS(B1) > T THEN 610
  75. 574 IF V>0 THEN 582
  76. 575 PRINT"NOW YOU'RE BETTING AGAINST THE SHOOTER."
  77. 576 PRINT:PRINT
  78. 577 PRINT"    D O N ' T   P A S S   -   B A R   1 2"
  79. 578 PRINT:PRINT
  80. 579 INPUT "IS THAT WHAT YOU WANT";A$
  81. 580 IF LEFT$(A$,1) <> "Y" THEN 540
  82. 582 M=1:V=1
  83. 585 GOTO 600
  84. 588 IF B1=0 THEN 650
  85. 590 IF ABS(B1)>B THEN 700
  86. 600 IF B<=T THEN 750
  87. 610 PRINT
  88. 620 PRINT"YOU DON'T HAVE THAT MUCH!"
  89. 630 PRINT
  90. 640 GOTO 520
  91. 650 PRINT
  92. 660 PRINT
  93. 670 PRINT "CHEAPSKATE.   I DON'T ACCEPT SUCH SMALL BETS."
  94. 680 PRINT
  95. 690 GOTO 1820
  96. 700 PRINT
  97. 730 PRINT "WHAT KIND OF FUNNY MONEY BET IS THAT?"
  98. 740 GOTO 520
  99. 750 GOSUB 1830
  100. 760 PRINT "OK ";N$;",  SHOOTER COMING OUT!"
  101. 790 GOSUB 1660
  102. 820 GOSUB 1040
  103. 830 IF T = 0 THEN 1370
  104. 840 IF R = 0 THEN 520
  105. 850 PRINT"YOUR POINT IS ";P;"       YOUR BET IS $";B$
  106. 880 PRINT
  107. 890 PRINT "   ROLL AGAIN";
  108. 900 INPUT A$
  109. 940 IF LEFT$(A$,1)="N" THEN 950
  110. 942 GOSUB 1830
  111. 945 GOTO 790
  112. 950 PRINT
  113. 960 PRINT"WELL, LET THE PAYING CUSTOMERS UP TO THE TABLE..."
  114. 965 GOTO 1000
  115. 970 PRINT"O.K., ";N$;","
  116. 980 PRINT "IF YOU DON'T WANT TO BET, YOU CAN'T PLAY!"
  117. 990 PRINT "TAKE YOUR MONEY AND GO HOME.  THE GAME IS OVER."
  118. 1000 PRINT
  119. 1010 PRINT "YOU STARTED WITH $100.   YOU NOW HAVE $";T$
  120. 1020 PRINT "PLEASE SEE THE CASHIER."
  121. 1030 GOTO 1460
  122. 1040 R = R+1
  123. 1050 IF R = 1 THEN 1090
  124. 1060 IF D=7 AND M=0 THEN 1280
  125. 1065 IF D=7 AND M=1 THEN 1190
  126. 1070 IF P=D AND M=0 THEN 1190
  127. 1075 IF P=D AND M=1 THEN 1280
  128. 1080 GOTO 1140
  129. 1090 IF D=7 AND M=0 THEN 1190
  130. 1095 IF D=7 AND M=1 THEN 1280
  131. 1100 IF D=11 AND M=0 THEN 1190
  132. 1105 IF D=11 AND M=1 THEN 1280
  133. 1110 IF D<=3 AND M=0 THEN 1280
  134. 1115 IF D<=3 AND M=1 THEN 1190
  135. 1120 IF D=12 THEN 1280
  136. 1130 P = D
  137. 1140 PRINT
  138. 1150 PRINT
  139. 1170 GOTO 1360
  140. 1180 PRINT
  141. 1190 PRINT: M=0
  142. 1200 PRINT
  143.      IF B1 < 0 THEN 1220
  144. 1210 PRINT"+++++++++++   P A S S    B E T    ++++++++++"
  145. 1215 GOTO 1222
  146. 1220 PRINT"+++++   D O N ' T   P A S S    B E T   +++++"
  147. 1222 PRINT
  148. 1225 OUT 1,7
  149. 1230 PRINT"YOU WIN!                    YOUR BET WAS $";B$
  150. 1231 IF R>1 THEN PRINT "YOUR POINT WAS ";P,
  151. 1232 PRINT"YOU ROLLED A ";D
  152. 1233 FOR J = 1 TO 100
  153. 1234 NEXT J
  154. 1236 OUT 1,7
  155. 1240 T =T+B
  156. 1250 T$ = STR$(T)
  157. 1260 R = 0
  158. 1270 GOTO 1360
  159. 1280 PRINT:M=0
  160. 1290 PRINT
  161.      IF B1 < 0 THEN 1305
  162. 1300 PRINT"+++++++++++   P A S S    B E T    ++++++++++"
  163. 1302 GOTO 1307
  164. 1305 PRINT"+++++   D O N ' T   P A S S    B E T   +++++"
  165. 1307 PRINT
  166. 1310 OUT 1,7
  167. 1320 PRINT"YOU LOSE.                   YOUR BET WAS $";B$
  168. 1325 IF R>1 THEN PRINT "YOUR POINT WAS ";P,
  169. 1326 PRINT "YOU ROLLED A ";D
  170. 1330 T = T-B
  171. 1340 T$ = STR$(T)
  172. 1350 R = 0
  173. 1360 RETURN
  174. 1370 PRINT
  175. 1380 PRINT"+++++++++++++++++++++++++++++++++++++++++++++"
  176. 1390 ON G+1 GOTO 1400,1440,1470,1500
  177. 1400 PRINT
  178. 1410 PRINT "YOU TURKEY ---- YOU LOST ALL YOUR MONEY!!!"
  179. 1420 PRINT "                NOW WHAT WILL YOU TELL YOUR FAMILY?"
  180. 1430 GOTO 1560
  181. 1440 PRINT
  182. 1450 PRINT "AWW - TOO BAD.    YOU DON'T HAVE ANYMORE MONEY."
  183. 1460 GOTO 1560
  184. 1470 PRINT
  185. 1480 PRINT"HEY, ";N$;", DON'T YOU GET TIRED OF LOSING?"
  186. 1485 PRINT"NOW YOUR MONEY IS ALL GONE."
  187. 1490 GOTO 1560
  188. 1500 PRINT
  189. 1510 PRINT "DON'T GO TO LAS VEGAS!!!  BESIDES, YOU'RE BROKE."
  190. 1520 G = -1
  191. 1560 PRINT
  192. 1570 PRINT "WANT TO PLAY AGAIN";
  193. 1580 INPUT A$
  194. 1590 IF LEFT$(A$,1)="N" THEN 1790
  195. 1600 T = 100
  196. 1610 T$ = STR$(T)
  197. 1620 PRINT
  198. 1630 PRINT "ALRIGHT, YOU START OVER AGAIN WITH $100.00"
  199. 1640 G = G+1
  200. 1650 GOTO 150
  201. 1660 D1 = 6.99*RND
  202. 1670 IF D1 <1.0 THEN 1660
  203. 1680 D1 = INT(D1)
  204. 1690 D2 = 6.99*RND
  205. 1700 IF D2 < 1.0 THEN 1690
  206. 1710 D2 = INT(D2)
  207. 1720 D = D1+D2
  208. 1730 GOSUB 2000
  209. 1750 PRINT"     ";D1;"                  ";D2
  210. 1780 RETURN
  211. 1790 GOSUB 1830
  212. 1820 PRINT,"G A M E   I S   O V E R "
  213. 1825 GOTO 5000
  214. 1830 FOR J=1 TO 18
  215. 1840 PRINT
  216. 1850 NEXT J
  217. 1860 RETURN
  218. 2000 REM +++++++  DRAW DICE  +++++++++++++++++
  219. 2005 PRINT". . . . . . .         . . . . . . ."
  220. 2010 ON D1 GOSUB 2100,2200,2200,2500,2500,2500
  221. 2020 ON D2 GOSUB 3100,3200,3200,3500,3500,3500
  222. 2030 ON D1 GOSUB 2300,2100,2300,2100,2300,2500
  223. 2040 ON D2 GOSUB 3300,3100,3300,3100,3300,3500
  224. 2050 ON D1 GOSUB 2100,2400,2400,2500,2500,2500
  225. 2060 ON D2 GOSUB 3100,3400,3400,3500,3500,3500
  226. 2065 PRINT"' ' ' ' ' ' '         ' ' ' ' ' ' '"
  227. 2070 RETURN
  228. 2100 PRINT":           :         ";
  229. 2110 RETURN
  230. 2200 PRINT": *         :         ";
  231. 2210 RETURN
  232. 2300 PRINT":     *     :         ";
  233. 2310 RETURN
  234. 2400 PRINT":         * :         ";
  235. 2410 RETURN
  236. 2500 PRINT": *       * :         ";
  237. 2510 RETURN
  238. 2610 RETURN
  239. 3100 PRINT":           :"
  240. 3110 RETURN
  241. 3200 PRINT": *         :"
  242. 3210 RETURN
  243. 3300 PRINT":     *     :"
  244. 3310 RETURN
  245. 3400 PRINT":         * :"
  246. 3410 RETURN
  247. 3500 PRINT": *       * :"
  248. 3510 RETURN
  249. 5000 END
  250.