Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|110\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Collisions and Physics

magicman	Created : 13 September 2006 Language : Blitz Simple bouncing Make stuff bounce, what else.
This is quite simple, just makes somthing bounce, weather it be a ball, a blox, or a monkey. ENJOY!! ;This is a bit of code that makes a ball bounce, its pretty simple. ;I commented as well as i could. ENJOY!!! Graphics 800,600,16,2 SetBuffer BackBuffer() AutoMidHandle True ;set up the ball type Type ball Field x#,y#,xv#,yv# End Type ;create a variable for gravity wich will be applied to the ball Global gravity# = 0.08 ; start our main loop, isnt this fun!! While Not KeyDown(1) Cls ;If the user hits the left mouse button, a ball is created at the mouses position If MouseHit(1) b.ball = New ball b\x = MouseX() b\y = MouseY() b\xv=Rnd(-2,2) b\yv = 1 EndIf ;this is the part were you make the ball bounce For b.ball = Each ball If b\x =< 0 b\xv = -b\xv If b\x => 780 b\xv = -b\xv ;basicly, if the ball hits the bottem of the screen, its yv(y velocity) is turned negitve ;wich in turn, makes it bounce. The .9 is so the ball comes to a stop(well, it never really stops but you get the idea) If b\y => 580 b\yv = -b\yv.9 ;this keeps it from going off the screen If b\y > 580 b\y = b\y - 1 If b\y =< 0 b\yv = -b\yv Next ;this is the part were we draw an oval at the balls postion, if you change oval to rect you can ;have more of them on screen at once with out it slowing down, oval is a rather slow function ;its even slower when you make it non filled, remove the ; and see. For b.ball = Each ball Oval b\x,b\y,20,20;,0 ;here we move the ball according to its xv and yv(velocity) b\x = b\x + b\xv b\y = b\y + b\yv ;here we apply gravity to the ball by adding gravity to the balls yv b\yv = b\yv + gravity Next ;dealy a little for no real reason Delay 1 ;flip buffers, end main loop, and make it end with out that annoying error message Flip Wend --v

Comments

Simple bouncing

Comments