Level 1 repeats before moving to the next and I don't know why! Please help

[Jaze]

I'm writing a clone to the old old old Atari game call BreakThru. You move a paddle back and forth to reflect the ball and make it break through the bricks at the top. I plan on writing this with graphics after I finish doing it with strings. The game is mostly finished. I'm having trouble with the first level being loaded again after it is beaten once. After it's beat the second time, the second level is loaded. I can't figure out why the first level gets loaded twice. Please help me spot the bug.

Code: QB64: [Select]

1. WIDTH 80, 50
2.  
3. RANDOMIZE TIMER
4. TYPE coordinate
5.     x AS INTEGER
6.     y AS INTEGER
7. END TYPE
8.  
9. _FULLSCREEN
10.  
11. ON ERROR GOTO crap
12. GOTO beginning
13. crap:
14. PRINT "Error, error line"
15. PRINT ERR, _ERRORLINE
16.  
17. beginning:
18. CONST TRUE = 1
19. CONST FALSE = 0
20. CONST leftDirection = 19200 '   to make the code more readable with the left and right arrowkeys
21. CONST rightDirection = 19712 '
22. CONST upAndLeft = 1 'the ball always moves in one diagonal direction
23. CONST upAndRight = 2
24. CONST downAndLeft = 3
25. CONST downAndRight = 4
26. CONST theBackground = 0 '           to determine what the ball hit
27. CONST theBrick = 1
28. CONST theWall = 2
29. CONST thePaddle = 3
30. CONST hitWallSound$ = "O2L30G"
31. CONST hitPaddleSound$ = "O3L30C"
32. CONST hitBrickSound$ = "O3L30G"
33. CONST deathSound$ = "O4L15CO3CO2CO1L10C"
34. CONST successBeep = "L9O2DL15DL9DL4F"
35.  
36. DIM SHARED creationBoard(2 TO 79, 2 TO 46) AS INTEGER
37. FOR initializeArrayX = 2 TO 79
38.     FOR initializeArrayY = 2 TO 46
39.         creationBoard(initializeArrayX, initializeArrayY) = 1
40. NEXT: NEXT
41. DIM SHARED brick AS coordinate: brick.x = 2: brick.y = 2
42. DIM SHARED ball AS coordinate
43. DIM SHARED ballDirection AS INTEGER
44. DIM SHARED paddleLeft AS SINGLE
45. DIM SHARED board(1 TO 80, 1 TO 48, 1 TO 2) AS INTEGER
46. DIM SHARED numberOfBricks AS INTEGER
47. DIM SHARED currentLevel AS INTEGER: currentLevel = 1
48. DIM SHARED numberOfGuys AS INTEGER: numberOfGuys = 5
49. DIM SHARED score AS INTEGER: scorte = 0
50. DIM SHARED manDied AS INTEGER: manDied = FALSE
51. DIM SHARED spaceToStart: spaceToStart = FALSE
52. DIM SHARED debugMode AS INTEGER: debugMode = FALSE
53. DIM SHARED penUp, currentColor, eraserOn AS INTEGER: penUp = TRUE: currentColor = 0: eraserOn = FALSE
54. DIM SHARED mute AS INTEGER: mute = -1 ' -1 mute is off (sound on)
55. DIM SHARED lastLevelCreated AS INTEGER: lastLevelCreated = 0
56. DIM levelChecking AS INTEGER: levelChecking = 0
57. DO
58.     levelChecking = levelChecking + 1
59. LOOP UNTIL _FILEEXISTS("Level " + LTRIM$(STR$(levelChecking))) = 0
60. lastLevelCreated = levelChecking - 1
61.  
62. WIDTH 80, 50
63.  
64. CALL Menu
65.  
66. SUB Menu
67.     printTheMenu = TRUE
68.     DO
69.         IF printTheMenu = TRUE THEN
70.             COLOR 14, 1
71.             CLS
72.             LOCATE 20, 1
73.             PRINT CenterText$("Menu")
74.             PRINT CenterText$("------")
75.             PRINT
76.             PRINT CenterText$("1.) Instructions")
77.             PRINT
78.             PRINT CenterText$("2.) Create A Level")
79.             PRINT
80.             PRINT CenterText$("3.) Play The Game")
81.             PRINT
82.             PRINT CenterText$("4.) Exit")
83.             printTheMenu = FALSE
84.         END IF
85.         menuCommand$ = INKEY$
86.         SELECT CASE menuCommand$
87.             CASE "1"
88.                 CALL Instructions
89.                 printTheMenu = TRUE
90.             CASE "2"
91.                 CALL CreationMain
92.                 printTheMenu = TRUE
93.             CASE "3"
94.                 CALL Main
95.                 printTheMenu = TRUE
96.         END SELECT
97.     LOOP UNTIL menuCommand$ = "4"
98.     END
99. END SUB
100.  
101. SUB Instructions
102.     COLOR 10, 1
103.     CLS
104.     LOCATE 2
105.     PRINT CenterText$("Level Creator")
106.     PRINT CenterText$("---------------")
107.     PRINT
108.     PRINT CenterText$("The available commands are listed at the bottom of the screen.")
109.     PRINT CenterText$("When the pen is up, the cursor moves without adding to the level")
110.     PRINT CenterText$("being created. When the pen is down the current brick is added")
111.     PRINT CenterText$("to the level being created. The other commands are self explanatory.")
112.     COLOR 12, 1
113.     PRINT
114.     PRINT CenterText$("When the created level is saved, it is saved under " + CHR$(34) + "Level #" + CHR$(34) + ".")
115.     PRINT CenterText$("If no levels have been created, the default level is used.")
116.     PRINT CenterText$("If you progress beyond all levels created, the last level created repeats.")
117.     PRINT
118.     PRINT
119.     PRINT
120.     COLOR 14, 1
121.     PRINT CenterText$("Game")
122.     PRINT CenterText$("------")
123.     PRINT
124.     PRINT CenterText$("The object of the game is to progress to the next level by")
125.     PRINT CenterText$("destroying all of the bricks. To do this you must position the")
126.     PRINT
127.     COLOR 15, 1
128.     PRINT CenterText$(CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219))
129.     PRINT
130.     COLOR 14, 1
131.     PRINT CenterText$("under the square so that it is reflected toward the bricks using.")
132.     PRINT CenterText$("the left and right arrow keys.")
133.     LOCATE 29, 21
134.     PRINT "Push ";: COLOR 13, 1: PRINT "[SPACEBAR]";: COLOR 14, 1: PRINT " to set the square in motion."
135.     PRINT: PRINT
136.     COLOR 13, 1: PRINT CenterText$("Available Commands:"): COLOR 14, 1: PRINT
137.     LOCATE , 10: PRINT "+ to increase the game speed": PRINT
138.     LOCATE , 10: PRINT "- to decrease the game speed": PRINT
139.     LOCATE , 10: PRINT "P to pause and wait for any key to be pressed": PRINT
140.     LOCATE , 10: PRINT "M to toggle mute on and off": PRINT
141.     LOCATE , 10: PRINT "[ESC] to return to the main menu"
142.     PRINT
143.     PRINT CenterText$("Push C to turn on debug mode and O to turn it off.")
144.     LOCATE 48
145.     COLOR 15, 1
146.     PRINT CenterText$("Push any key to continue.")
147.  
148.  
149.     CALL P
150.  
151.  
152.  
153.  
154.  
155. END SUB
156.  
157. FUNCTION CenterText$ (thisString$)
158.  
159.     returnString$ = SPACE$(INT((80 - LEN(thisString$)) / 2)) + thisString$
160.     CenterText = returnString$
161. END FUNCTION
162.  
163. SUB PrintBrick (x, y, onOrOff)
164.     IF onOrOff = TRUE THEN
165.         useColor = board(x, y, 2) 'print the brick instead of erasing it, pick up the color there
166.     ELSEIF onOrOff = FALSE THEN
167.         useColor = 1
168.     END IF
169.     FOR across = 0 TO 5
170.         LOCATE y, x + across
171.         COLOR useColor
172.         PRINT CHR$(219)
173.         board(x + across, y, 1) = 219
174.         board(x + across, y, 2) = useColor
175.     NEXT across
176.     IF onOrOff = FALSE THEN
177.         numberOfBricks = numberOfBricks - 1
178.         score = score + 5
179.     END IF
180. END SUB
181.  
182. SUB PrintLevel
183.     FOR x = 1 TO 80: FOR y = 1 TO 48 'make the board blue
184.             board(x, y, 1) = 219 '    ASCII code of board space
185.             board(x, y, 2) = 1 '      color of board space
186.     NEXT y: NEXT x
187.     COLOR 1, 1: CLS
188.     'print left, right and top borders
189.     FOR y = 1 TO 48
190.         LOCATE y, 1: COLOR 12, 1: PRINT CHR$(219) 'print the left border to the screen
191.         LOCATE 7, 80: COLOR 12, 1: PRINT CHR$(219) 'print the right border to the screen
192.         CALL PlaceChar(1, y, 219, 12) ' put the position, ASCII code and color on the board to make the left border
193.         CALL PlaceChar(80, y, 219, 12) ' same to make the left border on the board
194.     NEXT y
195.     FOR x = 1 TO 80
196.         LOCATE 1, x: COLOR 12, 1: PRINT CHR$(219) 'print the top border to the screen
197.         CALL PlaceChar(x, 1, 219, 12) ' put the top border on the board
198.     NEXT x
199.     paddleLeft = 36
200.     CALL PrintPaddle(TRUE) ' put the paddle on the board with the left at x coordinate 36
201.     ball.x = 40: ball.y = 47 ' position the ball/moving square
202.     CALL PrintBall(TRUE) ' put the ball on the board
203.     ballDirection = INT(RND * 2) + 1 'randomize the starting direction of the ball as up and left or up and right
204.  
205.     IF lastLevelCreated <> 0 THEN
206.         filename$ = "Level " + S$(currentLevel)
207.         IF _FILEEXISTS(filename$) = 0 THEN filename$ = "Level " + S$(lastLevelCreated)
208.         OPEN filename$ FOR INPUT AS #1 'open the file with the level information
209.         FOR xCounting = 2 TO 79 ' x coordinate of the board
210.             FOR yCounting = 2 TO 46 ' y coordinate of the board
211.                 INPUT #1, boardColor$ ' get the color of the board at xCounting, yCounting
212.                 board(xCounting, yCounting, 2) = VAL(boardColor$) 'color the board at xCounting, yCounting
213.         NEXT: NEXT
214.         '        LOCATE 20, 20: COLOR 15, 0: PRINT "Filename: " + filename$: CALL P
215.         CLOSE #1
216.     ELSE ' if no levels were created
217.         FOR x = 2 TO 79
218.             CALL PlaceChar(x, 2, 219, 14) 'put a yellow (14) block (219) at x, y on the board
219.             CALL PlaceChar(x, 4, 219, 14)
220.             CALL PlaceChar(x, 6, 219, 14)
221.         NEXT x
222.     END IF
223.     numberOfBricks = 0 ' after a level has been put on the board, count the number of bricks on it
224.     FOR brickCountingY = 2 TO 47
225.         FOR brickCountingX = 2 TO 79 STEP 6 'each brick is 6 blocks long
226.             IF board(brickCountingX, brickCountingY, 2) <> 1 THEN numberOfBricks = numberOfBricks + 1
227.     NEXT: NEXT
228.     CALL PrintBoard 'print the board to the screen
229.     spaceToStart = FALSE 'spacebar has yet to be puched to start the current level
230. END SUB
231.  
232. SUB Main
233.  
234.     CALL PrintLevel 'put the current level on the board and print it out
235.     printOutBoard = FALSE ' to avoid flicker of the board being constantly printed, the need to print it is false
236.     delaySpeed = 0.029 'delay to use inside the main DO-LOOP
237.     DO
238.         debugging$ = INKEY$ 'using strings instead of _KEYDOWN(code) is easier. i initially added INKEY$ for debugging
239.         IF spaceToStart = TRUE THEN ' the spacebar has been hit to start the game
240.             CALL PrintBall(FALSE) 'remove the ball from the board
241.             CALL MoveBall 'move the ball in the current direction
242.             CALL PrintBall(TRUE) 'put the ball on the board at the new position
243.             IF _KEYDOWN(leftDirection) = -1 THEN 'the left arrow key had been pushed
244.                 CALL PrintPaddle(FALSE) ' remove the paddle from the board
245.                 paddleLeft = paddleLeft - 1.5 ' move the paddle leftward
246.                 CALL PrintPaddle(TRUE) ' put the paddle on the board at the new position
247.                 printOutBoard = TRUE 'it is now needed to print the board to the screen
248.             ELSEIF _KEYDOWN(rightDirection) = -1 THEN
249.                 CALL PrintPaddle(FALSE)
250.                 paddleLeft = paddleLeft + 1.5
251.                 CALL PrintPaddle(TRUE)
252.                 printOutBoard = TRUE
253.             END IF
254.             IF printOutBoard = TRUE THEN 'print the board to the screen
255.                 CALL PrintBoard ' print the board to the screen
256.                 printOutBoard = FALSE 'stop the board from being printed now
257.             END IF
258.             IF numberOfBricks = 0 THEN 'there are no bricks left on the board
259.                 currentLevel = currentLevel + 1 'increment the current level
260.                 CALL PrintLevel 'put the newest level on the board
261.                 spaceToStart = FALSE 'the spacebar has not been pressed since the new level has been output
262.                 score = score + 200 '200 points for finishing a level
263.                 IF mute = -1 THEN PLAY successBeep '1 is mute, -1 is note muted
264.             END IF
265.         END IF
266.         IF debugging$ = "C" THEN debugMode = TRUE
267.         IF debugging$ = "O" THEN debugMode = FALSE
268.         IF _KEYDOWN(32) = -1 THEN ' the spacebar has been pushed
269.             spaceToStart = TRUE ' the spacebar has been pushed
270.             printOutBoard = TRUE ' it is needed to print the board to the screen
271.         END IF
272.         _DELAY (delaySpeed) ' insert a delay to make the movement playable and visible
273.         IF numberOfGuys = 0 THEN CALL EndOfGame
274.         IF score MOD 2000 = 0 AND score <> 0 THEN numberOfGuys = numberOfGuys + 1 ' new guy every 2,000 points
275.         IF debugging$ = "+" THEN 'increase the game speed
276.             delaySpeed = delaySpeed - 0.01
277.             IF delaySpeed < 0 THEN delaySpeed = 0 'don't allow a negative delay
278.         END IF
279.         IF debugging$ = "-" THEN delaySpeed = delaySpeed + 0.005 'decrease the game speed
280.         IF debugging$ = "m" OR debugging$ = "M" THEN mute = mute * -1 'turn mute on or off
281.         IF debugging$ = "p" OR debugging$ = "P" THEN pause$ = INPUT$(1) 'pause the game
282.         IF debugging$ = CHR$(27) THEN EXIT DO 'end the game and return to the main menu
283.     LOOP
284. END SUB
285.  
286. SUB EndOfGame
287. END SUB
288.  
289. SUB MoveBall
290.     SELECT CASE ballDirection
291.         CASE upAndRight
292.             CALL MoveUpAndRight
293.         CASE upAndLeft
294.             CALL MoveUpAndLeft
295.         CASE downAndRight
296.             CALL MoveDownAndRight
297.         CASE downAndLeft
298.             CALL MoveDownAndLeft
299.     END SELECT
300. END SUB
301.  
302. FUNCTION Report (x, y)
303.     'if 12 then border, if 1 then background, if 15 then paddle, else brick
304.     rtn = -1
305.     IF board(x, y, 2) = 12 THEN
306.         rtn = theWall
307.     ELSEIF board(x, y, 2) = 1 THEN
308.         rtn = theBackground
309.     ELSEIF board(x, y, 2) = 15 THEN
310.         rtn = thePaddle
311.     ELSE
312.         rtn = theBrick
313.     END IF
314.     Report = rtn
315. END FUNCTION
316.  
317. SUB MoveUpAndRight
318.     SELECT CASE Report(ball.x + 1, ball.y - 1)
319.         CASE theBackground
320.             ball.x = ball.x + 1
321.             ball.y = ball.y - 1
322.         CASE theWall
323.             IF mute = -1 THEN PLAY hitWallSound
324.             IF ball.x + 1 = 80 THEN
325.                 'hit the right wall
326.                 ballDirection = upAndLeft
327.             ELSEIF ball.y - 1 = 1 THEN
328.                 'hit top wall
329.                 ballDirection = downAndRight
330.             END IF
331.         CASE theBrick
332.             IF mute = -1 THEN PLAY hitBrickSound
333.             leftSideOfBrick = findBrickLeft(ball.x + 1)
334.             vertOfBrick = findBrickVertical(ball.y - 1)
335.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
336.             ballDirection = downAndRight
337.     END SELECT
338. END SUB
339.  
340. SUB MoveUpAndLeft
341.     SELECT CASE Report(ball.x - 1, ball.y - 1)
342.         CASE theBackground
343.             ball.x = ball.x - 1
344.             ball.y = ball.y - 1
345.         CASE theWall
346.             IF mute = -1 THEN PLAY hitWallSound
347.             IF ball.x - 1 = 1 THEN
348.                 ballDirection = upAndRight
349.             ELSEIF ball.y - 1 = 1 THEN 'hit the top
350.                 ballDirection = downAndLeft
351.             END IF
352.         CASE theBrick
353.             IF mute = -1 THEN PLAY hitBrickSound
354.             leftSideOfBrick = findBrickLeft(ball.x - 1)
355.             vertOfBrick = findBrickVertical(ball.y - 1)
356.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
357.             ballDirection = downAndLeft
358.     END SELECT
359. END SUB
360.  
361. SUB MoveDownAndRight
362.     SELECT CASE Report(ball.x + 1, ball.y + 1)
363.         CASE theBackground
364.             IF ball.y + 1 = 48 THEN
365.                 IF debugMode = FALSE THEN
366.                     manDied = TRUE
367.                     score = score - 50
368.                     spaceToStart = FALSE
369.                     CALL PrintPaddle(FALSE)
370.                     CALL PrintBall(FALSE)
371.                     ball.x = 40: ball.y = 47
372.                     CALL PrintBall(TRUE)
373.                     paddleLeft = 36
374.                     CALL PrintPaddle(TRUE)
375.                     ballDirection = INT(RND * 2) + 1
376.                     IF mute = -1 THEN PLAY deathSound
377.                     numberOfGuys = numberOfGuys - 1
378.                     CALL PrintBoard
379.                 ELSE
380.                     IF mute = -1 THEN PLAY hitWallSound
381.                     ballDirection = upAndRight
382.                     ball.x = ball.x + 1
383.                     ball.y = ball.y - 1
384.                 END IF
385.             ELSE
386.                 ball.x = ball.x + 1
387.                 ball.y = ball.y + 1
388.             END IF
389.         CASE theWall
390.             IF mute = -1 THEN PLAY hitWallSound
391.             IF ball.x + 1 = 80 THEN ballDirection = downAndLeft
392.         CASE theBrick
393.             IF mute = -1 THEN PLAY hitBrickSound
394.             leftSideOfBrick = findBrickLeft(ball.x + 1)
395.             vertOfBrick = findBrickVertical(ball.y + 1)
396.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
397.             ballDirection = upAndRight
398.         CASE thePaddle
399.             IF mute = -1 THEN PLAY hitPaddleSound
400.             ballDirection = upAndRight
401.     END SELECT
402. END SUB
403.  
404. SUB MoveDownAndLeft
405.     SELECT CASE Report(ball.x - 1, ball.y + 1)
406.         CASE theBackground
407.             IF ball.y + 1 = 48 THEN
408.                 IF debugMode = FALSE THEN
409.                     manDied = TRUE
410.                     score = score - 50
411.                     spaceToStart = FALSE
412.                     CALL PrintPaddle(FALSE)
413.                     CALL PrintBall(FALSE)
414.                     ball.x = 40: ball.y = 47
415.                     CALL PrintBall(TRUE)
416.                     paddleLeft = 36
417.                     CALL PrintPaddle(TRUE)
418.                     ballDirection = INT(RND * 2) + 1
419.                     IF mute = -1 THEN PLAY deathSound
420.                     numberOfGuys = numberOfGuys - 1
421.                     CALL PrintBoard
422.                 ELSE
423.                     IF mute = -1 THEN PLAY hitWallSound
424.                     ballDirection = upAndLeft
425.                     ball.x = ball.x - 1
426.                     ball.y = ball.y - 1
427.                 END IF
428.             ELSE
429.                 ball.x = ball.x - 1
430.                 ball.y = ball.y + 1
431.             END IF
432.         CASE theWall
433.             IF mute = -1 THEN PLAY hitWallSound
434.             IF ball.x - 1 = 1 THEN ballDirection = downAndRight
435.         CASE theBrick
436.             IF mute = -1 THEN PLAY hitBrickSound
437.             leftSideOfBrick = findBrickLeft(ball.x - 1)
438.             vertOfBrick = findBrickVertical(ball.y + 1)
439.             CALL PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
440.             ballDirection = upAndLeft
441.         CASE thePaddle
442.             IF mute = -1 THEN PLAY hitPaddleSound
443.             ballDirection = upAndLeft
444.     END SELECT
445. END SUB
446.  
447. FUNCTION findBrickLeft (x)
448.     rtn = 0
449.     FOR cnt = 2 TO 79 STEP 6
450.         IF cnt <= x AND x <= cnt + 5 THEN rtn = cnt
451.     NEXT cnt
452.     findBrickLeft = rtn
453. END FUNCTION
454.  
455. FUNCTION findBrickVertical (y)
456.     rtn = 0
457.     FOR cnt = 2 TO 47
458.         IF cnt = y THEN rtn = cnt
459.     NEXT
460.     findBrickVertical = rtn
461. END FUNCTION
462.  
463. SUB PrintBall (onOrOff)
464.     IF onOrOff = TRUE THEN
465.         useColor = 11
466.     ELSEIF onOrOff = FALSE THEN
467.         useColor = 1
468.     END IF
469.     COLOR useColor, 1: LOCATE ball.y, ball.x: PRINT CHR$(254)
470.     CALL PlaceChar(ball.x, ball.y, 254, useColor)
471. END SUB
472.  
473. SUB PrintPaddle (onOrOff)
474.     IF onOrOff = TRUE THEN
475.         theColor = 15
476.     ELSEIF onOrOf = FALSE THEN
477.         theColor = 1
478.     ELSE
479.         COLOR 14, 1: LOCATE 40, 10: PRINT "error inside if block in PrintPaddle": CALL P: END
480.     END IF
481.     IF paddleLeft < 2 THEN paddleLeft = 2
482.     IF paddleLeft > 72 THEN paddleLeft = 72
483.     FOR across = 0 TO 7
484.         LOCATE 48, INT(paddleLeft) + across: COLOR theColor: PRINT CHR$(219)
485.         CALL PlaceChar(INT(paddleLeft) + across, 48, 219, theColor)
486.     NEXT across
487. END SUB
488.  
489. SUB PlaceChar (X, Y, char, clr)
490.     board(X, Y, 1) = char
491.     board(X, Y, 2) = clr
492. END SUB
493. SUB PrintBoard
494.     FOR y = 2 TO 48: FOR x = 2 TO 79
495.             this$ = CHR$(board(x, y, 1))
496.             theColor = board(x, y, 2)
497.             COLOR theColor, 1
498.             IF theColor = 11 THEN
499.                 LOCATE y, x
500.                 PRINT CHR$(254)
501.             ELSE 'IF theColor <> 1 THEN
502.                 LOCATE y, x
503.                 PRINT CHR$(219)
504.             END IF
505.     NEXT x: NEXT y
506.     LOCATE 1, 3: COLOR 10, 12: PRINT "Men: " + S$(numberOfGuys);
507.     PRINT "                    Bricks remaining: " + S$(numberOfBricks) + "     ";
508.     PRINT "               Score: " + S$(score) + "  "
509. END SUB
510.  
511. SUB CreationMain
512.     penUp = TRUE
513.     eraserOn = FALSE
514.     currentColor = 0
515.     brick.x = 2
516.     brick.y = 2
517.     FOR countX = 2 TO 79
518.         FOR countY = 2 TO 46
519.             creationBoard(countX, countY) = 1
520.     NEXT: NEXT
521.     CALL PrintBackdrop
522.     CALL PrintCreationBoard
523.     CALL PrintCreationBrick
524.     printOutCurrentBoard = FALSE
525.     DO
526.         whichCommand$ = INKEY$
527.         SELECT CASE whichCommand$
528.             CASE "P", "p"
529.                 IF penUp = TRUE THEN
530.                     penUp = FALSE
531.                     CALL PutBrickOnBoard
532.                 ELSEIF penUp = FALSE AND eraserOn = FALSE THEN
533.                     penUp = TRUE
534.                 END IF
535.                 CALL PrintBackdrop
536.                 printOutCurrentBoard = TRUE
537.             CASE "E", "e"
538.                 IF eraserOn = FALSE THEN
539.                     eraserOn = TRUE
540.                     currentColor = 1
541.                     penUp = FALSE
542.                     CALL PutBrickOnBoard
543.                 ELSEIF eraserOn = TRUE THEN
544.                     eraserOn = FALSE
545.                     currentColor = 0
546.                     penUp = TRUE
547.                 END IF
548.                 printOutCurrentBoard = TRUE
549.             CASE "C", "c"
550.                 IF currentColor = 0 THEN
551.                     currentColor = 2
552.                 ELSEIF currentColor = 10 THEN
553.                     currentColor = 13
554.                 ELSEIF currentColor < 14 THEN
555.                     currentColor = currentColor + 1
556.                 ELSEIF currentColor = 14 THEN
557.                     currentColor = 0
558.                 END IF
559.                 printOutCurrentBoard = TRUE
560.                 IF penUp = FALSE THEN CALL PutBrickOnBoard
561.             CASE "A", "a"
562.                 penUp = TRUE
563.                 eraserOn = FALSE
564.                 currentColor = 0
565.                 FOR xCount = 2 TO 79
566.                     FOR yCount = 2 TO 46
567.                         creationBoard(xCount, yCount) = 1
568.                 NEXT: NEXT
569.                 printOutCurrentBoard = TRUE
570.             CASE "s", "S"
571.                 CALL SaveBoard
572.             CASE CHR$(0) + "H" ' up
573.                 IF brick.y > 2 THEN
574.                     brick.y = brick.y - 1
575.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
576.                     printOutCurrentBoard = TRUE
577.                 END IF
578.             CASE CHR$(0) + "K" ' left
579.                 IF brick.x > 7 THEN
580.                     brick.x = brick.x - 6
581.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
582.                     printOutCurrentBoard = TRUE
583.                 END IF
584.             CASE CHR$(0) + "P" ' down
585.                 IF brick.y < 47 THEN
586.                     brick.y = brick.y + 1
587.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
588.                     printOutCurrentBoard = TRUE
589.                 END IF
590.             CASE CHR$(0) + "M" ' right
591.                 IF brick.x < 73 THEN
592.                     brick.x = brick.x + 6
593.                     IF penUp = FALSE THEN CALL PutBrickOnBoard
594.                     printOutCurrentBoard = TRUE
595.                 END IF
596.             CASE CHR$(27)
597.                 EXIT DO
598.         END SELECT
599.         IF printOutCurrentBoard = TRUE THEN
600.             CALL PrintBackdrop
601.             CALL PrintCreationBoard
602.             CALL PrintCreationBrick
603.             printOutCurrentBoard = FALSE
604.         END IF
605.     LOOP
606. END SUB
607.  
608. SUB SaveBoard
609.     COLOR 10, 0
610.     CLS
611.     highestLevel = 0
612.     DO
613.         highestLevel = highestLevel + 1
614.         filename$ = "Level " + LTRIM$(STR$(highestLevel))
615.     LOOP UNTIL _FILEEXISTS(filename$) = 0
616.     LOCATE 10, 10
617.     PRINT "The game board has been saved as " + CHR$(34) + "Level " + LTRIM$(STR$(highestLevel)) + CHR$(34)
618.     PRINT
619.     PRINT "It will automatically be loaded after Level " + S$(highestLevel - 1) + " is completed."
620.     PRINT
621.     OPEN filename$ FOR OUTPUT AS #1
622.     FOR x = 2 TO 79
623.         FOR y = 2 TO 46
624.             COLOR 10, 0: LOCATE 15, 15: PRINT "Working"
625.             stringOut$ = LTRIM$(STR$(creationBoard(x, y)))
626.             IF LEN(stringOut$) = 1 THEN stringOut$ = " " + stringOut$
627.             PRINT #1, stringOut$
628.             COLOR 0, 0: LOCATE 15, 15: PRINT "Working"
629.     NEXT: NEXT
630.     CLOSE #1
631.     COLOR 10, 0
632.  
633.     a$ = "Push " + CHR$(34) + "A" + CHR$(34) + " to make (a)nother level"
634.     LOCATE 30, (80 - LEN(a$)) / 2
635.     PRINT a$
636.     pause$ = INPUT$(1)
637.     IF UCASE$(pause$) = "A" THEN
638.         CALL CreationMain
639.     ELSE
640.         END
641.     END IF
642. END SUB
643.  
644. SUB PutBrickOnBoard
645.     FOR counting = 0 TO 5
646.         creationBoard(brick.x + counting, brick.y) = currentColor
647.     NEXT counting
648. END SUB
649.  
650. SUB PrintCreationBrick
651.     IF penUp = TRUE AND eraserOn = FALSE THEN
652.         LOCATE brick.y, brick.x
653.         COLOR 15, 1
654.         PRINT CHR$(219)
655.     ELSEIF penUp = FALSE AND eraserOn = TRUE THEN
656.         LOCATE brick.y, brick.x
657.         COLOR 7, 1
658.         PRINT "-"
659.     ELSE
660.         LOCATE brick.y, brick.x
661.         COLOR currentColor, 1
662.         PRINT CHR$(219)
663.     END IF
664.     FOR count = 1 TO 5
665.         LOCATE brick.y, brick.x + count
666.         IF eraserOn = TRUE THEN
667.             COLOR 7, 1
668.             PRINT "-"
669.         ELSE
670.             COLOR currentColor, 1
671.             PRINT CHR$(219)
672.         END IF
673.     NEXT
674. END SUB
675.  
676.  
677. SUB PrintCreationBoard
678.     CALL PrintBackdrop
679.     FOR y = 2 TO 46
680.         FOR x = 2 TO 79
681.             COLOR creationBoard(x, y), 1
682.             LOCATE y, x
683.             PRINT CHR$(219)
684.     NEXT: NEXT
685. END SUB
686.  
687. SUB PrintBackdrop
688.     COLOR 1, 1: CLS
689.     COLOR 12, 1
690.     FOR x = 1 TO 80
691.         LOCATE 1, x: PRINT CHR$(219)
692.     NEXT
693.     FOR y = 1 TO 48
694.         LOCATE y, 1: PRINT CHR$(219)
695.         LOCATE y, 80: PRINT CHR$(219)
696.     NEXT
697.     COLOR 14, 1
698.     LOCATE 47, 3
699.     PRINT "Use the Arrow Keys To Move      P - Pen ";
700.     IF penUp = TRUE THEN
701.         COLOR 10, 1
702.         PRINT "up";
703.         COLOR 14, 1
704.         PRINT "/";
705.         COLOR 7, 1
706.         PRINT "down";
707.     ELSE
708.         COLOR 7, 1
709.         PRINT "up";
710.         COLOR 14, 1
711.         PRINT "/";
712.         COLOR 10, 1
713.         PRINT "down";
714.     END IF
715.     PRINT "       ";
716.     IF currentColor = 0 THEN
717.         COLOR 0, 7
718.     ELSE
719.         COLOR currentColor, 0
720.     END IF
721.     PRINT "C - Cycle colors"
722.     LOCATE 48, 2
723.     COLOR 14, 1: PRINT "E - Eraser ";
724.     'LOCATE 20, 20: COLOR 15, 0: PRINT "eraserOn = " + S$(eraserOn): CALL P
725.     '    LOCATE 48, 26
726.     IF eraserOn = TRUE THEN
727.         COLOR 10, 1
728.         PRINT "On";
729.         COLOR 14, 1: PRINT "/";
730.         COLOR 7, 1
731.         PRINT "Off";
732.     ELSE
733.         COLOR 7, 1
734.         PRINT "On";
735.         COLOR 14, 1
736.         PRINT "/";
737.         COLOR 10, 1
738.         PRINT "Off";
739.     END IF
740.     COLOR 14, 1
741.     PRINT "     A - Clear All";
742.     PRINT "     S - Save     [ESC] - End Without Save"
743.     CALL PrintCreationBrick
744.     '    LOCATE 45, 10: COLOR 10, 1: PRINT "eraserOn = " + S$(eraserOn)
745. END SUB
746.  
747.  
748. SUB P
749.     pause$ = INPUT$(1)
750.     IF pause$ = CHR$(27) THEN END
751. END SUB
752.  
753. FUNCTION S$ (number)
754.     S$ = LTRIM$(STR$(number))
755. END FUNCTION

[johnno56]

I have just copies the game and began "checking it out". One minor visual problem. Does not effect the play but, to me anyway, it was noticeable. The right-hand border did not appear.

Within the 'PrintLevel' subroutine, 'print left, right...', within the 'for y' loop, 'LOCATE 7, 80' should be "LOCATE y, 80". As I said, it is only minor, and does not effect the game play.

I have not finished playing so I have not, as yet,  come across the difficulty that you have stated. I like this version. Simple layout (default game) and "easy on the eye". A very good effort.

J

[TempodiBasic]

Hi Jaze
fine implementation of Bricks!
Also Johnno56 have told you about the right border glitch and how to fix it
1. interesting the customized delay routine
2. main out of main interesting
3. I cannot reproduce your experience (repeat twice the first level and then go on) but I got code stucking after finished the first level.. in debugging mode I find that CountBrick leads the level up together to lastLevelCreated.
But also if I MOD a Jump command I cannot the next level....
IMHO it is related to

Code: QB64: [Select]

1. If lastlevelcreated <>0 then

in which you don't manage

Code: QB64: [Select]

1.  filename$= level+str$(lastlevelcreated)
2. Open filename$ for input as #1

if this operation works or not... with my debug code it seems not to work both if  I set currentlevel both if I set currentlevel and lastlevelcreated.

Good Luck
Here your code with my debug

Code: QB64: [Select]

1. Width 80, 50
2.  
3. Randomize Timer
4. Type coordinate
5.     x As Integer
6.     y As Integer
7. End Type
8.  
9. '_FullScreen
10.  
11. On Error GoTo crap
12. GoTo beginning
13. crap:
14. Print "Error, error line"
15. Print Err, _ErrorLine
16.  
17. beginning:
18. Const TRUE = 1
19. Const FALSE = 0
20. Const leftDirection = 19200 '   to make the code more readable with the left and right arrowkeys
21. Const rightDirection = 19712 '
22. Const upAndLeft = 1 'the ball always moves in one diagonal direction
23. Const upAndRight = 2
24. Const downAndLeft = 3
25. Const downAndRight = 4
26. Const theBackground = 0 '           to determine what the ball hit
27. Const theBrick = 1
28. Const theWall = 2
29. Const thePaddle = 3
30. Const hitWallSound$ = "O2L30G"
31. Const hitPaddleSound$ = "O3L30C"
32. Const hitBrickSound$ = "O3L30G"
33. Const deathSound$ = "O4L15CO3CO2CO1L10C"
34. Const successBeep = "L9O2DL15DL9DL4F"
35.  
36. Dim Shared creationBoard(2 To 79, 2 To 46) As Integer
37. For initializeArrayX = 2 To 79
38.     For initializeArrayY = 2 To 46
39.         creationBoard(initializeArrayX, initializeArrayY) = 1
40. Next: Next
41. Dim Shared brick As coordinate: brick.x = 2: brick.y = 2
42. Dim Shared ball As coordinate
43. Dim Shared ballDirection As Integer
44. Dim Shared paddleLeft As Single
45. Dim Shared board(1 To 80, 1 To 48, 1 To 2) As Integer
46. Dim Shared numberOfBricks As Integer
47. Dim Shared currentLevel As Integer: currentLevel = 1
48. Dim Shared numberOfGuys As Integer: numberOfGuys = 5
49. Dim Shared score As Integer: scorte = 0
50. Dim Shared manDied As Integer: manDied = FALSE
51. Dim Shared spaceToStart: spaceToStart = FALSE
52. Dim Shared debugMode As Integer: debugMode = FALSE
53. Dim Shared penUp, currentColor, eraserOn As Integer: penUp = TRUE: currentColor = 0: eraserOn = FALSE
54. Dim Shared mute As Integer: mute = -1 ' -1 mute is off (sound on)
55. Dim Shared lastLevelCreated As Integer: lastLevelCreated = 0
56. Dim levelChecking As Integer: levelChecking = 0
57. Do
58.     levelChecking = levelChecking + 1
59. Loop Until _FileExists("Level " + LTrim$(Str$(levelChecking))) = 0
60. lastLevelCreated = levelChecking - 1
61.  
62. Width 80, 50
63.  
64. Call Menu
65.  
66. Sub Menu
67.     printTheMenu = TRUE
68.     Do
69.         If printTheMenu = TRUE Then
70.             Color 14, 1
71.             Cls
72.             Locate 20, 1
73.             Print CenterText$("Menu")
74.             Print CenterText$("------")
75.             Print
76.             Print CenterText$("1.) Instructions")
77.             Print
78.             Print CenterText$("2.) Create A Level")
79.             Print
80.             Print CenterText$("3.) Play The Game")
81.             Print
82.             Print CenterText$("4.) Exit")
83.             printTheMenu = FALSE
84.         End If
85.         menuCommand$ = InKey$
86.         Select Case menuCommand$
87.             Case "1"
88.                 Call Instructions
89.                 printTheMenu = TRUE
90.             Case "2"
91.                 Call CreationMain
92.                 printTheMenu = TRUE
93.             Case "3"
94.                 Call Main
95.                 printTheMenu = TRUE
96.         End Select
97.     Loop Until menuCommand$ = "4"
98.     End
99. End Sub
100.  
101. Sub Instructions
102.     Color 10, 1
103.     Cls
104.     Locate 2
105.     Print CenterText$("Level Creator")
106.     Print CenterText$("---------------")
107.     Print
108.     Print CenterText$("The available commands are listed at the bottom of the screen.")
109.     Print CenterText$("When the pen is up, the cursor moves without adding to the level")
110.     Print CenterText$("being created. When the pen is down the current brick is added")
111.     Print CenterText$("to the level being created. The other commands are self explanatory.")
112.     Color 12, 1
113.     Print
114.     Print CenterText$("When the created level is saved, it is saved under " + Chr$(34) + "Level #" + Chr$(34) + ".")
115.     Print CenterText$("If no levels have been created, the default level is used.")
116.     Print CenterText$("If you progress beyond all levels created, the last level created repeats.")
117.     Print
118.     Print
119.     Print
120.     Color 14, 1
121.     Print CenterText$("Game")
122.     Print CenterText$("------")
123.     Print
124.     Print CenterText$("The object of the game is to progress to the next level by")
125.     Print CenterText$("destroying all of the bricks. To do this you must position the")
126.     Print
127.     Color 15, 1
128.     Print CenterText$(Chr$(219) + Chr$(219) + Chr$(219) + Chr$(219) + Chr$(219) + Chr$(219) + Chr$(219) + Chr$(219))
129.     Print
130.     Color 14, 1
131.     Print CenterText$("under the square so that it is reflected toward the bricks using.")
132.     Print CenterText$("the left and right arrow keys.")
133.     Locate 29, 21
134.     Print "Push ";: Color 13, 1: Print "[SPACEBAR]";: Color 14, 1: Print " to set the square in motion."
135.     Print: Print
136.     Color 13, 1: Print CenterText$("Available Commands:"): Color 14, 1: Print
137.     Locate , 10: Print "+ to increase the game speed": Print
138.     Locate , 10: Print "- to decrease the game speed": Print
139.     Locate , 10: Print "P to pause and wait for any key to be pressed": Print
140.     Locate , 10: Print "M to toggle mute on and off": Print
141.     Locate , 10: Print "[ESC] to return to the main menu"
142.     Print
143.     Print CenterText$("Push C to turn on debug mode and O to turn it off.")
144.     Locate 48
145.     Color 15, 1
146.     Print CenterText$("Push any key to continue.")
147.  
148.  
149.     Call P
150.  
151.  
152.  
153.  
154.  
155. End Sub
156.  
157. Function CenterText$ (thisString$)
158.  
159.     returnString$ = Space$(Int((80 - Len(thisString$)) / 2)) + thisString$
160.     CenterText = returnString$
161. End Function
162.  
163. Sub PrintBrick (x, y, onOrOff)
164.     If onOrOff = TRUE Then
165.         useColor = board(x, y, 2) 'print the brick instead of erasing it, pick up the color there
166.     ElseIf onOrOff = FALSE Then
167.         useColor = 1
168.     End If
169.     For across = 0 To 5
170.         Locate y, x + across
171.         Color useColor
172.         Print Chr$(219)
173.         board(x + across, y, 1) = 219
174.         board(x + across, y, 2) = useColor
175.     Next across
176.     If onOrOff = FALSE Then
177.         numberOfBricks = numberOfBricks - 1
178.         score = score + 5
179.     End If
180. End Sub
181.  
182. Sub PrintLevel
183.     For x = 1 To 80: For y = 1 To 48 'make the board blue
184.             board(x, y, 1) = 219 '    ASCII code of board space
185.             board(x, y, 2) = 1 '      color of board space
186.     Next y: Next x
187.     Color 1, 1: Cls
188.     'print left, right and top borders
189.     For y = 1 To 48
190.         Locate y, 1: Color 12, 1: Print Chr$(219) 'print the left border to the screen
191.         Locate y, 80: Color 12, 1: Print Chr$(219) 'print the right border to the screen
192.         Call PlaceChar(1, y, 219, 12) ' put the position, ASCII code and color on the board to make the left border
193.         Call PlaceChar(80, y, 219, 12) ' same to make the left border on the board
194.     Next y
195.     For x = 1 To 80
196.         Locate 1, x: Color 12, 1: Print Chr$(219) 'print the top border to the screen
197.         Call PlaceChar(x, 1, 219, 12) ' put the top border on the board
198.     Next x
199.     paddleLeft = 36
200.     Call PrintPaddle(TRUE) ' put the paddle on the board with the left at x coordinate 36
201.     ball.x = 40: ball.y = 47 ' position the ball/moving square
202.     Call PrintBall(TRUE) ' put the ball on the board
203.     ballDirection = Int(Rnd * 2) + 1 'randomize the starting direction of the ball as up and left or up and right
204.  
205.     If lastLevelCreated <> 0 Then
206.         filename$ = "Level " + S$(currentLevel)
207.         If _FileExists(filename$) = 0 Then filename$ = "Level " + S$(lastLevelCreated)
208.         ' If _FileExists(filename$) = 0 Then Print " no level file found": End ' <---- DEBUG
209.         Open filename$ For Input As #1 'open the file with the level information
210.         For xCounting = 2 To 79 ' x coordinate of the board
211.             For yCounting = 2 To 46 ' y coordinate of the board
212.                 Input #1, boardColor$ ' get the color of the board at xCounting, yCounting
213.                 board(xCounting, yCounting, 2) = Val(boardColor$) 'color the board at xCounting, yCounting
214.         Next: Next
215.         '        LOCATE 20, 20: COLOR 15, 0: PRINT "Filename: " + filename$: CALL P
216.         Close #1
217.     Else ' if no levels were created
218.         For x = 2 To 79
219.             Call PlaceChar(x, 2, 219, 14) 'put a yellow (14) block (219) at x, y on the board
220.             Call PlaceChar(x, 4, 219, 14)
221.             Call PlaceChar(x, 6, 219, 14)
222.         Next x
223.         lastLevelCreated = 1 'DEBUG CODE
224.     End If
225.     numberOfBricks = 0 ' after a level has been put on the board, count the number of bricks on it
226.     For brickCountingY = 2 To 47
227.         For brickCountingX = 2 To 79 Step 6 'each brick is 6 blocks long
228.             If board(brickCountingX, brickCountingY, 2) <> 1 Then numberOfBricks = numberOfBricks + 1
229.     Next: Next
230.     Call PrintBoard 'print the board to the screen
231.     spaceToStart = FALSE 'spacebar has yet to be puched to start the current level
232. End Sub
233.  
234. Sub Main
235.  
236.     Call PrintLevel 'put the current level on the board and print it out
237.     printOutBoard = FALSE ' to avoid flicker of the board being constantly printed, the need to print it is false
238.     delaySpeed = 0.029 'delay to use inside the main DO-LOOP
239.     Do
240.         Locate 48, 1: Print "Level"; currentLevel; ' DEBUG OUTPUT
241.         debugging$ = InKey$ 'using strings instead of _KEYDOWN(code) is easier. i initially added INKEY$ for debugging
242.         If spaceToStart = TRUE Then ' the spacebar has been hit to start the game
243.             Call PrintBall(FALSE) 'remove the ball from the board
244.             Call MoveBall 'move the ball in the current direction
245.             Call PrintBall(TRUE) 'put the ball on the board at the new position
246.             If _KeyDown(leftDirection) = -1 Then 'the left arrow key had been pushed
247.                 Call PrintPaddle(FALSE) ' remove the paddle from the board
248.                 paddleLeft = paddleLeft - 1.5 ' move the paddle leftward
249.                 Call PrintPaddle(TRUE) ' put the paddle on the board at the new position
250.                 printOutBoard = TRUE 'it is now needed to print the board to the screen
251.             ElseIf _KeyDown(rightDirection) = -1 Then
252.                 Call PrintPaddle(FALSE)
253.                 paddleLeft = paddleLeft + 1.5
254.                 Call PrintPaddle(TRUE)
255.                 printOutBoard = TRUE
256.             End If
257.             If printOutBoard = TRUE Then 'print the board to the screen
258.                 Call PrintBoard ' print the board to the screen
259.                 printOutBoard = FALSE 'stop the board from being printed now
260.             End If
261.             If numberOfBricks = 0 Then 'there are no bricks left on the board
262.                 ' lastLevelCreated = currentLevel  ' DEBUG SETTING
263.                 currentLevel = currentLevel + 1 'increment the current level
264.                 Call PrintLevel 'put the newest level on the board
265.                 spaceToStart = FALSE 'the spacebar has not been pressed since the new level has been output
266.                 score = score + 200 '200 points for finishing a level
267.                 If mute = -1 Then Play successBeep '1 is mute, -1 is note muted
268.             End If
269.         End If
270.         If debugging$ = "C" Then debugMode = TRUE
271.         If debugging$ = "O" Then debugMode = FALSE
272.         If _KeyDown(32) = -1 Then ' the spacebar has been pushed
273.             spaceToStart = TRUE ' the spacebar has been pushed
274.             printOutBoard = TRUE ' it is needed to print the board to the screen
275.         End If
276.         _Delay (delaySpeed) ' insert a delay to make the movement playable and visible
277.         If numberOfGuys = 0 Then Call EndOfGame
278.         If score Mod 2000 = 0 And score <> 0 Then numberOfGuys = numberOfGuys + 1 ' new guy every 2,000 points
279.         If debugging$ = "+" Then 'increase the game speed
280.             delaySpeed = delaySpeed - 0.01
281.             If delaySpeed < 0 Then delaySpeed = 0 'don't allow a negative delay
282.         End If
283.         If debugging$ = "-" Then delaySpeed = delaySpeed + 0.005 'decrease the game speed
284.         If debugging$ = "m" Or debugging$ = "M" Then mute = mute * -1 'turn mute on or off
285.         If debugging$ = "p" Or debugging$ = "P" Then pause$ = Input$(1) 'pause the game
286.         If debugging$ = Chr$(27) Then Exit Do 'end the game and return to the main menu
287.         ' DEBUG CODE TO JUMP LEVEL
288.         If debugging$ = "j" Then
289.             numberOfBricks = 0 ' jump to the next level
290.             '            lastLevelCreated = lastelevelcreated + 1
291.         End If
292.         ' END DEBUG CODE
293.     Loop
294. End Sub
295.  
296. Sub EndOfGame
297. End Sub
298.  
299. Sub MoveBall
300.     Select Case ballDirection
301.         Case upAndRight
302.             Call MoveUpAndRight
303.         Case upAndLeft
304.             Call MoveUpAndLeft
305.         Case downAndRight
306.             Call MoveDownAndRight
307.         Case downAndLeft
308.             Call MoveDownAndLeft
309.     End Select
310. End Sub
311.  
312. Function Report (x, y)
313.     'if 12 then border, if 1 then background, if 15 then paddle, else brick
314.     rtn = -1
315.     If board(x, y, 2) = 12 Then
316.         rtn = theWall
317.     ElseIf board(x, y, 2) = 1 Then
318.         rtn = theBackground
319.     ElseIf board(x, y, 2) = 15 Then
320.         rtn = thePaddle
321.     Else
322.         rtn = theBrick
323.     End If
324.     Report = rtn
325. End Function
326.  
327. Sub MoveUpAndRight
328.     Select Case Report(ball.x + 1, ball.y - 1)
329.         Case theBackground
330.             ball.x = ball.x + 1
331.             ball.y = ball.y - 1
332.         Case theWall
333.             If mute = -1 Then Play hitWallSound
334.             If ball.x + 1 = 80 Then
335.                 'hit the right wall
336.                 ballDirection = upAndLeft
337.             ElseIf ball.y - 1 = 1 Then
338.                 'hit top wall
339.                 ballDirection = downAndRight
340.             End If
341.         Case theBrick
342.             If mute = -1 Then Play hitBrickSound
343.             leftSideOfBrick = findBrickLeft(ball.x + 1)
344.             vertOfBrick = findBrickVertical(ball.y - 1)
345.             Call PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
346.             ballDirection = downAndRight
347.     End Select
348. End Sub
349.  
350. Sub MoveUpAndLeft
351.     Select Case Report(ball.x - 1, ball.y - 1)
352.         Case theBackground
353.             ball.x = ball.x - 1
354.             ball.y = ball.y - 1
355.         Case theWall
356.             If mute = -1 Then Play hitWallSound
357.             If ball.x - 1 = 1 Then
358.                 ballDirection = upAndRight
359.             ElseIf ball.y - 1 = 1 Then 'hit the top
360.                 ballDirection = downAndLeft
361.             End If
362.         Case theBrick
363.             If mute = -1 Then Play hitBrickSound
364.             leftSideOfBrick = findBrickLeft(ball.x - 1)
365.             vertOfBrick = findBrickVertical(ball.y - 1)
366.             Call PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
367.             ballDirection = downAndLeft
368.     End Select
369. End Sub
370.  
371. Sub MoveDownAndRight
372.     Select Case Report(ball.x + 1, ball.y + 1)
373.         Case theBackground
374.             If ball.y + 1 = 48 Then
375.                 If debugMode = FALSE Then
376.                     manDied = TRUE
377.                     score = score - 50
378.                     spaceToStart = FALSE
379.                     Call PrintPaddle(FALSE)
380.                     Call PrintBall(FALSE)
381.                     ball.x = 40: ball.y = 47
382.                     Call PrintBall(TRUE)
383.                     paddleLeft = 36
384.                     Call PrintPaddle(TRUE)
385.                     ballDirection = Int(Rnd * 2) + 1
386.                     If mute = -1 Then Play deathSound
387.                     numberOfGuys = numberOfGuys - 1
388.                     Call PrintBoard
389.                 Else
390.                     If mute = -1 Then Play hitWallSound
391.                     ballDirection = upAndRight
392.                     ball.x = ball.x + 1
393.                     ball.y = ball.y - 1
394.                 End If
395.             Else
396.                 ball.x = ball.x + 1
397.                 ball.y = ball.y + 1
398.             End If
399.         Case theWall
400.             If mute = -1 Then Play hitWallSound
401.             If ball.x + 1 = 80 Then ballDirection = downAndLeft
402.         Case theBrick
403.             If mute = -1 Then Play hitBrickSound
404.             leftSideOfBrick = findBrickLeft(ball.x + 1)
405.             vertOfBrick = findBrickVertical(ball.y + 1)
406.             Call PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
407.             ballDirection = upAndRight
408.         Case thePaddle
409.             If mute = -1 Then Play hitPaddleSound
410.             ballDirection = upAndRight
411.     End Select
412. End Sub
413.  
414. Sub MoveDownAndLeft
415.     Select Case Report(ball.x - 1, ball.y + 1)
416.         Case theBackground
417.             If ball.y + 1 = 48 Then
418.                 If debugMode = FALSE Then
419.                     manDied = TRUE
420.                     score = score - 50
421.                     spaceToStart = FALSE
422.                     Call PrintPaddle(FALSE)
423.                     Call PrintBall(FALSE)
424.                     ball.x = 40: ball.y = 47
425.                     Call PrintBall(TRUE)
426.                     paddleLeft = 36
427.                     Call PrintPaddle(TRUE)
428.                     ballDirection = Int(Rnd * 2) + 1
429.                     If mute = -1 Then Play deathSound
430.                     numberOfGuys = numberOfGuys - 1
431.                     Call PrintBoard
432.                 Else
433.                     If mute = -1 Then Play hitWallSound
434.                     ballDirection = upAndLeft
435.                     ball.x = ball.x - 1
436.                     ball.y = ball.y - 1
437.                 End If
438.             Else
439.                 ball.x = ball.x - 1
440.                 ball.y = ball.y + 1
441.             End If
442.         Case theWall
443.             If mute = -1 Then Play hitWallSound
444.             If ball.x - 1 = 1 Then ballDirection = downAndRight
445.         Case theBrick
446.             If mute = -1 Then Play hitBrickSound
447.             leftSideOfBrick = findBrickLeft(ball.x - 1)
448.             vertOfBrick = findBrickVertical(ball.y + 1)
449.             Call PrintBrick(leftSideOfBrick, vertOfBrick, FALSE)
450.             ballDirection = upAndLeft
451.         Case thePaddle
452.             If mute = -1 Then Play hitPaddleSound
453.             ballDirection = upAndLeft
454.     End Select
455. End Sub
456.  
457. Function findBrickLeft (x)
458.     rtn = 0
459.     For cnt = 2 To 79 Step 6
460.         If cnt <= x And x <= cnt + 5 Then rtn = cnt
461.     Next cnt
462.     findBrickLeft = rtn
463. End Function
464.  
465. Function findBrickVertical (y)
466.     rtn = 0
467.     For cnt = 2 To 47
468.         If cnt = y Then rtn = cnt
469.     Next
470.     findBrickVertical = rtn
471. End Function
472.  
473. Sub PrintBall (onOrOff)
474.     If onOrOff = TRUE Then
475.         useColor = 11
476.     ElseIf onOrOff = FALSE Then
477.         useColor = 1
478.     End If
479.     Color useColor, 1: Locate ball.y, ball.x: Print Chr$(254)
480.     Call PlaceChar(ball.x, ball.y, 254, useColor)
481. End Sub
482.  
483. Sub PrintPaddle (onOrOff)
484.     If onOrOff = TRUE Then
485.         theColor = 15
486.     ElseIf onOrOf = FALSE Then
487.         theColor = 1
488.     Else
489.         Color 14, 1: Locate 40, 10: Print "error inside if block in PrintPaddle": Call P: End
490.     End If
491.     If paddleLeft < 2 Then paddleLeft = 2
492.     If paddleLeft > 72 Then paddleLeft = 72
493.     For across = 0 To 7
494.         Locate 48, Int(paddleLeft) + across: Color theColor: Print Chr$(219)
495.         Call PlaceChar(Int(paddleLeft) + across, 48, 219, theColor)
496.     Next across
497. End Sub
498.  
499. Sub PlaceChar (X, Y, char, clr)
500.     board(X, Y, 1) = char
501.     board(X, Y, 2) = clr
502. End Sub
503. Sub PrintBoard
504.     For y = 2 To 48: For x = 2 To 79
505.             this$ = Chr$(board(x, y, 1))
506.             theColor = board(x, y, 2)
507.             Color theColor, 1
508.             If theColor = 11 Then
509.                 Locate y, x
510.                 Print Chr$(254)
511.             Else 'IF theColor <> 1 THEN
512.                 Locate y, x
513.                 Print Chr$(219)
514.             End If
515.     Next x: Next y
516.     Locate 1, 3: Color 10, 12: Print "Men: " + S$(numberOfGuys);
517.     Print "                    Bricks remaining: " + S$(numberOfBricks) + "     ";
518.     Print "               Score: " + S$(score) + "  "
519. End Sub
520.  
521. Sub CreationMain
522.     penUp = TRUE
523.     eraserOn = FALSE
524.     currentColor = 0
525.     brick.x = 2
526.     brick.y = 2
527.     For countX = 2 To 79
528.         For countY = 2 To 46
529.             creationBoard(countX, countY) = 1
530.     Next: Next
531.     Call PrintBackdrop
532.     Call PrintCreationBoard
533.     Call PrintCreationBrick
534.     printOutCurrentBoard = FALSE
535.     Do
536.         whichCommand$ = InKey$
537.         Select Case whichCommand$
538.             Case "P", "p"
539.                 If penUp = TRUE Then
540.                     penUp = FALSE
541.                     Call PutBrickOnBoard
542.                 ElseIf penUp = FALSE And eraserOn = FALSE Then
543.                     penUp = TRUE
544.                 End If
545.                 Call PrintBackdrop
546.                 printOutCurrentBoard = TRUE
547.             Case "E", "e"
548.                 If eraserOn = FALSE Then
549.                     eraserOn = TRUE
550.                     currentColor = 1
551.                     penUp = FALSE
552.                     Call PutBrickOnBoard
553.                 ElseIf eraserOn = TRUE Then
554.                     eraserOn = FALSE
555.                     currentColor = 0
556.                     penUp = TRUE
557.                 End If
558.                 printOutCurrentBoard = TRUE
559.             Case "C", "c"
560.                 If currentColor = 0 Then
561.                     currentColor = 2
562.                 ElseIf currentColor = 10 Then
563.                     currentColor = 13
564.                 ElseIf currentColor < 14 Then
565.                     currentColor = currentColor + 1
566.                 ElseIf currentColor = 14 Then
567.                     currentColor = 0
568.                 End If
569.                 printOutCurrentBoard = TRUE
570.                 If penUp = FALSE Then Call PutBrickOnBoard
571.             Case "A", "a"
572.                 penUp = TRUE
573.                 eraserOn = FALSE
574.                 currentColor = 0
575.                 For xCount = 2 To 79
576.                     For yCount = 2 To 46
577.                         creationBoard(xCount, yCount) = 1
578.                 Next: Next
579.                 printOutCurrentBoard = TRUE
580.             Case "s", "S"
581.                 Call SaveBoard
582.             Case Chr$(0) + "H" ' up
583.                 If brick.y > 2 Then
584.                     brick.y = brick.y - 1
585.                     If penUp = FALSE Then Call PutBrickOnBoard
586.                     printOutCurrentBoard = TRUE
587.                 End If
588.             Case Chr$(0) + "K" ' left
589.                 If brick.x > 7 Then
590.                     brick.x = brick.x - 6
591.                     If penUp = FALSE Then Call PutBrickOnBoard
592.                     printOutCurrentBoard = TRUE
593.                 End If
594.             Case Chr$(0) + "P" ' down
595.                 If brick.y < 47 Then
596.                     brick.y = brick.y + 1
597.                     If penUp = FALSE Then Call PutBrickOnBoard
598.                     printOutCurrentBoard = TRUE
599.                 End If
600.             Case Chr$(0) + "M" ' right
601.                 If brick.x < 73 Then
602.                     brick.x = brick.x + 6
603.                     If penUp = FALSE Then Call PutBrickOnBoard
604.                     printOutCurrentBoard = TRUE
605.                 End If
606.             Case Chr$(27)
607.                 Exit Do
608.         End Select
609.         If printOutCurrentBoard = TRUE Then
610.             Call PrintBackdrop
611.             Call PrintCreationBoard
612.             Call PrintCreationBrick
613.             printOutCurrentBoard = FALSE
614.         End If
615.     Loop
616. End Sub
617.  
618. Sub SaveBoard
619.     Color 10, 0
620.     Cls
621.     highestLevel = 0
622.     Do
623.         highestLevel = highestLevel + 1
624.         filename$ = "Level " + LTrim$(Str$(highestLevel))
625.     Loop Until _FileExists(filename$) = 0
626.     Locate 10, 10
627.     Print "The game board has been saved as " + Chr$(34) + "Level " + LTrim$(Str$(highestLevel)) + Chr$(34)
628.     Print
629.     Print "It will automatically be loaded after Level " + S$(highestLevel - 1) + " is completed."
630.     Print
631.     Open filename$ For Output As #1
632.     For x = 2 To 79
633.         For y = 2 To 46
634.             Color 10, 0: Locate 15, 15: Print "Working"
635.             stringOut$ = LTrim$(Str$(creationBoard(x, y)))
636.             If Len(stringOut$) = 1 Then stringOut$ = " " + stringOut$
637.             Print #1, stringOut$
638.             Color 0, 0: Locate 15, 15: Print "Working"
639.     Next: Next
640.     Close #1
641.     Color 10, 0
642.  
643.     a$ = "Push " + Chr$(34) + "A" + Chr$(34) + " to make (a)nother level"
644.     Locate 30, (80 - Len(a$)) / 2
645.     Print a$
646.     pause$ = Input$(1)
647.     If UCase$(pause$) = "A" Then
648.         Call CreationMain
649.     Else
650.         End
651.     End If
652. End Sub
653.  
654. Sub PutBrickOnBoard
655.     For counting = 0 To 5
656.         creationBoard(brick.x + counting, brick.y) = currentColor
657.     Next counting
658. End Sub
659.  
660. Sub PrintCreationBrick
661.     If penUp = TRUE And eraserOn = FALSE Then
662.         Locate brick.y, brick.x
663.         Color 15, 1
664.         Print Chr$(219)
665.     ElseIf penUp = FALSE And eraserOn = TRUE Then
666.         Locate brick.y, brick.x
667.         Color 7, 1
668.         Print "-"
669.     Else
670.         Locate brick.y, brick.x
671.         Color currentColor, 1
672.         Print Chr$(219)
673.     End If
674.     For count = 1 To 5
675.         Locate brick.y, brick.x + count
676.         If eraserOn = TRUE Then
677.             Color 7, 1
678.             Print "-"
679.         Else
680.             Color currentColor, 1
681.             Print Chr$(219)
682.         End If
683.     Next
684. End Sub
685.  
686.  
687. Sub PrintCreationBoard
688.     Call PrintBackdrop
689.     For y = 2 To 46
690.         For x = 2 To 79
691.             Color creationBoard(x, y), 1
692.             Locate y, x
693.             Print Chr$(219)
694.     Next: Next
695. End Sub
696.  
697. Sub PrintBackdrop
698.     Color 1, 1: Cls
699.     Color 12, 1
700.     For x = 1 To 80
701.         Locate 1, x: Print Chr$(219)
702.     Next
703.     For y = 1 To 48
704.         Locate y, 1: Print Chr$(219)
705.         Locate y, 80: Print Chr$(219)
706.     Next
707.     Color 14, 1
708.     Locate 47, 3
709.     Print "Use the Arrow Keys To Move      P - Pen ";
710.     If penUp = TRUE Then
711.         Color 10, 1
712.         Print "up";
713.         Color 14, 1
714.         Print "/";
715.         Color 7, 1
716.         Print "down";
717.     Else
718.         Color 7, 1
719.         Print "up";
720.         Color 14, 1
721.         Print "/";
722.         Color 10, 1
723.         Print "down";
724.     End If
725.     Print "       ";
726.     If currentColor = 0 Then
727.         Color 0, 7
728.     Else
729.         Color currentColor, 0
730.     End If
731.     Print "C - Cycle colors"
732.     Locate 48, 2
733.     Color 14, 1: Print "E - Eraser ";
734.     'LOCATE 20, 20: COLOR 15, 0: PRINT "eraserOn = " + S$(eraserOn): CALL P
735.     '    LOCATE 48, 26
736.     If eraserOn = TRUE Then
737.         Color 10, 1
738.         Print "On";
739.         Color 14, 1: Print "/";
740.         Color 7, 1
741.         Print "Off";
742.     Else
743.         Color 7, 1
744.         Print "On";
745.         Color 14, 1
746.         Print "/";
747.         Color 10, 1
748.         Print "Off";
749.     End If
750.     Color 14, 1
751.     Print "     A - Clear All";
752.     Print "     S - Save     [ESC] - End Without Save"
753.     Call PrintCreationBrick
754.     '    LOCATE 45, 10: COLOR 10, 1: PRINT "eraserOn = " + S$(eraserOn)
755. End Sub
756.  
757.  
758. Sub P
759.     pause$ = Input$(1)
760.     If pause$ = Chr$(27) Then End
761. End Sub
762.  
763. Function S$ (number)
764.     S$ = LTrim$(Str$(number))
765. End Function
766.  

PS You have duplicated

Code: QB64: [Select]

1. width 80,50

at start of program.

[George McGinn]

While I was typing my response, I was saying the same thing as @TempodiBasic in that I cannot repeat the issue (Running in both the stable and current development release of v1.5) you are having.

I have noticed a pattern to the way the ball bounces around, and ran into an issue where it does not get to all the bricks, no matter how long you play (see screen capture below).

Also, these patterns are predictable, which means that I was able to place the paddle in certain spots and keep the game going.

I would add a random bounce generator and vary the speed of the ball either coming off the paddle or the tiles. If I remember the game from back then, I believe you could impart spin or something similar (like changing the direction of the ball's travels, not quite spin, but mimics it).

All in all, I was transported back in time, and the game has promise.

The three bricks (it says 4, but I wonder if that is an error) I could never reach due to the limited way the ball bounces:
  [ You are not allowed to view this attachment ]  

[johnno56]

Another method to alter the 'predictable' problem... When a level starts, don't put the paddle and ball in the middle. Randomize the starting position of the paddle. It doesn't need to be much or you can make it as wild as you like. Just remember to place the ball in the middle of the paddle. You could also randomly choose which direction the ball will start moving.

[Jaze]

George McGinn, I have never had the problem where all the bricks do not get destroyed. To test it I put it in debug mode and ramped the speed to max. Nevertheless, putting the paddle in a random starting position is a good idea. To everyone else who looked into the code, thank you. I look forward to finishing the program. I intend to add a falling letter from a brick at random when it is destroyed, For example a falling "E" could expand the length of the paddle while an "S" would shrink it. I've got some other ideas about that too. Not sure how difficult it will be but I do want to get the program completed in its current form without errors before upgrading it. Thanks again.

[Jaze]

TempodiBasic, I added the

Code: QB64: [Select]

1. lastLevelCreated = 1

and it fixed the problem but I have no idea why. Thanks.