Another Rebouding Ball Example

[kevin]

Another bouncing ball example :)

Code Select Expand



Gosub Init_Ball

Do
 Cls 0

  BallX#=BallX#+BallSpeedX#
  BallY#=BallY#+BallSpeedY#
  Circle BallX#,Bally#,5,true

 ; rebound it  
  if BallX#<0 or BallX#>getScreenWidth() then BallSpeedX#=-BallSpeedX#
  if BallY#<0 or BallY#>(getScreenHeight()-10) then BallSpeedY#=-BallSpeedY#

  if Spacekey()
    Gosub Init_Ball
  endif  


 Sync
loop



Init_Ball:


BallX#  =getScreenWidth()/2
BallY#  =getScreenHeight()/2
BallSpeed# =rndrange(1,5)
BallAngle#  =rnd(360)
BallSpeedX#  = Cos(Ballangle#)*BallSpeed#
BallSpeedY#  = Sin(Ballangle#)*BallSpeed#

return