; Water
    For W.Water = Each Water
        W\U# = W\U# + (Delta# * 0.00025)
        W\V# = W\V# + (Delta# * 0.0007)
        PositionTexture(W\TexHandle, W\U#, W\V#)
        ;Reflective Water
        CreateReflectTexture(TextureSize, TextureSize)
        HideEntity WaterPlane
        MirrorCamera Camera, WaterPlane
        SetBuffer TextureBuffer(ReflectTexture)

        If UnderWaterFlag
            EntityAlpha WaterPlane,0.8
        Else
            EntityAlpha WaterPlane,0.65
        EndIf

        HideClipplane WaterClipplane
        ShowEntity WaterPlane

        EntityTexture WaterPlane, BumpTexture, (BumpTextureFrame Mod 32), 0
        EntityTexture WaterPlane, ReflectTexture, 0, 1

        SetBuffer BackBuffer()

    Next