OK this can help you may be:
rem ***********************************
rem ********* simple water efect ******
rem ***********************************
autocam off
sync on
rem make texture
cls
ink rgb(70,100,150),0 : box 0,0,20,20
ink rgb(130,130,180),0
for s=1 to 40
x=rnd(19)
y=rnd(19)
box x,y,x+1,y+1
next s
get image 1,0,0,21,21
rem water matrix
make matrix 1,500,500,20,20
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
set matrix wireframe off 1
rem wave array
dim vvln(20,20)
for x=+ to 19
for y=1 to 19
vvln(x,y)=rnd(360)
next y
next x
position camera 250,50,0
point camera 250,0,250
rem main loop
do
rem Wave control
for x=1 to 19
for y=1 to 19
set matrix height 1,x,y,(cos(vvln(x,y))*5) : rem change 5 to make waves biger or smaller
vvln(x,y)=wrapvalue(vvln(x,y)+5)
next y
next x
update matrix 1
sync
loop
