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

06.07.2011

с инглишом как то не дружу...понимаю че как но все таки....

06.07.2011

Че там понимать то? **********/
Там написано то по пару слов, не нужно лениться!

09.07.2011

спасибо хорошие скрипты!Очень помогли! ;)

09.08.2011

Скажите что здесь вписать чтобы скрипт брал весь плейлист:
CAT['Tracks'].QueueBottom(smRandom, NoRules);

16.08.2011

Ребят подскажите как через PAL заставить играть песни подряд, так как они находятся в категории?

18.08.2011

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

18.08.2011

Ответы на все вопросы
**********

18.08.2011

может тогда закроем этот форум, если на все вопросы уже там ответили?

18.08.2011

дРУЗЬЯ ПОМОГИ ПОЖАЛУЙСТА С ОДНИМ ВОПРОСОМ МУЧАЕТ МЕНЯ ДОЛГО....НА РАБОЧЕМ СТОЛЕ ЕСТЬ НЕСКОЛЬКО ПАПОК С ДЖИНГЛАМИ,ЕСТЬ СКРИПТ


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

В СОУНД ФХ добавил джинглы из папок...ранбше все пахало сейчас скрипт не работает джинглы появляются queue но при приближении конца трека меняется джингл на другую песню в деке...в чем причина??? помогите

Добавлено спустя 3 минуты 36 секунд:
И ее подскажите плиз в Gap killer какие цифры ставить а то я сбил теперь не могу восстановить...у кого где стоят а где не стоят галочки подскажите

18.08.2011

Собственно в самом SAMe обнови Sound FX, он добавляет тупо из списка в базе скажем так, а путь на самом деле не верный, вот и файл не проигрывает, тупо пропускает.
Если не понял, то вот тебе картинка


Добавлено спустя 5 минут 59 секунд:
Gap killer, тут есть картинка **********

18.08.2011

неа все ранво не поперло..мож со скриптом что то не то или как нить по другому

20.08.2011

Друзья подскажите пожалуйста скрипт для того что бы выводить часовую,что бы необязательно каждый час в :01 минуту а в период как на фм задан период когда часовая сможет сработать там с :57 минуте по :01,а то ставишь на :01 и песня обрывается и идет часовая......плиз ктонить пожскажите

Добавлено спустя 8 минут 22 секунды:
а через шедулер я не наю как..ваще не умею им пользоваться там же тоже задается время о бишь то же самое получится если я вставлю в шедулер часовую и поставлю время допустим 14:00

20.08.2011

Ну если ты не умеешь, мы то тут причем? Учись, читай wiki, там все функции расписаны.

20.08.2011

Вопрос закрыт)) Все сделал)

25.08.2011

Всем привет! Нужен был скриптик для рекламы. Получилось вот так в тесте:
var P : TPlayer;
var Song : TSongInfo;
var strRekB, strRekE : String;

//скрипт будет выполнятся постоянно(многократно)
PAL.Loop := True;
//ставим задержку на 30 минут
PAL.WaitForTime('+00:00:10');
strRekB := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к началу рекламы
//выбираем трек наугад
Song := CAT['Фильмы-мульты'].ChooseSong(smRandom,NoRules);
//добавляем его в начало очереди
strRekE := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к концу рекламы
//Задаём последовательность и место вставки в Queue.
Queue.AddFile(strRekB, ipBottom); // Начало. Интро. Реклама на таком-то радио...
Queue.Add(Song, ipBottom); // сама реклама (вывод 1 трека)
Queue.AddFile(strRekE, ipBottom); // Конец рекламы. Это была реклама на таком-то радио...
if P <> nil then
begin
Queue.AddFile(strRekB, ipTop);
Queue.AddFile(strRekE, ipTop);
P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;

=======
Как в параметре Queue.Add(Song, ipBottom); // сама реклама мне указать, сколько треков нужно случайным образом брать из категории? Берёт один.

21.09.2011

Народ есть скрипт

1. PAL.Loop := True;
2. PAL.WaitForTime(T['08:00:00']); {Wait for 8am}
3. {==================================================}
4. var D : TDataSet;
5. var C : Integer;
6. D := Query('SELECT songlist.*, count(*) as cnt '+
7. 'FROM songlist,requestlist '+
8. 'WHERE songlist.ID = requestlist.songID '+
9. ' AND requestlist.code < 700 '+
10. 'GROUP BY songlist.ID '+
11. 'ORDER BY cnt DESC LIMIT 10',[],True);
12. {Add requests to Queue.
13. We add to the top of the Queue, effectively reversing the
14. order of the requests - playing #10 first and #1 last}
15. C := 0;
16. D.First;
17. while not D.EOF do
18. begin
19. C := C + 1;
20. WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
21. Queue.AddFile(D['filename'],ipTop);
22. D.Next;
23. end;
25. {==================================================}
26. PAL.WaitForTime(T['23:59:59']); {Wait for next day}

В какую сторону копать чтобы он запускался только в пятницу и только в 21:00 ?

21.09.2011

1. PAL.Loop := False;
2. var D : TDataSet;
3. var C : Integer;
4. D := Query('SELECT songlist.*, count(*) as cnt '+
5. 'FROM songlist,requestlist '+
6. 'WHERE songlist.ID = requestlist.songID '+
7. ' AND requestlist.code < 700 '+
8. 'GROUP BY songlist.ID '+
9. 'ORDER BY cnt DESC LIMIT 10',[],True);
10. {Add requests to Queue.
11. We add to the top of the Queue, effectively reversing the
12. order of the requests - playing #10 first and #1 last}
13. C := 0;
14. D.First;
15. while not D.EOF do
16. begin
17. C := C + 1;
18. WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
19. D.Next;
20. end;

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

21.09.2011

Если ставить в шедулер, то надо убрать строчки:
PAL.Loop := True;
PAL.WaitForTime(T['08:00:00']); {Wait for 8am}

Иначе он запустится в пятницу, 21.00, прождет до 8 утра субботы и выполнится опять и т.д
И соответственное убрать вконце
PAL.WaitForTime(T['23:59:59']); {Wait for next day}

21.09.2011

Ну вообще то я в скрипте это и убрал =\

21.09.2011

Спасибо