Показать сообщение отдельно
Старый 14.09.2010, 16:17   #219
PackegerX
Нуждающийся
 
Аватар для PackegerX
 
Регистрация: 15.01.2010
Сообщений: 58
Написано 13 полезных сообщений
(для 34 пользователей)
Ответ: Вопросы очередного новичка

ХЕЛП, не прекращается звук!!!
...
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

Последний раз редактировалось PackegerX, 14.09.2010 в 17:19.
(Offline)
 
Ответить с цитированием