BreakThru won't work and I'm only at the beginning

[Jaze]

Trying to make a BreakThru clone. As per my abilities, I'm making the clone with strings. BreakThru was a very old Atari 2600 video game. There are bricks on the top of the screen that you have to break through. To do this you have a ball bounce around the screen. The ball cannot go below the bottom of the screen or you lose a life. You have a paddle you can move left or right at the bottom of the screen. The idea is to get the paddle underneath the ball so it bounces to the top of the screen and breaks a brick. I'm only at the beginning of the code but I cannot get the paddle to move to the left and I don't know why. Please help

Code: QB64: [Select]

1. CONST TRUE = 1 '       Constants I put in every program
2. CONST FALSE = 0 '      Constant
3. CONST t$ = "Û" '       I print out chr$(219) often so I use this constsant
4.  
5. WIDTH 80, 50 '         My programs are text based so I use this to get more lines
6. _FULLSCREEN '          Pretty self explanatory. Maximize the window
7. COLOR , 1: CLS '      Make the entire screen blue
8.  
9. 'I share most variables with all the subs and functions
10.  
11. DIM SHARED board(1 TO 80, 1 TO 48, 1 TO 2) ' create the playing area. when I do y as 50 or 49 the screen fucks up. either a character (x, y, 1) or a color (x, y, 2)
12.  
13. 'possibly change the paddle length to make the game easier or harder
14. DIM SHARED paddleLength AS INTEGER: paddleLength = 7
15. DIM SHARED paddleLeft AS INTEGER: paddleLeft = 36
16.  
17. ON ERROR GOTO crap
18. GOTO beginning
19. crap:
20. PRINT "Error, error line"
21. PRINT ERR, _ERRORLINE
22. CALL P
23.  
24. beginning:
25. CALL Main
26.  
27. SUB Main
28.     CALL InstallBackground '          Make the playing area blue with a read boarder
29.     CALL InstallPaddle(TRUE, paddleLeft) '    Put the paddle in the playing area
30.     CALL InstallBall(TRUE, 40, 47) '  Put the ball in the playing area
31.     CALL PrintBoard '                 Display the current board
32.     dontContinuouslyPrintScreen = TRUE
33.  
34.     DO
35.         currentCommand$ = INKEY$
36.         'use the left and right arrow keys
37.         SELECT CASE currentCommand$
38.             CASE CHR$(0) + "K" ' left
39.                 CALL InstallPaddle(FALSE, paddleLeft)
40.                 paddleLeft = paddleLeft - 1
41.                 IF paddleLeft <= 1 THEN paddleLeft = 2
42.                 CALL InstallPaddle(TRUE, paddleLeft)
43.                 dontContinuouslyPrintScreen = FALSE
44.             CASE CHR$(0) + "M" 'right
45.  
46.                 IF dontContinuouslyPrintScreen = FALSE THEN
47.                     CALL PrintBoard
48.                     dontContinuouslyPrintScreen = TRUE
49.                 END IF
50.         END SELECT
51.     LOOP
52. END SUB
53. SUB P '                          I use this for debugging and put it in every program I write
54.     pause$ = INPUT$(1)
55.     IF pause$ = CHR$(27) THEN END
56. END SUB
57.  
58. SUB InstallBackground
59.     FOR x = 1 TO 80 '             make the default board
60.         FOR y = 1 TO 48
61.             board(x, y, 1) = 219 ' make the background on the playiung area blue
62.             board(x, y, 2) = 1 ' make the board print out blocks
63.         NEXT y
64.     NEXT x
65.     FOR y = 1 TO 48
66.         board(1, y, 1) = 219
67.         board(1, y, 2) = 12
68.         board(80, y, 1) = 219
69.         board(80, y, 2) = 12
70.     NEXT y
71.     FOR x = 1 TO 80
72.         board(x, 1, 1) = 219
73.         board(x, 1, 2) = 12
74.     NEXT x
75. END SUB
76.  
77. SUB PrintBoard ' Print out the current board to the screen
78.     FOR x = 1 TO 80
79.         FOR y = 1 TO 48
80.             LOCATE y, x '      position the cursor
81.             COLOR board(x, y, 2), 1 '     make the color of the cursor
82.             PRINT CHR$(board(x, y, 1)) '      display the correct character code for that position
83.         NEXT y
84.     NEXT x
85. END SUB
86.  
87. SUB InstallPaddle (OnOrOff, x) '     put the paddle on the board
88.     FOR count = x TO x + paddleLength '     variable paddle length to make the game easier or harder
89.         IF OnOrOff = TRUE THEN '     put the paddle on the board
90.             board(count, 48, 1) = 219
91.             board(count, 48, 2) = 15
92.         ELSEIF OnOrOff = FALSE THEN '        remove the padde from the board
93.             board(count, 48, 1) = 219
94.             board(count, 48, 2) = 1
95.         END IF
96.     NEXT count
97. END SUB
98.  
99. SUB InstallBall (OnOrOff, x, y)
100.     IF OnOrOff = TRUE THEN '    put the ball on the board
101.         board(x, y, 1) = 254
102.         board(x, y, 2) = 11
103.     ELSEIF OnOrOff = FALSE THEN '      remove the ball from the board
104.         board(x, y, 1) = 219
105.         board(x, y, 2) = 1
106.     END IF
107. END SUB

[bplus]

Oh do you mean Breakout?

I can't figure out what you are using to track your paddle location? PaddleX, PaddleY

[Jaze]

Never mind. Found the error. Thanks anyway