ОсновноеRadiotalkПользовательское
Технологии вещания, софт, скрипты
3   •   Посмотреть все темы

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

 

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

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

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

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

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

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

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

57
Алексей @radioset
KyPIIaToB пишет:

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

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

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


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

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

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

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


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

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

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

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

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

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

144
Руся @Ruskat
Всем привет! Нужен был скриптик для рекламы. Получилось вот так в тесте:
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); // сама реклама мне указать, сколько треков нужно случайным образом брать из категории? Берёт один.

57
LAZAR @LAZ2735
Народ есть скрипт
PAL.Loop := True;
PAL.WaitForTime(T['08:00:00']); {Wait for 8am}
{==================================================}
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
'FROM songlist,requestlist '+
'WHERE songlist.ID = requestlist.songID '+
' AND requestlist.code < 700 '+
'GROUP BY songlist.ID '+
'ORDER BY cnt DESC LIMIT 10',[],True);
{Add requests to Queue.
We add to the top of the Queue, effectively reversing the
order of the requests - playing #10 first and #1 last}
C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipTop);
D.Next;
end;

{==================================================}
PAL.WaitForTime(T['23:59:59']); {Wait for next day}

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

1572
KyPIIaToB @KyPIIaToB
PAL.Loop := False;
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
'FROM songlist,requestlist '+
'WHERE songlist.ID = requestlist.songID '+
' AND requestlist.code < 700 '+
'GROUP BY songlist.ID '+
'ORDER BY cnt DESC LIMIT 10',[],True);
{Add requests to Queue.
We add to the top of the Queue, effectively reversing the
order of the requests - playing #10 first and #1 last}
C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
D.Next;
end;

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

Отредактировано KyPIIaToB - 21.09.2011
888
Falcon @Falcon
Если ставить в шедулер, то надо убрать строчки:
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}

Отредактировано Falcon - 21.09.2011
1572
KyPIIaToB @KyPIIaToB
Ну вообще то я в скрипте это и убрал =\

57
LAZAR @LAZ2735
KyPIIaToB пишет:

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

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

Спасибо