31 RANDOMIZE TIMER score1% = 0 score2% = 0 fro% = 0 ass% = 0 save% = 0 butt% = 0 COLOR 15, 3 CLS LOCATE 11, 15 PRINT "Welcome to Matt & Mike's Down the Street Hockey-A-Roo" LOCATE 12, 39 PRINT "by" LOCATE 13, 32 PRINT "Brian Q Programming" LOCATE 22, 25 PRINT "Hit a key to suit up..." 1 key$ = INKEY$: IF key$ = "" THEN GOTO 1 2 CLS LOCATE 1, 1 PRINT "This is a text simulation of down-the-street street hockey. It is an" PRINT "intense and graphic game even though it's mostly text. Guide yourself" PRINT "through skating, shooting, passing, and defense. First you must pick" PRINT "your teams and a goalie. Games are up to 5." LOCATE 7, 5 PRINT "These players are always on the same teams..." LOCATE 8, 15 PRINT "TEAM 1-Michael, Nick" LOCATE 8, 50 PRINT "TEAM 2-Steven, Matt" LOCATE 10, 5 PRINT "Pick one of the following for Team one (Nick's team)" LOCATE 11, 1 PRINT "1 - Brian Speed:6 Endurance:6 Passing:4 Shooting:7 Goalie:4" PRINT "2 - Little Mike Speed:3 Endurance:7 Passing:1 Shooting:4 Goalie:3" PRINT "3 - Sal Speed:4 Endurance:7 Passing:3 Shooting:5 Goalie:7" PRINT "4 - Joey Speed:7 Endurance:6 Passing:3 Shooting:6 Goalie:5" INPUT "For Team one?(1-4)"; play1% IF play1% < 1 OR play1% > 4 THEN PRINT "The number must be between 1-4": SLEEP: GOTO 2 INPUT "For Team two?(1-4)"; play2% IF play2% < 1 OR play2% > 4 THEN PRINT "The number must be between 1-4": SLEEP: GOTO 2 IF play1% = play2% THEN PRINT "Sorry, he has already been chosen!": SLEEP: GOTO 2 INPUT "For goalie?(1-4)"; goalie% IF goalie% < 1 OR goalie% > 4 THEN PRINT "The number must be between 1-4": SLEEP: GOTO 2 IF goalie% = play2% OR goalie% = play1% THEN PRINT "Sorry, he has already been chosen!": SLEEP: GOTO 2 IF play1% = 1 THEN play1$ = "Brian" IF play2% = 1 THEN play2$ = "Brian" IF play1% = 2 THEN play1$ = "Mike" IF play2% = 2 THEN play2$ = "Mike" IF play1% = 3 THEN play1$ = "Sal" IF play2% = 3 THEN play2$ = "Sal" IF play1% = 4 THEN play1$ = "Joey" IF play2% = 4 THEN play2$ = "Joey" IF goalie% = 1 THEN goalie$ = "Brian": goal% = 4 IF goalie% = 2 THEN goalie$ = "Mike": goal% = 3 IF goalie% = 3 THEN goalie$ = "Sal": goal% = 7 IF goalie% = 4 THEN goalie$ = "Joey": goal% = 5 3 CLS PRINT "The teams are as follows..." PRINT "Team 1 Team 2" PRINT "Michael Matt" PRINT "Nick Steven" PRINT play1$ LOCATE 5, 49: PRINT play2$ PRINT "" PRINT "And our goalie today is:"; goalie$ LOCATE 15, 1 PRINT "You will be playing as "; play1$; " for team one!" LOCATE 20, 5 PRINT "Hit a key and the ball will be dropped!" 5 key$ = INKEY$: IF key$ = "" THEN GOTO 5 6 CLS drop1% = INT(RND * 3 + 1) IF drop1% = 1 THEN drop1$ = "Nick" IF drop1% = 2 THEN drop1$ = "Michael" IF drop1% = 3 THEN drop1$ = play1$ drop2% = INT(RND * 3 + 1) IF drop2% = 1 THEN drop2$ = "Steven" IF drop2% = 2 THEN drop2$ = "Matt" IF drop2% = 3 THEN drop2$ = play2$ COLOR 15, 3: CLS : IF score1% = 5 OR score2% = 5 THEN GOTO 30 PRINT "Team one has:"; score1% PRINT "Team two has:"; score2% PRINT "The ball is dropped between "; drop1$; " and "; drop2$ win1% = INT(RND * 2 + 1) IF win1% = 1 THEN PRINT drop1$; " wins the faceoff and you head for OFFNESIVE MODE": SLEEP: GOTO 10 IF win1% = 2 THEN PRINT drop2$; " wins the faceoff and you head for DEFENSIVE MODE": SLEEP: GOTO 20 10 COLOR 15, 1 CLS PRINT "Team one has:"; score1% PRINT "Team two has:"; score2% PRINT "Here you must take the shot or pass to score a goal" PRINT "Pick 1 or 2!" PRINT "1-Pass to Michael or Nick" PRINT "2-Charge through the defensemen and try for a goal" INPUT "Which is it? 1 or 2"; offe% IF offe% < 1 OR offe% > 2 THEN GOTO 10 IF offe% = 2 THEN GOTO 15 PRINT "You attempt a pass and..." pass% = INT(RND * 8 + 1) IF pass% = 1 THEN PRINT "It works but as Nick comes foward, it's taken away by "; play2$: PRINT "You go to defense": SLEEP: GOTO 20 IF pass% = 2 AND goal% < 5 THEN PRINT "You hit Michael and he shoots and SCORES!": PRINT "Michael has a goal and you have an assist! You head for another faceoff": score1% = score1% + 1: ass% = ass% + 1: SLEEP: GOTO 6 IF pass% = 2 AND goal% > 4 THEN PRINT "You hit Michael and he takes a hard shot. Wow! Great save by "; goalie$: PRINT "The defense recovers it and you head for defense!": save% = save% + 1: SLEEP: GOTO 20 IF pass% = 3 THEN PRINT "The defense knock it, but you grab it and start it up again": SLEEP: GOTO 10 IF pass% = 4 THEN PRINT "Steve checks you as he steals it away. It's defense time for you": SLEEP: GOTO 20 IF pass% = 5 THEN PRINT "You knock a hard shot that is deflected in! You score!": ass% = ass% + 1: score1% = score1% + 1: SLEEP: GOTO 6 IF pass% = 6 THEN PRINT "Nick shoots and scores!": score1% = score1% + 1: SLEEP: GOTO 6 IF pass% = 7 THEN PRINT "Mike takes a slapshot! Off the pads of "; goalie$; ". Nice Save!": PRINT "You grab it and bring it up top!": save% = save% + 1: SLEEP: GOTO 10 IF pass% = 8 THEN PRINT "Nick wrists one from the side! Close! Stick save by "; goalie$: PRINT "Man, we lost it to Matt! Back to defense.": save% = save% + 1: SLEEP: GOTO 20 15 PRINT "You try to charge..." deff% = INT(RND * 7 + 1) IF deff% = 1 THEN PRINT "You can't charge because Matt is there and he takes it from you": PRINT "You try to recover but you are unsuccessful": SLEEP: GOTO 20 IF deff% = 2 AND goal% > 4 THEN PRINT "You get around Steve, Matt, and "; play2$; ".": PRINT "You take a shot and SCORE! You get an unassisted goal. Good work!": fro% = fro% + 1: score1% = score1% + 1: SLEEP: GOTO 6 IF deff% = 2 AND goal% < 5 THEN PRINT "You get around Matt, "; play2$; ", and Steve and": PRINT "you take a long shot, but "; goalie$; " makes a beautiful save! But you get it back": save% = save% + 1: SLEEP: GOTO 10 IF deff% = 3 THEN PRINT "It's take away in a blink of an eye!": SLEEP: GOTO 20 IF deff% = 4 THEN PRINT "You charge but but shoot wide and the defense get the ball!": SLEEP: GOTO 20 IF deff% = 5 THEN PRINT "You charge and take a slow wristshot and it wobbles in! Great shot!": fro% = fro% + 1: score1% = score1% + 1: SLEEP: GOTO 6 IF deff% = 6 THEN PRINT "You takes a tough shot! Off the pads of "; goalie$; ". Nice Save!": PRINT "You start it up again!": save% = save% + 1: SLEEP: GOTO 10 IF deff% = 7 THEN PRINT "You takes a shot from the side! Almost! Blocked"; goalie$: PRINT "Steve gets it and you chase him; back to defense.": save% = save% + 1: SLEEP: GOTO 20 20 COLOR 3, 8 CLS PRINT "Team one has:"; score1% PRINT "Team two has:"; score2% PRINT "Here you stop the offense" PRINT "Pick 1 or 2!" PRINT "1-Play up toward the blue line" PRINT "2-Play back toward the goal" INPUT "Which is it? 1 or 2"; doff% IF doff% < 1 OR doff% > 2 THEN GOTO 20 IF doff% = 2 THEN GOTO 25 PRINT "You attempt a stop them up top..." pon% = INT(RND * 7 + 1) IF pon% = 1 THEN PRINT "Steve gets by you but Nick stops him and you head for offense!": SLEEP: GOTO 10 IF pon% = 2 AND goal% < 5 THEN PRINT "You can't stop Matt and he shots and gets it past "; goalie$: PRINT "Matt has a goal which was assisted by "; play2$: score2% = score2% + 1: SLEEP: GOTO 6 IF pon% = 2 AND goal% > 4 THEN PRINT "You deflect a pass but it still goes. Wow! Great save by "; goalie$: PRINT "as Matt tried to put it in off the deflection!": save% = save% + 1: SLEEP: GOTO 10 IF pon% = 3 THEN PRINT "You knock it away from Steve and you head for offense": SLEEP: GOTO 10 IF pon% = 4 THEN PRINT "You check Matt and the ball bounces back to Steven who starts it up again!": SLEEP: GOTO 20 IF pon% = 5 THEN PRINT "They get by and Matt nabs a one-timer!": score2% = score2% + 1: SLEEP: GOTO 6 IF pon% = 6 THEN PRINT play2$; " takes a tough shot! Off the pads of "; goalie$; ". Good Save!": PRINT "You skate up the street to offense!": save% = save% + 1: SLEEP: GOTO 10 IF pon% = 7 THEN PRINT "Matt shoots near the blue line! Hey! Helment save by"; goalie$: PRINT "Steve gets it back and brings it up top, back to defense.": save% = save% + 1: SLEEP: GOTO 20 25 PRINT "You try to play back!" den% = INT(RND * 7 + 1) IF den% = 1 THEN PRINT "You block a slow wrist shot and you put it across the line for Nick to play": PRINT "into offsene. You skate across onsides for offense!": SLEEP: GOTO 10 IF den% = 2 AND goal% > 4 THEN PRINT "You can't stop Steve and Matt who put it back and forth. Matt takes a hard": PRINT "shot and he scores! You head for a faceoff!": score2% = score2% + 1: SLEEP: GOTO 6 IF den% = 2 AND goal% < 5 THEN PRINT "You barely miss "; play2$; ", he takes a strong wristshot": PRINT "but "; goalie$; " makes an impresive save. You head for offense!": save% = save% + 1: SLEEP: GOTO 10 IF den% = 3 THEN PRINT "You block a shot but they get it back!": SLEEP: GOTO 20 IF den% = 4 THEN PRINT "You run up and get the ball from Steve! You put it to Nick and go on offense": SLEEP: GOTO 10 IF den% = 5 THEN PRINT "They do some passing in front of the net and score!": score2% = score2% + 1: SLEEP: GOTO 6 IF den% = 6 THEN PRINT "Steve takes a tough shot! Off the pads of "; goalie$; ". Nice Save!": PRINT "You head for offense!": save% = save% + 1: SLEEP: GOTO 10 IF den% = 7 THEN PRINT play2$; " takes a shot from the side! Close! Stick save by "; goalie$: PRINT "Steve gets it back and brings it up top, back to defense.": save% = save% + 1: SLEEP: GOTO 20 30 COLOR 5, 7 CLS PRINT "Our final score was..." LOCATE 4, 1 PRINT "Team one Team two" PRINT score1% LOCATE 5, 50 PRINT score2% LOCATE 7, 1 PRINT "You had "; fro%; " goal(s)." LOCATE 8, 1 PRINT "You had "; ass%; " assist(s)." LOCATE 10, 1 PRINT "Our goalie, "; goalie$; ", made an impressive "; save%; " save(s)." LOCATE 15, 1 INPUT "Wanna play again (y to play anything else to exit)"; leave$ IF LCASE$(leave$) = "y" THEN GOTO 31 ELSE END END