Qbasic101 - Super Goal Kicker 2k1

Welcome to Qbasic 101.

Welcome to Qbasic101 one of the best resources for qbasic information found on the web. Use the bar to the right and bottom to navigate the site.

Super Goal Kicker 2k1 | Script Archive | Learn QBASIC | Links | About Us

Home

Current Projects

Keywords Glossary

ASCII Codes

Posted scripts

OTHER:

DHTML Scripts

Learn HTML

Movie Reviews

Bookmark Qbasic101

Disclaimer

Welcome to the Super Goal Kicker 2k1 official web page. Just copy the script bellow and paste it into a simple text editor like notepad. Dave it as a .bas file so Qbasic can open it. You can also use the link below for the .exe file. Have fun!

Sgk2k1.exe

Select All
DECLARE SUB window1 () DECLARE SUB window2 () DECLARE SUB window3 () ' ÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛ ÛÛ ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛÛÛ ÛÛÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ' ÛÛÛÛ ÛÛÛ ÛÛÛ ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛÛÛÛ ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛÛÛÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ' ÛÛ Û ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ' ÛÛ Û ÛÛ ÛÛ ÛÛ Û ÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ' ÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛÛÛ ÛÛ ' ÛÛ Û ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ' ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ' ' ***** Copyright 2001 Aaron Duke ***** DEFINT A-Z 6 RANDOMIZE TIMER SCREEN 12 CLS weather2 = 1 dif = 5 yds = 1 row5 = 30 row9 = 30 FOR pause = 1 TO 30000 NEXT pause CLS score = 0 10 CLS selection = 0 ' *** Selection screen *** ' Window background CALL window1 ' Print the initial words COLOR 4 LOCATE 15, 43: PRINT " Play " LOCATE 16, 41: PRINT " Options " LOCATE 17, 43: PRINT " Help " LOCATE 18, 43: PRINT " Exit " DO ' Choose the start, options, or the help SELECT CASE UCASE$(INKEY$) CASE CHR$(0) + "P" CLS CALL window1 selection = selection + 1 IF selection = 4 THEN selection = 0 CASE CHR$(0) + "H" CLS CALL window1 IF selection = 3 THEN selection = 3 CASE CHR$(0) + "H" CLS CALL window1 IF selection = 2 THEN selection = 2 CASE CHR$(0) + "H" CLS CALL window1 selection = selection - 1 IF selection = -1 THEN selection = 3 CASE CHR$(13) EXIT DO END SELECT ' Printing the selection w/ <-> <-> IF selection = 0 THEN COLOR 10 LOCATE 15, 35: PRINT "<-> Play <->" COLOR 2: LOCATE 16, 40: PRINT " Options " COLOR 2: LOCATE 17, 40: PRINT " Help " COLOR 2: LOCATE 18, 40: PRINT " Exit " ELSEIF selection = 1 THEN COLOR 2: LOCATE 15, 40: PRINT " Play " COLOR 10: LOCATE 16, 35: PRINT "<-> Options <->" COLOR 2: LOCATE 17, 40: PRINT " Help " COLOR 2: LOCATE 18, 40: PRINT " Exit " ELSEIF selection = 2 THEN COLOR 2: LOCATE 15, 40: PRINT " Play " COLOR 2: LOCATE 16, 40: PRINT " Options " COLOR 10: LOCATE 17, 35: PRINT "<-> Help <->" COLOR 2: LOCATE 18, 40: PRINT " Exit " ELSEIF selection = 3 THEN COLOR 2: LOCATE 15, 40: PRINT " Play " COLOR 2: LOCATE 16, 40: PRINT " Options " COLOR 2: LOCATE 17, 40: PRINT " Help " COLOR 10: LOCATE 18, 35: PRINT "<-> Exit <->" END IF LOOP down1 = 310 down2 = 300 FOR count = 1 TO 25 CLS LINE (250, 210)-(450, down1), 8, BF LINE (240, 200)-(440, down2), 0, BF LINE (240, 200)-(440, down2), 15, B down1 = down1 - 4 down2 = down2 - 4 FOR pause = 1 TO 1000 NEXT pause NEXT count help = 0 opt = 0 SELECT CASE selection CASE 0 play2 = 0 CASE 1 opt = 1 CASE 2 help = 2 CASE 3 IF score > 0 THEN GOTO 16 ELSE GOTO 17 END IF END SELECT IF opt = 1 THEN GOTO 11 ELSEIF help = 2 THEN GOTO 7 'ELSEIF opt = 0 THEN ' GOTO 8 ELSEIF play2 = 0 THEN GOTO 1 END IF 11 13 ' *** Options screen *** CLS LINE (60, 65)-(380, 360), 8, BF LINE (50, 55)-(370, 350), 0, BF LINE (50, 55)-(370, 350), 15, B COLOR 15 LOCATE 4, 9: PRINT " Options: " COLOR 2 LOCATE 6, 9: INPUT "Enter difficulty: (1-10, easy-hard) ", dif LOCATE 8, 9: PRINT "Yardage: " LOCATE 10, 9: PRINT "1 = random 5 - 50" LOCATE 11, 9: PRINT "2 = 5 - 20" LOCATE 12, 9: PRINT "3 = 21 - 40 " LOCATE 13, 9: PRINT "4 = 41 - 50" LOCATE 14, 9: INPUT "Select now: ", yds LOCATE 16, 9: PRINT "Random Weather = 1" LOCATE 17, 9: PRINT "Rain = 2" LOCATE 18, 9: PRINT "Snow = 3" LOCATE 19, 9: PRINT "Fair/overcast = 4" LOCATE 21, 9: INPUT "Enter weather: ", weather2 LINE (50, 325)-(300, 425), 15, B COLOR 15 CLS down3 = 360 down4 = 350 FOR count = 1 TO 100 CLS LINE (60, 65)-(310, down3), 8, BF LINE (50, 55)-(300, down4), 0, BF LINE (50, 55)-(300, down4), 15, B down3 = down3 - 3 down4 = down4 - 3 FOR pause = 1 TO 1000 NEXT pause NEXT count FOR count = 1 TO 50 CLS LINE (60, 65)-(310, down3), 8, BF LINE (50, 55)-(300, down4), 0, BF LINE (50, 55)-(300, down4), 15, B down3 = down3 + 4 down4 = down4 + 4 FOR pause = 1 TO 1000 NEXT pause NEXT count COLOR 2 IF dif >= 1 AND dif <= 3 THEN LOCATE 6, 9: PRINT "Easy" ELSEIF dif > 3 AND dif <= 6 THEN LOCATE 6, 9: PRINT "Medium" ELSEIF dif > 6 AND dif <= 10 THEN LOCATE 6, 9: PRINT "Hard" ELSEIF dif < 1 OR dif > 10 THEN GOTO 13 END IF IF yds = 1 THEN LOCATE 8, 9: PRINT "Yards: Random 5 to 50" ELSEIF yds = 2 THEN LOCATE 8, 9: PRINT "Yards: 5 to 20" ELSEIF yds = 3 THEN LOCATE 8, 9: PRINT "Yards: 21 to 40" ELSEIF yds = 4 THEN LOCATE 8, 9: PRINT "Yards: 41 to 50" ELSEIF yds < 1 OR yds > 4 THEN GOTO 13 END IF COLOR 15 LOCATE 4, 9: PRINT " Selection: " COLOR 2 IF weather2 = 1 THEN LOCATE 10, 9: PRINT "Weather: Random" ELSEIF weather2 = 2 THEN LOCATE 10, 9: PRINT "Weather: Rain" ELSEIF weather2 = 3 THEN LOCATE 10, 9: PRINT "Weather: Snow" ELSEIF weather2 = 4 THEN LOCATE 10, 9: PRINT "Weather: Fair/Overcast" ELSEIF weather2 < 1 OR weather2 > 4 THEN GOTO 13 END IF LOCATE 12, 9: INPUT "Correct? (Y/N) ", correct$ IF UCASE$(correct$) = "Y" THEN GOTO 14 ELSE GOTO 13 END IF 14 FOR count = 1 TO 50 CLS LINE (60, 65)-(310, down3), 8, BF LINE (50, 55)-(300, down4), 0, BF LINE (50, 55)-(300, down4), 15, B down3 = down3 - 4 down4 = down4 - 4 FOR pause = 1 TO 1000 NEXT pause NEXT count CLS GOTO 10 8 COLOR 15 7 ' *** Game Instructions *** 3 CLS LINE (10, 60)-(640, 390), 8, BF LINE (0, 50)-(630, 380), 0, BF LINE (0, 50)-(630, 380), 15, B COLOR 15 LOCATE 5, 2: PRINT LOCATE 6, 2: PRINT "First, check your yardage to gage how much power you'll need." LOCATE 7, 2: PRINT "If you use way too much power, you'll miss the kick!!!" LOCATE 8, 2: PRINT "Then, press enter when you the power level nears the level you desire." LOCATE 9, 2: PRINT "After selecting power, press the 'left' or 'right' cursor keys to move" LOCATE 10, 2: PRINT "the direction of the ball left or right. Beware that the wind can be tricky." LOCATE 11, 2: PRINT "Always check the speed of the wind and weather before kicking, as the wind" LOCATE 12, 2: PRINT "can drastically affect the aim of your kick. Snowy weather is the condition " LOCATE 13, 2: PRINT "where most accidents can occur, followed by rain. Fair and overcast " LOCATE 14, 2: PRINT "are the easiest. Hold the 'up' key on the cursor pad to execute " LOCATE 15, 2: PRINT "the kick and hold the 'down' cursor to go back to center." LOCATE 16, 2: PRINT "You can play over and over by typing a 'y'or pressing 'enter' after " LOCATE 17, 2: PRINT "being asked to continue. Your score is shown at the top right corner." LOCATE 18, 2: PRINT LOCATE 19, 2: PRINT "Enjoy the game!" LOCATE 20, 2: PRINT LOCATE 21, 2: INPUT "Press enter to continue. ", continue$ IF UCASE$(continue$) = "Y" THEN FOR count = 1 TO 1 CLS COLOR 8 LOCATE 5, 2: PRINT LOCATE 6, 2: PRINT "First, check your yardage to gage how much power you'll need." LOCATE 7, 2: PRINT "If you use way too much power, you'll miss the kick!!!" LOCATE 8, 2: PRINT "Then, press enter when you the power level nears the level you desire." LOCATE 9, 2: PRINT "After selecting power, press the 'left' or 'right' cursor keys to move" LOCATE 10, 2: PRINT "the direction of the ball left or right. Beware that the wind can be tricky." LOCATE 11, 2: PRINT "Always check the speed of the wind and weather before kicking, as the wind" LOCATE 12, 2: PRINT "can drastically affect the aim of your kick. Snowy weather is the condition " LOCATE 13, 2: PRINT "where most accidents can occur, followed by rain. Fair and overcast " LOCATE 14, 2: PRINT "are the easiest. Hold the 'up' key on the cursor pad to execute " LOCATE 15, 2: PRINT "the kick and hold the 'down' cursor to go back to center." LOCATE 16, 2: PRINT "You can play over and over by typing a 'y'or pressing 'enter' after " LOCATE 17, 2: PRINT "being asked to continue. Your score is shown at the top right corner." LOCATE 18, 2: PRINT LOCATE 19, 2: PRINT "Enjoy the game!" LOCATE 20, 2: PRINT PRINT "Press enter to continue. " FOR pause = 1 TO 25000 NEXT pause CLS FOR pause = 1 TO 25000 NEXT pause NEXT count END IF up1 = 390 up2 = 380 FOR count = 1 TO 47 CLS LINE (10, 60)-(640, up1), 8, BF LINE (0, 50)-(630, up2), 0, BF LINE (0, 50)-(630, up2), 15, B up1 = up1 - 7 up2 = up2 - 7 NEXT count CLS GOTO 10 ' *** Some gotos *** 1 2 CLS RANDOMIZE TIMER ' *** Establishing *** COLOR 15 col = 300 row = 430 col2 = 310 row2 = 450 row7 = 30 points = 0 row8 = 30 diameter = 1 diameter2 = 1 IF weather2 = 1 THEN weather = INT(RND * 6 + 0) ELSEIF weather2 = 2 THEN weather = 2 ELSEIF weather2 = 3 THEN weather = 3 ELSEIF weather2 = 4 THEN weather = 1 OR weather = 5 OR weather = 6 END IF ' *************************** Background **************************** ' *** Sky *** IF weather = 4 OR weather = 1 THEN LINE (0, 0)-(700, 700), 1, BF ' *** Sun *** FOR count = 1 TO 25 diameter = diameter + 1 CIRCLE (525, 110), diameter, 14 NEXT count ' *** Cloud *** FOR count = 1 TO 25 diameter2 = diameter2 + 1 CIRCLE (130, 140), diameter2, 15 CIRCLE (120, 140), diameter2, 15 CIRCLE (140, 140), diameter2, 15 CIRCLE (130, 130), diameter2, 15 CIRCLE (100, 140), diameter2, 15 CIRCLE (150, 140), diameter2, 15 NEXT count ELSEIF weather = 2 THEN ' *** Rain *** LINE (0, 0)-(700, 700), 8, BF FOR count = 1 TO 10000 col10 = INT(RND * 639 + 1) row10 = INT(RND * 460 + 1) CIRCLE (col10, row10), 1, 1 NEXT count ELSEIF weather = 3 THEN ' *** Snow *** LINE (0, 0)-(700, 700), 8, BF FOR count = 1 TO 10000 col10 = INT(RND * 639 + 1) row10 = INT(RND * 460 + 1) CIRCLE (col10, row10), 1, 15 NEXT count ELSEIF weather = 5 THEN ' *** Overcast *** LINE (0, 0)-(700, 700), 8, BF ELSE ' *** Sky *** LINE (0, 0)-(700, 700), 1, BF ' *** Sun *** FOR count = 1 TO 25 diameter = diameter + 1 CIRCLE (525, 110), diameter, 14 NEXT count ' *** Cloud *** FOR count = 1 TO 25 diameter2 = diameter2 + 1 CIRCLE (130, 140), diameter2, 15 CIRCLE (120, 140), diameter2, 15 CIRCLE (140, 140), diameter2, 15 CIRCLE (130, 130), diameter2, 15 CIRCLE (100, 140), diameter2, 15 CIRCLE (150, 140), diameter2, 15 NEXT count END IF ' *** Uprights - right/left *** LINE (200, 10)-(210, 310), 14, BF LINE (400, 10)-(410, 310), 14, BF ' *** Center Bar *** LINE (200, 310)-(410, 320), 14, BF ' *** Down Bar *** LINE (300, 310)-(310, 500), 14, BF ' *** Grass *** IF weather = 3 THEN ' Snow on grass LINE (0, 400)-(700, 500), 15, BF ELSE ' Normal Grass LINE (0, 400)-(700, 500), 2, BF END IF LINE (0, 423)-(650, 452), 8, BF LINE (0, 425)-(650, 450), 0, BF ' *** Goal Padding *** LINE (280, 330)-(330, 423), 12, BF ' *** Randomizing yardline, wind, and direction of wind. *** RANDOMIZE TIMER IF yds = 1 THEN yardLine = INT(RND * 45 + 5) ' between 5 and 50 yds ELSEIF yds = 2 THEN yardLine = INT(RND * 15 + 5) ' between 5 and 20 yds ELSEIF yds = 3 THEN yardLine = INT(RND * 19 + 21) ' between 21 and 40 yds ELSEIF yds = 4 THEN yardLine = INT(RND * 9 + 41) ' between 41 and 50 yds END IF IF dif > 6 THEN wind = INT(RND * 10 + 20) ' between 20 and 30 mph ELSE wind = INT(RND * 25 + 5) ' between 5 and 30 mph END IF direction = INT(RND * 2 + 0) ' right and left ' *** Accurate temp according to weather *** IF weather = 3 THEN ' making sure that if its snowing, temp below freezing temp = INT(RND * 22 + -10) ELSEIF weather = 5 THEN ' cooler overcast temperature temp = INT(RND * 30 + 40) ELSE ' normal temperature temp = INT(RND * 70 + 30) END IF ' *** Wind and flag *** LINE (550, 250)-(560, 415), 6, BF IF direction = 0 THEN LINE (550, 250)-(500, 280), 4, BF ELSEIF direction = 1 THEN LINE (560, 250)-(610, 280), 4, BF END IF CALL window2 ' *** Printing weather conditions *** COLOR 15 LOCATE 2, 2: PRINT "Current Conditions:" LOCATE 3, 2: PRINT "Temp:"; temp; "degrees." LOCATE 5, 2: PRINT "Wind:"; wind; "mph." IF weather = 2 THEN LOCATE 4, 2: PRINT "Weather: Rain" ELSEIF weather = 3 THEN LOCATE 4, 2: PRINT "Weather: Snow" ELSEIF weather = 5 THEN LOCATE 4, 2: PRINT "Weather: Overcast" ELSE LOCATE 4, 2: PRINT "Weather: Fair" END IF ' *** Scroller Background *** LINE (100, 425)-(500, 430), 0, BF LINE (100, 430)-(500, 445), 5, BF LINE (100, 445)-(500, 450), 0, BF LINE (col, row)-(col2, row2), 0, BF ' *** Printing yardline, score, and percentage *** CALL window3 LOCATE 28, 65: PRINT yardLine; " yard line." LOCATE 3, 58: PRINT "Score: "; score LOCATE 2, 58: PRINT "Percentage: "; USING "###.#%"; scorePercent COLOR 15 ' *** More establishing *** power = 45 goBackTo = 1 LINE (2, 452)-(61, 146), 0, BF ' *** Moving the power up and down continuously *** DO ' Makes it go down DO WHILE power > -1 AND power < 101 AND goBackTo = 1 powerLevel = 449 - (power * 3) 'LINE (2, 452)-(61, 146), 0, BF LINE (5, 449)-(58, 149), 12, BF LINE (5, 449)-(58, powerLevel), 10, BF LOCATE 28, 2: PRINT USING "###.#%"; power power = power + 2 goBackTo = 1 ' Sets power w/enter IF INKEY$ = CHR$(13) THEN GOTO 5 END IF FOR pause = 1 TO 20000 NEXT pause LOOP ' Sets it back down when it goes too far DO WHILE power >= 101 power = 100 goBackTo = 2 LOOP ' Puts it back up when it goes too far DO WHILE power <= -1 power = 0 goBackTo = 2 LOOP ' Makes it go up DO WHILE power > -1 AND power < 101 AND goBackTo = 2 powerLevel = 449 - (power * 3) 'LINE (2, 452)-(61, 146), 0, BF LINE (5, 449)-(58, 149), 12, BF LINE (5, 449)-(58, powerLevel), 10, BF LOCATE 28, 2: PRINT USING "###.#%"; power power = power - 2 goBackTo = 2 ' Sets power w/enter IF INKEY$ = CHR$(13) THEN GOTO 5 END IF FOR pause = 1 TO 20000 NEXT pause LOOP ' Puts it back down when it goes too far DO WHILE power >= 101 power = 100 goBackTo = 0 LOOP ' Puts it back up when it goes too far DO WHILE power <= -1 power = 0 goBackTo = 1 LOOP ' Ends when enter is pressed LOOP WHILE INKEY$ <> CHR$(13) ' *** Goto that sends it out of loop *** 5 ' *** Weather difficulty *** IF weather = 1 OR weather = 4 THEN rand1 = INT(RND * 6 + 1) rand2 = INT(RND * 8 + 1) rand3 = INT(RND * 5 + 0) ELSEIF weather = 2 THEN rand1 = INT(RND * 5 + 1) rand2 = INT(RND * 8 + 1) rand3 = INT(RND * 4 + 0) ELSEIF weather = 3 THEN rand1 = INT(RND * 3 + 1) rand2 = INT(RND * 6 + 1) rand3 = INT(RND * 3 + 0) ELSE rand1 = INT(RND * 6 + 1) rand2 = INT(RND * 8 + 1) rand3 = INT(RND * 5 + 0) END IF ' *** Declines power when the wind is high and weather is bad *** IF dif >= 1 AND dif <= 3 THEN IF wind >= 20 AND wind < 25 AND weather = 1 OR weather = 4 THEN power = power - 2 ELSEIF wind >= 25 AND weather = 1 OR weather = 4 THEN power = power - 5 ELSEIF wind >= 20 THEN power = power - 2 ELSEIF weather = 3 THEN power = power - 2 ELSEIF wind >= 20 AND weather = 3 THEN power = power - 10 ELSEIF wind >= 10 AND wind < 20 THEN power = power - 2 ELSEIF wind >= 10 AND wind < 20 AND weather = 3 THEN power = power - 5 ELSEIF weather = 2 THEN power = power - 2 ELSEIF wind > 20 AND weather = 2 THEN power = power - 5 ELSEIF wind >= 10 AND wind < 20 AND weather = 2 THEN power = power - 2 END IF ELSEIF dif > 3 AND dif <= 6 THEN IF wind >= 20 AND wind < 25 AND weather = 1 OR weather = 4 THEN power = power - 5 ELSEIF wind >= 25 AND weather = 1 OR weather = 4 THEN power = power - 10 ELSEIF wind >= 20 THEN power = power - 5 ELSEIF weather = 3 THEN power = power - 5 ELSEIF wind >= 20 AND weather = 3 THEN power = power - 15 ELSEIF wind >= 10 AND wind < 20 THEN power = power - 2 ELSEIF wind >= 10 AND wind < 20 AND weather = 3 THEN power = power - 10 ELSEIF weather = 2 THEN power = power - 2 ELSEIF wind > 20 AND weather = 2 THEN power = power - 10 ELSEIF wind >= 10 AND wind < 20 AND weather = 2 THEN power = power - 5 END IF ELSEIF dif > 6 AND dif <= 10 THEN IF wind >= 20 AND wind < 25 AND weather = 1 OR weather = 4 THEN power = power - 10 ELSEIF wind >= 25 AND weather = 1 OR weather = 4 THEN power = power - 15 ELSEIF wind >= 20 THEN power = power - 10 ELSEIF weather = 3 THEN power = power - 20 ELSEIF wind >= 20 AND weather = 3 THEN power = power - 20 ELSEIF wind >= 10 AND wind < 20 THEN power = power - 5 ELSEIF wind >= 10 AND wind < 20 AND weather = 3 THEN power = power - 15 ELSEIF weather = 2 THEN power = power - 5 ELSEIF wind > 20 AND weather = 2 THEN power = power - 15 ELSEIF wind >= 10 AND wind < 20 AND weather = 2 THEN power = power - 10 ELSE IF wind >= 20 AND wind < 25 AND weather = 1 OR weather = 4 THEN power = power - 5 ELSEIF wind >= 25 AND weather = 1 OR weather = 4 THEN power = power - 10 ELSEIF wind >= 20 THEN power = power - 5 ELSEIF weather = 3 THEN power = power - 5 ELSEIF wind >= 20 AND weather = 3 THEN power = power - 15 ELSEIF wind >= 10 AND wind < 20 THEN power = power - 10 ELSEIF wind >= 10 AND wind < 20 AND weather = 3 THEN power = power - 10 ELSEIF weather = 2 THEN power = power - 2 ELSEIF wind > 20 AND weather = 2 THEN power = power - 10 ELSEIF wind >= 10 AND wind < 20 AND weather = 2 THEN power = power - 5 END IF END IF END IF speed2 = 12 ' *** Cursor *** DO ' Moves it left k$ = INKEY$ SELECT CASE k$ CASE IS = CHR$(0) + "K" IF col >= 90 AND col <= 490 THEN col = col - speed2 col2 = col2 - speed2 LINE (col, row)-(col2, row2), 0, BF LINE (100, 430)-(500, 445), 5, BF LINE (col, row)-(col2, row2), 0, BF ELSE col = 490 col2 = 500 END IF ' Moves it right CASE IS = CHR$(0) + "M" IF col >= 90 AND col <= 490 THEN col = col + speed2 col2 = col2 + speed2 LINE (col, row)-(col2, row2), 0, BF LINE (100, 430)-(500, 445), 5, BF LINE (col, row)-(col2, row2), 0, BF ELSE col = 90 col2 = 100 END IF ' Moves it back to center CASE IS = CHR$(0) + "P" col = 300 col2 = 310 LINE (100, 430)-(500, 445), 5, BF LINE (col, row)-(col2, row2), 0, BF END SELECT ' Kicks ball when up is pressed LOOP WHILE INKEY$ <> CHR$(0) + "H" ' *** Start of evalutation to see if kick is good *** DO row3 = 500 ' Drifts kick according to wind IF wind > 5 AND wind <= 10 AND direction = 0 THEN col6 = col - 10 ELSEIF wind > 5 AND wind <= 10 AND direction = 1 THEN col6 = col + 10 ELSEIF wind > 10 AND wind <= 15 AND direction = 0 THEN col6 = col - 25 ELSEIF wind > 10 AND wind <= 15 AND direction = 1 THEN col6 = col + 25 ELSEIF wind > 15 AND wind <= 20 AND direction = 0 THEN col6 = col - 50 ELSEIF wind > 15 AND wind <= 20 AND direction = 1 THEN col6 = col + 50 ELSEIF wind > 20 AND wind <= 25 AND direction = 0 THEN col6 = col - 75 ELSEIF wind > 20 AND wind <= 25 AND direction = 1 THEN col6 = col + 75 ELSEIF wind > 25 AND direction = 0 THEN col6 = col - 100 ELSEIF wind > 25 AND direction = 1 THEN col6 = col + 100 END IF ' Takes all variables into consideration and kicks the ball DO IF power >= 1 AND yardLine >= 0 AND yardLine <= 5 AND col > 150 AND col < 450 THEN FOR count = 1 TO 100 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "Easy chip shot!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power > 60 AND yardLine <= 20 THEN LOCATE 10, 32 PRINT "Just Missed it!!!!!" points = 0 PLAY "d<d<d" ELSEIF power > 80 AND yardLine <= 30 THEN LOCATE 10, 32 PRINT "Not Quite!!!!!" points = 0 PLAY "d<d<d" ELSEIF power > 90 AND yardLine <= 40 THEN LOCATE 10, 32 PRINT "Try again!!!!!" points = 0 PLAY "d<d<d" ELSEIF power >= 5 AND yardLine >= 0 AND yardLine <= 10 AND col > 160 AND col < 440 THEN FOR count = 1 TO 95 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "BOOM BOOM!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 10 AND yardLine > 10 AND yardLine <= 15 AND col > 170 AND col < 430 THEN FOR count = 1 TO 90 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "Great Job!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 20 AND yardLine > 15 AND yardLine <= 20 AND col > 180 AND col < 420 THEN FOR count = 1 TO 85 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "IT'S GOOD!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 30 AND yardLine > 20 AND yardLine <= 25 AND col > 190 AND col < 410 THEN FOR count = 1 TO 80 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "IT'S GOOD!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 40 AND yardLine > 25 AND yardLine <= 30 AND col > 200 AND col < 400 AND rand1 <> rand2 THEN FOR count = 1 TO 75 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "IT'S GOOD!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 50 AND yardLine > 30 AND yardLine <= 35 AND col > 210 AND col < 390 AND rand1 <> rand2 THEN FOR count = 1 TO 70 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "You made it!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 60 AND yardLine > 35 AND yardLine <= 40 AND col > 220 AND col < 380 AND rand1 <> rand2 THEN FOR count = 1 TO 65 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "That was a close call!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 65 AND yardLine > 40 AND yardLine <= 45 AND col > 230 AND col < 370 AND rand1 <> rand3 THEN FOR count = 1 TO 60 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "IT'S GOOD!!!!!!" points = 3 PLAY "MBT250cccfg" ELSEIF power >= 70 AND yardLine > 45 AND yardLine <= 50 AND col > 240 AND col < 360 AND rand1 <> rand3 THEN FOR count = 1 TO 55 row3 = row3 - 5 CIRCLE (col6, row3), 10, 6 FOR pause = power TO 100 NEXT pause NEXT count LOCATE 10, 32 PRINT "Keep it up!!!!!!" points = 3 PLAY "MBT250cccfg" ELSE LOCATE 10, 32 PRINT "NO GOOD!!!!!" points = 0 PLAY "d<d<d" END IF FOR pause = 1 TO 8000 NEXT pause ' Produces score score = score + points ' Percentage of kicks got right outOf = outOf + 3 scorePercent = (score / outOf) * 100 ' Resets points points = 0 FOR pause = 1 TO 500 NEXT pause ' Retry section LOCATE 29, 1 INPUT "Play again? (y/n) ", playAgain$ FOR pause = 1 TO 200 NEXT pause ' Checking if user wants to retry IF UCASE$(playAgain$) = "Y" OR playAgain$ = "" THEN GOTO 1 ELSEIF UCASE$(playAgain$) = "N" THEN GOTO 10 16 ' Final Score Screen CLS COLOR 15: LOCATE 10, 30 PRINT "SCORE: "; score LOCATE 11, 30 IF scorePercent <= 10 THEN PRINT "You're horrible!" ELSEIF scorePercent <= 30 AND scorePercent > 10 THEN PRINT "Not Quite there!" ELSEIF scorePercent <= 50 AND scorePercent > 30 THEN PRINT "Keep trying!" ELSEIF scorePercent <= 70 AND scorePercent > 50 THEN PRINT "Not bad." ELSEIF scorePercent <= 90 AND scorePercent > 70 THEN PRINT "Good work!" ELSEIF scorePercent <= 100 AND scorePercent >= 90 THEN PRINT "You're all pro!" END IF FOR count = 1 TO 30 RANDOMIZE TIMER color1 = INT(RND * 16 + 1) LINE (0, 0)-(100, 100), color1, BF LINE (110, 0)-(210, 100), color1, BF LINE (220, 0)-(320, 100), color1, BF LINE (330, 0)-(430, 100), color1, BF LINE (440, 0)-(540, 100), color1, BF LINE (550, 0)-(650, 100), color1, BF LINE (0, 110)-(100, 210), color1, BF LINE (110, 110)-(210, 210), color1, BF LINE (440, 110)-(540, 210), color1, BF LINE (550, 110)-(650, 210), color1, BF LINE (0, 220)-(100, 320), color1, BF LINE (110, 220)-(210, 320), color1, BF LINE (220, 220)-(320, 320), color1, BF LINE (330, 220)-(430, 320), color1, BF LINE (440, 220)-(540, 320), color1, BF LINE (550, 220)-(650, 320), color1, BF LINE (0, 330)-(100, 430), color1, BF LINE (110, 330)-(210, 430), color1, BF LINE (220, 330)-(320, 430), color1, BF LINE (330, 330)-(430, 430), color1, BF LINE (440, 330)-(540, 430), color1, BF LINE (550, 330)-(650, 430), color1, BF LINE (0, 440)-(100, 540), color1, BF LINE (110, 440)-(210, 540), color1, BF LINE (220, 440)-(320, 540), color1, BF LINE (330, 440)-(430, 540), color1, BF LINE (440, 440)-(540, 540), color1, BF LINE (550, 440)-(650, 540), color1, BF FOR pause = 1 TO 3000 NEXT pause NEXT count ' Credits screen 17 SCREEN 13 c1 = 16 go1 = 2 goBackTo = 1 speed = 30000 DO DO WHILE c1 > 15 AND c1 < 32 AND goBackTo = 1 LOCATE 10, 11: COLOR c1: PRINT "Super Goal Kicker 2k1" LOCATE 12, 11: COLOR c1: PRINT "Written By Aaron Duke" LOCATE 14, 11: COLOR c1: PRINT "Thanks For playing!!!" c1 = c1 + 1 goBackTo = 1 ' Sets c1 w/enter IF INKEY$ = CHR$(13) THEN GOTO 15 END IF FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause LOOP DO WHILE c1 >= 32 c1 = 31 goBackTo = 2 LOOP DO WHILE c1 <= 15 c1 = 16 goBackTo = 2 LOOP DO WHILE c1 > 15 AND c1 < 32 AND goBackTo = 2 LOCATE 10, 11: COLOR c1: PRINT "Super Goal Kicker 2k1" LOCATE 12, 11: COLOR c1: PRINT "Written By Aaron Duke" LOCATE 14, 11: COLOR c1: PRINT "Thanks For playing!!!" c1 = c1 - 1 goBackTo = 2 ' Sets c1 w/enter IF INKEY$ = CHR$(13) THEN GOTO 15 END IF FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause FOR pause = 1 TO speed NEXT pause LOOP DO WHILE c1 >= 32 c1 = 31 goBackTo = 1 LOOP DO WHILE c1 <= 15 c1 = 16 goBackTo = 1 LOOP ' Ends when enter is pressed LOOP WHILE INKEY$ <> CHR$(13) 15 SCREEN 12 CLS END END IF LOOP LOOP END DEFSNG A-Z SUB window1 LINE (250, 210)-(455, 320), 8, BF LINE (240, 200)-(445, 310), 0, BF LINE (240, 200)-(445, 310), 15, B COLOR 15: LOCATE 13, 32: PRINT " Main Menu: " END SUB SUB window2 LINE (13, 20)-(180, 95), 7, BF LINE (3, 10)-(170, 85), 0, BF LINE (3, 10)-(170, 85), 15, B END SUB SUB window3 LINE (460, 20)-(630, 65), 7, BF LINE (450, 10)-(620, 55), 0, BF LINE (450, 10)-(620, 55), 15, B END SUB