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")
print "Taste to that gleichzeitigen Play of 3 Wav's!"
waitkey
ms.play(snd1,false)
ms.play(snd2,false)
ms.play(snd3,false)
print "Taste to that terminate!"
waitkey
ms.unload(snd1)
ms.unload(snd2)
ms.unload(snd3)
ms.close()
end

 {$cleq}
include multisound.inc
windowstyle 512
cls// <-- %hwnd needed b4 ms.init!

if (ms.init())

    print move mouse in x
    long sound1:=ms.load(s1.wav)
    ms.play(sound1,true)

    do {

        ms.setfreq(sound1,mousex*500)
        case mousekey : break

    }

    ms.unload(sound1)
    ms.close()

else

    messagebox Sound can not initialized be.,trouble:,0

endif

end