Here's a snippet to try, you should hear two soft clicks and then two loud clicks:
Code: Select all
InitNetwork()
file$ = GetTemporaryDirectory()+"click.wav"
If FileSize(file$) = -1
Debug "downloading test file"
If Not ReceiveHTTPFile("http://lloydsplace.com/click.wav", file$)
Debug "could not download sound"
End
EndIf
Else
Debug "test file found"
EndIf
InitSound()
LoadSound(0,file$)
SoundVolume(0, 10)
Delay(1000)
PlaySound(0)
Delay(1000)
PlaySound(0)
Delay(1000)
SoundVolume(0, 100)
PlaySound(0)
Delay(1000)
PlaySound(0)
Delay(1000)


