TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 2nd Jul 2005 12:24

Modified: 2nd Jul 2005 12:35

Author: Flaming Ghost

Summary

This is my first Program made with DarkBASIC Pro!

Full Description

I just got drakBADIC Pro, and this is my first program made with it. Very Simple, no media. You just use the mouse to bounce the little ball around the screen.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: A fun Game

REM Created: 7/1/2005 8:12:46 AM

REM

REM ***** Main Source File *****

REM

Sync On

Autocam Off

Hide Mouse

Position Camera 110,-80,-150

Color Backdrop rgb(0,0,0)

`Make You

Make Object Cube 10,10

Make Object Cube 11,10

Make Object Cube 12,10

Make Object Cube 13,10

scale object 10,100,10,10

scale object 11,100,10,10

scale object 12,10,105,10

scale object 13,10,105,10

Make Object Collision Box 10,-5,-.5,1,5,.5,1,0

Make Object Collision Box 11,-5,-.5,1,5,.5,1,0

Make Object Collision Box 12,-.5,-5,1,.5,5,1,0

Make Object Collision Box 13,-.5,-5,1,.5,5,1,0

Color Object 10,rgb(0,200,0)

Color Object 11,rgb(0,200,0)

Color Object 12,rgb(0,200,0)

Color Object 13,rgb(0,200,0)

`Make Ball

Make Object Sphere 2,9

Make Object Collision Box 2,-4.5,-4.5,-4.5,4.5,4.5,4.5,0

set Light range 0,50

`Ball's Position/Speed

x1=110

y1=-80

x_speed=1

y_speed=1.3

Position Object 2,x1,y1,0

t=1

`Main game Loop

`Moving Ball

inc x1,x_speed

inc y1,y_speed

Position Light 0,x,y,-5

`Flash effect

dec t,1

If t=0

Color Object 2,rgb(200,0,0)

endif

`Bouncing

If Object Collision(2,10)>0

y_speed=1.3

y1=y1+1

Color Object 2,rgb(0,0,200)

t=10

endif

If Object Collision(2,11)>0

y_speed=-1.3

y1=y1-1

Color Object 2,rgb(0,0,200)

t=10

endif

If Object Collision(2,12)>0

x_speed=1

x1=x1+1

Color Object 2,rgb(0,0,200)

t=10

endif

If Object Collision(2,13)>0

x_speed=-1

x1=x1-1

Color Object 2,rgb(0,0,200)

t=10

endif

Position Object 2,x1,y1,0

x=(mousex()/2)

y=(mousey()/2)*-1

If x>220 then x=220

If y<-161 then y=-161

Position Object 10,x,(y+5),0

Position Object 11,x,(y-5),0

Position Object 12,(x+5),y,0

Position Object 13,(x-5),y,0

`Keeping the ball inside the screen

If x1<0

x_speed=x_speed*-1

x1=0

endif

If x1>220

x_speed=x_speed*-1

x1=220

endif

If y1<-161

y_speed=y_speed*-1

y1=-161

endif

If y1>0

y_speed=y_speed*-1

y1=0

endif

`Control the ball speed

If x_speed>8

x_speed=8

endif

If y_speed>8

y_speed=8

endif

Sync

Loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Bouncing Ball

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Flaming Ghost
CodeBase Entries:	6