Объединенные знания по PAL-Скриптам

15.10.2011

Всем доброго времени суток! Хотелось бы собрать все знания по скриптам в единый топик, чтоб народ не рыскал по сайту в поисках нужного скрипта. Если тема не приживется, то разрешаю модератору смело её бахать :)! Ну, раз я начал эту тему, то и мне начинать с примерами скриптов, которые я использую в Сэме в графе PAL Scripts. Итак:
1. TitleStreamBanners - выводит на плеера ту информацию, которую ты напишешь в файле txt.

1. { CONFIGURATION }
2. {==================================================}
3. const bannertext_file = 'C:\Program Files\SpacialAudio\SAMBC\PAL\BannerText.txt';
4. const change_interval = '+00:10:00';
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;
59. {--------------------------------------------------}

2. Ежечасовая отбивочка, любезно предоставленная форумчанином Курпатовым:

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 := 'C:\CLOCK\'; //путь к папке с отбивкой
14. PAL.WaitForTime('XX:59:45'); //запускаемся в конце каждого часа
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;

3. Вывод рекламы у Вас на радио:

1. var Song : TSongInfo;
3. //скрипт будет выполнятся постоянно(многократно)
4. PAL.Loop := True;
5. //ставим задержку на 30 минут
6. PAL.WaitForTime('+02:44:00');
7. //выбираем трек наугад
8. Song := CAT['Promos (All)'].ChooseSong(smRandom,NoRules);
9. //добавляем его в начало очереди
10. Queue.Add(song,ipTop);

4. Скрипт удаления битых путей файлов:

1. var D : TDataSet;
2. D := QUERY('SELECT * FROM songlist',[],True);
3. PAL.LockExecution;
4. D.First;
5. while not D.EOF do
6. begin
7. if not FileExists(D['filename']) then
8. begin
9. WriteLn('Removing '+D['filename']);
10. ExecSQL('DELETE FROM songlist WHERE ID = :ID',[D['ID']]);
11. ExecSQL('DELETE FROM categorylist WHERE songID = :ID',[D['ID']]);
12. end;
13. D.Next;
14. end;
15. PAL.UnLockExecution;

5. Скрипт, чтобы песни не заканчивались. Чтоб не было тишины в эфире. (Честно говоря я не совсем понимаю актуальность данного скрипта, когда можно радио в нонстопе поставить на AutoDJ).

1. var mySong : TSongInfo;
2. //создаем переменную для обращение к деке
3. PAL.Loop := True;
4. //зацикливаем скрипт
6. if (deckA.Status=1) and (deckB.Status=1) then
7. //проверяем играет ли что нибудь в деках
8. begin
9. mySong := Cat['Music New'].ChooseSong(smRandom, noRules);
10. //присваеваем случайный трек из категории mp3 в нашу переменную
11. deckA.QueueSong(mySong);
12. //запихиваем наш трек в деку
13. deckA.Play;
14. //запускаем деку
15. CAT['Music New'].QueueBottom(smLemmingLogic, NoRules);
16. //выбираем случайный трек из категории mp3 и кидаем в список следущих
17. end;

6. Поиск русскоязычных названий. (Не совсем понимаю, зачем он):

1. <form method="POST" action="playlist.php">
2. <p>Поиск по названию песни:<br>
3. <? InputText("search",$search,'',20); ?> <input type="submit" value=" Найти " name="B1"><br />
4. <?php
5. echo "Поиск по исполнителю:<br>";
6. for ($i=ord('0'); $i<=ord('Z'); $i++)
7. echo '<a href="search2.php?letter='.$i.'">'.chr($i).'</a>';
8. echo "<br />";
9. for ($i=ord('А'); $i<=ord('Я'); $i++)
10. echo '<a href="search2.php?letter='.$i.'">'.chr($i).'</a>';
12. ?>
13. <br />Выводить по <? InputCombo("limit",$limit,25,'5,10,25,50,100'); ?> найденных результатов
15. </p>
16. </form>

7. Информация о том, кто заказал песню:

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:10');
24. if song['requestid'] > 0 then
26. D := Query('SELECT * FROM requestlist WHERE ID = :J AND SongID = :I',[Song['requestID'],Song['ID']],true);
28. if D['name'] <> '' then
29. begin
30. S['artist'] := '';
31. S['title'] := 'От кого: '+D['name'];
32. S['duration'] := 0;
33. Encoders.SongChange(S);
34. PAL.WaitForTime ('+00:00:20');
35. pause();
36. end;
38. if D['msg'] <> '' then
39. begin
40. S['artist'] := '';
41. S['title'] := 'Текст: '+D['msg'];
42. S['duration'] := 0;
43. Encoders.SongChange(S);
44. PAL.WaitForTime ('+00:00:20');
45. pause();
46. pause();
47. end;
49. D.Free;
50. P.Free;
51. Song.Free;

На этом моя база знаний по PAL-скриптам заканчивается. Кому пригодились эти скрипты, кто использует совершенно другие, кто нашёл в моих скриптах ошибку и т.д. и т.п. - ПИШИТЕ. Составим единую базу скриптов в одном топике.

15.10.2011

Для тех кто в танке **********

17.10.2011

Ну и что? Там тема разворачивается с 2007 года, а тут тупо готовые решения. Ну если не интересно...

17.10.2011

Давайте удалим все темы, создадим новые без обсуждения с готовыми вариантами. Дружище, это форум, тут темы для обсуждения. Кому нужно, тот прочитает тему. Таким образом человек сможет не только найти для себя вариант, но и вникнуть как работает скрипт. А вот такие глупые темы с тупо готовыми вариантами рождает 100500 тупых вопросов по работе этих готовых вариантах.
Чуешь разницу?

17.10.2011

для этого есть вот
**********

17.10.2011

Да да, я не однократно давал эту ссылку.

17.10.2011

Понятно. Спасибо. Можно тему удалять ))

31.10.2012

всем привет! помогите чайнику я так понимаю мне нуже pal script
ЕСТЬ БАЗА ФАЙЛОВ В МОЁМ КОМПЕ. МНЕ НУЖНО ЧТОБЫ КАЖДЫЕ ДВА ЧАСА ПРОГРАММА (SAM BROADCASTER) ВЫБИРАЛА ИЗ НИХ КАЖДЫЙ РАЗ РАЗНЫЙ ФАИЛ ДЛЯ ПРОИГРЫВАНИЯ В ЭФИРЕ В (8:30, 10:30, 12:30 И Т.Д.)

ФАЙЛЫ БУДУТ ДОБАВЛЯТЬСЯ СО ВРЕМЕНЕМ И НУЖНО ЧТОБЫ ПРОГРАММА ВЫБИРАЛА НОВИНКИ ПО МЕРЕ ИХ ПОСТУПЛЕНИЯ

ЗАРАНЕЕ СПАСИБО

31.10.2012

ДЛЯ МЕНЯ ДЕЛАЮТ 7 ВЫПУСКОВ НОВОСТЕЙ - ПРИСЫЛАЮТ ПО EMAIL Я ИХ СТАВЛЮ В EVENT SCHEDULER КАЖДЫЙ ДЕНЬ.

ВОЗМОЖНО ЧТОБЫ ЧЕЛОВЕК КОТОРЫЙ ПРИСЫЛАЕТ ЭТИ 7 ФАЙЛОВ ГРУЗИЛ ИХ НАПРИМЕР НА FTP, А ПРОГРАММА SAM BROADCASTER ВЫДЁРГИВАЛА ИХ ОТ ТУДА И ПРОИГРЫВАЛА КАЖДЫЙ ВЫПУСК В НУЖНОЕ ВРЕМЯ?

05.11.2012

а можно капсом не писать?

05.11.2012

Извините, конечно.
Если дело дошло до рекламы, то отыгрывать её наугад - форменный идиотизм

Очень хочется посмотреть на рекламодателя ООО "Рога и Копыта" которому абсолютно фиолетово когда выходит его реклама без четкого оговаривания количества, времени и даты выхода.