A bouncing ball... - GameCreators Forum

Author

Message

silversnake

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location:

Posted: 12th Mar 2003 23:18

Link

Ok so i compiled the tutorial Caverun and i even made some serious modifications. I understand most of the code. Now I am wondering how would I make a bouncing ball..i.e. something that just bounces around teh screen??

Back to top

Profile PM

Jeffro

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: London, mostly....

Posted: 12th Mar 2003 23:59

Link

Here is a very simple one...

Rem Project: Bouncing Balls
Rem Created: 20/02/2003 12:45:46

`create some variables..
BallX = 320
BallY = 240
BallSize = 20
SpeedX = 2
SpeedY = -3
Border = 25

`initialize the program
SYNC ON
HIDE MOUSE

`set the color
color = RGB(0,200,255)
INK color, 0

`start main loop
DO
   `clear screen
   CLS

`draw the border
   LINE 0,0,639,0
   LINE 639,0,639,479
   LINE 639,479,0,479
   LINE 0,479,0,0

`move the ball
   BallX = BallX + SpeedX
   BallY = BallY + SpeedY

`check conditions for BallX
   IF BallX > 640 - Border
      BallX = 640 - Border
      SpeedX = SpeedX * -1
   ELSE
      IF BallX < Border
         BallX = Border
         SpeedX = SpeedX * -1
      ENDIF
   ENDIF

`check conditions for BallY
   IF BallY > 480 - Border
      BallY = 480 - Border
      SpeedY = SpeedY * -1
   ELSE
      IF BallY < Border
         BallY = Border
         SpeedY = SpeedY * -1
      ENDIF
   ENDIF

`draw the ball
   CIRCLE BallX, BallY, BallSize

`redraw the screen
   SYNC

IF SPACEKEY() = 1 THEN EXIT

LOOP

+ Code Snippet

Rem Project: Bouncing Balls
Rem Created: 20/02/2003 12:45:46


`create some variables..
BallX = 320
BallY = 240
BallSize = 20
SpeedX = 2
SpeedY = -3
Border = 25

`initialize the program
SYNC ON
HIDE MOUSE

`set the color
color = RGB(0,200,255)
INK color, 0

`start main loop
DO
   `clear screen
   CLS

   `draw the border
   LINE 0,0,639,0
   LINE 639,0,639,479
   LINE 639,479,0,479
   LINE 0,479,0,0

   `move the ball
   BallX = BallX + SpeedX
   BallY = BallY + SpeedY

   `check conditions for BallX
   IF BallX > 640 - Border
      BallX = 640 - Border
      SpeedX = SpeedX * -1
   ELSE
      IF BallX < Border
         BallX = Border
         SpeedX = SpeedX * -1
      ENDIF
   ENDIF

   `check conditions for BallY
   IF BallY > 480 - Border
      BallY = 480 - Border
      SpeedY = SpeedY * -1
   ELSE
      IF BallY < Border
         BallY = Border
         SpeedY = SpeedY * -1
      ENDIF
   ENDIF

   `draw the ball
   CIRCLE BallX, BallY, BallSize

   `redraw the screen
   SYNC

IF SPACEKEY() = 1 THEN EXIT

LOOP

Have fun!!

It's never as easy as it looks!

Back to top

Profile PM

Jeffro

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: London, mostly....

Posted: 13th Mar 2003 00:00

Link

By the way, that came from the DarkBasic Game Programming book.

Very useful for newbies like me.....

It's never as easy as it looks!

Back to top

Profile PM

silversnake

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location:

Posted: 15th Mar 2003 22:46

Link

You mean the one in the game developers series by Andre Lamothe? I am going to get it. I think this is it here.

http://www.amazon.com/exec/obidos/ASIN/1592000096/qid%
3D1047069062/sr%3D11-1/ref%3Dsr%5F11%5F1/103-0068901-7080660

Thanks

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / A bouncing ball...