//    Instruction Example :      water.position.set (objectid,long,long)


        Screen.resolution.set(512,384)

        @pic=Picture.load ("avo\cloack.jpg")

        picture.persistence.set (@pic,TRUE)
        picture.display (@pic,center,center)
        %width=picture.width.get (@pic)
        %height=picture.height.get (@pic)

        @WaterID = Water.Create (%width, %height)
        Water.Display (@WaterID, center,center)

        screen.set (FRONT)
          Text.Display("Press a key to exit.", CENTER , 350)
        screen.end ()

        repeat ()
          for (%i=1 to 10)
            %x=number.random.get (0,%width)
            %y=number.random.get (0,%height)
            water.rect.wave.create (@WaterID,100,4,%x,%y)
          next ()

          picture.position.set (@pic,%x,%y)
          water.position.set (@WaterID,%x,%y)

          time.wait (0.5)

        until (keyboard.get ())

        Script.Stop()