home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / HOCKEY.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.0 KB  |  230 lines
  1. 10  LET A1=INT(14*RND(X)+6)
  2. 20  LET X=1
  3. 30  REM *** CONVERTED FROM BRAND X TO DIGITAL RSTS/E BY DAVID AHL
  4. 40  PRINT " N.B. THIS PROGRAM IS DESIGNED FOR THOSE WHO KNOW NOTHING"
  5. 50  PRINT " ABOUT HOCKEY LIKE MYSELF.  --- C. BUTTREY"
  6. 60  PRINT " THIS IS CORNELL U. HOCKEY."
  7. 70  PRINT " I AM CORNELL, WHO ARE YOU";
  8. 90  INPUT A$
  9. 100  PRINT
  10. 110  PRINT " YOU HAVE THREE SHOTS:"
  11. 120  PRINT "     1. SLAP SHOT."
  12. 130  PRINT "     2. FLICK SHOT."
  13. 140  PRINT "     3. WRIST SHOT."
  14. 150  PRINT
  15. 160  PRINT " HERE IS THE FACE-OFF:"
  16. 170  PRINT " SCORE:"
  17. 180  PRINT " CORNELL "A
  18. 190  PRINT " "A$" "B
  19. 200  IF X=2 THEN 240
  20. 210  IF X=3 THEN 260
  21. 220  IF A+B >= (1/3*A1) THEN 1560
  22. 230  GOTO 290
  23. 240  IF A+B >= (2/3*A1) THEN 1630
  24. 250  GOTO 290
  25. 260  IF (A+B) >= (A1) THEN 1710
  26. 270  GOTO 290
  27. 280  IF B=3 THEN 1560
  28. 290  LET C=INT(2*RND(X)+1)
  29. 300  IF C=1 THEN 330
  30. 310  PRINT " "A$" WINS THE FACE-OFF."
  31. 320  GOTO 650
  32. 330  PRINT " CORNELL TAKES THE FACE-OFF."
  33. 340  LET D=INT(3*RND(X)+1)
  34. 350  IF D=1 THEN 500
  35. 360  IF D=2 THEN 570
  36. 370  PRINT " WRIST SHOT..."
  37. 380  LET E=INT(5*RND(X)+1)
  38. 390  IF E=4 THEN 470
  39. 400  PRINT " SHOT IS MISSED."
  40. 410  LET F=INT(2*RND(X)+1)
  41. 420  IF F=1 THEN 450
  42. 430  PRINT " CORNELL REGAINS THE PUCK."
  43. 440  GOTO 340
  44. 450  PRINT " "A$" TAKES THE PUCK."
  45. 460  GOTO 650
  46. 470  PRINT " **GOOD!**"
  47. 480  LET A=A+1
  48. 490  GOTO 160
  49. 500  PRINT " SLAP SHOT..."
  50. 510  LET C1=INT(3*RND(X)+1)
  51. 520  IF C1=2 THEN 540
  52. 530  GOTO 560
  53. 540  PRINT " ICING PENALTY....."
  54. 550  GOTO 450
  55. 560  GOTO 380
  56. 570  PRINT " FLICK SHOT.."
  57. 580  LET S1=INT(3*RND(X)+1)
  58. 590  IF S1=3 THEN 610
  59. 600  GOTO 640
  60. 610  PRINT " PENALTY FOR HIGH STICKING! CORNELL MAN PUT IN BOX FOR"
  61. 620  PRINT " TWO MINUTES!"
  62. 630  GOTO 1110
  63. 640  GOTO 380
  64. 650  PRINT " YOUR SHOT";
  65. 660  INPUT G
  66. 670  IF G=1 THEN 720
  67. 680  IF G=2 THEN 900
  68. 690  IF G=3 THEN 970
  69. 700  PRINT " INPUT EITHER '1' '2' OR '3'"
  70. 710  GOTO 650
  71. 720  PRINT " SLAP SHOT."
  72. 730  LET Z1=INT(3*RND(X)+1)
  73. 740  IF Z1=2 THEN 760
  74. 750  GOTO 780
  75. 760  PRINT " ICING PENALTY....."
  76. 770  GOTO 1090
  77. 780  LET H=INT(5*RND(X)+1)
  78. 790  IF H=1 THEN 870
  79. 800  PRINT " SHOT IS WIDE."
  80. 810  LET I=INT(2*RND(X)+1)
  81. 820  IF I=1 THEN 850
  82. 830  PRINT " CORNELL TAKES THE PUCK."
  83. 840  GOTO 990
  84. 850  PRINT " "A$" REGAINS THE PUCK."
  85. 860  GOTO 650
  86. 870  PRINT " **GOOD!**"
  87. 880  LET B=B+1
  88. 890  GOTO 160
  89. 900  PRINT " FLICK SHOT...."
  90. 910  LET B1=INT(3*RND(X)+1)
  91. 920  IF B1=1 THEN 940
  92. 930  GOTO 960
  93. 940  PRINT " ICING PENALTY....."
  94. 950  GOTO 830
  95. 960  GOTO 780
  96. 970  PRINT " WRIST SHOT.."
  97. 980  GOTO 780
  98. 990  PRINT " CORNELL SHOT:"
  99. 1000  LET J=INT(3*RND(X)+1)
  100. 1010  IF J=1 THEN 1160
  101. 1020  IF J=2 THEN 1210
  102. 1030  PRINT " SLAP SHOT."
  103. 1040  LET K=INT(5*RND(X)+1)
  104. 1050  IF K=1 THEN 1130
  105. 1060  PRINT " SHOT HITS THE POST."
  106. 1070  LET L=INT(2*RND(X)+1)
  107. 1080  IF L=1 THEN 1110
  108. 1090  PRINT " CORNELL REGAINS THE PUCK."
  109. 1100  GOTO 990
  110. 1110  PRINT " "A$" REGAINS THE PUCK."
  111. 1120  GOTO 1310
  112. 1130  PRINT " **GOOD!**"
  113. 1140  LET A=A+1
  114. 1150  GOTO 160
  115. 1160  PRINT " WRIST SHOT"
  116. 1170  LET M=INT(5*RND(X)+1)
  117. 1180  IF M=5 THEN 1130
  118. 1190  PRINT " SHOT IS HIGH."
  119. 1200  GOTO 1070
  120. 1210  PRINT " FLICK SHOT"
  121. 1220  LET T1=INT(3*RND(X)+1)
  122. 1230  IF T1=1 THEN 1250
  123. 1240  GOTO 1270
  124. 1250  PRINT " ICING PENALTY....."
  125. 1260  GOTO 450
  126. 1270  LET N=INT(5*RND(X)+1)
  127. 1280  IF N=1 THEN 1130
  128. 1290  PRINT " SHOT IS BLOCKED BY THE GOALIE."
  129. 1300  GOTO 1070
  130. 1310  PRINT " YOUR SHOT";
  131. 1320  INPUT O
  132. 1330  IF O=1 THEN 1430
  133. 1340  IF O=2 THEN 1540
  134. 1350  PRINT " WRIST SHOT."
  135. 1360  LET P=INT(5*RND(X)+1)
  136. 1370  IF P=2 THEN 870
  137. 1380  PRINT " SHOT IS BARELY WIDE..."
  138. 1390  LET Q=INT(3*RND(X)+1)
  139. 1400  IF Q=1 THEN 830
  140. 1410  PRINT " "A$" REGAINS THE PUCK."
  141. 1420  GOTO 650
  142. 1430  PRINT " SLAP SHOT"
  143. 1440  LET D1=INT(3*RND(X)+1)
  144. 1450  IF D1=3 THEN 1470
  145. 1460  GOTO 1500
  146. 1470  PRINT " PENALTY FOR HIGH STICKING! "A$" MAN PUT IN PENALTY"
  147. 1480  PRINT " BOX FOR TWO MINUTES"
  148. 1490  GOTO 830
  149. 1500  LET R=INT(5*RND(X)+1)
  150. 1510  IF R=1 THEN 870
  151. 1520  PRINT " SHOT IS TAKEN BY THE CORNELL GOALIE."
  152. 1530  GOTO 830
  153. 1540  PRINT " FLICK SHOT"
  154. 1550  GOTO 1500
  155. 1560  PRINT "   ***** END OF FIRST PERIOD *****"
  156. 1570  LET X=2
  157. 1580  PRINT " SCORE:"
  158. 1590  PRINT " CORNELL "A
  159. 1600  PRINT " "A$" "B
  160. 1610  PRINT " START OF SECOND PERIOD."
  161. 1620  GOTO 160
  162. 1630  PRINT " ***** END OF SECOND PERIOD *****"
  163. 1640  LET X=3
  164. 1650  PRINT " SCORE:"
  165. 1660  PRINT " CORNELL "A
  166. 1670  PRINT " "A$" "B
  167. 1680  PRINT ""
  168. 1690  PRINT " START OF THIRD PERIOD."
  169. 1700  GOTO 160
  170. 1710  PRINT " ***** END OF GAME *****"
  171. 1720  IF A=B THEN 1770
  172. 1730  PRINTR" FINAL SCORE:"
  173. 1740  PRINT " CORNELL "A
  174. 1750  PRINT " "A$" "B
  175. 1760 END
  176. 1770  PRINT " SINCE SCORE IS TIED, WE WILL HAVE TO GO"
  177. 1780  PRINT " INTO SUDDEN-DEATH!"
  178. 1790  PRINT " HERE IS THE FACE-OFF."
  179. 1800  PRINT " SCORE:"
  180. 1810  PRINT " CORNELL "A
  181. 1820  PRINT " "A$" "B
  182. 1830  LET S=INT(2*RND(X)+1)
  183. 1840  IF S=1 THEN 1870
  184. 1850  PRINT " "A$" WINS THE FACE-OFF."
  185. 1860  GOTO 2080
  186. 1870  PRINT " CORNELL WINS THE FACE-OFF."
  187. 1880  LET T=INT(3*RND(X)+1)
  188. 1890  IF T=1 THEN 2040
  189. 1900  IF T=2 THEN 2060
  190. 1910  PRINT " WRIST SHOT."
  191. 1920  LET U=INT(5*RND(X)+1)
  192. 1930  IF U=1 THEN 2010
  193. 1940  PRINT " SHOT IS MISSED."
  194. 1950  LET V=INT(2*RND(X)+1)
  195. 1960  IF V=1 THEN 1990
  196. 1970  PRINT " "A$" TAKES THE PUCK."
  197. 1980  GOTO 2080
  198. 1990  PRINT " CORNELL REGAINS THE PUCK."
  199. 2000  GOTO 1880
  200. 2010  PRINT " **GOOD!**"
  201. 2020  LET A=A+1
  202. 2030  GOTO 2260
  203. 2040  PRINT " SLAP SHOT"
  204. 2050  GOTO 1920
  205. 2060  PRINT " FLICK SHOT."
  206. 2070  GOTO 1920
  207. 2080  PRINT " YOUR SHOT";
  208. 2090  INPUT W
  209. 2100  IF W=1 THEN 2220
  210. 2110  IF W=2 THEN 2240
  211. 2120  PRINT "WRIST SHOT."
  212. 2130  LET Y=INT(5*RND(X)+1)
  213. 2140  IF Y=4 THEN 2190
  214. 2150  PRINT " SHOT IS MISSED."
  215. 2160  LET Z=INT(2*RND(X)+1)
  216. 2170  IF Z=1 THEN 1990
  217. 2180  GOTO 1970
  218. 2190  PRINT " **GOOD!**"
  219. 2200  LET B=B+1
  220. 2210  GOTO 2260
  221. 2220  PRINT " SLAP SHOT."
  222. 2230  GOTO 2130
  223. 2240  PRINT " FLICK SHOT."
  224. 2250  GOTO 2130
  225. 2260  PRINT " GAME IS OVER!!"
  226. 2270  PRINT " FINAL SCORE:"
  227. 2280  PRINT " CORNELL "A
  228. 2290  PRINT " "A$" "B
  229. 2300  END
  230.