DOS Games Message Board
DOS Games Discussion
A message board to talk about DOS games, get help, and find old games.
Do NOT post warez or abandonware requests please
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Bowling For John

 
Post new topic   Reply to topic    DOS Games Discussion Forum Index -> Game Creation
Author Message
Guest







PostPosted: Tue Mar 29, 2005 3:17 pm     Post subject: Bowling For John Reply with quote

Here's my creation. It only runs in QBasic, so don't bother if you don't have it.

This is the revamped version...


Code:

'THIS PROGRAM IS A SUBMISSION TO QBASICNEWS FORUM WRITTEN BY JOHN KREITLOW.
'IT HAS BEEN REORGANIZED TO REMOVE GOTOs, UNNEEDED LOOPS, AND GENERALLY MADE
'QUITE A BIT EASIER TO FOLLOW, LOGICALLY.  PLEASE LET ME KNOW IF THERE ARE
'ANY CHANGES I MADE WHICH ARE TOO DIFFICULT TO UNDERSTAND.  THANKS!
'
'                                                            - 01/27/2005 MB.

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Subroutine and Function declarations.
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
DECLARE SUB Initialize ()               'SET UP INITIAL PROGRAM STATE
DECLARE SUB Intro ()                    'DISPLAY INTRO SCREEN
DECLARE SUB Instructions ()             'DISPLAY GAME DIRECTIONS
DECLARE SUB ResetPins ()                'MAKE ALL PINS STANDING
DECLARE SUB DrawLane ()                 'DRAW THE LANE, PINS, AND INFO
DECLARE SUB RollBall ()                 'ROLL THE BALL, AND CHECK COLLISIONS
DECLARE SUB HitPin (n%)                 'RECURSIVE PIN-COLLISION ROUTINE
DECLARE SUB StrikeOrSpare ()            'FLASH A MESSAGE FOR STRIKE OR SPARE
DECLARE SUB GameOver ()                 'END THE CURRENT GAME
DECLARE SUB CheckHighScore ()           'SEE IF USER SET A NEW HIGH SCORE
DECLARE SUB Pause (t&)                  'PAUSE THE PROGRAM FOR SET TIME
DECLARE FUNCTION GetBallColor% ()       'CHOOSE BALL COLOR
DECLARE FUNCTION GetLane% ()            'CHOOSE LANE TO RELEASE BALL DOWN
DECLARE FUNCTION GetPower% ()           'CHOOSE POWER OF BALL ***NOT USED***

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Variable TYPE declarations.
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
TYPE BallType
     x    AS INTEGER                    'X-COORDINATE OF BALL
     y    AS INTEGER                    'Y-COORDINATE OF BALL
     c    AS INTEGER                    'COLOR OF BALL
     p    AS INTEGER                    'POWER OF BALL ***NOT USED***
END TYPE
DIM SHARED Ball AS BallType             'CREATE A BALL

TYPE PinType
     x    AS INTEGER                    'X-COORDINATE OF PIN
     y    AS INTEGER                    'Y-COORDINATE OF PIN
     Up   AS INTEGER                    'IS THE PIN STANDING? 1=YES 0=NO
END TYPE
DIM SHARED Pin(1 TO 10) AS PinType      'CREATE ARRAY OF 10 PINS
     
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'The following variables can be used / changed in any subroutine or function
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
COMMON SHARED adjScore%                 '# OF POINTS SCORED IN CURRENT ROLL
COMMON SHARED Score%                    'TOTAL SCORE FOR THE GAME
COMMON SHARED Frame%                    'WHICH FRAME IT IS [1 THROUGH 10]
COMMON SHARED Roll%                     'WHICH ROLL IT IS [1 THROUGH 2]
COMMON SHARED QuitFlag%                 '0=CONTINUE GAME, 1=END GAME
COMMON SHARED OneSecond&                '# OF LOOPS COMPUTER RUNS / SECOND

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'These next few lines set up the game to be played.
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
CALL Initialize                         'INITIALIZE SOME GAME VARIABLES
CALL Intro                              'SHOW THE INTRO SCREEN
Ball.c = GetBallColor%                  'GET DESIRED BALL COLOR FROM USER
CALL Instructions                       'DISPLAY GAME INSTRUCTIONS
                                        '
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Here is the main game loop.  This runs through 10 frames, 2 rolls per frame
'unless the user hits the escape key.  If a strike is bowled, the 2nd roll
'gets skipped for that frame.
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
DO WHILE QuitFlag% = 0                  '---MAIN GAME LOOP UNTIL QuitFlag%---
     Score% = 0                         'SET TOTAL GAME SCORE TO ZERO
     FOR Frame% = 1 TO 10               '   ----THIS LOOPS EACH NEW FRAME----
          CALL ResetPins                '   SET ALL THE PINS TO STANDING
          FOR Roll% = 1 TO 2            '      ---THIS LOOPS EACH NEW ROLL---
               CALL DrawLane            '      DRAW THE LANE, PINS, & INFO
               Ball.x = GetLane%        '      USER SELECTS LANE TO BOWL DOWN
               IF QuitFlag% = 1 THEN    '      DID THEY HIT ESCAPE?
                    Roll% = 2           '      ..YES. THEY CANCELLED BOWL.
                    Frame% = 10         '      ....SKIP ALL REMAINING FRAMES.
               ELSE                     '      ..NO. THEY ACTUALLY BOWLED.
                    Ball.p = GetPower%  '      ....***POWER DOES NOTHING***
                    CALL RollBall       '      ....ROLL THE BALL DOWN LANE.
               END IF                   '
          NEXT Roll%                    '      -----END OF THE ROLL LOOP-----
     NEXT Frame%                        '   ------END OF THE FRAME LOOP------
     CALL GameOver                      '   END THE CURRENT BOWLING GAME
LOOP                                    '----END LOOP WHEN QuitFlag% IS 1----

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'End the program, return control to the O/S.
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SYSTEM

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'This data contains the x- and y-coordinates of the 10 pins.  The Initialize
'subroutine loads this data into the 10-element array, Pin().
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
DATA 70  , 10                                          'PIN 1
DATA 110 , 10                                          'PIN 2
DATA 150 , 10                                          'PIN 3
DATA 190 , 10                                          'PIN 4
DATA 90  , 30                                          'PIN 5
DATA 130 , 30                                          'PIN 6
DATA 170 , 30                                          'PIN 7
DATA 110 , 50                                          'PIN 8
DATA 150 , 50                                          'PIN 9
DATA 130 , 70                                          'PIN 10

SUB CheckHighScore
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Check to see whether the user has beaten the high score.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

     OPEN "BOWLING.HSR" FOR INPUT AS #1                'OPEN HIGHSCORE FILE
          INPUT #1, HighScore.Points%                  'GET SCORE FROM FILE
          LINE INPUT #1, HighScore.Name$               'GET NAME FROM FILE
     CLOSE #1                                          'CLOSE HIGHSCORE FILE

     IF Score% > HighScore.Points% THEN                'HIGH SCORE BEATEN!!

          PRINT "CONGRATULATIONS! YOU BEAT THE HIGH"   '..\
          PRINT "SCORE. YOU SHOULD BE IN THE HALL"     '.. > DISPLAY MESSAGE
          PRINT "OF FAME!"                             '../
          PRINT
          PRINT "OLD HISCORE: "; HighScore.Points%     '..\ SHOW OLD BEST
          PRINT "MADE BY: "; HighScore.Name$           '../ SCORE AND NAME
          PRINT
          PRINT "YOUR SCORE:"; Score%                  '..SHOW YOUR SCORE

          INPUT "PLEASE ENTER YOUR NAME: ", YourName$  '..GET USER NAME
          OPEN "BOWLING.HSR" FOR OUTPUT AS #1          '..OPEN HISCORE FILE
               PRINT #1, Score%                        '..SAVE SCORE TO FILE
               PRINT #1, YourName$                     '..SAVE NAME TO FILE
          CLOSE #1                                     '..CLOSE HISCORE FILE

     ELSE                                              'HIGH SCORE NOT BEATEN
          PRINT "TOTAL SCORE:"                         '..\
          PRINT Score%                                 '../ SHOW USER SCORE
     END IF
END SUB

SUB DrawLane
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Draw the bowling lane.  This will happen at the start of each roll.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     SCREEN 7                                          '\ SET AND CLEAR
     CLS                                               '/ THE SCREEN
   
     FOR i% = 1 TO 10                                  '-START LOOP 1 TO 10--
          IF Pin(i%).Up THEN                           'IS THIS PIN STANDING?
               CIRCLE (Pin(i%).x, Pin(i%).y), 5, 15    ' ..YES, SO DRAW IT.
          END IF
     NEXT i%                                           '---END LOOP AT 10----

     LINE (300, 10)-(310, 190), 4, BF                  'DRAW RED BOX ON RIGHT
     LINE (30, 10)-(30, 190), 15                       'DRAW WHITE LINE LEFT
     LINE (230, 10)-(230, 190), 15                     'DRAW WHITE LINE RIGHT

     COLOR 15                                          'SET COLOR: WHITE
     LOCATE 2, 30: PRINT "SCORE:"                      '\
     LOCATE 3, 30: PRINT Score%                        ' \
     LOCATE 5, 30: PRINT "FRAME:"                      '  \ SHOW THE SCORE,
     LOCATE 6, 30: PRINT Frame%                        '  / FRAME, AND ROLL
     LOCATE 8, 30: PRINT "ROLL:"                       ' /
     LOCATE 9, 30: PRINT Roll%                         '/
END SUB

SUB GameOver
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Either the user bowled the last frame, or hit escape during play.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     SCREEN 0                                          '\
     WIDTH 80, 25                                      ' > SET & CLEAR SCREEN
     CLS                                               '/

     CALL CheckHighScore                               'CHECK FOR NEW HISCORE

     PRINT
     PRINT "CREATED BY JOHN KREITLOW"                  '\ CLOSING GAME
     PRINT "IN ASSOCIATION WITH RADIUM-V"              '/ CREDITS
     PRINT
   
     PRINT "Play Again? (Y/N)"                         'WANT TO PLAY AGAIN?
     DO                                                '-----START LOOP------
          k$ = UCASE$(INKEY$)                          'MONITOR KEYPRESS
     LOOP UNTIL k$ = "Y" OR k$ = "N"                   '---END WHEN Y OR N---
     IF k$ = "N" THEN QuitFlag% = 1 ELSE QuitFlag% = 0 'SET QuitFlag%
END SUB

FUNCTION GetBallColor%
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Change to Screen Mode 7 to display the balls and clear keyboard buffer.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     WHILE INKEY$ <> "": WEND
     SCREEN 7

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Make a string to hold the seven ball color values.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     BallColors$ = "01020304051214"
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Display all seven balls, and a message prompting selection.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     FOR i% = 1 TO 7
          CIRCLE (i% * 40 - 5, 10), 10, VAL(MID$(BallColors$, i% * 2 - 1, 2))
     NEXT i%
     LOCATE 12, 5: PRINT "PLEASE SELECT YOUR BALL COLOR."

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'ArrowX% and ArrowY% store the coordinates of the selection indicator.
     'By adjusting the ArrowY% value inside of a loop and a random color,
     'the indicator appears to be pointing at the selected ball and flashing.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     ArrowX% = 5                                            'START X-COORD
     DO
          ArrowY% = 8                                       'START Y-COORD
          DO
               ArrowY% = ArrowY% - 1                        'MOVE ARROW UP
               IF ArrowY% = 4 THEN ArrowY% = 7              'RESET ARROW
             
               COLOR INT(RND * 15) + 1                      'RANDOM COLOR
               LOCATE ArrowY%, ArrowX%: PRINT CHR$(127);    'DRAW ARROW
               Pause OneSecond& / 50                        'SHORT PAUSE
               LOCATE ArrowY%, ArrowX%: PRINT " ";          'ERASE ARROW
             
               k$ = UCASE$(INKEY$)                          'CHECK KEYPRESS
          LOOP UNTIL k$ <> ""                               'EXIT ON KEYPRESS
         
          '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
          'If the user hits left or right arrow keys, adjust ArrowX% if able.
          '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
          SELECT CASE k$
               CASE CHR$(0) + "K"
                    IF ArrowX% > 5 THEN ArrowX% = ArrowX% - 5
               CASE CHR$(0) + "M"
                    IF ArrowX% < 35 THEN ArrowX% = ArrowX% + 5
          END SELECT
     LOOP UNTIL k$ = CHR$(13)

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Return to Screen Mode 0.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     SCREEN 0
     WIDTH 80, 25
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Set the return value of the function to the appropriate color value.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     GetBallColor% = VAL(MID$(BallColors$, (ArrowX% \ 5) * 2 - 1, 2))
END FUNCTION

FUNCTION GetLane%
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'This function returns the lane down which the user rolls their ball.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     WHILE INKEY$ <> "": WEND                          'CLEAR KEYBOARD BUFFER

     x% = 41                                           'WHERE BALL IS
     xAdj% = 1                                         'DIRECTION IT'S GOING
   
     DO                                                '-----START LOOP------
          x% = x% + xAdj%                              'MOVE BALL
          IF x% = 41 OR x% = 219 THEN xAdj% = -xAdj%   'REVERSE DIRECTION

          CIRCLE (x%, 190), 10, Ball.c                 'DRAW BALL IN COLOR
          Pause OneSecond& / 800                       'PAUSE SHORT MOMENT
          CIRCLE (x%, 190), 10, 0                      'ERASE BALL

          k$ = INKEY$                                  'CHECK FOR KEYPRESS
     LOOP UNTIL k$ = CHR$(13) OR k$ = CHR$(27)         '-END @ ENTER OR ESC--
     IF k$ = CHR$(27) THEN QuitFlag% = 1               'IF ESC, SET QuitFlag%

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'This next formula looks complex.  Basically, we want the ball's x-coord
     'to be: 50, 70, 90, 110, 130, 150, 170, 190, or 210.  This formula says:
     '
     '    if ball is between 40 and 60, make it 50
     '    if ball is between 60 and 80, make it 70
     '
     '                   etc, etc...
     '
     '    if ball is between 180 and 200, make it 190
     '    if ball is between 200 and 220, make it 210
     '
     'Again, let me know if you have trouble following how this works.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
   
     GetLane% = ((x% - 40) \ 20) * 20 + 50             'CENTER BALL IN LANE
END FUNCTION

FUNCTION GetPower%
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     '                         *** NOTE TO JOHN ***
     '
     ' I spent a while looking through your code and couldn't figure
     'out how the power of the ball affected anything.  So I just left
     'that part of of the re-written code.  However, if you want it in
     'here, either let me know, or write it in this area. =)
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
END FUNCTION

SUB HitPin (n%)
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'This routine uses recursion to calculate your score for this roll. It
     'it passed the value of the pin your ball hit, then checks to see is the
     'pin is standing or not.  If it is not, nothing happens and your score
     'is unchanged.  If the pin is standing, it knocks it over, then calls
     'HitPin (itself) on any pins that first pin might have bumped into.
     'The variable adjScore% keeps track of the total pin count of the roll.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'First of all, check to see whether a strike or spare was rolled, since
     'either of these results in a special score value (i.e. not just the
     'number of pins that got knocked over).
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     IF n% = 10 THEN                                   'SPARE OR STRIKE!

          IF Roll% = 1 THEN                            '1ST ROLL, SO STRIKE
               CALL StrikeOrSpare                      '..FLASH MESSAGE
               adjScore% = 30                          '..SET adjScore% TO 30
               Roll% = 2                               '..NEXT ROLL SKIPPED

          ELSE                                         '2ND ROLL, SO SPARE.
               CALL StrikeOrSpare                      '..FLASH MESSAGE
               adjScore% = 20                          '..SET adjScore% TO 20
          END IF
   
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'If the 10-pin (front pin) is not hit, there is no strike or spare. So
     'next we check to see if the pin is standing.  If so, make it knocked
     'down, erase it from screen, and increase adjScore% variable.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     ELSE                                              'NO SPARE OR STRIKE!

          IF Pin(n%).Up = 1 THEN                       'THE PIN IS STANDING
               Pin(n%).Up = 0                          '..KNOCK IT OVER
               CIRCLE (Pin(n%).x, Pin(n%).y), 5, 0     '..ERASE IT
               adjScore% = adjScore% + 1               '..ADD 1 TO adjScore%

               '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
               'Since the pin was standing, we need to see what other pins it
               'might knock into.  For each one of those, we call HitPin sub.
               '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
             
               SELECT CASE n%           'WHICH PIN ARE WE LOOKING AT?
                    CASE 5              '..PIN 5
                         HitPin 1       '  ..PIN 5 HITS PIN 1
                         HitPin 2       '  ..PIN 5 HITS PIN 2
                    CASE 6              '..PIN 6
                         HitPin 2       '  ..PIN 6 HITS PIN 2
                         HitPin 3       '  ..PIN 6 HITS PIN 3
                    CASE 7              '..PIN 7
                         HitPin 3       '  ..PIN 7 HITS PIN 3
                         HitPin 4       '  ..PIN 7 HITS PIN 4
                    CASE 8              '..PIN 8
                         HitPin 5       '  ..PIN 8 HITS PIN 5
                         HitPin 6       '  ..PIN 8 HITS PIN 6
                    CASE 9              '..PIN 9
                         HitPin 6       '  ..PIN 9 HITS PIN 6
                         HitPin 7       '  ..PIN 9 HITS PIN 7
               END SELECT

               '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
               'Recursion is kind of tricky to understand at first.  Imagine
               'if you hit pin 9 first.  Well, you get 1 point for that, and
               'also hit pins 6 and 7.  Well, when HitPin 6 and 7 get called,
               'those each give you one point.  HitPin 6 then hits 2 and 3,
               'while HitPin 7 hits pins 3 and 4.  But because HitPin 6
               'already called HitPin 3, by the time HitPin 7 calls HitPin 3,
               'Pin 3 is already knocked over. Let me know if you have any
               'trouble following the logic here. =)
               '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
          END IF
     END IF
END SUB

SUB Initialize
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Seed the RND() function, set the screen mode.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     RANDOMIZE TIMER                              'SEED THE RND() FUNCTION
     SCREEN 0                                     '\
     WIDTH 80, 25                                 ' > SET & CLEAR SCREEN
     CLS                                          '/

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Initialize the x- and y-coordinates of the 10 pins and QuitFlag%
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     FOR i% = 1 TO 10                             '---START LOOP FIRST PIN---
          READ Pin(i%).x                          'READ X-COORD FROM DATA
          READ Pin(i%).y                          'READ Y-COORD FROM DATA
     NEXT i%                                      '---END LOOP @ TENTH PIN---

     QuitFlag% = 0                                'INITIALIZE QuitFlag% TO 0

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Because different computers will run this game at different speeds, we
     'need to figure out how fast this computer is running it, so that we can
     'make sure pauses within the program always pause for the same length of
     'time.  To do this, we need to see how many loops this computer goes
     'through in one second.  We will save this number as OneSecond& and use
     'it for all calls to the Pause() sub in the game code.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     PRINT "Determining computer speed...";       'NOTIFY USER OF SPEED TEST
     MarkedTime# = TIMER                          'MARK START TIME
     FOR t& = 1 TO 2000000                        '---LOOP 2 MILLION TIMES---
     NEXT t&                                      '---------END LOOP---------
     OneSecond& = 2000000 / (TIMER - MarkedTime#) 'CALCULATE LOOPS PER SECOND
     PRINT "Done! OneSecond&="; OneSecond&        'NOTIFY USER TEST COMPLETED
END SUB

SUB Instructions
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Explain to the user how to play.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     CLS
     PRINT "BOWLING"
     PRINT "CREATED BY JOHN KREITLOW"
     PRINT "IN ASSOCIATION WITH RADIUM-V"
     LOCATE 5, 18: PRINT "BASED ON ACME SOFTWARE'S `BOWLIN' FOR THE TI-83"
     PRINT
     LOCATE 7, 31: PRINT "PRESS SPACE TO START"
     LOCATE 8, 31: PRINT "PRESS ESCAPE TO QUIT"
     LOCATE 9, 32: PRINT "+---------------+"
     LOCATE 10, 32: PRINT "| LANE    RULES |"
     LOCATE 11, 32: PRINT "+---------------+"
     PRINT
     PRINT "STRIKE = 30 POINTS"
     PRINT "SPARE = 20 POINTS"
     PRINT "HIT `ENTER' AT WANTED SPACE ON THE LANE TO SELECT IT."
     PRINT "SELECT STRENGTH, INDICATED AT BASE OF POWER METER. CHOOSE"
     PRINT "QUICKLY, BECAUSE YOU WILL MISS A TURN IF YOU TAKE TOO LONG!"

     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Show the user the current high score.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     OPEN "BOWLING.HSR" FOR INPUT AS #1                'OPEN HIGHSCORE FILE
          INPUT #1, HighScore.Points%                  'GET SCORE FROM FILE
          LINE INPUT #1, HighScore.Name$               'GET NAME FROM FILE
     CLOSE #1                                          'CLOSE HIGHSCORE FILE
     PRINT "HI-SCORE: ";
     PRINT HighScore.Points%; "BY "; HighScore.Name$   'SHOW THE HIGH SCORE
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Wait for a keypress.  Spacebar will start the game.  Escape will quit.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     DO                                                '-----START LOOP------
          k$ = UCASE$(INKEY$)                          'MONITOR KEYPRESSES
     LOOP UNTIL k$ = " " OR k$ = CHR$(27)              '-END AT SPACE OR ESC-
     IF k$ = CHR$(27) THEN QuitFlag% = 1               'IF ESC, SET QuitFlag%
END SUB

SUB Intro
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Draw an intro screen showing a ball rolling a strike.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     CLS                                     'CLEAR THE SCREEN
     LOCATE 2, 37: PRINT "O O O O"           '\
     LOCATE 3, 37: PRINT " O O O"            ' \ DRAW A RACK OF PINS
     LOCATE 4, 37: PRINT "  O O"             ' / AT TOP OF THE SCREEN
     LOCATE 5, 37: PRINT "   O"              '/

     FOR i% = 23 TO 1 STEP -1                '---START LOOP BALL AT BOTTOM---
          LOCATE i%, 37                      'POSITION CURSOR AT BALL'S SPOT
          PRINT "   0   ";                   'DRAW ERASING LINE WITH BALL
          Pause OneSecond& / 20              'SHORT PAUSE
          LOCATE i%, 40                      'POSITION CURSOR AT BALL'S SPOT
          PRINT " ";                         'ERASE THE BALL
     NEXT i%                                 '---END LOOP WHEN BALL AT TOP---
END SUB

SUB Pause (t&)
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Pause for t& loops.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     FOR Counter& = 1 TO t&                            '---START LOOP AT 1---
     NEXT Counter&                                     '---END LOOP AT t&----
END SUB

SUB ResetPins
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Set all 10 pins so that they are standing.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     FOR i% = 1 TO 10                             '---START LOOP 1 THRU 10---
          Pin(i%).Up = 1                          'SET THIS PIN TO STANDING
     NEXT i%                                      '------END LOOP AT 10------
END SUB

SUB RollBall
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Roll ball down the lane, see what pins are hit, and determine scoring.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
   
     FOR y% = 190 TO -5 STEP -1              '---START LOOP BALL AT BOTTOM---
          CIRCLE (Ball.x, y%), 10, Ball.c    'DRAW BALL IN PICKED COLOR
          Pause OneSecond& / 500             'PAUSE A BRIEF MOMENT
          CIRCLE (Ball.x, y%), 10, 0         'COVER BALL WITH BLACK CIRCLE
     NEXT y%                                 '---END LOOP WHEN BALL AT TOP---

     adjScore% = 0                           'AMOUNT OF POINTS FOR THIS ROLL
     SELECT CASE Ball.x                      '\
          CASE 70: HitPin 1                  ' \
          CASE 90: HitPin 5                  '  `  DEPENDING ON BALL'S LANE
          CASE 110: HitPin 8                 '  |  DETERMINE WHICH PIN WAS
          CASE 130: HitPin 10                '   > STRUCK FIRST. PASS THIS
          CASE 150: HitPin 9                 '  |  PIN # TO THE HitPin SUB
          CASE 170: HitPin 7                 '  '  WHICH WILL SET adjScore%
          CASE 190: HitPin 4                 ' /
     END SELECT                              '/
     Score% = Score% + adjScore%             'ADD ROLL SCORE TO TOTAL SCORE
END SUB

SUB StrikeOrSpare
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'User has bowled a strike or a spare.  Show them a framed message.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     CLS                                          'CLEAR THE SCREEN
     COLOR 7                                      'SET COLOR: GREY
     LOCATE 5, 13: PRINT "+------------+"         'TOP OF FRAME
     LOCATE 6, 13
     IF Roll% = 1 THEN                            'CHECK WHICH ROLL IT IS...
          PRINT "|   STRIKE!  |"                  ' ..FIRST ROLL, SO STRIKE
     ELSE
          PRINT "|   SPARE!   |"                  ' ..SECOND ROLL, SO SPARE
     END IF
     LOCATE 7, 13: PRINT "+------------+"         'BOTTOM OF FRAME
     LOCATE 9, 13: PRINT " PRESS  SPACE"          'SHOW EXIT CONDITION
   
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     'Highlight the frame with moving yellow stars until they hit spacebar.
     '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     FlashHi% = 13                                'TOP STAR
     FlashLo% = 25                                'BOTTOM STAR
     DO                                           '--------START LOOP--------
          FlashHi% = FlashHi% + 1                 'MOVE TOP STAR RIGHT
          FlashLo% = FlashLo% - 1                 'MOVE BOTTOM STAR LEFT
         
          IF FlashHi% = 25 THEN FlashHi% = 14     'RESET TOP STAR
          IF FlashLo% = 13 THEN FlashLo% = 24     'RESET BOTTOM STAR
         
          COLOR 14                                'SET COLOR: YELLOW
          LOCATE 5, FlashHi%: PRINT "-*"          'DRAW TOP STAR
          LOCATE 7, FlashLo%: PRINT "*-"          'DROP BOTTOM STAR
         
          Pause OneSecond& / 75                   'PAUSE BRIEF MOMENT
         
          COLOR 7                                 'SET COLOR: GREY
          LOCATE 5, FlashHi%: PRINT "--"          'REDRAW TOP FRAME
          LOCATE 7, FlashLo%: PRINT "--"          'REDRAW BOTTOM FRAME
     LOOP UNTIL INKEY$ = " "                      '---END LOOP UPON SPACE----
END SUB
Back to top
Dosser
Way too much free time
Way too much free time


Offline
Joined: 02 Jan 2005
Posts: 462
Location: BEHIND YOU

PostPosted: Tue Mar 29, 2005 6:41 pm     Post subject: Reply with quote

I haven't tried to run it yet, but I suspect there will be an error when loading the hiscore file. We do not have a copy of the file, and the game never tries to create one (as far as I can see), so when opening it for input there will be an error.

I recommend you do some error checking: if the file cannot be found, open it for output and put some default values into the file, then open it again.
Back to top
j2krei08
Newbie
Newbie


Offline
Joined: 29 Mar 2005
Posts: 1
Location: Buffalo, MN

PostPosted: Thu Mar 31, 2005 8:42 am     Post subject: Reply with quote

Oops, that's right. Just make a file named bowling.hsr and put:

0
Noah Baude

And, you must delete the comments at the DATA for it to work.
Back to top
Display posts from previous:   
Post new topic   Reply to topic    DOS Games Discussion Forum Index -> Game Creation All times are GMT - 5 Hours
Page 1 of 1

 
Free Windows games


Powered by phpBB © 2001, 2005 phpBB Group and Ask an Expert
Also powered by Darren and the other admin and mods' hard work! ;)