'              BRIAN'S DOWN THE STREET HOCKEY SHOOTOUT-A-ROO
'                            Version 1.00
'                                 by
'                         Brian Q Programming



'   Forget the hard slamming checks and passing of ordinary hockey.  What
'   the real excitement comes from is the breakways.  You and the goalie.
'   Can you do it well enough?  You'll find out.  Just go up to RUN and
'   select START and we'll all see if you can get the goals past that goalie
'   just like in the NHL or the game down the street.  Get ready for one
'   huge trill...



'       Like this game?  Comments are always welcome at my site
'                                   at
'              http:\\pages.prodigy.com\viperx\brian.htm



9 COLOR 8, 3
RANDOMIZE TIMER
CLS
hard% = 0
easy% = 0
med% = 0
score% = 0
LOCATE 13, 15
PRINT "Welcome to Brian's Down the Street Hockey Shootout-A-Roo"
LOCATE 20, 5
INPUT "Hit 1 or easy mode or 2 for medium mode and 3 for hard mode"; yu%
IF yu% < 1 OR yu% > 3 THEN GOTO 9
IF yu% = 3 THEN hard% = 1
IF yu% = 2 THEN med% = 1
IF yu% = 1 THEN easy% = 1
LOCATE 23, 25
PRINT "Hit a key to go on..."
7 key$ = INKEY$: IF key$ = "" THEN GOTO 7

beef% = 1
1 COLOR 8, 3
CLS
IF beef% = 11 THEN GOTO 20
LOCATE 1, 50
PRINT "This is shot number:"; beef%
LOCATE 1, 1
PRINT "Total goals of 10 so far:"; score%
LOCATE 5, 68
PRINT "PPPPP"
LOCATE 6, 72
PRINT "P"
LOCATE 7, 72
PRINT "P"
LOCATE 8, 72
PRINT "P"
LOCATE 9, 72
PRINT "P"
LOCATE 10, 68
PRINT "PPPPP"
LOCATE 7, 65
PRINT "XX"
LOCATE 8, 65
PRINT "XX"
LOCATE 15, 6
LOCATE 14, 60
IF hard% = 1 THEN PRINT "You are in HARD MODE"
IF med% = 1 THEN PRINT "You are in MED. MODE"
IF easy% = 1 THEN PRINT "You are in EASY MODE"
PRINT "Directions to shoot when ready:"
LOCATE 13, 39
PRINT "7 8 9"
LOCATE 14, 40
PRINT "\|/"
LOCATE 15, 39
PRINT "4-5-6"
LOCATE 16, 40
PRINT "/|\"
LOCATE 17, 39
PRINT "1 2 3"
LOCATE 20, 1
PRINT "7 is a low, left shot, 4 is a low center, 1 is a low right"
LOCATE 21, 1
PRINT "8 is a medium left shot, 5 is a med. center shot, 2 is a med. right shot"
LOCATE 22, 1
PRINT "9 is a high, left shot, 6 is a high center shot, 3 is a high, right shot"

LOCATE 7, 2
PRINT "Lo"
LOCATE 6, 2
PRINT "T"
PLAY "MFL45DDD"
SLEEP 1
LOCATE 7, 2: PRINT "  "
LOCATE 6, 2: PRINT "  "
LOCATE 7, 15
PRINT "Lo"
LOCATE 6, 15
PRINT "T"
PLAY "MFL45DDD"
SLEEP 1
LOCATE 7, 15: PRINT "   "
LOCATE 6, 15: PRINT "  "
LOCATE 7, 28
PRINT "Lo"
LOCATE 6, 28
PRINT "T"
PLAY "MFL45DDD"
SLEEP 1
LOCATE 7, 28: PRINT "  "
LOCATE 6, 28: PRINT "  "
LOCATE 7, 41
PRINT "Lo"
LOCATE 6, 41
PRINT "T"
PLAY "MFL45DDD"
SLEEP 1
LOCATE 7, 41: PRINT "  "
LOCATE 6, 41: PRINT "  "
LOCATE 7, 53
PRINT "Lo"
LOCATE 6, 53
PRINT "T"
PLAY "MFL45DDD"
LOCATE 2, 20
PRINT "SHOOT  SHOOT   SHOOT  SHOOT  SHOOT!!"
PLAY "MFL15AAAAA"
LOCATE 3, 23
PRINT "Hit 1-9 using the key below!"
4 moo% = INT(RND * 9 + 1)
IF hard% = 1 THEN GOTO 3
moon% = INT(RND * 9 + 1)
IF moo% = moon% THEN GOTO 4
IF med% = 1 THEN GOTO 3
head% = INT(RND * 9 + 1)
IF head% = moon% OR head% = moo% GOTO 4

3 SLEEP: LOCATE 8, 26
PRINT "             "
LOCATE 8, 5
INPUT "What's yer shot (1-9)"; hy%
IF hy% < 1 OR hy% > 9 THEN GOTO 3
PLAY "MFL12AAA"

LOCATE 7, 54: PRINT "  "
IF hy% = moo% AND hy% > 1 AND hy% < 4 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 9, 70: PRINT "o": score% = score% + 1: PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = moo% AND hy% > 4 AND hy% < 7 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 7, 70: PRINT "o": score% = score% + 1:  PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = moo% AND hy% > 6 AND hy% < 10 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 6, 70: PRINT "o": score% = score% + 1:  PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = moon% AND hy% > 1 AND hy% < 4 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 9, 70: PRINT "o": score% = score% + 1:  PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = moon% AND hy% > 4 AND hy% < 7 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 7, 70: PRINT "o": score% = score% + 1: PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = moon% AND hy% > 6 AND hy% < 10 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 6, 70: PRINT "o": score% = score% + 1: PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = head% AND hy% > 1 AND hy% < 4 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 9, 70: PRINT "o": score% = score% + 1:  PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = head% AND hy% > 4 AND hy% < 7 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 7, 70: PRINT "o": score% = score% + 1: PLAY "MFL12ABDCEFGA": GOTO 11
IF hy% = head% AND hy% > 6 AND hy% < 10 THEN LOCATE 10, 5: PRINT "GOAL!": LOCATE 6, 70: PRINT "o": score% = score% + 1: PLAY "MFL12ABDCEFGA": GOTO 11

IF hy% = 1 THEN LOCATE 10, 5: PRINT "WIDE": LOCATE 11, 72: PRINT "o": GOTO 11
IF hy% = 2 THEN LOCATE 10, 5: PRINT "MISS": LOCATE 11, 73: PRINT "o": GOTO 11
IF hy% = 3 THEN LOCATE 10, 5: PRINT "HIGH": LOCATE 11, 77: PRINT "o": GOTO 11
IF hy% = 4 THEN LOCATE 10, 5: PRINT "BLOCK": LOCATE 7, 64: PRINT "o": GOTO 11
IF hy% = 5 THEN LOCATE 10, 5: PRINT "BLOCK": LOCATE 7, 64: PRINT "o": GOTO 11
IF hy% = 6 THEN LOCATE 10, 5: PRINT "HIGH": LOCATE 7, 77: PRINT "o": GOTO 11
IF hy% = 7 THEN LOCATE 10, 5: PRINT "MISS": LOCATE 4, 72: PRINT "o": GOTO 11
IF hy% = 8 THEN LOCATE 10, 5: PRINT "MISS": LOCATE 4, 73: PRINT "o": GOTO 11
IF hy% = 9 THEN LOCATE 10, 5: PRINT "WIDE": LOCATE 4, 74: PRINT "o": GOTO 11



11 beef% = beef% + 1:  LOCATE 23, 25: PRINT "Hit a key to go on...": SLEEP: GOTO 1

20 CLS
PRINT "You scored "; score%; "goal(s)  out of 10!"
IF score% = 0 THEN PRINT "Was it a bad day?"
IF score% > 1 AND score% < 5 THEN PRINT "Couldn't do better, huh?"
IF score% > 5 AND score% < 7 THEN PRINT "Good job, pal!"
IF score% > 7 AND score% < 11 THEN PRINT "Totally Awesome Job, Buddy!!"
LOCATE 15, 1
INPUT "Wanna play again? y for yes anything else exits..."; butt$
IF LCASE$(butt$) = "y" THEN GOTO 9 ELSE END
END