Breakout physics

Community Forums/Showcase/Breakout physics

Yahfree (Posted 2007) [#1]

Hey, i final came out with a sort of a base model for a breakout clone, the physics on how the ball bounces, and all that good stuff. This is my first real "Done" thing i'll be using this base model to construct my breakoutclone in the future. and a special thanks to B32, Slege and many other that put up with me when i was asking all those questions. ;Breakout by Yahfree ;2007-04-4 -> ????-??-(?)? AppTitle "Breakout by Yahfree","Are you sure?" ;Hides our pointer HidePointer ;sets the graphics mode, and the setbuffer Graphics 800,600,32,2 SetBuffer BackBuffer() ;Globalized stuff Global paddle, paddlex=380, paddley=560 Global ball,ballx=380, bally=580, ballxdir#=0, ballydir=-1, move=1, ballsleft=3, life1, life2, life3, speed=1 ;Global blope=LoadSound("Beep.wav") ;Constant numbers that never change.. Const ESC=1, RIGHTARR=205, LEFTARR=203, SPACE=57, MOUSE1=1 ;Mid handles all of the images and creates a image called paddle. AutoMidHandle True paddle=CreateImage(70,15) ball=CreateImage(10,10) ;draws on the empty image container.. SetBuffer ImageBuffer(paddle) Rect 0,0,70,15,1 SetBuffer ImageBuffer(ball) Oval 0,0,10,10,1 SetBuffer BackBuffer() ;Copys the ball image 3 times these will be our lifes displayed on the bottom of the screen. life1=CopyImage(ball) life2=CopyImage(ball) life3=CopyImage(ball) ;!@!@!@!@!@!@!@!@!@!@!@!@!@!@ ;!@!@!@!@ MAIN LOOP !@!@!@!!@ ;!@!@!@!@!@!!@!@!@!@!@!@!@!@! While Not KeyHit(1) Cls ;Calls functions. addplayercontrols() drawmyimages() addcollisions() addtext() ;small delay in the loop for less slow down. ;flips, ends the loop and termanates the program.. Delay 5 Flip Wend End ;Include "Functions.bb" ;Player controls Function addplayercontrols() ;Paddle movemovement and controls paddlex=paddlex+MouseXSpeed() MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 If paddlex<35 paddlex=35 If paddlex>765 paddlex=765 ;Ball control. If move=1 ballx=paddlex If move=1 And ballx<35 ballx=35 If move=1 bally=paddley-15 If move=1 ballydir=-1 ballxdir=0 If KeyHit(30) And speed<25 speed=speed+1 If KeyHit(44) And speed>1 speed=speed-1 If KeyHit(SPACE) Or MouseHit(MOUSE1) move=2 End If ;calls the moveball function if move=2 If move=2 moveball() End If End Function ;Moving the ball Function moveball() ;All physics behind moving the ball and bouncing it. bally=bally+ballydir*speed ballx=ballx+ballxdir*speed If bally<0 ballydir=1 ;PlaySound(blope) If bally>600 move=1 ballydir=-1 ballsleft=ballsleft-1 If ballx<0 ballxdir=1 ;PlaySound(blope) If ballx>800 ballxdir=-1 ;PlaySound(blope) End Function ;All the games collisions.. Function addcollisions() ;collisions If ImagesCollide(paddle,paddlex,paddley,0,ball,ballx,bally,0) ballxdir=(ballx - paddlex)*.025 ballydir=-1 ;PlaySound(blope) End If End Function ;Draws the images Function drawmyimages() ;Draws the images... DrawImage paddle,paddlex,paddley DrawImage ball,ballx,bally If ballsleft>2 DrawImage life3,680,580 If ballsleft>1 DrawImage life2,700,580 If ballsleft>0 DrawImage life1,720,580 If ballsleft=0 ballsleft=3 End Function ;Text maths ect... Function addtext() ;All the text.. Text 20,50,"Breakout physics by Yahfree" Text 20,80,"Controls: Press ESC to exit, LMB to release the ball," Text 20,100," mouse to move, A accelerate ball, Z decelerate ball." Text 20,140,"Status':" Text 20,160,"Ballspeed: "+speed+" MPH" Text 20,180,"Ball X: "+ballx Text 20,200,"Ball Y: "+bally If ballxdir#<0 And move=2 Text 20,220,"Ball direction Left or right? Left" Else Text 20,220,"Ball direction Left or right? Right" End If If ballydir<0 And move=2 Text 20,240,"Ball direction Up or Down? Up" Else Text 20,240,"Ball direction Up or Down? down" End If End Function Controls: [A] Accelerate ball [Z] Deccerate ball [Leftmousebutton] launch ball [Movemouse] control paddle [ESC] Quit game Any feedback would be nice i want to know if this base model works on other computers. Feel free to use this source in anyway you want.. Edit, forgot to add, this was made in Blitz3D

Blitzplotter (Posted 2007) [#2]

Very good work, the variable angle at which the ball rebounds of the bat was impressive. I haven't tried running it outside of Protean IDE (i.e. as a stand alone exe) but within the IDE the ball seemed to noticeably slow down and speed up , very noticeable at 12mph. Hope this helps, BP.

Paul "Taiphoz" (Posted 2007) [#3]

You still have to tackle the hardest part tho, and thats the collisions and responses from the ball to a brick. Trust me when I say once youv done it its easy, but you can spend a lot time trying to get it working for your specific code and game. I know it gave me nightmares back in the day.

Yahfree (Posted 2007) [#4]

Thanks for the feed back, yes i'm working on the actally game, atm struggling with menus (see beginners area), hopefuly i'll have my first game soon! i just wanted to release the ball physics on how it bounces.