Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Jaze on May 17, 2021, 04:55:58 pm

Title: BreakThru won't work and I'm only at the beginning
Post by: Jaze on May 17, 2021, 04:55:58 pm
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.  
  18. GOTO beginning
  19. crap:
  20. PRINT "Error, error line"
  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
  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
  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
  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
  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
  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
Title: Re: BreakThru won't work and I'm only at the beginning
Post by: bplus on May 17, 2021, 05:38:01 pm
Oh do you mean Breakout?

I can't figure out what you are using to track your paddle location? PaddleX, PaddleY
Title: Re: BreakThru won't work and I'm only at the beginning
Post by: Jaze on May 17, 2021, 06:04:11 pm
Never mind. Found the error. Thanks anyway
Text Only | Text with Attachments