Global wateru#,waterv#,waterframe#,watertex,waters%=0
Dim water(1000)


Function CreateWater(size%,parent%=0)
  If Not Sqr(2^size%) = Int(Sqr(2^size%)) Then Return 0
 waters% = waters% + 1
 water(waters%) = CreateTerrain(size%,parent%)
 Return water(waters%)
End Function

Function UpdateWater(speed#,wavelenght#)
 Local x%
 Local y%
 Local i%
 wateru# = wateru# + .2 * speed# / fps#;edit this! FPS
 waterv# = waterv# + .2 * speed# / fps#;edit this! FPS
 PositionTexture watertex,wateru#,waterv#
 waterframe# = waterframe# + 40 / fps# * speed#;edit this! FPS
  If waterframe# > 180/wavelenght# Then waterframe# = 0
  For i% = 1 To waters%
    For x% = 0 To TerrainSize(water(i%))
      For y% = 0 To TerrainSize(water(i%))
       ModifyTerrain water(i%),x%,y%,(Sin((x%+waterframe#)*wavelenght#)/2+.5)/2+(Sin((y%+waterframe#)*wavelenght#)/2+.5)/2
      Next
    Next
  Next
End Function

water(waters%) = CreateTerrain(size%,parent%)