TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Matrix

Version: 1.0

Information

Uploaded: 1st Sep 2006 23:09

Modified: 1st Sep 2006 23:13

Author: Bug Man

Summary

A little program that places 500 cubes in random places and assigns the cubes random colors:P

Full Description

Not much......<br /> Don't be to hard on me I'm only 13:(<br /> No Media!

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 30

Hide mouse

Rem Make Cubes and place randomly

fog on

make matrix 1,250,250,20,20

color1=rnd(255)

color2=rnd(255)

color3=rnd(255)

For x = 1 to 500

xaxis=Rnd(250)

yaxis=Rnd(250)

depth=rnd(100)

Make object cube x,2

Position object x,xaxis,depth,yaxis

Set object collision to boxes x

Texture object x,1

color object x,rgb(color1,color2,color3)

goto newcolor

mainloop:

next x

camera:

OldCamAngleY# = CameraAngleY#

OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)

CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera

If Upkey()=1

move camera 1

Endif

If Downkey()=1

move camera -1

Endif

If Leftkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)

endif

If Rightkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)

Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)

Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Rem Refresh Screen

Sync

loop

newcolor:

color1=rnd(255)

color2=rnd(255)

color3=rnd(255)

Texture object x,1

color object x,rgb(color1,color2,color3)

if x=500 then goto camera

goto mainloop

Download

Please login to download

Comments

No comments yet.

CodeBase - 500 boxes

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Bug Man
CodeBase Entries:	2