home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / gamesnet / g_amiga / AE1CRTVC.ZIP / AE1CRTVC.LHA / HOCKEY1.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  9KB  |  210 lines
  1. 1 PRINT CHR$(26):WIDTH 80
  2. 2 PRINT TAB(33);"HOCKEY":PRINT
  3. 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 6 PRINT:PRINT:PRINT
  5. 10 REM ROBERT PUOPOLO ALG. 1 140 MCCOWAN 6/7/73 HOCKEY
  6. 30 LET X=1
  7. 40 PRINT:PRINT:PRINT
  8. 50 PRINT "WOULD YOU LIKE THE INSTRUCTIONS";:INPUT C$
  9. 55 PRINT
  10. 60 IF LEFT$(C$,1)="N" THEN 90
  11. 65 IF LEFT$(C$,1)="Y" THEN 80
  12. 70 PRINT "ANSWER YES OR NO!!":GOTO 50 
  13. 80 GOTO 1720
  14. 90 DIM A$(7),B$(7),H(20),T(5),T1(5),T2(5),T3(5)
  15. 100 PRINT "ENTER THE TWO TEAMS";:INPUT A$(7),B$(7) 
  16. 105 PRINT
  17. 110 PRINT "ENTER THE NUMBER OF MINUTES IN A GAME";:INPUT T6
  18. 115 PRINT
  19. 120 IF T6<1 THEN 110:PRINT 
  20. 130 PRINT "WOULD THE " A$(7) " COACH ENTER HIS TEAM:" 
  21. 135 PRINT
  22. 140 FOR I=1 TO 6:PRINT "PLAYER"I;CHR$(8);:INPUT A$(I):NEXT I:PRINT 
  23. 150 PRINT "WOULD THE " B$(7) " COACH DO THE SAME:"
  24. 155 PRINT
  25. 160 FOR T=1 TO 6:PRINT "PLAYER"T;CHR$(8);:INPUT B$(T):NEXT T:PRINT 
  26. 170 PRINT "INPUT THE REFEREE FOR THIS GAME";:INPUT R$  
  27. 180 PRINT:PRINT TAB(10);A$(7) " STARTING LINEUP" 
  28. 190 FOR T=1 TO 6:PRINT A$(T):NEXT T  
  29. 200 PRINT:PRINT TAB(10);B$(7)" STARTING LINEUP"
  30. 210 FOR T=1 TO 6:PRINT B$(T):NEXT T:PRINT
  31. 220 PRINT "WE'RE READY FOR TONIGHTS OPENING FACE-OFF."
  32. 230 PRINT R$ " WILL DROP THE PUCK BETWEEN " A$(2) " AND " B$(2);"."
  33. 240 FOR L=1 TO T6:IF L=1 THEN 260
  34. 250 PRINT "AND WE'RE READY FOR THE FACE-OFF." 
  35. 260 C=INT(2*RND(X))+1:ON C GOTO 270,280
  36. 270 PRINT A$(7) " HAVE CONTROL OF THE PUCK.":GOTO 290
  37. 280 PRINT B$(7) " HAVE CONTROL." 
  38. 290 PRINT "PASS";:INPUT P:FOR N=1 TO 3:H(N)=0:NEXT N 
  39. 300 IF P<0 THEN 290
  40. 305 IF P>3 THEN 290
  41. 310 FOR J=1 TO (P+2) 
  42. 320 H(J)=INT(5*RND(X))+1 
  43. 330 NEXT J:IF H(J-1)=H(J-2) THEN 310
  44. 331 IF P+2<3 THEN 350
  45. 335 IF H(J-1)=H(J-3) THEN 310
  46. 340 IF H(J-2)=H(J-3) THEN 310
  47. 350 IF P=0 THEN 360
  48. 355 GOTO 490
  49. 360 INPUT "SHOT";S:IF S<1 THEN 360
  50. 365 IF S>4 THEN 360
  51. 370 ON C GOTO 380,480
  52. 380 PRINT A$(H(J-1));:G=H(J-1):G1=0:G2=0 
  53. 390 ON S GOTO 400,420,440,460
  54. 400 PRINT " LET'S A BOOMER GO FROM THE RED LINE!!" 
  55. 410 Z=10:GOTO 890
  56. 420 PRINT " FLIPS A WRISTSHOT DOWN THE ICE."
  57. 440 PRINT " BACKHANDS ONE IN ON THE GOALTENDER." 
  58. 450 Z=25:GOTO 890
  59. 460 PRINT " SNAPS A LONG FLIP SHOT."
  60. 470 Z=17:GOTO 890
  61. 480 PRINT B$(H(J-1));:G1=0:G2=0:G=H(J-1):GOTO 390
  62. 490 ON C GOTO 500,640
  63. 500 ON P GOTO 510,540,570
  64. 510 PRINT A$(H(J-2)) " LEADS " A$(H(J-1)) " WITH A PERFECT PASS." 
  65. 520 PRINT A$(H(J-1)) " CUTTING IN!!!"
  66. 530 G=H(J-1):G1=H(J-2):G2=0:Z1=3:GOTO 770
  67. 540 PRINT A$(H(J-2)) " GIVES TO A STREAKING " A$(H(J-1)) ;"."
  68. 550 PRINT A$(H(J-3)) " COMES DOWN ON " B$(5) " AND " B$(4) ;"."
  69. 560 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770
  70. 570 PRINT "OH MY GOD!! A ' 4 ON 2 ' SITUATION"
  71. 580 PRINT A$(H(J-3)) " LEADS " A$(H(J-2));"."
  72. 590 PRINT A$(H(J-2)) " IS WHEEELING THROUGH CENTER."
  73. 600 PRINT A$(H(J-2)) " GIVES AND GOES WITH " A$(H(J-1));"."
  74. 610 PRINT "PRETTY PASSING!"
  75. 620 PRINT A$(H(J-1)) " DROPS IT TO " A$(H(J-4));"."
  76. 630 G=H(J-4):G1=J(J-1):G2=H(J-2):Z1=1:GOTO 770
  77. 640 ON P GOTO 650,670,720
  78. 650 PRINT B$(H(J-1)) " HITS " B$(H(J-2)) " FLYING DOWN THE LEFT SIDE." 
  79. 660 G=H(J-2):G1=H(J-1):G2=0:Z1=3:GOTO 770
  80. 670 PRINT "IT'S A ' 3 ON 2 '!"
  81. 680 PRINT "ONLY " A$(4) " AND " A$(5) " ARE BACK."
  82. 690 PRINT B$(H(J-2)) " GIVES OFF TO " B$(H(J-1)) ;"."
  83. 700 PRINT B$(H(J-1)) " DROPS TO " B$(H(J-3)) ;"."
  84. 710 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770 
  85. 720 PRINT " A ' 3 ON 2 ' WITH A ' TRAILER '!" 
  86. 730 PRINT B$(H(J-4)) " GIVES TO " B$(H(J-2)) " WHO SHUFFLES IT OFF TO" 
  87. 740 PRINT B$(H(J-1)) " WHO FIRES A WING TO WING PASS TO "
  88. 750 PRINT B$(H(J-3)) " AS HE CUTS IN ALONE!!"    
  89. 760 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=1:GOTO 770 
  90. 770 PRINT "SHOT";:INPUT S:IF S>4 THEN 770:IF S<1 THEN 770
  91. 780 ON C GOTO 790,880
  92. 790 PRINT A$(G);:ON S GOTO 800,820,840,860 
  93. 800 PRINT " LET'S A BIG SLAP SHOT GO!!"  
  94. 810 Z=4:Z=Z+Z1:GOTO 890
  95. 820 PRINT " RIPS A WRIST SHOT OFF." 
  96. 830 Z=2:Z=Z+Z1:GOTO 890
  97. 840 PRINT " GETS A BACKHAND OFF." 
  98. 850 Z=3:Z=Z+Z1:GOTO 890
  99. 860 PRINT " SNAPS OFF A SNAP SHOT."   
  100. 870 Z=2:Z=Z+Z1:GOTO 890
  101. 880 PRINT B$(G);:ON S GOTO 800,820,840,860 
  102. 890 PRINT "AREA";:INPUT A:IF A<1 THEN 890
  103. 895 IF A>4 THEN 890
  104. 900 ON C GOTO 910,920
  105. 910 S2=S2+1:GOTO 930 
  106. 920 S3=S3+1
  107. 930 A1=INT(4*RND(X))+1:IF A<>A1 THEN 1200
  108. 940 H(20)=INT(100*RND(X))+1
  109. 950 IF INT(H(20)/Z)=H(20)/Z THEN 1160
  110. 960 ON C GOTO 970,980
  111. 970 PRINT "GOAL " A$(7):H(9)=H(9)+1:GOTO 990 
  112. 980 PRINT "SCORE " B$(7):H(8)=H(8)+1   
  113. 990 FOR B1=1 TO 25:PRINT CHR$(7);:NEXT B1:PRINT
  114. 1000 PRINT "SCORE: ";:IF H(8)>H(9) THEN 1020
  115. 1010 PRINT A$(7)":";H(9),B$(7)":";H(8):GOTO 1030
  116. 1020 PRINT B$(7)":";H(8),A$(7)":";H(9)  
  117. 1030 ON C GOTO 1040,1100
  118. 1040 PRINT "GOAL SCORED BY: " A$(G);",";:IF G1=0 THEN 1070
  119. 1050 IF G2=0 THEN 1080
  120. 1060 PRINT " ASSISTED BY: " A$(G1) " AND " A$(G2);".":GOTO 1090 
  121. 1070 PRINT " UNASSISTED.":GOTO 1090
  122. 1080 PRINT " ASSISTED BY: " A$(G1);"."
  123. 1090 T(G)=T(G)+1:T1(G1)=T1(G1)+1:T1(G2)=T1(G2)+1:GOTO 1540
  124. 1100 PRINT "GOAL SCORED BY: " B$(G);  ",";
  125. 1110 IF G1=0 THEN 1130
  126. 1115 IF G2=0 THEN 1140
  127. 1120 PRINT " ASSISTED BY: " B$(G1) " AND " B$(G2);".":GOTO 1150 
  128. 1130 PRINT " UNASSISTED.":GOTO 1150
  129. 1140 PRINT " ASSISTED BY: " B$(G1);".":GOTO 1150
  130. 1150 T2(G)=T2(G)+1:T3(G1)=T3(G1)+1:T3(G2)=T3(G2)+1:GOTO 1540
  131. 1160 A2=INT(100*RND(X))+1:IF INT(A2/4)=A2/4 THEN 1170
  132. 1165 GOTO 1200
  133. 1170 ON C GOTO 1180,1190
  134. 1180 PRINT "SAVE " B$(6) " --  REBOUND":GOTO 940
  135. 1190 PRINT "SAVE " A$(6) " --  FOLLOW UP":GOTO 940
  136. 1200 S1=INT(6*RND(X))+1 
  137. 1210 ON C GOTO 1220,1380
  138. 1220 ON S1 GOTO 1230,1260,1290,1300,1330,1350 
  139. 1230 PRINT "KICK SAVE AND A BEAUTY BY " B$(6) ;"."
  140. 1240 PRINT "CLEARED OUT BY " B$(3);"."
  141. 1250 GOTO 260 
  142. 1260 PRINT "WHAT A SPECTACULAR GLOVE SAVE BY " B$(6);"!"
  143. 1270 PRINT "AND " B$(6) " GOLFS IT INTO THE CROWD."
  144. 1280 GOTO 1540
  145. 1290 PRINT "SKATE SAVE ON A LOW STEAMER BY " B$(6);".":GOTO 260 
  146. 1300 PRINT "PAD SAVE BY " B$(6) " OFF THE STICK" 
  147. 1310 PRINT "OF "A$(G) " AND " B$(6) " COVERS UP."
  148. 1320 GOTO 1540
  149. 1330 PRINT "WHISTLES ONE OVER THE HEAD OF " B$(6) 
  150. 1340 GOTO 260 
  151. 1350 PRINT B$(6) " MAKES A FACE SAVE!! AND HE IS HURT!"
  152. 1360 PRINT "THE DEFENSEMAN " B$(5) " COVERS UP FOR HIM." 
  153. 1370 GOTO 1540
  154. 1380 ON S1 GOTO 1390,1410,1440,1470,1490,1520 
  155. 1390 PRINT "STICK SAVE BY " A$(6) 
  156. 1400 PRINT "AND CLEARED OUT BY " A$(4);".":GOTO 260 
  157. 1410 PRINT "OH MY GOD!! " B$(G) " RATTLES ONE OFF THE POST" 
  158. 1420 PRINT "TO THE RIGHT OF " A$(6) " AND " A$(6) " COVERS "; 
  159. 1430 PRINT "ON THE LOOSE PUCK!":GOTO 1540 
  160. 1440 PRINT "SKATE SAVE BY " A$(6) ;"."
  161. 1450 PRINT A$(6) " WHACKS THE LOOSE PUCK INTO THE STANDS." 
  162. 1460 GOTO 1540
  163. 1470 PRINT "STICK SAVE BY " A$(6) " AND HE CLEARS IT OUT HIMSELF." 
  164. 1480 GOTO 260 
  165. 1490 PRINT "KICKED OUT BY " A$(6) 
  166. 1500 PRINT "AND IT REBOUNDS ALL THE WAY TO CENTER ICE."  
  167. 1510 GOTO 260 
  168. 1520 PRINT "GLOVE SAVE " A$(6) " AND HE HANGS ON." 
  169. 1530 GOTO 1540
  170. 1540 NEXT L:FOR N=1 TO 30:PRINT CHR$(7);:NEXT N:PRINT "THAT'S THE SIREN"
  171. 1545 LINE INPUT "HIT 'RETURN' FOR FINAL STATS.";XX$:PRINT CHR$(26)
  172. 1590 PRINT TAB(20);"SCORING SUMMARY"
  173. 1600 PRINT TAB(25);A$(7)  ;" --";H(9)
  174. 1610 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS"
  175. 1620 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------"
  176. 1630 FOR I=1 TO 5:PRINT TAB(5);A$(I);TAB(21);T(I);TAB(36);T1(I) 
  177. 1640 NEXT I:PRINT 
  178. 1650 PRINT TAB(25);B$(7)  ;" --";H(8)
  179. 1660 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS"  
  180. 1670 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------"
  181. 1680 FOR T=1 TO 5:PRINT TAB(5);B$(T);TAB(21);T2(T);TAB(36);T3(T)
  182. 1690 NEXT T:PRINT 
  183. 1700 PRINT "SHOTS ON NET":PRINT A$(7)":";S2:PRINT B$(7)":";S3 
  184. 1710 RUN "MENU"
  185. 1720 PRINT: PRINT "THIS IS A SIMULATED HOCKEY GAME."
  186. 1730 PRINT "QUESTION     RESPONSE"
  187. 1735 PRINT "--------     --------"
  188. 1740 PRINT "PASS         TYPE IN THE NUMBER OF PASSES YOU WOULD"
  189. 1750 PRINT "             LIKE TO MAKE, FROM 0 TO 3."
  190. 1760 PRINT "SHOT         TYPE THE NUMBER CORRESPONDING TO THE SHOT"
  191. 1770 PRINT "             YOU WANT TO MAKE.  ENTER:"
  192. 1780 PRINT "             1 FOR A SLAPSHOT"
  193. 1790 PRINT "             2 FOR A WRISTSHOT"
  194. 1800 PRINT "             3 FOR A BACKHAND"
  195. 1810 PRINT "             4 FOR A SNAP SHOT"
  196. 1820 PRINT "AREA         TYPE IN THE NUMBER CORRESPONDING TO"
  197. 1830 PRINT "             THE AREA YOU ARE AIMING AT.  ENTER:"
  198. 1840 PRINT "             1 FOR UPPER LEFT HAND CORNER"
  199. 1850 PRINT "             2 FOR UPPER RIGHT HAND CORNER"
  200. 1860 PRINT "             3 FOR LOWER LEFT HAND CORNER"
  201. 1870 PRINT "             4 FOR LOWER RIGHT HAND CORNER"
  202. 1880 PRINT
  203. 1890 PRINT "AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NAMES"
  204. 1900 PRINT "OF YOUR PLAYERS.  THEY ARE ENTERED IN THE ORDER: "
  205. 1910 PRINT "LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE,"
  206. 1920 PRINT "RIGHT DEFENSE, GOALKEEPER.  ANY OTHER INPUT REQUIRED WILL"
  207. 1930 PRINT "HAVE EXPLANATORY INSTRUCTIONS."
  208. 1940 GOTO 90
  209. 1950 RUN "MENU"
  210.