TheGameCreators - CodeBase

Category: Complete Applications

Version: 1.0

Information

Uploaded: 24th Jun 2005 06:19

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This is a simple game I created where you have to steer the ball into the sphere in the middle by overlapping the cone with it. When sparks shoot from the ball, you have enough points to reach the next level, you lose a life if the ball hits a cube or you fall of the edge. Media can be replaced with anything.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Initial settings

sync on : sync rate 100

backdrop off : hide mouse

start:

rem setup new world

gosub loading

autocam on

backdrop on

color backdrop rgb(0,0,0)

load image "textures\metal.bmp",1

rem setup matrix

make matrix 1,1000,1000,10,10

randomize matrix 1,20

make object cone 1,40

zrotate object 1,180

prepare matrix texture 1,1,10,10

set matrix wireframe off 1

set matrix height 1,5,5,50

update matrix 1

make object sphere 2,60

position object 2,500,120,500

xrotate object 2,90

make object sphere 99,30

position object 99,400,120,500

load image "textures\rainbow.tga",2

load image "textures\lead.bmp",3

load image "textures\metal.bmp",4

load image "textures\fire.bmp",5

set rainbow shading on 2,2

set rainbow shading on 1,2

set rainbow shading on 99,2

hide object 99

load sound "music\music 1.ex7",1

loop sound 1

rem make particles

make particles 1,5,50,20.0

position particles 1,500,0,500

set particle emissions 1,10

set particle speed 1,0.01

set particle gravity 1,-2

set particle floor 1,0

set particle emissions 1,10

set particle velocity 1,4

set particle life 1,40

hide particles 1

rem setup variables

rem level 1

level#=0

x#=500

z#=500

life#=3

score#=0

difficulty#=1

rem next level

next_level:

level#=level#+1

x#=500

z#=500

difficulty#=level#

ene#=level#*2

lifeblock#=level#

requiredscore#=level#*60-1

rem requiredscore#=level#

rem position camera at one height

cy#=get ground height(1,cx#,cz#)+100.0

rem make ball

if object exist(3)

else

make object sphere 3,20

position object 3,rnd(1000),0,rnd(1000)

yrotate object 3,rnd(360)

position object 3,object position x(3),get ground height(1,object position x(3),object position z (3))+20,object position z(3)

texture object 3,3

endif

rem make and move bonus

for t=100 to lifeblock#+99

if object exist(t)

move object t,1.5

position object t,object position x(t),get ground height(1,object position x(t),object position z(t))+20,object position z(t)

if object position x(t)>1000 then yrotate object t,object angle y(t)+120

if object position z(t)<0 then yrotate object t,object angle y(t)+120

if object position z(t)>1000 then yrotate object t,object angle y(t)+110

if object position x(t)<0 then yrotate object t,object angle y(t)+100

if object collision(t,3) then position object 3,rnd(1000),0,rnd(1000) : life#=life#+1 : score#=score#+5

else

make object cube t,20

position object t,rnd(1000),0,rnd(1000)

yrotate object t,rnd(360)

set rainbow shading on t,4

yrotate object t,rnd(360)

endif

next t

rem make and move enemies

for t=4 to 3+ene#

if object exist(t)

move object t,0.1*difficulty#

position object t,object position x(t),get ground height(1,object position x(t),object position z(t))+20,object position z(t)

if object position x(t)>1000 then yrotate object t,object angle y(t)+120

if object position z(t)<0 then yrotate object t,object angle y(t)+120

if object position z(t)>1000 then yrotate object t,object angle y(t)+120

if object position x(t)<0 then yrotate object t,object angle y(t)+120

if object collision(t,3) then position object 3,rnd(1000),0,rnd(1000) : life#=life#-1

else

make object cube t,20

position object t,rnd(1000),0,rnd(1000)

yrotate object t,rnd(360)

texture object t,4

endif

next t

rem control ball

if object exist(3)

move object 3,difficulty#*0.2

position object 3,object position x(3),get ground height(1,object position x(3),object position z(3))+20,object position z(3)

if object collision(1,3) then yrotate object 3,object angle y(3)+0.2*difficulty#

if object collision(2,3) then delete object 3 : score#=score#+20 : difficulty#=difficulty#+1

endif

rem control level

center text screen width()/2,10,"Level: "+str$(level#)

rem control score

tscore$="Score: "+str$(score#)

text screen width()-200,10,tscore$

rem Control camera with arrow keys

if upkey()=1 then rate#=rate#+0.1

if downkey()=1 then rate#=rate#-0.1

if leftkey()=1 then a#=wrapvalue(a#-2.0)

if rightkey()=1 then a#=wrapvalue(a#+2.0)

if downkey()=0 and upkey()=0 and rate#>0 then rate#=rate#-0.05

if downkey()=0 and upkey()=0 and rate#<0 then rate#=rate#+0.05

x#=newxvalue(x#,a#,rate#)

z#=newzvalue(z#,a#,rate#)

if rate#>5 then rate#=5

rem lose life if character goes outside of matrix or hits ball

if object position x(1)>1000 then life#=life#-1 : x#=500 : z#=500 : position object 2,500,120,500 : rate#=0

if object position z(1)>1000 then life#=life#-1 : x#=500 : z#=500 : position object 2,500,120,500 : rate#=0

if object position x(1)<0 then life#=life#-1 : x#=500 : z#=500 : position object 2,500,120,500 : rate#=0

if object position z(1)<0 then life#=life#-1 : x#=500 : z#=500 : position object 2,500,120,500 : rate#=0

rem rotate ball if ball goes outside of matrix

if object exist(3)

if object position x(3)>1000 then yrotate object 3,object angle y(3)+120

if object position z(3)>1000 then yrotate object 3,object angle y(3)+120

if object position x(3)<0 then yrotate object 3,object angle y(3)+120

if object position z(3)<0 then yrotate object 3,object angle y(3)+120

endif

rem move orbiting sphere

move object 99,0.4

yrotate object 99,object angle y(99)+0.25

rem control lives

lives$="Lives: "+str$(life#)

text 20,10,lives$

if life#=0 then goto gameover:

rem control difficulty

if difficulty#<1 then difficulty=1

rem Update character

y#=get ground height(1,x#,z#)+20

position object 1,x#,y#,z#

yrotate object 1,a#

rem Position camera to the back of the character

ca#=wrapvalue(curveangle(a#,ca#,24))

cx#=newxvalue(x#,wrapvalue(ca#+180),300)

cz#=newzvalue(z#,wrapvalue(ca#+180),300)

position camera cx#,cy#,cz#

yrotate camera wrapvalue(ca#)

rem move character

if object position y(2)>get ground height(1,object position x(2),object position z(2)) then xrotate object 2,90 : move object 2,0.1

yrotate object 2,object angle y(2)+0.3

xrotate object 2,object angle x(2)+0.3

rem if control key then print fps rate

fps#=screen fps()

if controlkey()=1 then center text screen width()/2,screen height()/2,str$(fps#)

rem level control

if score#>requiredscore#

show particles 1

show object 99

hide object 3

if object collision (1,2) then delete object 3 : goto next_level:

else

hide particles 1

hide object 99

endif

rem Syncronise

sync

rem End loop

loop

loading:

set text font "Arial"

set text size 30

sync : center text screen width()/2,screen height()/2,"LOADING" : sync

return

gameover:

open to write 1,"927.x13"

write string 1,str$(score#)

close file 1

g#=0

position camera 500,50,500

while spacekey()=0

center text screen width()/2,screen height()/2,"GAME OVER"

center text screen width()/2,screen height()/2+30,"Score:"

center text screen width()/2,screen height()/2+60,str$(score#)

center text screen width()/2,screen height()/2+90,"Press Space to Restart"

color backdrop rgb(200-g#/3,200-g#/4,200-g#/2)

g#=g#+0.5

yrotate camera camera angle y()+0.1

move camera 0.2

position camera camera position x(),get ground height(1,camera position x(),camera position z())+20,camera position z()

sync

endwhile

for t=1 to ene#+3

delete object t

next t

delete sound 1

for t=1 to 4

delete image t

next t

delete matrix 1

delete particles 1

delete object 99

sync

goto start:

Download

Please login to download

Comments

No comments yet.

CodeBase - Simple Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1