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

20.09.2009

Привет всем!
А может кто знает как определить с помощью скрипта продолжительность какого-то трека?

07.10.2009

Zdravstvuite !

a kakoi skript podaidiot, chtob v kajdi krugli chas probivali chasi ?

07.10.2009

Решил собрать все популярные скрипты в одном месте (часто ищут одно и то же):

Проигрывание трэка поверх звучащего:

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForTime('+00:10:00'); // задержка в 10 секунд

P := SoundFX; // через что играть
if P <> nil then
begin
Song := CAT['Каталог'].ChooseSong(1,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;

Проигрывание трэка через 5 песен:

PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков //выбераем случайный трек из "Каталог" и ставим его вверх очереди
CAT['Каталог'].QueueTop(smRandom, NoRules);

Проигрывание трэка через определённое время:

var Song : TSongInfo;

PAL.Loop := True; //скрипт будет выполнятся постоянно(многократно)
PAL.WaitForTime('+00:30:00'); //ставим задержку на 30 минут
Song := CAT['Каталог'].ChooseSong(smRandom,NoRules); //выбираем трек наугад
//добавляем его в начало очереди
Queue.Add(song,ipTop);

Запуск файла каждый час (отбивка времени):

var P : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;

strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов

PAL.Loop := True;

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3

P := Aux1;
if P <> nil then
begin

Queue.AddFile(strJingle, ipTop);
Queue.AddFile(strFile, ipTop);



P := ActivePlayer;
if P <> nil then P.FadeToNext;


end;

24.10.2009

люди я новенький где можно научиться делать такие скрипты бесплатно

27.10.2009

Здравствуйте. Подскажите пож-ста,- как заставить работать Event Scheduler. Задача в следующем. В начале каждого часа ежедневно новости, в середине часа реклама. В упор не хочет запускать указанный файл. PAL скриптом не очень мне удобно. Хотелось что-бы Event Scheduler заработал. Спасибо

27.10.2009

Разобрался сам

06.11.2009

Привет. У меня такой вопрос. Можно ли с помощью такого скрипта (или как либо иначе) создать статистику песен. Тобишь что-то в стиле топ 10

24.11.2009

Всем привет ! подскажите как сохранить название трека в текстовый файл и при каждой смене трека происходила перезапись этого файла .

02.12.2009

Приветствую! У меня такой вопрос. Есть сценарий:

1. {# Add files to queue script #}
2. Queue.Clear;
3. Queue.AddList('E:\Musik\Playlist\Основной.M3U',ipTop);
4. Queue.Shuffle;
5. deckA.Play;

По идее он должен очищать последовательность, добавлять новый плейлист, и перемешивать его. После это должно начинаться воспроизведение на дэке А, но этого не происходит (не воспроизводит). В чём ошибка?

03.12.2009

Дека А скорей всего пустая.
рекомендую
ActivePlayer.FadeToNext;

07.12.2009

СПАСИТЕ... Кто нибуть может подсказать скрипт, который при откритии СЭМа будет запускать все енкодеры сразу?????

07.12.2009

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

08.12.2009

Klef СПАСИБО ОГРОМНОЕ

11.12.2009

var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;

If (OldTime>=T['19:00:00']) AND (OldTime<=T['22:30:00']) Then
begin
CAT['Tusovka3'].QueueTop(smRandom, NoRules);
PAL.WaitForPlayCount(5);
End;

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

17.01.2010

Приветствую всех!!!! Нужна помощь, т.к. я в .pal скриптах совсем не понимаю!!! Суть такова: есть встроенный СЭМовский скрипт, который выводит нужную инфу из txt файла, чередуя ее с исполнителем и названием текущего трека, нужно сделать так чтоб инфа чередовалась не с title, а с названием станции. Помогите организовать, вот сам скрипт:

1. { CONFIGURATION }
2. {==================================================}
3. const bannertext_file = 'C:\Program Files\SpacialAudio\SAMBC\PAL\BannerText.txt';
4. const change_interval = '+00:00:15';
5. {==================================================}
8. { IMPLEMENTATION }
9. {--------------------------------------------------}
10. var CurSong : TSongInfo;
11. var UpdSong : TSongInfo;
12. var Banners : TStringList;
13. var Toggle : Boolean = True;
14. var LinePos : Integer = 0;
16. {Set this script to restart itself}
17. PAL.Loop := True;
19. { Create some objects that we will need}
20. UpdSong := TSongInfo.Create;
21. Banners := TStringList.Create;
23. { Load banner lines into stringlist object }
24. if FileExists(bannertext_file) then
25. Banners.LoadFromFile(bannertext_file)
26. else
27. WriteLn('Banner source file does not exist!');
29. LinePos := 0;
30. while (LinePos<Banners.Count) do
31. begin
32. {Wait for specified time}
33. PAL.WaitForTime(change_interval);
35. {Retrieve the current banner line and assign it to song object}
36. UpdSong['title'] := Banners[LinePos];
38. {Tell encoders to update song information:
39. When Toggle is True, we use the normal song information from
40. the active player - otherwise we use our banner song object
41. }
42. Toggle := not Toggle;
43. if Toggle then
44. begin
45. CurSong := ActivePlayer.GetSongInfo;
46. Encoders.SongChange(CurSong);
47. CurSong.Free;
48. end
49. else
50. Encoders.SongChange(UpdSong);
52. {Move to the next line in the banner file before we continue}
53. LinePos := LinePos + 1;
54. end;
56. {Destroy objects once we no longer need them}
57. Banners.Free;
58. UpdSong.Free;

Буду благодарен за помощь :)

29.01.2010

А скажите можно ли с помощью скрипта принудительно остановить деку А и В??
И если можно хотелось бы глянуть на этот скрипт))

03.02.2010

Ребят помогите! Вот есть pal скрипт который выводит в плеерах инфу вида:

Релиз: [название текущего трека] Заказал(а): [текст] ну потом через некоторое время строчка меняется и показывается просто название станции и название трека и сообветственно все сначало.

Вот код :

1. var D : TDataSet;
2. var P : TPlayer;
3. var Song : TSongInfo;
4. var S : TSongInfo;
6. PAL.Loop := true;
8. procedure pause();
9. begin
10. PAL.WaitForTime ('+00:00:07');
11. end;
13. S:=TSongInfo.Create;
15. P:= ActivePlayer;
16. Song := P.GetSongInfo;
17. S['artist'] := '';
18. S['duration'] := 0;
19. S['title'] := 'Трек: ' + Song['artist'] + ' - ' + Song['title'];
20. Encoders.SongChange(S);
21. PAL.WaitForTime ('+00:00:15');
23. P := ActivePlayer;
24. Song := P.GetSongInfo;
25. S['artist'] := '';
26. S['duration'] := 0;
27. if StrToInt(Song['albumyear'])>1980 then S['title'] := 'Релиз: ' + Song['album']+' ('+Song['albumyear']+')' else S['title'] := 'Релиз: ' + Song['album'];
28. Encoders.SongChange(S);
29. PAL.WaitForTime ('+00:00:07');
31. if song['requestid'] > 0 then
33. D := Query('SELECT * FROM requestlist WHERE ID = :J AND SongID = :I',[Song['requestID'],Song['ID']],true);
35. if D['name'] <> '' then
36. begin
37. S['artist'] := '';
38. S['title'] := 'Заказал(а): '+D['name'];
39. S['duration'] := 0;
40. Encoders.SongChange(S);
41. pause();
42. end;
44. if D['msg'] <> '' then
45. begin
46. S['artist'] := '';
47. S['title'] := 'Текст: '+D['msg'];
48. S['duration'] := 0;
49. Encoders.SongChange(S);
50. pause();
51. pause();
52. end;
54. D.Free;
55. P.Free;
56. Song.Free;

Но проблема в том что я что то не пойму как именно пользоваться этим скриптом и куда вводить Имя того кто заказал трек.
Рассшифруйте плз.

11.02.2010

данй скрипт вы пихаете в СЕМ.
Если по стандарту, то в Desktop B находиться меню PAL Script ..туда и добавляете файл. Расширение файла (в названии после точки) должно быть ".pal" .Добавив просто запускаете скрпит.
Скрипт сам выводит имя заказавшего если он указал последнее при заказе песни.

28.02.2010

Этот скрипт привязан к samPHPweb Если там, человек заказал трек, он указывает имя, которое в свою очередь и показывается в метадате!

05.03.2010

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