Помогите со скриптом для СЭМа по отбивки часа.

24.03.2011

вместо bottom вписать top

24.03.2011

Бардце Дженкуе если можно так транслитирировать)))
Ещё позвольте один вопрос: Что такое clockwhell и с чем его едят? Что это за скрипт? Что делает? Откуда брать или как писать?)

24.03.2011

вы о playlist rotation rules ?

28.09.2011

Да классно работает. Только вот если бы отбивка еще с фейдом выходила а то резко врывается неочень красиво. Может кто знает что можно сделать?

28.09.2011

Каждый трек, любой звук, можно редактировать отдельно в САМе, т.е. индивидуально каждому и фейд свой и все что умеет САМ.

28.09.2011

Безусловно согласен с тобой но отбивка часа обрывает песню. Вот в чем проблема. Если бы при срабатывании Пал скрипта когда добавляется файл в деку текущий трек который там играет затихал а не резко обрывался по середине песни. Т.е. отбивка часа она должна выходить точно в секунда в секунду.

28.09.2011

А какой смысл выводить секунду в секунду? В интернет радио это не получится, так как не забываем у плееров есть буфер. Думаю можно легко сделать затухание трека, после по верх проигрывает отбивка и громкость возвращается обратно. Если не будет лень, попробую сделать.

28.09.2011

тоже интересно конечно В радио боссе такое есть. но вот время у меня стоит хх:59:48 т.е она выходит раньше пока дойдет до пользователя почти в точное время а если у меня треки длительностью по 6 - 8 минут то отбивка выйдет в 12:08 к примеру уже неудобно.

Добавлено спустя 7 минут :
или же какой нибудь автоматический планировщик плей листов и расчета времени что бы сам файлы подбивал по системному времени а там уже если секунд 40 или 30 нехватает до конца часа можно добить нарезкой

28.09.2011

не стал я запариваться особо, накидал побырому.

1. var P : TPlayer;
2. var Song : TSongInfo;
3. var strFile, strPath, strJingle : String;
4. var i : integer;
6. PAL.Loop := True;
8. i := ActivePlayer.GetVolume;
10. P := SoundFX;
12. strPath := 'E:\CLOCK\'; //путь к папке с отбивкой
14. PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа
16. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
17. Queue.AddFile(strFile, ipTop);
18. Song := Queue.NextInQueue;
19. P.QueueSong(Song);
21. ActivePlayer.Volume := i - 40;
22. ActivePlayer.Volume := i - 80;
23. ActivePlayer.Volume := i - 120;
24. ActivePlayer.Volume := i - 160;
26. P.Play;
27. PAL.WaitForTime('+00:00:03');
29. ActivePlayer.Volume := i - 160;
30. ActivePlayer.Volume := i - 120;
31. ActivePlayer.Volume := i - 80;
32. ActivePlayer.Volume := i - 40;
33. ActivePlayer.Volume := i;

Кто сможет получше сделать выкладывайте.

28.09.2011

Да все очень просто )))) попробую

14.10.2011

Вопрос, как теперь сделать чтобы музыка перед отбивкой часа останавливалась?

14.10.2011

ActivePlayer.FadeToPause;

14.10.2011

это где надо добавить?

14.10.2011

Ну соответственно перед тем, как запустить отбивку.
Я там поправил чутка, лучше с фейдом делать паузу чтоль ActivePlayer.FadeToPause;

Добавлено спустя 3 минуты 32 секунды:
Зачем полностью отключать музыку то? с приглушением трека не подходит?

14.10.2011

добавил, но ты знаешь получилось так, что музыка играет... и начинает звучать отбивка... а музыка постепенно уходит и медленно уже отбивка проиграла ,а музыка только ушла... можно как нить сделать, что бы музыка сразу, раз и отрубилась и пошла отбивка

14.10.2011

Ну так без фейда останови ActivePlayer.Pause;
Но это не красиво, будет как обрывок какой то.

14.10.2011

на радио NRJ так...)

14.10.2011

отбивку тоже от туда взял? xD

14.10.2011

экстрасенс прям))) NRJ Волгоград

14.10.2011

Не стыдно тырить чужие заготовки то?