on making waves, I dont know exactly what you mean (scrolling texture, ripples, etc.) but I did make this interesting program that somewhat simulates swimming in the ocean:
cls:sync on:sync rate 100
`coded by kevin forbes
`Beginning variables
input "Wave Height(1 to 70): ", mh
input "Wave Realism(1 to 20): ",wr
input "Wave Speed(1 to 4): ", speed
print:print:print:print
print "Toggle Wireframe with 'a'"
print "Turn Left and Right with corresponding Arrow Keys"
print "Pitch Camera up and down by pressing/holding space and pushing the corresponding arrow key"
print:print:print
print "Press any key to continue":suspend for key
cls:print "Background Color:"
input "Red Percentage(x of 255): ", r
input "Green Percentage(x of 255): ", g
input "Blue Percentage(x of 255): ", b
print:print:print:print "Press any key to continue"
suspend for key
`Matrix and texture
make matrix 1, 500.0, 500.0, 50, 50
update matrix 1
camup = 2:camturn = 2:camx#=250:camz#=250
color backdrop rgb(r, g, b)
`Main Do...Loop
do
`Camera movement
if upkey()=1
move camera 1
camx#=camera position x()
camz#=camera position z()
endif
if downkey()=1
move camera -1
camx#=camera position x()
camz#=camera position z()
endif
if spacekey()=1
if downkey()=1
camup = camup + 1
xrotate camera camup
if camup > 359 then camup = 1
endif
if upkey()=1
camup = camup - 1
xrotate camera camup
if camup < 1 then camup = 359
endif
endif
if rightkey()=1
camturn = camturn + 1
yrotate camera camturn
if camturn > 359 then camturn = 1
endif
if leftkey()=1
camturn = camturn - 1
yrotate camera camturn
if camturn < 1 then camturn = 359
endif
`Creation of waves
for z = 0 to 50
for x = 0 to 50
h#=sin(z*10+n)*mh
h#=h#+(sin(x*10+s)*mh)
h#=h#/2.0
set matrix height 1, x, z, h#
next x
next z
update matrix 1
`Camera bobbing
cammove#=sin((camz#+n))*mh+5
cammove#=cammove#+(sin((camx#+s))*mh+5)
cammove# = cammove#/2.0
position camera camx#, cammove#, camz#
`Toggle wireframe
if inkey$()="a"
if matrix wireframe state(1)=0 then set matrix wireframe on 1:wait 100
endif
if inkey$()="a"
if matrix wireframe state(1)=1 then set matrix wireframe off 1:wait 100
endif
`Increased variables
n=n+speed:s=s-speed
set mipmap mode 2
`Loop
sync:loop
I added the sin of the x position to the sin of the z position and averaged to make it seem like waves... and you can see where you can go from there to make them move.
hope that helps
2.4Ghz
512mb ram
256mb DDR video card(ATI Sapphire Radeon 9600)
