this is a cool water effect I made for a game.
A simple effect really, all you have to do is make a plain,
position it close to the camera, texture it,
and scroll the texture every loop.
Source:
sync on
sync rate 0
hide mouse
backdrop on
color backdrop 0
load image "water.bmp",1
load image "under.bmp",2
make object plain 1,50,50
texture object 1,1
scale object 1,1090,1000,100
ghost object on 1
lock object on 1
position object 1,0,0,5
make object cube 2,50
texture object 2,2
dy#=0.8
do
text 5,5,str$(screen fps())
xrotate object 2,object angle x(2)+1
yrotate object 2,object angle y(2)+1
zrotate object 2,object angle z(2)+1
gosub _water_update
sync
loop
_water_update:
position object 1,0,object position y(1)+dy#,5
if object position y(1)>150 then position object 1,0,0,5
if object position y(1)<0 then position object 1,0,150,5
return
---------------
Exe in download!
The media is:
"water.bmp"--a water texture
"under.bmp"--a little message
I will post again with attached media.
hi