« previous next »
Pages: 1 [2]   Go Down

Author Topic: Brick Smasher  (Read 6117 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Brick Smasher
« Reply #15 on: July 08, 2019, 11:17:11 am »
Actually I take that back, I think I know a way to control the ball. I'll try it anyway soon.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Brick Smasher
« Reply #16 on: July 08, 2019, 12:47:10 pm »
OK here it is... There's some control, maybe 3/4 of it is control or so, but there's also a lot of random. I'm no genius so I can't say exactly how this goes lol, but it plays fine for me. :)
I used the oldwheel again to see which direction the paddle is moving when you hit the ball. Tell me what you think, thanks. I think the reason why it's not 100% control is because the computer loops faster than you move the wheel, but that's OK, it kinda adds some challenge to the game.

Code: QB64: [Select]
  1. 'Brick Smasher was created by Ken G. with some help from people at the QB64.org forum, thanks!
  2. 'This game is freeware.
  3. start:
  4. SCREEN _NEWIMAGE(640, 480, 32)
  8. paddles = 10
  9. x = 300: y = 450
  10. points = 0
  11. level = 0
  12. snd = 950
  13. FOR yyy = 10 TO 440 STEP 10
  14.     _LIMIT 300
  16.     sz = INT(RND * 50) + 10
  18.     xxx = INT(RND * 570) + 10
  20.     c = INT(RND * 225) + 30
  22.     c2 = INT(RND * 225) + 30
  24.     c3 = INT(RND * 225) + 30
  25.     CIRCLE (xxx, yyy), sz, _RGB32(c, c2, c3)
  26.     PAINT (xxx, yyy), _RGB32(c, c2, c3), _RGB32(c, c2, c3)
  27.     _DELAY .1
  28.     snd = snd - 10
  29.     SOUND snd, .25
  30.     CIRCLE (xxx, yyy), sz, _RGB32(0, 0, 0)
  31.     PAINT (xxx, yyy), _RGB32(0, 0, 0)
  32. NEXT yyy
  33. SOUND 100, .5
  34. LOCATE 7, 28: PRINT "B R I C K   S M A S H E R"
  35. LOCATE 10, 28: PRINT "       By Ken G."
  39. PRINT "                 You start with 10 Paddles."
  40. PRINT "                 Use the mouse wheel to move."
  42. PRINT "                 Press Esc anytime to quit."
  44. INPUT "                 Press Enter Key to start!", st$
  46. 'This starts a new level.
  47. levels:
  48. DIM brick(500), xx(500), yy(500)
  49. SCREEN _NEWIMAGE(640, 480, 32)
  52. IF b = 0 THEN GOTO skip2:
  53. FOR tt = 1 TO b
  54.     brick(tt) = 0
  55.     xx(tt) = 0
  56.     yy(tt) = 0
  57. NEXT tt
  58. b = 0
  59. bb = 0
  60. t = 0
  61. skip2:
  63. col = INT(RND * 225) + 30
  65. col2 = INT(RND * 225) + 30
  67. col3 = INT(RND * 225) + 30
  68. level = level + 1
  69. level$ = STR$(level)
  70. score$ = STR$(points)
  71. paddles$ = STR$(paddles)
  72. titl$ = "Brick Smasher"
  73. titl2$ = "Score:" + score$
  74. titl3$ = "Paddles:" + paddles$
  75. titl4$ = "Level:" + level$
  76. setup:
  77. 'This loads all the bricks into memory.
  78. FOR yy = 50 TO 250 STEP 50
  79.     col = col + 500
  80.     FOR xx = 100 TO 500 STEP 100
  81.         b = b + 1
  82.         xx(b) = xx
  83.         yy(b) = yy
  84.         LINE (xx, yy)-(xx + 50, yy + 5), _RGB32(col, col2, col3), BF
  85.     NEXT xx
  86. NEXT yy
  87. go:
  88. up = 1
  89. down = 0
  90. right = 0
  91. left = 0
  93. upx = INT(RND * 10) - 5
  94. IF paddles < 10 OR level > 1 THEN
  95.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  96.     PAINT (oldbx, oldby), _RGB32(0, 0, 0)
  97.     LINE (oldx, oldy)-(oldx + 80, oldy + 10), _RGB32(0, 0, 0), BF
  99. bx = x + 20
  100. by = y - 6
  101. oldbx = bx
  102. oldby = by
  103. oldx = x
  104. oldy = y
  105. LINE (x, y)-(x + 80, y + 10), _RGB32(255, 0, 0), BF
  106. mouseWheel = 0
  107. go2:
  108. oldwheel = mouseWheel
  110.     mouseX = _MOUSEX
  111.     mouseY = _MOUSEY
  112.     mouseLeftButton = _MOUSEBUTTON(1)
  113.     mouseRightButton = _MOUSEBUTTON(2)
  114.     mouseMiddleButton = _MOUSEBUTTON(3)
  115.     mouseWheel = mouseWheel + _MOUSEWHEEL
  118. LOCATE 1, 1: PRINT titl$
  119. LOCATE 1, 16: PRINT titl2$
  120. LOCATE 1, 36: PRINT titl3$ + "   "
  121. LOCATE 1, 50: PRINT titl4$
  122.  
  123. a$ = INKEY$
  124. IF a$ = CHR$(27) THEN END
  125.  
  126. 'Right
  127. IF mouseWheel > oldwheel THEN
  128.     moveright = 1
  129.     moveleft = 0
  130.     nomove = 0
  131.     oldx = x
  132.     x = x + 20
  133.     IF x > 560 THEN x = 560
  134.     IF oldx <> x THEN
  135.         LINE (oldx, oldy)-(oldx + 80, oldy + 10), _RGB32(0, 0, 0), BF
  136.         LINE (x, y)-(x + 80, y + 10), _RGB32(255, 0, 0), BF
  137.     END IF
  139.  
  140. 'Left
  141. IF mouseWheel < oldwheel THEN
  142.     moveleft = 1
  143.     moveright = 0
  144.     nomove = 0
  145.     oldx = x
  146.     x = x - 20
  147.     IF x < 0 THEN x = 0
  148.     IF oldx <> x THEN
  149.         LINE (oldx, oldy)-(oldx + 80, oldy + 10), _RGB32(0, 0, 0), BF
  150.         LINE (x, y)-(x + 80, y + 10), _RGB32(255, 0, 0), BF
  151.     END IF
  152.  
  154. IF mouseWheel = oldwheel THEN
  155.     nomove = 1
  157.  
  158. IF up = 1 THEN
  159.     oldbx = bx
  160.     oldby = by
  161.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  162.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  163.     bx = bx + upx
  164.     by = by - 2
  165.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  166.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  168.  
  169. IF down = 1 THEN
  170.     oldbx = bx
  171.     oldby = by
  172.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  173.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  174.     bx = bx + downx
  175.     by = by + 2
  176.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  177.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  179.  
  180. IF right = 1 THEN
  181.     oldbx = bx
  182.     oldby = by
  183.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  184.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  185.     bx = bx + 2
  186.     IF down = 1 THEN by = by + 2
  187.     IF up = 1 THEN by = by - 2
  188.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  189.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  191.  
  192. IF left = 1 THEN
  193.     oldbx = bx
  194.     oldby = by
  195.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  196.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  197.     bx = bx - 2
  198.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  199.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  201.  
  202. 'Check the paddle.
  203. IF bx > x - 1 AND bx < x + 81 AND by > y - 1 AND by < y + 11 THEN
  204.     SOUND 200, .5
  205.     up = 1
  206.     down = 0
  207.     IF moveright = 1 THEN
  208.         right = 1
  209.         left = 0
  210.         nomove = 0
  211.         moveleft = 0
  212.         nomove = 0
  213.         downx = (oldwheel + mouseWheel) / 2
  214.         olddownx = downx
  215.     END IF
  216.     IF moveleft = 1 THEN
  217.         left = 1
  218.         right = 0
  219.         nomove = 0
  220.         moveright = 0
  221.         nomove = 0
  222.         downx = (oldwheel - mouseWheel) / 2
  223.         olddownx = downx
  224.     END IF
  225.     IF nomove = 1 THEN
  226.         downx = -(olddownx)
  227.         moveright = 0
  228.         moveleft = 0
  229.     END IF
  230.     oldbx = bx
  231.     oldby = by
  232.     bx = bx - upx
  233.     by = by - 7
  234.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  235.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  236.     LINE (x, y)-(x + 80, y + 10), _RGB32(255, 0, 0), BF
  238.  
  239. 'Check Bricks
  240. FOR yy = 50 TO 250 STEP 50
  241.     FOR xx = 100 TO 500 STEP 100
  242.         bb = bb + 1
  243.         IF brick(bb) = 1 THEN GOTO nextbrick:
  244.         IF bx > xx(bb) - 1 AND bx < xx(bb) + 51 AND by > yy(bb) - 1 AND by < yy(bb) + 6 THEN
  245.             points = points + 10
  246.             CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  247.             PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  248.             SOUND 600, .5
  249.             LINE (xx(bb), yy(bb))-(xx(bb) + 50, yy(bb) + 5), _RGB32(0, 0, 0), BF
  250.             brick(bb) = 1
  251.             IF up = 1 THEN
  252.                 up = 0:
  253.                 down = 1
  254.                 GOTO skip:
  255.             END IF
  256.             IF down = 1 THEN
  257.                 down = 0
  258.                 up = 1
  259.             END IF
  260.             skip:
  261.             CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  262.             PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  263.             level$ = STR$(level)
  264.             score$ = STR$(points)
  265.             titl$ = "Brick Smasher"
  266.             titl2$ = "Score:" + score$
  267.             titl3$ = "Paddles:" + paddles$
  268.             titl4$ = "Level:" + level$
  269.             t = t + 1
  270.             IF t = 25 GOTO levels:
  271.         END IF
  272.         nextbrick:
  273.     NEXT xx
  274. NEXT yy
  275. bb = 0
  276.  
  277. IF bx < 6 THEN
  278.     right = 1
  279.     left = 0
  281.     rightx = RND * 2 + 1
  282.     oldbx = bx
  283.     oldby = by
  284.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  285.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  286.     bx = bx + rightx
  287.     IF down = 1 THEN
  288.         olddownx = downx
  289.         RANDOMIZE TIMER
  290.         downx = RND * 2 + 1
  291.         bx = bx + downx
  292.     END IF
  293.     IF up = 1 THEN
  294.         by = by - 2
  295.         RANDOMIZE TIMER
  296.         upx = RND * 2 + 1
  297.         bx = bx + upx
  298.     END IF
  299.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  300.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  302.  
  303. IF bx > 634 THEN
  304.     left = 1
  305.     right = 0
  307.     leftx = RND * 3 - 3
  308.     oldbx = bx
  309.     oldby = by
  310.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  311.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  312.     bx = bx - leftx
  313.     IF down = 1 THEN
  314.         olddownx = downx
  315.         RANDOMIZE TIMER
  316.         downx = RND * 3 - 3
  317.         bx = bx + downx
  318.     END IF
  319.     IF up = 1 THEN
  320.         by = by - 2
  321.         RANDOMIZE TIMER
  322.         upx = RND * 3 - 3
  323.         bx = bx + upx
  324.     END IF
  325.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  326.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  328.  
  329.  
  330. IF by > 480 THEN
  331.     up = 1
  332.     down = 0
  333.     oldbx = bx
  334.     oldby = by
  335.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  336.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  337.     paddles = paddles - 1
  338.     paddles$ = STR$(paddles)
  339.     level$ = STR$(level)
  340.     score$ = STR$(points)
  341.     titl$ = "Brick Smasher"
  342.     titl2$ = "Score:" + score$
  343.     titl3$ = "Paddles:" + paddles$
  344.     titl4$ = "Level:" + level$
  345.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  346.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  347.     IF paddles = 0 THEN
  348.         LOCATE 9, 30
  349.         PRINT " G A M E       O V E R"
  350.         LOCATE 14, 30
  351.         INPUT "Play Again? (Yes/No)", ag$
  352.         IF ag$ = "y" OR ag$ = "Y" OR ag$ = "Yes" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO start:
  353.         END
  354.     END IF
  355.     GOTO go:
  357.  
  358. IF by < 22 THEN
  359.     down = 1
  360.     up = 0
  361.     olddownx = downx
  363.     downx = RND * 5 - 2.5
  364.     oldbx = bx
  365.     oldby = by
  366.     CIRCLE (oldbx, oldby), 5, _RGB32(0, 0, 0)
  367.     PAINT (oldbx, oldby), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  368.     bx = bx + downx
  369.     by = by + downx
  370.     CIRCLE (bx, by), 5, _RGB32(127, 255, 127)
  371.     PAINT (bx, by), _RGB32(255, 0, 0), _RGB32(127, 255, 127)
  372.  
  374.  
  375. GOTO go2:
  376.  
  377.  
  378.  


« Last Edit: July 08, 2019, 12:50:26 pm by SierraKen »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Brick Smasher
« Reply #17 on: July 08, 2019, 05:44:47 pm »
Cool game... That ball has some wicked moves! Lost most of my paddles because of them....   Nicely done!
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Brick Smasher
« Reply #18 on: July 08, 2019, 09:27:03 pm »
Thanks Johno.
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Brick Smasher
« Reply #19 on: July 10, 2019, 06:27:39 am »
Hi SierraKen

I must say Cool! I like sound of the past times!
Colors, the same, fine to use scrolling wheel of the mouse for paddle movements.

Feedback:
Movement of ball is too fancy and mad and at random, it is an your coded feature the absence of incremental speed of the ball.
The passing of the ball among the blocks sometimes leaves a shadow that cancel part of the block with no collision (so I think that this is a graphic bug and not a logic bug)

Lovely
Thanks to  share!
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Brick Smasher
« Reply #20 on: July 10, 2019, 12:39:42 pm »
Thanks TempodiBasic! Yeah, there's some flaws. I tried to update it with some control of the ball, sometimes, lol... It's just the way I made everything that makes it sometimes have no control. I think I will just keep it as it is. Thanks though. :)
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Brick Smasher
« Reply #21 on: July 10, 2019, 12:44:28 pm »
Right. You can't please all of the people all of the time; so the thing to remember is... Just make sure I'm OK with it, and you're golden!

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Brick Smasher
« Reply #22 on: July 10, 2019, 01:06:27 pm »
LOL thanks Pete. :)
Logged
Pages: 1 [2]   Go Up
« previous next »