TheGameCreators - CodeBase - Color Cube Demo v1

Category: Complete Applications

Version: 1.0

Information

Uploaded: 16th Dec 2009 23:49

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

A short game of obstacles. Use the arrow keys to move. Use the 'a' key to perform actions when you are in contact with a cube. gray cubes don't do anything yellow cubes are switches blue cubes are pushable purple cubes disappear after using switches The goal is to obtain a special cube that is smaller and is rotating.

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

sync on

sync rate 40

t=1

make object sphere 1,50

position object 1,0,0,0

gosub texture

set object collision to spheres 1

make object cube 2,50

scale object 2,100,100,1000

position object 2,100,0,0

color object 2,rgb(50,50,50)

set object collision to boxes 2

make object cube 3,50

scale object 3,100,100,1000

position object 3,-100,0,0

color object 3,rgb(50,50,50)

set object collision to boxes 3

make object cube 4,50

position object 4,0,0,-300

scale object 4,300,100,100

color object 4,rgb(255,0,255)

set object collision on 4

make object cube 5,50

position object 5,0,0,200

set object collision to boxes 5

color object 5,rgb(128,128,0)

scale object 5,300,100,100

make object cube 6,50

position object 6,-200,0,-450

color object 6,rgb(50,50,50)

scale object 6,100,100,1000

set object collision to boxes 6

make object cube 7,50

position object 7,200,0,-450

scale object 7,100,100,1000

color object 7,rgb(50,50,50)

set object collision on 7

make object cube 8,50

position object 8,100,0,-750

scale object 8,700,100,100

color object 8,rgb(50,50,50)

set object collision on 8

make object cube 9,50

position object 9,-150,0,-750

color object 9,rgb(0,0,255)

set object collision on 9

make object cube 10,20

gosub texture2

set object collision off 10

hide object 10

speed=15

texture object 1,t

ay#=object angle y(1)

if upkey()=1 then move object 1,15

if downkey()=1 then move object 1,-15

if rightkey()=1 then yrotate object 1,wrapvalue(ay#+3)

if leftkey()=1 then yrotate object 1,wrapvalue(ay#-3)

if object collision(1,2)>0 then gosub collision1

if object collision(1,3)>0 then gosub collision1

if object collision(1,4)>0 then gosub collision1

if object collision(1,5)>0

gosub collision1

if inkey$()="a"

color object 5,rgb(150,150,150)

hide object 4

set object collision off 4

endif

if object collision(1,6)>0 then gosub collision1

if object collision(1,7)>0 then gosub collision1

if object collision(1,8)>0 then gosub collision1

if object collision(1,9)>0

gosub collision1

if inkey$()="a"

speed=5

position object 9,px#,0,pz#

if upkey()=1

color object 5,rgb(128,128,0)

show object 4

set object collision on 4

show object 10

set object collision on 10

texture object 10,2

move object 1,speed

move object 9,speed

if object collision(9,2)>0 then gosub collision9

if object collision(9,3)>0 then gosub collision9

if object collision(9,4)>0 then gosub collision9

if object collision(9,5)>0 then gosub collision9

if object collision(9,6)>0 then gosub collision9

if object collision(9,7)>0 then gosub collision9

if object collision(9,8)>0 then gosub collision9

endif

if downkey()=1

color object 5,rgb(128,128,0)

show object 4

set object collision on 4

show object 10

texture object 10,2

set object collision on 10

move object 1,-speed

move object 9,-speed

if object collision(9,2)>0 then gosub collision9

if object collision(9,3)>0 then gosub collision9

if object collision(9,4)>0 then gosub collision9

if object collision(9,5)>0 then gosub collision9

if object collision(9,6)>0 then gosub collision9

if object collision(9,7)>0 then gosub collision9

if object collision(9,8)>0 then gosub collision9

endif

speed=10

endif

gosub effect10

if object collision(1,10)>0

gosub collision1

hide object 9

set object collision off 9

hide object 10

set object collision off 10

t=2

endif

ay9#=object angle y(9)

x9#=object position x(9)

z9#=object position z(9)

px#=newxvalue(x#,ay#,50)

pz#=newzvalue(z#,ay#,50)

x#=object position x(1)

y#=object position y(1)

z#=object position z(1)

cx#=newxvalue(x#,ay#-180,150)

cy#=y#+100

cz#=newzvalue(z#,ay#-180,150)

position camera cx#,cy#,cz#

point camera x#,y#,z#

sync

loop

collision1:

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

return

texture:

ink rgb(128,64,0),0

circle 320,240,25

ink rgb(200,100,0),0

circle 320,240,50

get image 1,270,190,370,290

return

collision9:

position object 9,x9#,0,z9#

gosub collision1

return

effect10:

ay10#=object angle y(10)

yrotate object 10,wrapvalue(ay10#+10)

return

texture2:

ink rgb(0,0,255),0

box 0,0,50,50

ink rgb(0,160,160),0

box 20,20,30,30

get image 2,0,0,50,50

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	1

CodeBase - Color Cube Demo v1

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments