XProfan

ms.init
ms.close
ms.load(string fle)
ms.copy(long snd)
ms.play(long snd,bool _loop)
ms.stop(long snd)
ms.setvol(long snd,volume)
ms.setpan(long snd,pan)
ms.setfreq(long snd,frq)
ms.setpos(long snd,_pos)
ms.unload(long snd)
ms.setglobalvolume
ms.setglobalpan

 {$cleq}
 {$res noversioninfo,nomanifest,icon "test.ico"}
include multisound.inc
cls
casenot ms.init() : end
long snd1=ms.load("s1.wav")
long snd2=ms.load("s2.wav")
long snd3=ms.load("s3.wav")
imprimer "Taste zum gleichzeitigen Abspielen de 3 Wav's!"
waitkey
ms.play(snd1,faux)
ms.play(snd2,faux)
ms.play(snd3,faux)
imprimer "Taste zum finissons!"
waitkey
ms.unload(snd1)
ms.unload(snd2)
ms.unload(snd3)
ms.close()
end

 {$cleq}
include multisound.inc
style de fenêtre 512
cls// <-- %hwnd needed b4 ms.init!

si (ms.init())

    imprimer bewege souris dans x
    long sound1:=ms.load(s1.wav)
    ms.play(sound1,vrai)

    do {

        ms.setfreq(sound1,mousex*500)
        cas mousekey : pause

    }

    ms.unload(sound1)
    ms.close()

d'autre

    messagebox Sound peux pas initialisiert volonté.,Problem:,0

endif

end