Цитата:
Сообщение от Kaiser
2. А ты можешь зациклить воспроизведение?
|
Для этого тоже команда есть ) Stream_SetLoop x,y
Цитата:
Сообщение от Kaiser
3. Там не одна песня. Там на час музыки и болтовни. Как выйдет дополнение, зацени)))
|
А, ну если там целый радиоэфир, то это ж совсем другой калинкор )
Вот тебе с зацикливанием, всего одну команду дописал:
Развернуть для просмотра
Dim_Act 2
Dim_Flt 3
GetActivePlayer 0
FindActor 1, "fire"
Let Flt[0]=0
Let Flt[1]=0
Let Flt[2]=0 //Для паузы
Label CHECK
Wait 100
CompareOwnerWithEx 0,1,-,CAR_OUT
If Flt[0]=0,-,CHECK
CityMusic_Off
If Flt[2]=0,-1,ALREADYCREATED //Проверяем, создан ли уже поток, вдруг он на паузе
Stream_Create 1, "sounds\music\fireradio.ogg"
Stream_SetLoop 1,1 //Зацикливаем
Label ALREADYCREATED //Поток уже создан
Stream_Play 1
Let Flt[0]=1
Let Flt[2]=0
Wait 2000
GoTo CHECK
Label CAR_OUT
If Flt[0]=1,-,CHECK
Stream_Pause 1
Let Flt[2]=1 //Запоминаем, что на паузе
CityMusic_On
Let Flt[0]=0
Wait 2000
GoTo CHECK [свернуть]
Последний раз редактировалось KlassenAS; 04.10.2020 в 21:24.
|