TheGameCreators - CodeBase - Water effect using matrix

Category: Matrix

Version: 1.0

Information

Uploaded: 22nd Apr 2005 00:17

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Awsome effect, click mouse on wireframe matrix to create a wave This wave will spread out and bouns off walls. You can make as many waves as needed.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

make object sphere 1,15

hide mouse

xres=50

yres=50

make matrix 1,1000.0,1000.0,xres,yres

position camera 400,400,-200

point camera 400,-20,400

cls rgb(30,10,180)

get image 1,0,0,32,32

prepare matrix texture 1,1,1,1

make light 1

set point light 1,1000.0,800.0,20.0

color light 1,rgb(255,200,150)

set matrix 1,0,1,1,1,1,1,0

numwaves=10

dim wavepos(numwaves,2)

dim wavestage(numwaves)

wave=1

dim #g(3,xres,yres)

prev=1

current=2

future=3

sep#=1000/xres

repeat

position mouse 320,240

xpos=xpos+mousemovex()

ypos=ypos+mousemovey()

IF xpos<100 THEN xpos=100

IF xpos>900 THEN xpos=900

IF ypos<100 THEN ypos=100

IF ypos>900 THEN ypos=900

position object 1,xpos,10,1000-ypos

xspot=xpos/sep#

yspot=ypos/sep#

yspot=yres-yspot

IF click=-1 AND mouseclick()=0 THEN click=0

IF mouseclick()=1 AND click>-1

click=1

ENDIF

IF click=1

IF wavestage(wave)<=0

wavepos(wave,1)=xspot

wavepos(wave,2)=yspot

wavestage(wave)=180

wave=wave+1

IF wave>numwaves THEN wave=1

click=-1

ENDIF

FOR n=1 TO numwaves

IF wavestage(n)>0

#g(current,wavepos(n,1),wavepos(n,2))=#g(current,wavepos(n,1),wavepos(n,2))+sin(wavestage(n))*150

wavestage(n)=wavestage(n)-30

ENDIF

NEXT n

prev=prev+1

current=current+1

future=future+1

if prev>3 then prev=1

if current>3 then current=1

if future>3 then future=1

for x=2 to xres-1

for y=2 to yres-1

#g(future,x,y)=(#g(current,x-1,y)+#g(current,x+1,y)+#g(current,x,y-1)+#g(current,x,y+1))/2-#g(prev,x,y)

#g(future,x,y)=#g(future,x,y)*0.98

next y

next x

for x=1 to xres

for y=1 to yres

set matrix height 1,x,y,#g(future,x,y)

next y

next x

box 10,10,20,rnd(30)

update matrix 1

sync

until 1=2

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	2

CodeBase - Water effect using matrix

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments