maybe you can use anyhow
rem
rem AGK Application 1.08B18
rem MR 23.08.2013 Screen Wave
SetDisplayAspect( 4.0/3.0 )
dim i[100]
dim s[100]
MainLoop()
end
function MainLoop()
sync()
spr=loadsprite("screen.png") //<- any background image
setspritesize(spr,100,100)
drawsprite(spr)
MakeWave()
deletesprite(spr)
w#=0
do
print("Hello Wave")
print(screenfps())
DoWave(w#)
w#=w#+360.0/60.0
if w#>360.0 then w#=w#-360.0
if getpointerpressed()=1 then exit
Sync()
loop
FreeWave()
endfunction
function MakeWave()
for y=0 to 99
i[y]=GetImage( 0, y,getvirtualwidth(), 1.0 )
s[y]=createsprite(i[y])
setspritesize(s[y],getvirtualwidth(),1.5)
setspriteposition(s[y],0,y)
setspritedepth(s[y],0)
next
endfunction
function DoWave(w#)
for y=0 to 99
setspriteposition(s[y],cos(w#),y+sin(w#)*4.0)
w#=w#+360.0/100.0
next
endfunction
function FreeWave()
for y=0 to 99
deletesprite(s[y])
s[y]=0
deleteimage(i[y])
i[y]=0
next
endfunction