Why is this returning to the menu?

[Jaze]

Still working on BreakThru. Added some Bonus drops from a destroyed brick. I'm trying to set it up so that when "B" is dropped a second ball appears on the board. It works fine in debug mode. When debugging is off the game exits to the main menu if a ball goes below the paddle. If there are 2 balls running and 1 goes off the screen the other should stay active. Also, if there are 2 balls active and another bonus "B" is caught the game returns to the main menu instead of simply ignoring it. The thing is, even with an error in my code there is no reason why the DO - LOOP in the Main SUB should be exited until the numberOfGuys = 0. Can anyone tell me why the game is returning to the main menu?

Code: QB64: [Select]

1. WIDTH 80, 50
2. RANDOMIZE TIMER
3. TYPE coordinate
4.     x AS INTEGER
5.     y AS INTEGER
6. END TYPE
7.  
8. TYPE droppingLetter
9.     x AS INTEGER
10.     y AS SINGLE
11.     letter AS INTEGER
12. END TYPE
13.  
14. _FULLSCREEN
15.  
16. ON ERROR GOTO crap
17. GOTO beginning
18. crap:
19. PRINT "Error, error line"
20. PRINT ERR, _ERRORLINE
21.  
22. beginning:
23. CONST TRUE = 1
24. CONST FALSE = 0
25. CONST leftDirection = 19200 '   to make the code more readable with the left and right arrowkeys
26. CONST rightDirection = 19712 '
27. CONST upAndLeft = 1 'the ball always moves in one diagonal direction
28. CONST upAndRight = 2
29. CONST downAndLeft = 3
30. CONST downAndRight = 4
31. CONST theBackground = 0 '           to determine what the ball hit
32. CONST theBrick = 1
33. CONST theWall = 2
34. CONST thePaddle = 3
35. CONST theBall = 4
36. CONST theBonus = 5
37. CONST hitWallSound$ = "O2L30G"
38. CONST hitPaddleSound$ = "O3L30C"
39. CONST hitBrickSound$ = "O3L30G"
40. CONST deathSound$ = "O4L15CO3CO2CO1L10C"
41. CONST successBeep = "L9O2DL15DL9DL4F"
42. CONST letterE = 69 'to lengthen / expand the paddle
43. CONST letterS = 83 'to shrink the paddle
44. CONST letterPlus = 43 ' score increase
45. CONST letterMinus = 45 ' score decrease
46. CONST letterStar = 42 'score multiplier
47. CONST letterB = 66 ' add second ball
48.  
49. 'I share everything so I don't have to worry whether or not I was supposed to pass something. Plus it removes the need to pass the same variable multiple times
50. DIM SHARED creationBoard(2 TO 79, 2 TO 46) AS INTEGER 'the colors on the board when creating a level
51. FOR initializeArrayX = 2 TO 79
52.     FOR initializeArrayY = 2 TO 46
53.         creationBoard(initializeArrayX, initializeArrayY) = 1 'set the board to the background color
54. NEXT: NEXT
55. DIM SHARED brick AS coordinate: brick.x = 2: brick.y = 2 'start the creation board at 2, 2
56. DIM SHARED ball(1 TO 2) AS coordinate 'to track where the ball is on the board
57. DIM SHARED ballDirection AS INTEGER 'track the ball's direction using the directional constants above
58. DIM SHARED ball2Direction AS INTEGER
59. DIM SHARED paddleLeft AS SINGLE ' the leftmost character of the paddle
60. DIM SHARED board(1 TO 80, 1 TO 48, 1 TO 2) AS INTEGER 'the board for the game
61. DIM SHARED numberOfBricks AS INTEGER 'the number of bricks currently on the board
62. DIM SHARED currentLevel AS INTEGER: currentLevel = 1 'start at level 1
63. DIM SHARED numberOfGuys AS INTEGER: numberOfGuys = 5
64. DIM SHARED score AS INTEGER: scorte = 0
65. DIM SHARED manDied AS INTEGER: manDied = FALSE
66. DIM SHARED spaceToStart: spaceToStart = FALSE 'whether or not the spacebar was pushed to begin the level
67. DIM SHARED debugMode AS INTEGER: debugMode = FALSE 'to bounce the ball off the bottom or to decrement numberOfGuys
68. DIM SHARED penUp, currentColor, eraserOn AS INTEGER: penUp = TRUE: currentColor = 0: eraserOn = FALSE
69. DIM SHARED mute AS INTEGER: mute = -1 ' -1 mute is off (sound on)
70. DIM SHARED lastLevelCreated AS INTEGER: lastLevelCreated = 0
71. DIM SHARED changeBallSomewhat AS INTEGER: changeBallSomewhat = 0 'used to move the ball a little bit to avoid never hitting all of the bricks
72. DIM SHARED changeBall2Somewhat AS INTEGER: changeBall2Somewhat = 0
73. DIM levelChecking AS INTEGER: levelChecking = 0 'used in the following loop to check what is the highest level
74. DIM SHARED activeLetter AS droppingLetter: activeLetter.x = 0: activeLetter.y = 0: activeLetter.letter = 0
75. DO
76.     levelChecking = levelChecking + 1
77. LOOP UNTIL _FILEEXISTS("Level " + S$(levelChecking)) = 0
78. lastLevelCreated = levelChecking - 1
79. DIM SHARED paddleLength AS INTEGER: paddleLength = 8
80. DIM SHARED secondBall AS INTEGER
81.  
82. CALL Menu
83.  
84. SUB Menu
85.     printTheMenu = TRUE 'used to stop the menu from flickering
86.     DO
87.         IF printTheMenu = TRUE THEN
88.             COLOR 14, 1
89.             CLS
90.             LOCATE 20, 1
91.             PRINT CenterText$("Menu")
92.             PRINT CenterText$("------")
93.             PRINT
94.             PRINT CenterText$("1.) Instructions")
95.             PRINT
96.             PRINT CenterText$("2.) Create A Level")
97.             PRINT
98.             PRINT CenterText$("3.) Play The Game")
99.             PRINT
100.             PRINT CenterText$("4.) Exit")
101.             printTheMenu = FALSE
102.         END IF
103.         menuCommand$ = INKEY$
104.         SELECT CASE menuCommand$
105.             CASE "1"
106.                 CALL Instructions
107.                 printTheMenu = TRUE
108.             CASE "2"
109.                 CALL CreationMain
110.                 printTheMenu = TRUE
111.             CASE "3"
112.                 CALL Main
113.                 printTheMenu = TRUE
114.         END SELECT
115.     LOOP UNTIL menuCommand$ = "4"
116.     END
117. END SUB
118.  
119. SUB Instructions
120.     COLOR 10, 1
121.     CLS
122.     LOCATE 2
123.     PRINT CenterText$("Level Creator")
124.     PRINT CenterText$("---------------")
125.  
126.     PRINT CenterText$("The available commands are listed at the bottom of the screen.")
127.     PRINT CenterText$("When the pen is up, the cursor moves without adding to the level")
128.     PRINT CenterText$("being created. When the pen is down the current brick is added")
129.     PRINT CenterText$("to the level being created. The other commands are self explanatory.")
130.     COLOR 12, 1
131.     PRINT CenterText$("If no levels have been created, the default level is used.")
132.     PRINT CenterText$("If you progress beyond all levels created, the last level created repeats.")
133.     PRINT
134.     PRINT
135.     COLOR 14, 1
136.     PRINT CenterText$("Game")
137.     PRINT CenterText$("------")
138.  
139.     PRINT CenterText$("The object of the game is to progress to the next level by")
140.     PRINT CenterText$("destroying all of the bricks. To do this you must position the")
141.     PRINT
142.     COLOR 15, 1
143.     PRINT CenterText$(CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219))
144.     PRINT
145.     COLOR 14, 1
146.     PRINT CenterText$("under the ball so that it is reflected toward the bricks using")
147.     PRINT CenterText$("the left and right arrow keys.")
148.     LOCATE 24, 21
149.     PRINT "Push ";: COLOR 13, 1: PRINT "[SPACEBAR]";: COLOR 14, 1: PRINT " to set the ball in motion."
150.     PRINT: PRINT
151.     COLOR 13, 1:
152.     LOCATE , 5: PRINT "     Available Commands                         Bonus Drops": COLOR 14, 1: PRINT
153.     LOCATE , 5: PRINT "+ to increase the game speed               E = Expand paddle": PRINT
154.     LOCATE , 5: PRINT "- to decrease the game speed               S = Shrink paddle": PRINT
155.     LOCATE , 5: PRINT "P to pause the game                        + = Plus 15 points": PRINT
156.     LOCATE , 5: PRINT "M to toggle mute on and off                - = Minus 15 points": PRINT
157.     LOCATE , 2: PRINT "[ESC] to return to the main menu           * = Score multiplier (-1, 1.5 or 2)": PRINT
158.     LOCATE , 5: PRINT "                                           D = Change ball direction": PRINT
159.     LOCATE , 5: PRINT "                                           B = Activate 2nd ball"
160.     PRINT: PRINT
161.     PRINT CenterText$("Push C to turn on debug mode and O to turn it off.")
162.     LOCATE 48
163.     COLOR 15, 1
164.     PRINT CenterText$("Push any key to continue.")
165.     CALL P(FALSE)
166. END SUB
167.  
168. FUNCTION CenterText$ (thisString$)
169.     returnString$ = SPACE$(INT((80 - LEN(thisString$)) / 2)) + thisString$
170.     CenterText$ = returnString$
171. END FUNCTION
172.  
173. SUB PrintBrick (x, y, onOrOff)
174.     IF onOrOff = TRUE THEN
175.         useColor = board(x, y, 2) 'print the brick instead of erasing it, pick up the color there
176.     ELSEIF onOrOff = FALSE THEN
177.         useColor = 1
178.     END IF
179.     FOR across = 0 TO 5
180.         LOCATE y, x + across
181.         COLOR useColor
182.         PRINT CHR$(219)
183.         board(x + across, y, 1) = 219
184.         board(x + across, y, 2) = useColor
185.     NEXT across
186.     IF onOrOff = FALSE THEN 'brick is destroyed
187.         numberOfBricks = numberOfBricks - 1
188.         score = score + 5
189.         chanceOfLetter = INT(RND * 100) + 1
190.         IF chanceOfLetter <= 25 AND activeLetter.letter = 0 THEN ' 25% chance of bonus
191.             pickingLetter = INT(RND * 6) + 1 'choose which bonus to activate
192.             SELECT CASE pickingLetter
193.                 CASE 1
194.                     activeLetter.letter = letterE
195.                 CASE 2
196.                     activeLetter.letter = letterS
197.                 CASE 3
198.                     activeLetter.letter = letterPlus
199.                 CASE 4
200.                     activeLetter.letter = letterMinus
201.                 CASE 5
202.                     activeLetter.letter = letterStar
203.                 CASE 6
204.                     activeLetter.letter = letterB ' make 2 balls active
205.             END SELECT
206.             activeLetter.x = x + 3 'place the falling letter near the center of destroyed brick
207.             activeLetter.y = y + 1
208.             CALL PrintLetter(TRUE)
209.         END IF
210.         CALL PrintBoard
211.     END IF
212. END SUB
213.  
214. SUB PrintLetter (onOrOff)
215.     IF INT(activeLetter.y) < 47 THEN 'whether the bonus letter is done falling
216.         IF onOrOff = TRUE THEN 'display the bonus letter
217.             clr = 9
218.         ELSE
219.             clr = 1 'remove bonus letter from display
220.         END IF
221.         CALL PlaceChar(activeLetter.x, activeLetter.y, activeLetter.letter, clr) 'put the letter on the board
222.     ELSEIF activeLetter.y >= 47 THEN 'activate the letter or ignore it
223.         IF paddleLeft <= activeLetter.x AND activeLetter.x <= paddleLeft + paddleLength - 1 THEN 'letter was caught
224.             SELECT CASE activeLetter.letter 'which letter to activate
225.                 CASE letterE 'lengthen the paddle
226.                     IF paddleLength <= 10 THEN paddleLength = paddleLength + 2
227.                     CALL PrintPaddle(TRUE)
228.                 CASE letterS 'shrink the paddle
229.                     IF paddleLength >= 8 THEN
230.                         CALL PrintPaddle(FALSE)
231.                         paddleLength = paddleLength - 2
232.                         CALL PrintPaddle(TRUE)
233.                     ELSEIF paddleLength > 5 AND paddleLength <= 7 THEN
234.                         CALL PrintPaddle(FALSE)
235.                         paddleLength = paddleLength - 1
236.                         CALL PrintPaddle(TRUE)
237.                     END IF
238.                 CASE letterPlus 'increase score
239.                     score = score + 15
240.                 CASE letterMinus ' decrease score
241.                     score = score - 15
242.                 CASE letterStar 'multiply the score
243.                     DIM multiplier AS SINGLE
244.                     multiplier = INT(RND * 3) + 1
245.                     IF multiplier = 1 THEN
246.                         multiplier = -1
247.                     ELSEIF multiplier = 3 THEN
248.                         multiplier = 1.5
249.                     END IF
250.                     score = INT(score * multiplier)
251.                 CASE letterB 'initiate second ball
252.                     secondBall = TRUE
253.                     IF ball(1).x <> 0 AND ball(2).x <> 0 THEN
254.                         '2 balls running already, nothing to do
255.                     ELSEIF ball(2).x = 0 THEN 'activate ball(2)
256.                         ball(2).x = activeLetter.x 'start the second ball from the place where "B" was caught
257.                         ball(2).y = activeLetter.y
258.                         IF ballDirection = upAndLeft THEN 'ball(1) is moving diagonally up and right
259.                             ball2Direction = upAndRight ' send ball 2 in the opposite direction
260.                         ELSEIF ballDirection = upAndLeft THEN
261.                             ball2Direction = upAndRight
262.                         ELSEIF ballDirection = downAndLeft THEN
263.                             ball2Direction = upAndRight
264.                         ELSEIF ballDirection = downAndRight THEN
265.                             ball2Direction = upAndLeft
266.                         END IF ' ball(2) has been given a direction
267.                     ELSEIF ball(1).x = 0 THEN 'activate ball(1)
268.                         ball(1).x = activeLetter.x
269.                         ball(1).y = activeLetter.y
270.                         IF ball2Direction = upAndLeft THEN
271.                             ballDirection = upAndRight
272.                         ELSEIF ball2Direction = upAndRight THEN
273.                             ballDirection = upAndLeft
274.                         ELSEIF ball2Direction = downAndLeft THEN
275.                             ballDirection = upAndRight
276.                         ELSEIF ball2Direction = downAndRight THEN
277.                             ballDirection = upAndLeft
278.                         END IF 'ball(1) has been given a direction
279.                     END IF 'ball(1) and ball(2) are active
280.             END SELECT 'action has been done with selected bonus letter
281.         END IF ' the letter has finished being caught
282.         activeLetter.x = 0: activeLetter.y = 0: activeLetter.letter = 0 'the letter is no longer active
283.     END IF
284. END SUB
285.  
286. SUB PrintLevel
287.     FOR x = 1 TO 80: FOR y = 1 TO 48 'make the board blue
288.             board(x, y, 1) = 219 '    ASCII code of board space
289.             board(x, y, 2) = 1 '      color of board space
290.     NEXT y: NEXT x
291.     COLOR 1, 1: CLS
292.     'print left, right and top borders
293.     FOR y = 1 TO 48
294.         LOCATE y, 1: COLOR 12, 1: PRINT CHR$(219) 'print the left border to the screen
295.         LOCATE y, 80: COLOR 12, 1: PRINT CHR$(219) 'print the right border to the screen
296.         CALL PlaceChar(1, y, 219, 12) ' put the position, ASCII code and color on the board to make the left border
297.         CALL PlaceChar(80, y, 219, 12) ' same to make the left border on the board
298.     NEXT y
299.     FOR x = 1 TO 80
300.         LOCATE 1, x: COLOR 12, 1: PRINT CHR$(219) 'print the top border to the screen
301.         CALL PlaceChar(x, 1, 219, 12) ' put the top border on the board
302.     NEXT x
303.     paddleLeft = INT(RND * (72 - 2 + 1)) + 2
304.     paddleLength = 8
305.     CALL PrintPaddle(TRUE) ' put the paddle on the board with the left at x coordinate 36
306.     ball(1).x = paddleLeft + 4: ball(1).y = 47 ' position the ball/moving ball
307.     CALL PrintBall(TRUE) ' put the ball on the board
308.     ballDirection = INT(RND * 2) + 1 'randomize the starting direction of the ball as up and left or up and right
309.  
310.     IF lastLevelCreated <> 0 THEN
311.         filename$ = "Level " + S$(currentLevel)
312.         IF _FILEEXISTS(filename$) = 0 THEN filename$ = "Level " + S$(lastLevelCreated)
313.         OPEN filename$ FOR INPUT AS #1 'open the file with the level information
314.         FOR xCounting = 2 TO 79 ' x coordinate of the board
315.             FOR yCounting = 2 TO 46 ' y coordinate of the board
316.                 INPUT #1, boardColor$ ' get the color of the board at xCounting, yCounting
317.                 board(xCounting, yCounting, 2) = VAL(boardColor$) 'color the board at xCounting, yCounting
318.         NEXT: NEXT
319.         '        LOCATE 20, 20: COLOR 15, 0: PRINT "Filename: " + filename$: CALL P
320.         CLOSE #1
321.     ELSE ' if no levels were created
322.         FOR x = 2 TO 79
323.             CALL PlaceChar(x, 2, 219, 14) 'put a yellow (14) block (219) at x, y on the board
324.             CALL PlaceChar(x, 4, 219, 14)
325.             CALL PlaceChar(x, 6, 219, 14)
326.         NEXT x
327.         lastLevelCreated = 1
328.     END IF
329.     numberOfBricks = 0 ' after a level has been put on the board, count the number of bricks on it
330.     '    CALL PrintBoard 'debugging why the numberOfBricks is sometimes wrong
331.     '    LOCATE 15, 2
332.     '    COLOR 15, 0
333.     '    PRINT "2345678901234567890123456789012345678901234567890123456789012345678901234567890"
334.     '    LOCATE 14, 2
335.     '    PRINT "        1         2         3         4         5         6         7         8"
336.     '    COLOR 10, 0
337.     '    FOR thirteen = 2 TO 13
338.     '    LOCATE thirteen, 1
339.     '    PRINT S$(thirteen)
340.     '    NEXT
341.     FOR brickCountingY = 2 TO 46 'with this set to 47 the ball was being counted as a brick sometimes
342.         FOR brickCountingX = 2 TO 79 STEP 6 'each brick is 6 blocks long
343.             IF board(brickCountingX, brickCountingY, 2) <> 1 THEN
344.                 numberOfBricks = numberOfBricks + 1
345.                 '                LOCATE 46, 1
346.                 '                COLOR 15, 0
347.                 '                PRINT "board(" + S$(brickCountingX) + ", " + S$(brickCountingY) + ", 2): " + S$(board(brickCountingX, brickCountingY, 2))
348.                 '                PRINT "numberOfBricks = " + S$(numberOfBricks)
349.                 '                CALL P(TRUE)
350.             END IF
351.     NEXT: NEXT
352.  
353.     CALL PrintBoard 'print the board to the screen
354.     spaceToStart = FALSE 'spacebar has yet to be puched to start the current level
355. END SUB
356.  
357. SUB Main
358.     CALL PrintLevel 'put the current level on the board and print it out
359.     printOutBoard = FALSE ' to avoid flicker of the board being constantly printed, the need to print it is false
360.     delaySpeed = 0.029 'delay to use inside the main DO-LOOP
361.     secondBall = FALSE
362.     DO
363.         '        LOCATE 48, 1: PRINT "Level " + S$(currentLevel)
364.         debugging$ = INKEY$ 'using strings instead of _KEYDOWN(code) is easier. i initially added INKEY$ for debugging
365.         IF spaceToStart = TRUE THEN ' the spacebar has been hit to start the game
366.             IF secondBall = FALSE THEN 'there is only one ball active
367.                 IF ball(1).x <> 0 THEN 'find out if ball(1) is active
368.                     CALL PrintBall(FALSE) 'remove the ball from the board
369.                     CALL MoveBall 'move the ball in the current direction
370.                     CALL PrintBall(TRUE) 'put the ball on the board at the new position
371.                 ELSEIF ball(2).x <> 0 THEN 'find out if ball(2) is active
372.                     CALL PrintBall2(FALSE)
373.                     CALL MoveBall2
374.                     CALL PrintBall2(TRUE)
375.                 ELSE
376.                     LOCATE 45, 1
377.                     COLOR 15, 0
378.                     PRINT "Where is the error causing a return to the menu?"
379.                     CALL P(TRUE)
380.                 END IF
381.             ELSEIF secondBall = TRUE THEN 'there are 2 active balls
382.                 CALL PrintBall(FALSE) 'remove ball(1) from the display
383.                 CALL PrintBall2(FALSE) ' remove ball(2) from display
384.                 CALL MoveBall ' move ball(1)
385.                 CALL MoveBall2 'move ball(2)
386.                 CALL PrintBall(TRUE) 'redisplay ball(1)
387.                 CALL PrintBall2(TRUE) ' redisplay ball(2)
388.             ELSE
389.                 LOCATE 45, 1
390.                 COLOR 15, 0
391.                 PRINT "Where is the error causing an exit from this DO?"
392.                 CALL P(TRUE)
393.             END IF
394.             IF _KEYDOWN(leftDirection) = -1 THEN 'the left arrow key had been pushed
395.                 CALL PrintPaddle(FALSE) ' remove the paddle from the board
396.                 paddleLeft = paddleLeft - 1.5 ' move the paddle leftward
397.                 CALL PrintPaddle(TRUE) ' put the paddle on the board at the new position
398.                 printOutBoard = TRUE 'it is now needed to print the board to the screen
399.             ELSEIF _KEYDOWN(rightDirection) = -1 THEN
400.                 CALL PrintPaddle(FALSE)
401.                 paddleLeft = paddleLeft + 1.5
402.                 CALL PrintPaddle(TRUE)
403.                 printOutBoard = TRUE
404.             END IF
405.             IF printOutBoard = TRUE THEN 'print the board to the screen
406.                 CALL PrintBoard ' print the board to the screen
407.                 printOutBoard = FALSE 'stop the board from being printed now
408.             END IF
409.             IF numberOfBricks = 0 THEN 'there are no bricks left on the board
410.                 currentLevel = currentLevel + 1 'increment the current level
411.                 activeLetter.letter = 0: activeLetter.x = 0: activeLetter.y = 0
412.                 CALL PrintLevel 'put the newest level on the board
413.                 spaceToStart = FALSE 'the spacebar has not been pressed since the new level has been output
414.                 score = score + 200 '200 points for finishing a level
415.                 IF mute = -1 THEN PLAY successBeep '1 is mute, -1 is note muted
416.             END IF
417.             IF activeLetter.letter <> 0 THEN
418.                 CALL PrintLetter(FALSE)
419.                 activeLetter.y = activeLetter.y + 0.5
420.                 CALL PrintLetter(TRUE)
421.                 printOutBoard = TRUE
422.             END IF
423.         END IF
424.         IF debugging$ = "C" THEN debugMode = TRUE
425.         IF debugging$ = "O" THEN debugMode = FALSE
426.         IF _KEYDOWN(32) = -1 THEN ' the spacebar has been pushed
427.             spaceToStart = TRUE ' the spacebar has been pushed
428.             printOutBoard = TRUE ' it is needed to print the board to the screen
429.         END IF
430.         _DELAY (delaySpeed) ' insert a delay to make the movement playable and visible
431.         IF numberOfGuys = 0 THEN CALL EndOfGame
432.         IF score MOD 750 = 0 AND score <> 0 THEN numberOfGuys = numberOfGuys + 1 ' new guy every 2,000 points
433.         IF debugging$ = "+" THEN 'increase the game speed
434.             delaySpeed = delaySpeed - 0.01
435.             IF delaySpeed < 0 THEN delaySpeed = 0 'don't allow a negative delay
436.         END IF
437.         IF debugging$ = "-" THEN delaySpeed = delaySpeed + 0.005 'decrease the game speed
438.         IF debugging$ = "m" OR debugging$ = "M" THEN mute = mute * -1 'turn mute on or off
439.         IF debugging$ = "p" OR debugging$ = "P" THEN pause$ = INPUT$(1) 'pause the game
440.         IF debugging$ = CHR$(27) THEN EXIT DO 'end the game and return to the main menu
441.     LOOP
442. END SUB
443.  
444. SUB EndOfGame
445. END SUB
446.  
447. SUB MoveBall
448.     changeBallSomewhat = changeBallSomewhat + 1 'keep track of the number of times the ball has moved to occasionally nudge it
449.     SELECT CASE ballDirection
450.         CASE upAndRight
451.             CALL MoveUpAndRight
452.         CASE upAndLeft
453.             CALL MoveUpAndLeft
454.         CASE downAndRight
455.             CALL MoveDownAndRight
456.         CASE downAndLeft
457.             CALL MoveDownAndLeft
458.     END SELECT
459. END SUB
460.  
461. SUB MoveBall2
462.     changeBall2Somewhat = changeBall2Somewhat + 1 'keep track of the number of times the ball has moved to occasionally nudge it
463.     SELECT CASE ball2Direction
464.         CASE upAndRight
465.             CALL Move2UpAndRight
466.         CASE upAndLeft
467.             CALL Move2UpAndLeft
468.         CASE downAndRight
469.             CALL Move2DownAndRight
470.         CASE downAndLeft
471.             CALL Move2DownAndLeft
472.     END SELECT
473. END SUB
474.  
475. FUNCTION Report (x, y) 'determine what element is at specified x, y location
476.     'if color  12 then border, 1 then background, 15 then paddle, 11 ball, 9 bonus, else brick
477.     rtn = -1 'initialize what should be returned
478.     IF board(x, y, 2) = 12 THEN
479.         rtn = theWall
480.     ELSEIF board(x, y, 2) = 1 THEN
481.         rtn = theBackground
482.     ELSEIF board(x, y, 2) = 15 THEN
483.         rtn = thePaddle
484.     ELSEIF board(x, y, 2) = 11 THEN
485.         rtn = theBall
486.     ELSEIF board(x, y, 2) = 9 THEN
487.         rtn = theBonus
488.     ELSE
489.         rtn = theBrick
490.     END IF
491.     Report = rtn
492. END FUNCTION
493.  
494. SUB MoveUpAndRight
495.     SELECT CASE Report(ball(1).x + 1, ball(1).y - 1) 'report one away from where the ball currently is
496.         CASE theBackground, theBall ' move it even if both balls are in the same place
497.             ball(1).x = ball(1).x + 1
498.             ball(1).y = ball(1).y - 1
499.             IF changeBallSomewhat MOD 100 = 0 AND ball(1).x + 1 < 80 THEN ball(1).x = ball(1).x + 1
500.         CASE theWall
501.             IF mute = -1 THEN PLAY hitWallSound
502.             IF ball(1).x + 1 = 80 THEN
503.                 'hit the right wall
504.                 ballDirection = upAndLeft
505.             ELSEIF ball(1).y - 1 = 1 THEN
506.                 'hit top wall
507.                 ballDirection = downAndRight
508.             END IF
509.         CASE theBrick
510.             IF mute = -1 THEN PLAY hitBrickSound
511.             leftSideOfBrick = FindBrickLeft(ball(1).x + 1)
512.             vertOfBrick = FindBrickVertical(ball(1).y - 1)
513.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
514.             ballDirection = downAndRight
515.     END SELECT
516. END SUB
517.  
518. SUB Move2UpAndRight
519.     SELECT CASE Report(ball(2).x + 1, ball(2).y - 1) 'report one away from where the ball currently is
520.         CASE theBackground, theBall ' move it even if both balls are in the same place
521.             ball(2).x = ball(2).x + 1
522.             ball(2).y = ball(2).y - 1
523.             IF changeBall2Somewhat MOD 100 = 0 AND ball(2).x + 1 < 80 THEN ball(2).x = ball(2).x + 1
524.         CASE theWall
525.             IF mute = -1 THEN PLAY hitWallSound
526.             IF ball(2).x + 1 = 80 THEN
527.                 'hit the right wall
528.                 ball2Direction = upAndLeft
529.             ELSEIF ball(2).y - 1 = 1 THEN
530.                 'hit top wall
531.                 ball2Direction = downAndRight
532.             END IF
533.         CASE theBrick
534.             IF mute = -1 THEN PLAY hitBrickSound
535.             leftSideOfBrick = FindBrickLeft(ball(2).x + 1)
536.             vertOfBrick = FindBrickVertical(ball(2).y - 1)
537.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
538.             ball2Direction = downAndRight
539.     END SELECT
540. END SUB
541.  
542. SUB MoveUpAndLeft
543.     SELECT CASE Report(ball(1).x - 1, ball(1).y - 1)
544.         CASE theBackground, theBall
545.             ball(1).x = ball(1).x - 1
546.             ball(1).y = ball(1).y - 1
547.             IF changeBallSomewhat MOD 100 = 0 AND ball(1).x - 1 > 1 THEN ball(1).x = ball(1).x - 1
548.         CASE theWall
549.             IF mute = -1 THEN PLAY hitWallSound
550.             IF ball(1).x - 1 = 1 THEN
551.                 ballDirection = upAndRight
552.             ELSEIF ball(1).y - 1 = 1 THEN 'hit the top
553.                 ballDirection = downAndLeft
554.             END IF
555.         CASE theBrick
556.             IF mute = -1 THEN PLAY hitBrickSound
557.             leftSideOfBrick = FindBrickLeft(ball(1).x - 1)
558.             vertOfBrick = FindBrickVertical(ball(1).y - 1)
559.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
560.             ballDirection = downAndLeft
561.     END SELECT
562. END SUB
563.  
564. SUB Move2UpAndLeft
565.     SELECT CASE Report(ball(2).x - 1, ball(2).y - 1)
566.         CASE theBackground, theBall
567.             ball(2).x = ball(2).x - 1
568.             ball(2).y = ball(2).y - 1
569.             IF changeBall2Somewhat MOD 100 = 0 AND ball(2).x - 1 > 1 THEN ball(2).x = ball(2).x - 1
570.         CASE theWall
571.             IF mute = -1 THEN PLAY hitWallSound
572.             IF ball(2).x - 1 = 1 THEN
573.                 ball2Direction = upAndRight
574.             ELSEIF ball(2).y - 1 = 1 THEN 'hit the top
575.                 ball2Direction = downAndLeft
576.             END IF
577.         CASE theBrick
578.             IF mute = -1 THEN PLAY hitBrickSound
579.             leftSideOfBrick = FindBrickLeft(ball(1).x - 1)
580.             vertOfBrick = FindBrickVertical(ball(1).y - 1)
581.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
582.             ball2Direction = downAndLeft
583.     END SELECT
584. END SUB
585.  
586. SUB MoveDownAndRight
587.     SELECT CASE Report(ball(1).x + 1, ball(1).y + 1)
588.         CASE theBackground, theBall
589.             IF ball(1).y + 1 = 48 THEN
590.                 IF debugMode = FALSE THEN
591.                     IF secondBall = FALSE THEN
592.                         manDied = TRUE
593.                         score = score - 50
594.                         spaceToStart = FALSE
595.                         CALL PrintPaddle(FALSE)
596.                         paddleLength = 8
597.                         paddleLeft = INT(RND * (72 - 2 + 1)) + 2
598.                         CALL PrintBall(FALSE)
599.                         ball(1).x = paddleLeft + 4: ball(1).y = 47
600.                         CALL PrintBall(TRUE)
601.                         CALL PrintPaddle(TRUE)
602.                         ballDirection = INT(RND * 2) + 1
603.                         IF mute = -1 THEN PLAY deathSound
604.                         numberOfGuys = numberOfGuys - 1
605.                         CALL PrintBoard
606.                     ELSE 'second ball is true but just fell below the board
607.                         secondBall = FALSE
608.                         ball(1).x = 0
609.                         ball(1).y = 0
610.                     END IF
611.                 ELSE 'debug mode is on (true)
612.                     IF mute = -1 THEN PLAY hitWallSound
613.                     ballDirection = upAndRight
614.                     ball(1).x = ball(1).x + 1
615.                     ball(1).y = ball(1).y - 1
616.                     IF changeBallSomewhat MOD 100 = 0 AND ball(1).x + 1 < 80 THEN ball(1).x = ball(1).x + 1
617.                 END IF
618.             ELSE
619.                 ball(1).x = ball(1).x + 1
620.                 ball(1).y = ball(1).y + 1
621.             END IF
622.         CASE theWall
623.             IF mute = -1 THEN PLAY hitWallSound
624.             IF ball(1).x + 1 = 80 THEN ballDirection = downAndLeft
625.         CASE theBrick
626.             IF mute = -1 THEN PLAY hitBrickSound
627.             leftSideOfBrick = FindBrickLeft(ball(1).x + 1)
628.             vertOfBrick = FindBrickVertical(ball(1).y + 1)
629.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
630.             ballDirection = upAndRight
631.         CASE thePaddle
632.             IF mute = -1 THEN PLAY hitPaddleSound
633.             ballDirection = upAndRight
634.     END SELECT
635. END SUB
636.  
637. SUB Move2DownAndRight
638.     SELECT CASE Report(ball(2).x + 1, ball(2).y + 1)
639.         CASE theBackground, theBall
640.             IF ball(2).y + 1 = 48 THEN
641.                 IF debugMode = FALSE THEN
642.                     IF secondBall = FALSE THEN
643.                         manDied = TRUE
644.                         score = score - 50
645.                         spaceToStart = FALSE
646.                         CALL PrintPaddle(FALSE)
647.                         paddleLength = 8
648.                         paddleLeft = INT(RND * (72 - 2 + 1)) + 2
649.                         CALL PrintBall2(FALSE)
650.                         ball(1).x = paddleLeft + 4: ball(1).y = 47
651.                         ball(2).x = 0: ball(2).y = 0
652.                         CALL PrintBall(TRUE)
653.                         CALL PrintPaddle(TRUE)
654.                         ballDirection = INT(RND * 2) + 1
655.                         IF mute = -1 THEN PLAY deathSound
656.                         numberOfGuys = numberOfGuys - 1
657.                         CALL PrintBoard
658.                     ELSE 'second ball is ... was true
659.                         CALL PrintBall2(FALSE)
660.                         secondBall = FALSE
661.                         ball(2).x = 0
662.                         ball(2).y = 0
663.                     END IF
664.                 ELSE 'debug mode = true
665.                     IF mute = -1 THEN PLAY hitWallSound
666.                     ball2Direction = upAndRight
667.                     ball(2).x = ball(2).x + 1
668.                     ball(2).y = ball(2).y - 1
669.                     IF changeBall2Somewhat MOD 100 = 0 AND ball(2).x + 1 < 80 THEN ball(2).x = ball(2).x + 1
670.                 END IF
671.             ELSE
672.                 ball(2).x = ball(2).x + 1
673.                 ball(2).y = ball(2).y + 1
674.             END IF
675.         CASE theWall
676.             IF mute = -1 THEN PLAY hitWallSound
677.             IF ball(2).x + 1 = 80 THEN ball2Direction = downAndLeft
678.         CASE theBrick
679.             IF mute = -1 THEN PLAY hitBrickSound
680.             leftSideOfBrick = FindBrickLeft(ball(2).x + 1)
681.             vertOfBrick = FindBrickVertical(ball(2).y + 1)
682.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
683.             ball2Direction = upAndRight
684.         CASE thePaddle
685.             IF mute = -1 THEN PLAY hitPaddleSound
686.             ball2Direction = upAndRight
687.     END SELECT
688. END SUB
689.  
690. SUB MoveDownAndLeft
691.     SELECT CASE Report(ball(1).x - 1, ball(1).y + 1)
692.         CASE theBackground
693.             IF ball(1).y + 1 = 48 THEN
694.                 IF debugMode = FALSE THEN
695.                     IF secondBall = FALSE THEN
696.                         manDied = TRUE
697.                         score = score - 50
698.                         spaceToStart = FALSE
699.                         CALL PrintPaddle(FALSE)
700.                         CALL PrintBall(FALSE)
701.                         paddleLeft = INT(RND * (72 - 2% + 1)) + 2
702.                         paddleLength = 8
703.                         ball(1).x = paddleLeft + 4: ball(1).y = 47
704.                         CALL PrintBall(TRUE)
705.                         CALL PrintPaddle(TRUE)
706.                         ballDirection = INT(RND * 2) + 1
707.                         IF mute = -1 THEN PLAY deathSound
708.                         numberOfGuys = numberOfGuys - 1
709.                         CALL PrintBoard
710.                     ELSE 'second ball was true
711.                         secondBall = FALSE
712.                         ball(1).x = 0
713.                         ball(1).y = 0
714.                     END IF
715.                 ELSE
716.                     IF mute = -1 THEN PLAY hitWallSound
717.                     ballDirection = upAndLeft
718.                     ball(1).x = ball(1).x - 1
719.                     ball(1).y = ball(1).y - 1
720.                     IF changeBallSomewhat MOD 100 = 0 AND ball(1).x - 1 > 1 THEN ball(1).x = ball(1).x + 1
721.                 END IF
722.             ELSE
723.                 ball(1).x = ball(1).x - 1
724.                 ball(1).y = ball(1).y + 1
725.             END IF
726.         CASE theWall
727.             IF mute = -1 THEN PLAY hitWallSound
728.             IF ball(1).x - 1 = 1 THEN ballDirection = downAndRight
729.         CASE theBrick
730.             IF mute = -1 THEN PLAY hitBrickSound
731.             leftSideOfBrick = FindBrickLeft(ball(1).x - 1)
732.             vertOfBrick = FindBrickVertical(ball(1).y + 1)
733.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
734.             ballDirection = upAndLeft
735.         CASE thePaddle
736.             IF mute = -1 THEN PLAY hitPaddleSound
737.             ballDirection = upAndLeft
738.         CASE theBall
739.             LOCATE 20, 20
740.             COLOR 15, 0
741.             PRINT "Error in moving the ball in specified direction": CALL P(TRUE)
742.     END SELECT
743. END SUB
744.  
745. SUB Move2DownAndLeft
746.     SELECT CASE Report(ball(2).x - 1, ball(2).y + 1)
747.         CASE theBackground, theBall
748.             IF ball(2).y + 1 = 48 THEN
749.                 IF debugMode = FALSE THEN
750.                     IF secondBall = FALSE THEN
751.                         manDied = TRUE
752.                         score = score - 50
753.                         spaceToStart = FALSE
754.                         CALL PrintPaddle(FALSE)
755.                         paddleLength = 8
756.                         paddleLeft = INT(RND * (72 - 2 + 1)) + 2
757.                         CALL PrintBall2(FALSE)
758.                         ball(1).x = paddleLeft + 4: ball(1).y = 47
759.                         ball(2).x = 0: ball(2).y = 0
760.                         CALL PrintBall(TRUE)
761.                         CALL PrintPaddle(TRUE)
762.                         ballDirection = INT(RND * 2) + 1
763.                         IF mute = -1 THEN PLAY deathSound
764.                         numberOfGuys = numberOfGuys - 1
765.                         CALL PrintBoard
766.                     ELSE 'second ball is ... was true
767.                         CALL PrintBall2(FALSE)
768.                         secondBall = FALSE
769.                         ball(2).x = 0
770.                         ball(2).y = 0
771.                     END IF
772.                 ELSE 'debug mode = true
773.                     IF mute = -1 THEN PLAY hitWallSound
774.                     ball2Direction = upAndLeft
775.                     ball(2).x = ball(2).x - 1
776.                     ball(2).y = ball(2).y - 1
777.                     IF changeBall2Somewhat MOD 100 = 0 AND ball(2).x + 1 < 80 THEN ball(2).x = ball(2).x + 1
778.                 END IF
779.             ELSE
780.                 ball(2).x = ball(2).x - 1
781.                 ball(2).y = ball(2).y + 1
782.             END IF
783.         CASE theWall
784.             IF mute = -1 THEN PLAY hitWallSound
785.             IF ball(2).x - 1 = 1 THEN ball2Direction = downAndRight
786.         CASE theBrick
787.             IF mute = -1 THEN PLAY hitBrickSound
788.             leftSideOfBrick = FindBrickLeft(ball(2).x - 1)
789.             vertOfBrick = FindBrickVertical(ball(2).y + 1)
790.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
791.             ball2Direction = upAndLeft
792.         CASE thePaddle
793.             IF mute = -1 THEN PLAY hitPaddleSound
794.             ball2Direction = upAndLeft
795.     END SELECT
796. END SUB
797.  
798. FUNCTION FindBrickLeft (x) 'this returns the x coordinate of the brick that was hit
799.     rtn = 0
800.     FOR cnt = 2 TO 79 STEP 6
801.         IF cnt <= x AND x <= cnt + 5 THEN rtn = cnt
802.     NEXT cnt
803.     FindBrickLeft = rtn
804. END FUNCTION
805.  
806. FUNCTION FindBrickVertical (y)
807.     rtn = 0
808.     FOR cnt = 2 TO 47
809.         IF cnt = y THEN rtn = cnt
810.     NEXT
811.     FindBrickVertical = rtn
812. END FUNCTION
813.  
814. SUB PrintBall (onOrOff) 'put the ball on the board or remove it from the board to effect position change
815.     IF onOrOff = TRUE THEN
816.         useColor = 11
817.     ELSEIF onOrOff = FALSE THEN
818.         useColor = 1
819.     END IF
820.     COLOR useColor, 1: LOCATE ball(1).y, ball(1).x: PRINT CHR$(254)
821.     CALL PlaceChar(ball(1).x, ball(1).y, 254, useColor)
822. END SUB
823.  
824. SUB PrintBall2 (onOrOff)
825.     IF onOrOff = TRUE THEN
826.         useColor = 11
827.     ELSEIF onOrOff = FALSE THEN
828.         useColor = 1
829.     END IF
830.     COLOR useColor, 1: LOCATE ball(2).y, ball(2).x: PRINT CHR$(254)
831.     CALL PlaceChar(ball(2).x, ball(2).y, 254, useColor)
832. END SUB
833.  
834. SUB PrintPaddle (onOrOff)
835.     IF onOrOff = TRUE THEN
836.         theColor = 15
837.     ELSEIF onOrOf = FALSE THEN
838.         theColor = 1
839.     END IF
840.     IF paddleLeft < 2 THEN paddleLeft = 2
841.     IF paddleLeft > 80 - paddleLength THEN paddleLeft = 80 - paddleLength
842.     FOR across = 0 TO paddleLength - 1
843.         LOCATE 48, INT(paddleLeft) + across: COLOR theColor: PRINT CHR$(219)
844.         CALL PlaceChar(INT(paddleLeft) + across, 48, 219, theColor)
845.     NEXT across
846. END SUB
847.  
848. SUB PlaceChar (X, Y, char, clr) 'put the character ASCII with specified color on the board
849.     board(X, Y, 1) = char 'character
850.     board(X, Y, 2) = clr ' color
851. END SUB
852.  
853. SUB PrintBoard 'print the current board configurationg to the screen and update the current stats displayed
854.     FOR y = 2 TO 48: FOR x = 2 TO 79
855.             this$ = CHR$(board(x, y, 1))
856.             theColor = board(x, y, 2)
857.             COLOR theColor, 1
858.             LOCATE y, x
859.             PRINT this$
860.             IF BrickIsThere(x, y) = TRUE THEN
861.                 xCo = FindBrickLeft(x)
862.                 yCo = FindBrickVertical(y)
863.                 CALL PrintBrick(xCo, yCo, TRUE)
864.             END IF
865.     NEXT x: NEXT y
866.     LOCATE 1, 2: COLOR 10, 12
867.     PRINT "  Level " + S$(currentLevel) + "       ";
868.     PRINT "Men: " + S$(numberOfGuys) + "       ";
869.     PRINT "Bricks remaining: " + S$(numberOfBricks) + "       ";
870.     PRINT "Score: " + S$(score) + "    "
871. END SUB
872.  
873. FUNCTION BrickIsThere (xCoord, yCoord)
874.     x = xCoord: y = yCoord
875.     rtn = FALSE
876.     IF board(x, y, 2) <> 11 AND board(x, y, 2) <> 15 AND board(x, y, 2) <> 12 AND board(x, y, 2) <> 9 AND board(x, y, 2) <> 1 THEN rtn = TRUE
877.     BrickIsThere = rtn
878. END FUNCTION
879.  
880. SUB CreationMain 'main subroutine for the level creation feature
881.     penUp = TRUE
882.     eraserOn = FALSE
883.     currentColor = 0
884.     brick.x = 2
885.     brick.y = 2
886.     FOR countX = 2 TO 79
887.         FOR countY = 2 TO 46
888.             creationBoard(countX, countY) = 1
889.     NEXT: NEXT
890.     CALL PrintBackdrop
891.     CALL PrintCreationBoard
892.     CALL PrintCreationBrick
893.     printOutCurrentBoard = FALSE
894.     DO
895.         whichCommand$ = INKEY$
896.         SELECT CASE whichCommand$
897.             CASE "P", "p"
898.                 IF penUp = TRUE THEN
899.                     penUp = FALSE
900.                     CALL PutBrickOnBoard
901.                 ELSEIF penUp = FALSE AND eraserOn = FALSE THEN
902.                     penUp = TRUE
903.                 END IF
904.                 CALL PrintBackdrop
905.                 printOutCurrentBoard = TRUE
906.             CASE "E", "e"
907.                 IF eraserOn = FALSE THEN
908.                     eraserOn = TRUE
909.                     currentColor = 1
910.                     penUp = FALSE
911.                     CALL PutBrickOnBoard
912.                 ELSEIF eraserOn = TRUE THEN
913.                     eraserOn = FALSE
914.                     currentColor = 0
915.                     penUp = TRUE
916.                 END IF
917.                 printOutCurrentBoard = TRUE
918.             CASE "C", "c" 'game uses 12, 15, 11, 1 and 9, 17
919.                 IF currentColor = 0 THEN
920.                     currentColor = 2
921.                 ELSEIF currentColor = 8 THEN
922.                     currentColor = 10
923.                 ELSEIF currentColor = 10 THEN
924.                     currentColor = 13
925.                 ELSEIF currentColor = 14 THEN
926.                     currentColor = 16
927.                 ELSEIF currentColor = 16 THEN
928.                     currentColor = 18
929.                 ELSEIF currentColor < 31 THEN
930.                     currentColor = currentColor + 1
931.                 ELSEIF currentColor = 31 THEN
932.                     currentColor = 0
933.                 END IF
934.                 printOutCurrentBoard = TRUE
935.                 IF penUp = FALSE THEN CALL PutBrickOnBoard
936.             CASE "A", "a"
937.                 penUp = TRUE
938.                 eraserOn = FALSE
939.                 currentColor = 0
940.                 FOR xCount = 2 TO 79
941.                     FOR yCount = 2 TO 46
942.                         creationBoard(xCount, yCount) = 1
943.                 NEXT: NEXT
944.                 printOutCurrentBoard = TRUE
945.             CASE "s", "S"
946.                 IF SaveBoard$ = "END" THEN EXIT DO
947.             CASE CHR$(0) + "H" ' up
948.                 IF brick.y > 2 THEN
949.                     brick.y = brick.y - 1
950.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
951.                     printOutCurrentBoard = TRUE
952.                 END IF
953.             CASE CHR$(0) + "K" ' left
954.                 IF brick.x > 7 THEN
955.                     brick.x = brick.x - 6
956.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
957.                     printOutCurrentBoard = TRUE
958.                 END IF
959.             CASE CHR$(0) + "P" ' down
960.                 IF brick.y < 47 THEN
961.                     brick.y = brick.y + 1
962.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
963.                     printOutCurrentBoard = TRUE
964.                 END IF
965.             CASE CHR$(0) + "M" ' right
966.                 IF brick.x < 73 THEN
967.                     brick.x = brick.x + 6
968.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
969.                     printOutCurrentBoard = TRUE
970.                 END IF
971.             CASE CHR$(27)
972.                 EXIT DO
973.         END SELECT
974.         IF printOutCurrentBoard = TRUE THEN
975.             CALL PrintBackdrop
976.             CALL PrintCreationBoard
977.             CALL PrintCreationBrick
978.             printOutCurrentBoard = FALSE
979.         END IF
980.     LOOP
981. END SUB
982.  
983. FUNCTION SaveBoard$
984.     COLOR 10, 0
985.     CLS
986.     highestLevel = 0
987.     DO
988.         highestLevel = highestLevel + 1
989.         filename$ = "Level " + S$(highestLevel)
990.     LOOP UNTIL _FILEEXISTS(filename$) = 0
991.     LOCATE 10, 10
992.     PRINT "The game board has been saved as " + CHR$(34) + "Level " + S$(highestLevel) + CHR$(34)
993.     PRINT
994.     PRINT "It will automatically be loaded after Level " + S$(highestLevel - 1) + " is completed."
995.     PRINT
996.     OPEN filename$ FOR OUTPUT AS #1
997.     FOR x = 2 TO 79
998.         FOR y = 2 TO 46
999.             COLOR 10, 0: LOCATE 15, 15: PRINT "Working"
1000.             stringOut$ = S$(creationBoard(x, y))
1001.             IF LEN(stringOut$) = 1 THEN stringOut$ = " " + stringOut$
1002.             PRINT #1, stringOut$
1003.             COLOR 0, 0: LOCATE 15, 15: PRINT "Working"
1004.     NEXT: NEXT
1005.     CLOSE #1
1006.     COLOR 10, 0
1007.     a$ = "Push " + CHR$(34) + "A" + CHR$(34) + " to make (a)nother level"
1008.     LOCATE 30, (80 - LEN(a$)) / 2
1009.     PRINT a$
1010.     pause$ = INPUT$(1)
1011.     IF UCASE$(pause$) = "A" THEN
1012.         CALL CreationMain
1013.     ELSE
1014.         SaveBoard$ = "END"
1015.     END IF
1016. END FUNCTION
1017.  
1018. SUB PutBrickOnBoard
1019.     FOR counting = 0 TO 5
1020.         creationBoard(brick.x + counting, brick.y) = currentColor
1021.     NEXT counting
1022. END SUB
1023.  
1024. SUB PrintCreationBrick
1025.     IF penUp = TRUE AND eraserOn = FALSE THEN
1026.         LOCATE brick.y, brick.x
1027.         COLOR 15, 1
1028.         PRINT CHR$(219)
1029.     ELSEIF penUp = FALSE AND eraserOn = TRUE THEN
1030.         LOCATE brick.y, brick.x
1031.         COLOR 7, 1
1032.         PRINT "-"
1033.     ELSE
1034.         LOCATE brick.y, brick.x
1035.         COLOR currentColor, 1
1036.         PRINT CHR$(219)
1037.     END IF
1038.     FOR count = 1 TO 5
1039.         LOCATE brick.y, brick.x + count
1040.         IF eraserOn = TRUE THEN
1041.             COLOR 7, 1
1042.             PRINT "-"
1043.         ELSE
1044.             COLOR currentColor, 1
1045.             PRINT CHR$(219)
1046.         END IF
1047.     NEXT
1048. END SUB
1049.  
1050.  
1051. SUB PrintCreationBoard
1052.     CALL PrintBackdrop
1053.     FOR y = 2 TO 46
1054.         FOR x = 2 TO 79
1055.             COLOR creationBoard(x, y), 1
1056.             LOCATE y, x
1057.             PRINT CHR$(219)
1058.     NEXT: NEXT
1059. END SUB
1060.  
1061. SUB PrintBackdrop
1062.     COLOR 1, 1: CLS
1063.     COLOR 12, 1
1064.     FOR x = 1 TO 80
1065.         LOCATE 1, x: PRINT CHR$(219)
1066.     NEXT
1067.     FOR y = 1 TO 48
1068.         LOCATE y, 1: PRINT CHR$(219)
1069.         LOCATE y, 80: PRINT CHR$(219)
1070.     NEXT
1071.     COLOR 14, 1
1072.     LOCATE 47, 3
1073.     PRINT "Use the Arrow Keys To Move      P - Pen ";
1074.     IF penUp = TRUE THEN
1075.         COLOR 10, 1
1076.         PRINT "up";
1077.         COLOR 14, 1
1078.         PRINT "/";
1079.         COLOR 7, 1
1080.         PRINT "down";
1081.     ELSE
1082.         COLOR 7, 1
1083.         PRINT "up";
1084.         COLOR 14, 1
1085.         PRINT "/";
1086.         COLOR 10, 1
1087.         PRINT "down";
1088.     END IF
1089.     PRINT "       ";
1090.     IF currentColor = 0 THEN
1091.         COLOR 0, 7
1092.     ELSE
1093.         COLOR currentColor, 0
1094.     END IF
1095.     PRINT "C - Cycle colors"
1096.     LOCATE 48, 2
1097.     COLOR 14, 1: PRINT "E - Eraser ";
1098.     'LOCATE 20, 20: COLOR 15, 0: PRINT "eraserOn = " + S$(eraserOn): CALL P
1099.     '    LOCATE 48, 26
1100.     IF eraserOn = TRUE THEN
1101.         COLOR 10, 1
1102.         PRINT "On";
1103.         COLOR 14, 1: PRINT "/";
1104.         COLOR 7, 1
1105.         PRINT "Off";
1106.     ELSE
1107.         COLOR 7, 1
1108.         PRINT "On";
1109.         COLOR 14, 1
1110.         PRINT "/";
1111.         COLOR 10, 1
1112.         PRINT "Off";
1113.     END IF
1114.     COLOR 14, 1
1115.     PRINT "     A - Clear All";
1116.     PRINT "     S - Save     [ESC] - End Without Save"
1117.     CALL PrintCreationBrick
1118.     '    LOCATE 45, 10: COLOR 10, 1: PRINT "eraserOn = " + S$(eraserOn)
1119. END SUB
1120.  
1121.  
1122. SUB P (EndAllowed)
1123.     pause$ = INPUT$(1)
1124.     IF pause$ = CHR$(27) AND EndAllowed = TRUE THEN END
1125. END SUB
1126.  
1127. FUNCTION S$ (number)
1128.     S$ = LTRIM$(STR$(number))
1129. END FUNCTION

[MasterGy]

C64 feeling! :) (I like the font, especially the star) I tried it and it worked well for me. would you describe in more detail how the error can be caused?

[Jaze]

Where there are 2 active balls on the screen the error can appear. If either of the balls goes below the paddle the game drops back to the main menu. Also, if there are 2 balls active and another bonus B is caught, the game drops back to the main menu.

[MasterGy]

what variable indicates whether BALL 1.2 is active?

[Jaze]

if ball(1).x = 0 or ball(1).y = 0 then ball(1) isn't active. Same goes for ball(2).x and ball(2).y    There is also an independent TRUE /  FALSE secondBall which tells if there are two active balls but not which one is active when it is FALSE

[Jaze]

I commented out

Code: QB64: [Select]

1. numberOfGuys = numberOfGuys - 1

and it stopped the second ball from moving at all. I don't know why it would have that effect. From here I'll see if I can get both balls moving with that commented out. In any case, any suggestions would be greatly appreciated.

[Jaze]

closed the ide without saving. reloaded the version posted. commented out the same lines and the ball moved but the game is still managing to find a way back to the main menu. If working properly the way it is now written, there is no way to exit the DO LOOP in the Main SUB. This is over my head.

[SMcNeill]

closed the ide without saving. reloaded the version posted. commented out the same lines and the ball moved but the game is still managing to find a way back to the main menu. If working properly the way it is now written, there is no way to exit the DO LOOP in the Main SUB. This is over my head.

Is it catching an error with the ON ERROR and then falling through to restart the program?  At line 21, place an END statement to make certain you stop execution and read the error message and line.

[NOVARSEG]

Break out

[Jaze]

took the menu out. rewrote some subs to merge duplicates. didn't help. the score and the number of lives stayed the same but it reverted back to level 1. That's the second time I've had an issue with managing the level. I'll try a different method tomorrow.

[TempodiBasic]

Hi Jaze
I agree totally with Steve!

1. please put END to distinghish between main module and SUBs/Functions

2. please manage the errors of I/O from files and pointers to images or sounds or something similar to these last.
for example here

Code: QB64: [Select]

1. filename$ = "Level " + S$(currentLevel)
2.         IF _FILEEXISTS(filename$) = 0 THEN filename$ = "Level " + S$(lastLevelCreated)
3.         OPEN filename$ FOR INPUT AS #1 'open the file with the level information

in the rare case that lastLevelCreated is null (0 or "") and you try to open a file "Level0" or "Level" it is possible that it gets an error of file not found and this activates the generic  error trap that can bring the flow of execution in the main or in the place where you have put the manager of errors. And you got a flow error (a glitch) just to not manage the rare but possible case of error  with a second option name of the file to open.

Better twice sure than one!

Good Luck with your project.

[johnno56]

I am curious... According to Mr. Wozniak, Breakout is a "hardware only" game, so therefore, unless the first person copyrighted the first "software" version of the game, then the software version may be classified as Public Domain? But still, the game itself, will always be the intellectual property of Jobs/Wozniak... Just a random thought... Strange how I get those now and then... lol  Too bad they are usually never about how to improve coding... *sigh*