ты в цикле его проигрываешь.
...
LevelSound=LoadSound("Resources\LevelSound.mp3")
GameOverSnd=LoadSound("Resources\GameOver.wav")
...
SoundsOfLevel=PlaySound (LevelSound)
...
repeat
GameOver=1
...
If GameOver=1 Then
Cls
StopChannel (SoundsOfLevel)
SetFont Font30
Text 100,100,"Game Over"
Flip
EndSound=PlaySound (GameOverSnd)
Delay 12000
End
EndIf
forever
|
Загони его сначала в Channel, а потом проверяй проигрывается ли он.
Читай про команды:
Playchannel
StopChannel
ResumeChannel
ChannelPlaying