TheGameCreators - CodeBase - Simple, Yet Effective Water Matrix

Category: 3D Effects

Version: 1.0

Information

Uploaded: 20th Mar 2004 17:12

Modified: 18th May 2005 18:54

Author: M Gaming

Summary

This code runs a water matrix and underwater demo program. Simply replace the <Add filename here> with a valid file and run the water program. Simple! You can add this to your program if you'd like. This program also allows you to load a model, such as a swimming pool, for more effect.

Full Description

This is a program that illustrates the usage of water. This program allows you to swim around in a pool of water, dive underwater, and all using sound effects and images. Of course, you can use your own images and sounds. Or, you can use the files included in the attachment to get the effect that I used.<br /> <br /> The water effect is simply a matter of modifying an array and using sine to set the matrix's tile height. It is actually pretty simple!<br /> <br /> - M Gaming

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Setup code

sync on

sync rate 0

hide mouse

autocam off

` For this part, set each future tile angle to a random value.

randomize rnd(360)

dim wave#(50,50)

for x=0 to 50

for z=0 to 50

wave#(x,z)=rnd(360)

next z

next x

` Make the water matrix.

make matrix 1,5250,10250,50,50

position matrix 1,-2500,0,-5000

` Load the water image.

load image <Add filename here>,1

prepare matrix texture 1,1,1,1

` Ghost the matrix for an underwater effect.

ghost matrix on 1,4

update matrix 1

` Underwater image. Make a 640x480 image and color it blue to get the best effect.

load image <Add filename here>,2

sprite 1,0,0,2

set sprite alpha 1,123

hide sprite 1

color backdrop 0

set camera range .1,500000

position camera 0,25,0

` Dive sound

load 3dsound <Add filename here>,1

` Swim sound

load 3dsound <Add filename here>,2

loop sound 2

pause sound 2

` Optional... Load a map, such as a swimming pool. Just take out the comment.

` load object <Add filename here>,1

` Load image for underwater bubble particles.

load image <Add filename here>,3

make particles 1,1,1,50

set particle speed 1,.08

set particle floor 1,0

hide particles 1

` Initialize variables.

air#=100.0

energy#=100.0

flipmode=4

` Start the main loop.

oldx#=camera position x()

oldy#=camera position y()

oldz#=camera position z()

if flipmode=2 or flipmode=4

control camera using arrowkeys 0,1,1

endif

if upkey()=0 and downkey()=0

if energy#<100.0 then inc energy#,.01

endif

if upkey()=1 or downkey()=1

dec energy#,.002

endif

text 0,0,"Energy left: "+str$(int(energy#))+"%"

text 0,15,"Air left: "+str$(int(air#))+"%"

if air#<=0 or energy#<=0

repeat

xrotate camera wrapvalue(camera angle x()+1)

sync

until camera angle x()=270

end

endif

if flipmode=1 or flipmode=3

ang#=wrapvalue(ang#+.5)

xrotate camera ang#

zrotate camera ang#

if camera angle z()>=180.0

xrotate camera 0

zrotate camera 0

yrotate camera wrapvalue(camera angle y()+180.0)

if flipmode=1 then flipmode=2

if flipmode=3 then flipmode=4

endif

if camera position x()>2250 or camera position x()<-2250 then position camera oldx#,oldy#,oldz#

if camera position z()>5000 or camera position z()<-4700

if camera position z()>5000 and flipmode=4

inc lap

flipmode=1

ang#=0.0

endif

if camera position z()<-4700 and flipmode=2

inc lap

flipmode=3

ang#=0.0

endif

position camera oldx#,oldy#,oldz#

endif

position listener camera position x(),camera position y(),camera position z()

rotate listener camera angle x(),camera angle y(),camera angle z()

for o=1 to 2

position sound o,camera position x(),camera position y(),camera position z()

next o

position particles 1,camera position x(),camera position y(),camera position z()

if upkey()=1 or downkey()=1

if divemode=0 then resume sound 2

endif

if upkey()=0 and downkey()=0 and sound paused(2)=0 then pause sound 2

if returnkey()=1

if divemode=0

divemode=1

show sprite 1

show particles 1

play sound 1

else

position camera camera position x(),camera position y()-1,camera position z()

endif

if divemode=1

dec air#,.05

if camera position y()>-768.0 then position camera camera position x(),camera position y()-1,camera position z()

if shiftkey()=1 then position camera camera position x(),camera position y()+3,camera position z()

if camera position y()>50.0

divemode=0

hide particles 1

air#=100.0

hide sprite 1

position camera camera position x(),50.0,camera position z()

endif

for x=1 to 49

for z=1 to 49

wave#(x,z)=wrapvalue(wave#(x,z)+.5)

set matrix height 1,x,z,get matrix height(1,x,z)+(cos(wave#(x,z))/10.0)

next z

next x

update matrix 1

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	M Gaming
CodeBase Entries:	2

CodeBase - Simple, Yet Effective Water Matrix

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments