Скрипты PAL для Sam Broadcaster (Страница 13 из 21)

Как создать условие, которое запрещало бы выполнение той или иной команды?
т.е. запретить вставку джинглов в определенное время

В общем я сделал так.
Как упростить скрипт? Если у меня с 10:00 - 11:00 и с 19:00-20:00 играет рубрика в которую нельзя вставлять джинглы?
Играет час Хип-хопа (со своими джинглами и лайнерами, треки добавлются рандомно из папки)

На ероглифы не обращайте внимание

PAL.Loop := True; // ñêðèïò áóäåò âûïîëíÿòñÿ ïîñòîÿííî
var mytime : DateTime = now;
var I : Integer;
var start_time, end_time : DateTime;
start_time := T['06:00:00'];
end_time :=T['23:50:00'];

      if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then

begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\You listening Radio Doskater.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Âàì ÷òî, êàòàòüñÿ íåãäå.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Çàáåé, áóõàé.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Ìàëåíüêèé ÷ëåí.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Íå ïîçîðü ñêåéòáîðäèíã.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Ðåêëàìà Ðàäèî Äîñêàòåð.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\×óâàê, ÷òî ñòîáîþ ñòàëî.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Íîâîå èíòåðàêòèâíîå øîó - Â Êðåäèòêó!.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Âñå Ñâîè - Ñðåäà.mp3',ipBottom);
end;
PAL.WaitForPlayCount(5);
if (Queue.Count < 4) and ( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\Ðàäèî Äîñêàòåð\Äæèíãëû\Ðàäèî Äîñêàòåð - Äæèíãë 2.mp3',ipBottom);
    end;

Ребятки, простите мне мой, если вдруг баян. Как определить дату PAL скриптом?
Задумка в подгрузках плейлистов с стандартным названием My-playlist_дд-мм-гггг.pls скриптом

Всех с наступающим!

Никак не могу разобраться.
Подскажите, пожалуйста. Мне нужна отбивка каждый час. Вот вроде бы скрипт (http://radiotalk.ru/viewtopic.php?pid=10114#p10114)
Но у меня на каждый час свой mp3.

В общем, помогите разобраться, как это лучше сделать. Могу ли я это реализовать в Even Sheduler?

Отредактировано vitmain (20-12-2012 13:52:11)

пишет vitmain:

Ну а за вознаграждение кто-нибудь поможет разобраться?
Очень надо господа.

Дак и в чём сложность то?
Там же русскими буквами написан формат имён часовых отбивок:

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

То есть
00-00.mp3
01-00.mp3
02-00.mp3
03-00.mp3
... и т.д

Господа, вот такое будет работать?

var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath: String;
strPath := 'C:\CLOCK\'; 
PAL.Loop := True;
PAL.WaitForTime('XX:59:15'); 
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; 
P := Aux1;
if P <> nil then
begin
    Queue.AddFile(strFile, ipTop);

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

end;

Я убрал оттуда часть про джинглы, а отбивки записал, как джинглы.

Отредактировано vitmain (21-12-2012 15:33:44)

Разобрался :)

Читаю форум и не только этот, уже 4й день, все похоже но не могу организовать конкретный скрипт! Помогите люди, буду признателен если нужно могу за вознаграждение! Нужна функция для вещания в ТЦ музыкальной подборки + рекламные ролики

Задача следующая:
Играет музыкальная подборка (24 часа) рандомом в режиме Auto Dj  в одной деке например Deck A с  громкостью  Volume - 5
Рекламные ролики по расписанию в назначенное время играют в Deck B с громкостью Volume 0  например:
Rek 01.mp3  (16:30:00)
Rek 02.mp3  (19:40:00)
Rek 03.mp3  (23:30:00)
и т.д

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

Есть скрипт, очень похожий

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

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

PAL.Loop := True;

PAL.WaitForTime('xx:30:15'); //запускаемся в конце каждого часа

strFile := strPath + FormatDateTime('hh', now+1/24) + '18-30.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;

Проблема в том что он проигрывается в 30мин (ну или в другое время, в общем интервал 1 час) каждого часа, а когда выставляешь время, появляется ошибка и ролик начинает играть беспрерывно!

Если не вариант в разные деки раздать, то можно как нибудь сделать чтобы именно эти ролики играли громче чем подборка, чисто теоретически это же возможно!?

ochenj nuzhen skript...
chto-bi SAM sverjal kazhduju pesnju iz QUEUE s papkpj NEW.
esli v NEW estj etot track, stavil pered nim Jingle?

Что-то поиск не дал результатов. Как выгрузить в Категорию композиции из папки? В Queue есть выгрузка, а в категорию не нашел.

------------------------

http://radio-electron.ru/play

пишет mihtel:

ребята
нужен скрипт,который определённый m3u файл будет выводить каждый час в начале часа,
но на определённое время,которое можно будет регулировать.
например хочу я по транслировать программу с другого радио,а она начинается в 18:00
я забиваю в определённую папку плей лист,он начинает играть в 18:00 через 10 минут отрубается и играют уже песни,которые у меня забиты в семе.
если кто может написать такой скрипт,могу заплатить.
так как я в пале не шарю совсем.
зарание спасибо

Задача реализуема в простом Шедулере

------------------------

http://radio-electron.ru/play

Открываешь Event Sheduler
Добавляешь новый ивент
Выбираешь Add files to Queue и там есть URL или Playlist

------------------------

http://radio-electron.ru/play