Kaiser, пробелы убрал
|
2 KlassenAS
На самом деле очень круто получилось, все прекрасно работает. Проверил неоднократно. Спасибо тебе большое, с твоего разрешения, использую этот скрипт в своем дополнении к Angel Pine Mod. п.с.Плохо только то, что скрипт постоянно сначала начинается, при каждой очередной посадке в автомобиль. Так наверное никогда радио до конца не дослушать))). |
Цитата:
Цитата:
Так что, можно заморочиться и при выходе из машины паузить скрипт. Ввести дополнительные переменные для отслеживания проигрываемого стрима на паузе, чтобы не создавать заново и не дестроить его лишний раз. Отслеживать окончание воспроизведения и перезапускать. Но тогда возникает вопрос: не появится ли баг с ненужным воспроизведением при нажатии ESC, о котором упомянул GOLOD55? |
Цитата:
Цитата:
|
Цитата:
Ну-ка, попробуй такой вариант: Развернуть для просмотра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" 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 [свернуть] Теперь он должен ставить на паузу и возобновлять воспроизведение. Проверь, нет ли бага с клавишей ESC, когда аудиопоток на паузе. Пока простой вариант, без проверки окончания воспроизведения. |
2 KlassenAS
Я проверил. Все работает!!! Спасибо тебе огромное, теперь у меня в дополнение будет прям идеальное радио. Все отлично! Выходишь из машины, радио выключается, садишься в машину, продолжается с того момента, когда ты вышел из автомобиля. Я как раз не успел радио запихнуть в ЭП. Теперь выпущу в виде дополнения, в РидМи укажу, что скрипт твой. |
Цитата:
2 Если работает без багов, то его ещё доделать надо ) Чтобы по окончании мелодии начинал воспроизведение заново. Он, по логике, не должен сам понимать, что песня закончилась. Доиграл, - и всё ) 3 И вообще, тебе что, хватает одной мелодии? Давай, заморочимся, чтобы несколько было, с рандомным воспроизведением ) |
1. Нет. Сейчас проверю. (Все работает нормально).
2. А ты можешь зациклить воспроизведение? 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 [свернуть] |
Блин, ну теперь надо час играть, чтобы посмотреть, работает ли воспроизведение)) Сегодня точно тебе не дам ответ)
|
Текущее время: 12:50. Часовой пояс GMT +3. |
Powered by vBulletin® Version 3.8.11 Release Candidate 2
Copyright ©2000 - 2024, vBulletin Solutions Inc. Перевод: zCarot