Скрипты PAL для Sam Broadcaster

09.03.2010

09.03.2010

ты блондинка?
поставь кодировку 1251

09.03.2010

стоит а опера вообще страницу не отображает и не только у одного меня кракозябры

09.03.2010

нет, все таки ты блондинка ))
во первых шоуткаст пускает на страницу только мозилоподобные браузеры, тому надо ставить идентификацию
во вторых КОДИРОВКА И ЕЩЕ РАЗ КОДИРОВКА 1251

22.03.2010

Господа!! Помогите, пожалуйста :))

Мне нужно запускать джинглы из плеера AUX (в деках нельзя, т.к. заставочки короткие и некорректно миксуются часто) через указанное время (напр. 5 минут)

Т.е. нужен скрипт такой - в Queue список сам по себе составляется по правилам ротации:

1. Dir['D:\radio\music\instrument\temp'].QueueBottom(smLemmingLogic, EnforceRules);
2. Dir['D:\radio\music\pop en\80\temp'].QueueBottom(smLemmingLogic, EnforceRules);
3. Dir['D:\radio\music\pop en\00\temp'].QueueBottom(smLemmingLogic, EnforceRules); и т.д.

треки звучат поочерёдно в деках, само собой. Но нужно, чтобы когда подходит время джингла он дождался бы окончания песни в одной деке, запускался бы из плеера AUX (1 или 2 неважно) и потом миксовался бы со следующей песней в другой деке.

В шаблонах PAL скриптов есть скрипт Лайнеров - но они накладываются на начало песни в момент вступления, а мне нужно, чтоб джинглы просто миксовались бы с песнями.

Прошу вашей помощи, т.к. далёк от программирования.

23.03.2010

есть такая функцыя как "не микшировать если трек короче 'n' секунд"

23.03.2010

а можно подрообнее про это?

23.03.2010

нажмите + там где schedule и там разберетесь, ни чего сложного

23.03.2010

аа все ))) спасибо )))

23.03.2010

Такой вариант не подходит, и обрезание "хвостов песен" тоже т.к. звучит слишком топорно, а мне нужен профессиональный эфир. Вот так:


Вот стандартный скрипт для лайнеров (джингл поверх песни) в СЭМЕ

1. { About:
2. This script will play a liner in Aux1 as soon as a new track starts
3. The liner will only be played if
4. a) The song has an intro of specified minimem duration
5. b) The song is of type S, i.e. a normal song.
7. Then the script will wait the specified amount of time before
8. it tries to play another liner.
10. This script can help brand your station and make it sound like a true
11. commercial terrestrial station.
12. any source connected
14. Usage:
15. a) Make sure you use the song information editor to specify intro times for your tracks!
16. b) Make sure the AGC settings on Aux1 is to your liking. Also set the volume a bit louder
17. on Aux1 so you cna clearly hear the liner above the active Deck audio.
18. c) Edit the configuration details below.
19. Make sure to change the category to the one you use to store your liners.
20. }
21. { CONFIGURATION }
22. {==================================================}
23. const MIN_INTRO = 5*1000; //5 seconds
24. const MIN_WAIT = '+00:15:00'; //Wait 15 minutes between liners
25. const LINERS_CATEGORY = 'Liners';
28. { IMPLEMENTATION }
29. {--------------------------------------------------}
30. function ExtractIntro(Song : TSongInfo):Integer; forward;
32. var Song, Liner : TSongInfo;
33. var Waiting : Boolean = True;
34. var Intro : Integer = 0;
35. Aux1.Eject;
37. {Step1: Queue up the deck, ready for play}
38. Liner := CAT[LINERS_CATEGORY].ChooseSong(smLRP,NoRules);
39. if (Liner=nil) then
40. WriteLn('No valid liner found')
41. else if (not Aux1.QueueSong(Liner)) then
42. WriteLn('Failed to queue song: '+Liner['filename']);
44. {Wait for a valid song with intro}
45. while Waiting do
46. begin
47. {Step2: Wait for the song to change}
48. PAL.WaitForPlayCount(1);
50. {Step3: Grab current song information}
51. Song := ActivePlayer.GetSongInfo;
53. if (Song=nil) then
54. WriteLn('The active player contained no song info??')
55. else
56. begin
57. {Extract the intro time - this is a bit tricky}
58. Intro := ExtractIntro(Song);
60. {Start playing the liner if the current song matches our rules}
61. if(Song['songtype']='S') and (Intro>=MIN_INTRO) then
62. begin
63. Aux1.Play;
64. Waiting := False;
65. end;
66. Song.Free; Song := nil;
67. end;
68. end;
70. {Wait 5 minutes before we do this all again}
71. PAL.WaitForTime(MIN_WAIT);
72. PAL.Loop := True;
74. {................................................}
75. function ExtractIntro(Song : TSongInfo):Integer;
76. var
77. P : Integer;
78. XFade : String;
79. begin
80. Result := -1;
81. XFade := Trim(Song['xfade']);
83. WriteLn('Decoding XFade string');
84. WriteLn('XFade: '+XFade);
86. if XFade = '' then
87. Result := -1
88. else
89. begin
90. P := Pos('&i=',XFade);
91. if (P > 0) then
92. begin
93. Delete(XFade,1,P+2);
94. P := Pos('&',XFade);
95. if (P>0) then
96. Delete(XFade,P,Length(XFade));
98. Result := StrToIntDef(XFade,-1);
99. WriteLn('Intro time detected: '+XFade);
100. end;
101. end;
102. end;
104. {--------------------------------------------------}

Как его исправить, чтобы вместо лайнеров поверх песни на AUX выводились бы джинглы и миксовались с другими треками?

Кстати, в этом скрипте почему-то прога выбирает один единственный лайнер и крутит только его, а не дёргает из папки новые :(

Помогите! Иначе придётся на винампе с плагином кроссфейда по пересечению уровня Дб сидеть :(

24.03.2010

Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.

25.03.2010

[quote=Nick Pheomotion]Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.[/quote]
Ну тогда уж RADIO Player Pro лучше - он удобнее и функциональнее.
НО
1.СЭМ специальное ПО для онлайн радио, вё в одной программе от вывода микрофон до интерфейса на сайт
2. Качественный ротатор - можно месяцами не заглядывать в него, всё сам без лишних телодвижений делает правильно
3. В империи и RADIO Player Pro нужно персонально настраивать звучание и фейд каждого файла в базе, что физически нереально, поэтому нужен автомикс по пересечению уровня начала и конца песен (в RADIO Player Pro просто удаление тишины)
ну и другие доводы в пользу СЭМа.
Если бы я хоть немного понимал скрипты, то изменил бы сам, но не умею :( тем более, что дополнительные проигрыватели изначально для этого и придуманы - не думаю, что это сложно.

08.04.2010

Здравствуйте! Я может невнимательно читал, но проблема вот в чем значит. Мне нужно, чтобы PAL скрипт отображал информацию вместо названия песен (какие либо объявления, сообщения). Но не получается настроить (не знаю почему). Помогите. А лучше у кого работает, скопируйте готовый код, дальше может разберусь. А то я там может напортачил много, вот и не работает.

27.04.2010

Здравствуйте, нужен скрип который бы в определенное время просматривал каталог на компе:
F:\music
к примеру, и если там есть изменения добавлял новые файлы в плейлист
пробовал через sheduler. Задал время выполнения, задал папку, но ничего не происходит. Там такой код:
{# Add files to queue script #}
Dir['F:\music'].Rescan;
Dir['F:\music'].QueueDir(ipBottom);

11.05.2010

Здравствуйте! Как в скрипт отбивки времени после стартового часа добавить проигрывание трека из нужной мне папки, соответствующего сегодняшней дате в виде ччммгггг.mp3 ?
И где найти скрипт вывода надписи в мета-дате? Был где-то, но не нашел.
Скрипт удаления битых путей на файлы:

02.06.2010

Как указать в коде:

чтобы из категории Jazz в папке id брался нужный файл, который в начале джазового времени играл бы как регулярное вступление ?

10.06.2010

Возник такой вопрос.
Кто может попробует сделать, может кто-то где-то видел pal скрипт который работает по примерно такому принципу.
Он должен на N-ое кол-во часов отключать(т.е. вообще не принимать заказы) с web-сайта.
Кто поможет?

10.06.2010

Ruskat пробуй PAL.WaitForTime
Virtya1itu смотреть в сторону RequestPolicy.Enabled := False;

12.06.2010

Спасибо. Работает :)

06.07.2010

Всем здрям!!! Вещание происходит через IceCast, необходима помощь в написании Pal Script'а:

1) Включение только отбивки часа (1 файл) в 0-ую минуту часа

2) На 20-ой и 50-й минутах часа информация для радиослушателей до неё и перед ней джинглы. (но только с 7-22 часов, ежедневно)

Буду благодарен. Если не затруднит, напишите мне в ICQ 593762970, есть ещё некоторые вопросы, уже не скриптам...