TheGameCreators - CodeBase - "Underwater World"

Return to the CodeBase listing

Category: 3D

Version: 0.1

Information

Uploaded: 9th May 2004 04:05

Modified: 1st Jan 1970 01:00

Author: tlalte uctli

Summary

An "underwater" scene with drifting particles

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

```````````````````````````````````````````````````````````````````

rem LOADS... BABY

```````````````````````````````````````````````````````````````````

rem basic stuff

Backdrop on

Set camera range 1,5000

Color Backdrop RGB(0,0,128)

hide mouse

autocam off

Fog on

Fog distance 4000

Fog color RGB(0,0,128)

rem player object

make object sphere 1, 15

position object 1, 0,0,0

rem Create 19 spheres and place randomly

rem ... this will be the "stuff" that floats down through the water

For x = 2 to 20

Make object sphere x,3

Position object x,Rnd(1000),Rnd(1000),Rnd(1000)

Next x

rem "driftcount#" will is a switch I invented to make the "drift"

rem ... loop realize when all the particles have been drifted once.

driftcount#=0

```````````````````````````````````````````````````````````````````

rem MAIN LOOP... SCHWHA

```````````````````````````````````````````````````````````````````

playerlife#=100

Rem Store Object angle Y in aY#

aY# = Object angle Y(1)

Rem Control input for camera

If Upkey()=1 then Move object 1,10

If Leftkey()=1 then Yrotate object 1,Wrapvalue(aY#-5)

If Rightkey()=1 then Yrotate object 1,Wrapvalue(aY#+5)

If Downkey()=1 then Move object 1,-10

Rem get player object position and store in X# and Z#

X# = Object position x(1)

Z# = Object position z(1)

Rem get new camera position and store in cZ# and cX#

cZ# = Newzvalue(Z#,aY#-180,100)

cX# = Newxvalue(X#,aY#-180,100)

Rem position camera

Position Camera cX#,100,cZ#

Rem point the camera at the player object

Point camera X#,50,Z#

rem "Drift the Stuff"

while driftcount#=0

for x = 2 to 20

yx#=object position y(x)

xx#=object position x(x)

zx#=object position z(x)

if x=20 then x=2

if x=20 then driftcount#=1

position object x,xx#,(yx#-1),zx#

if yx#<0 then position object x,rnd(1000),1000,rnd(1000)

next x

endwhile

rem end of "Drift the Stuff"

Rem Refresh Screen

Sync

Loop

Download

Please login to download

Comments

No comments yet.

Author Name:	tlalte uctli
CodeBase Entries:	1

CodeBase - &quot;Underwater World&quot;

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

CodeBase - "Underwater World"