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

ребята держите,кому нужно
// Планировщик запуска файлов v 1.1 :
// Справка по настройке скрипта находится в подвале кода

var Time, str, PlayerMode, scheduler, FName: string;
var P: TPlayer;
var Song: TSongInfo;
var s, q, w: integer;

PAL.Loop := True;

PAL.WaitForTime('XX:XX:40'); // запускаемся в конце каждой минуты

Time:= FormatDateTime('hh:nn', now+1/1440);
FName:= '';
scheduler:= '';
q:= 0;

repeat
q:= q+1;
Case Time of
// планировщик запуска файлов:
//'XX:15': scheduler:= 'Q/D:\Radio\Jingles\соц. реклама\соц. реклама 1.wav';
//'XX:45': scheduler:= 'Q/D:\Radio\Jingles\соц. реклама\соц. реклама2.mp3';
//'XX:00': scheduler:= 'Q/D:\Radio\Jingles\для рекламы программы.wav';
'XX:28': scheduler:= 'Q/D:\Radio\Jingles\music life - музыка которую слушают.mp3';
'15:58': scheduler:= 'FTN/D:\Radio\Jingles\помните на тлене растут деревья.mp3';
'15:59': scheduler:= 'fts';
'XX:20': scheduler:= 'mf/D:\Radio\Jingles\вы устали от цивильной жизни (голос RMS -6db) v1.wav';
'XX:40': scheduler:= 'mf/D:\Radio\Jingles\вы устали от цивильной жизни (голос RMS -6db) v1.wav';
'XX:00': scheduler:= 'q/D:\Radio\Jingles\вы устали от цивильной жизни v1.wav';

end; // case
if q= 1 then
for s:= 1 to 2 do Time[s]:= 'X';
until (scheduler<>'') or (q=2);

if scheduler<> '' then begin
scheduler:= AnsiLowerCase(scheduler);
// парсим параметры
str:= '';
w:= 0;
PlayerMode:= '';

scheduler:= scheduler+ '/';
For q:= 1 to length(scheduler) do begin
if scheduler[q]<> '/' then str:= str+scheduler[q]
Else begin
Case w of
0: PlayerMode:= str;
1: FName:= str;
end; // case
str:= '';
w:= w+1;
end; // else
end; // For q

// режимы проигрывания
Case PlayerMode of
'q': Queue.AddFile(FName, ipTop); // ставим в очередь

'ftn': begin
P := Aux1;
if P <> nil then
begin
Queue.AddFile(FName, ipTop);

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

end;
end; // проигрываем через Fade To Next

'm': begin
P := SoundFX;

if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom, NoRules);
if Song <> nil then
begin
P.QueueSong(Song);

P.Play;
end;
end;

end; // миксуем трек

'ftp': begin
P:= DeckA;
P.FadeToPlay; end;

'fts': ActivePlayer.FadeToStop;

'mf': begin
P := SoundFX;
if P <> nil then begin
Queue.AddFile(FName, ipTop);
Song:= Queue.NextInQueue;
if Song <> nil then begin
P.QueueSong(Song);
P.Play;
end;
end;
//rewrited by beqa
end; // mf. миксуем файл на играющий трек

end; // case
end; // scheduler<>''

{  инструкция по использованию планировщика запуска файлов:

подключите к SamBroadcaster файл скрипта - scheduler.pal .
можете сразу отметить его авто запуск, поставив флажок на:
"Automatically start script".
впишите в редактор полный путь к скрипту. например:
Script source file
C:\Program Files\SpacialAudio\SAMBC\PAL\scheduler.pal
перейдите на jaws курсор и нажмите кнопку - OK.
после этого скрипт будет подключен, а также запускаться автоматически при запуске Сэма.
далее настраиваем планировщик.
описание:
планировщик может запускать медиа файлы непосредственно с диска.
умеет стартовать плеер (чтобы это сработало нужно после запуска сэма запустить по F1 проигрывание , и сразу остановить его - F3.
видимо чтобы это работало нужен запуск энкодера. после этого скрипт уже может стартовать воспроизведение в указаное в нем времени).
может останавливать плеер.
может ставить в очередь файл с диска.
может миксовать в случайном порядке файлы из папки "Sound FX (All)".
также может миксовать файл с диска, на играющий трек.
понимает как абсолютное , так и относительное время.

не рекомендуется изменять код скрипта, во избежание глюков в работе оного.
скрипт распространяется совершенно бесплатно.
и предлагается - как есть..

настройка планировщика:

открываем в обычном блокноте файл скрипта - scheduler.pal
находим строку:
---
Case Time of
// планировщик запуска файлов:
--
после коментария - "планировщик запуска файлов", пишем программу запуска..
не выходя за операторную скобку - "end; // case"
иными словами - ваш код находится внутри этой скобки.
синтаксис ваших команд следующий:

['HH:MM': scheduler:= 'PlayerMode/FileNamePath';]
левую и правую квадратные скобки не вписываем..
в левой части командной строки вписывается время срабатывания в минутах и часах, в правой действие проигрывателя.
часы и минуты обязательно указываются двусимвольными.
например - "02:05".
HH - означают часы.
MM - означают минуты.
если например нужно, чтобы файл проигрывался каждый час в двадцать пять минут,
тогда вместо абсолютных часов вписываем - "XX" , только большими буквами.
тоесть полная запись будет такая - "'XX:25':" , без кавычек разумеется.
все знаки апострофа обязательны (литерал).

"scheduler:=" - зарезервированное слово - переменная: string;
ей присваивается выражение - "PlayerMode/FileNamePath"

PlayerMode - режим проигрывания плеера.
FileNamePath - полный путь к медиа-файлу

PlayerMode может иметь следующие параметры:
"q" - поставить файл в очередь за играющим в данный момент треком.
"ftn" - остановить играющий трек и проиграть указанный файл (FadeToNext (фейд уменьшения на фейд увеличения))
"m" - миксовать случайно выбранный трек из "Sound FX (All)" на играющий трек
"mf" - миксовать файл на играющий трек
"ftp" - включить воспроизведение трека вверху очереди в списке Queue
"fts" - остановить играющий трек.

FileNamePath имеет только один параметр - полное указание пути к медиа-файлу (относительный путь не прокатит).
если в параметре PlayerMode вы указываете - "m", "ftp", "fts", то вписывать параметр "FileNamePath" не нужно..

полный пример написания:

'XX:25': scheduler:= 'q/c:\music\mihtelradio.mp3';
это значит, что файл - mihtelradio.mp3 будет ставится в очередь за играющим в данный момент треком, каждый час в двадцать пять минут.

'19:00': scheduler:= 'ftn/c:\music\news.mp3';
это значит, что файл - news.mp3 прервет в 19:00 играющий в данный момент трек, после сам проиграется и после окончания запустит первый в очереди плей-листа Сэма файл на проигрывание.

'XX:30': scheduler:= 'm';
это значит, что случайно выбранный трек из папки - Sound FX (All), будет микшироваться с играющим треком в 30 минут каждого часа.

'XX:00': scheduler:= 'mf/c:\music\time.mp3';
Это значит, что файл "time.mp3" будет микшироваться с играющим треком каждый час.

'07:00': scheduler:= 'ftp';
это значит, что в 7:00 утра включится плеер и начнет играть первый в очереди списка воспроизведения файл.

'23:59': scheduler:= 'fts';
это значит, что в 23:59 плеер остановит воспроизведение.

обратите внимание, что параметры PlayerMode и FileNamePath разделены знаком - "/".
который является разделителем.
знаки "//" - закомментированная строка.

если допустим у вас введено абсолютное время такое же, как и относительное (это когда минуты равны),
то приоритет срабатывания программы отдается абсолютному времени.

когда плеер остановлен, то скорее всего энкодер не отключается и канал будет занят вашим Сэмом.
поэтому имейте это ввиду!  }

скрипт на лайнер:

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := False;
PAL.WaitForTime('+00:00:00:00');
P := SoundFX;

if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom, NoRules);
if Song <> nil then
begin
P.QueueSong(Song);
//P.Play;
P.FadeToPlay;

PAL.WaitForPlayCount(1);
DeckA.Play;
end;
end;

mihtel,

PAL.WaitForPlayCount(10); 

Это значит, что после каждой 10-ой песни запускается файл из категории 'Promos'?

Я правильно понял?

Queue.AddFile(strFile, ipTop); // Добавка файла временной отбивки в очередь
Song := Queue.NextInQueue; // трудно объяснимое =)
P.QueueSong(Song); // трудно объяснимое =)

трудно обьяснимое и ненужное ) зачем добавлять в очередь если можно сразу всунуть в soundfx ?

Приветствую всех!

Долго читаю этот форум и вот назрела необходимость обратиться с вопросом за помощью.
Друзья, есть вот такой скрипт:

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

strPath := 'C:\Users\saxell\Desktop\Jingles\'; // Ïóòü ê ïàïêå, ãäå ëåæàò îòáèâêè ÷àñîâ
strJingle := 'C:\Users\saxell\Desktop\Jingles\EuropeRussia-reklama.mp3'; //Ïóòü è íàçâàíèå äæèíãëà ïîñëå îòáèâêè ÷àñîâ

PAL.Loop := True;

PAL.WaitForTime('XX:59:45'); //çàïóñêàåìñÿ â êîíöå êàæäîãî ÷àñà. 45 ñåê - âðåìÿ áóôåðåçàöèè, ïîäáèðàåì ïî ñâîì ïàðàìåòðàì, âêóñàì

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //îïðåäåëÿåì íàçâàíèå ôàéëà ñ íóæíûìè ÷àñèêàìè. Ôîðìàò èìåíè ôàéëà XX-XX.mp3

P := Aux1;
if P <> nil then
begin
    Queue.AddURL('mms://live.rfn.ru/vesti_fm',ipTop);
    PAL.WaitForTime(T['+00:00:15']); //Wait 15 secs
    Queue.AddFile(strJingle, ipTop);
    Queue.AddFile(strFile, ipTop);

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

end;

Здесь часовая отбивка, далее промо радио, далее новости с внешнего источника. Все работает прекрасно, но вот как сделать, чтобы этот внешний источник играл определенное время? Например 5 минут, а дальше штатный плейлист??

Прошу помощи!!

И вдогонку вопрос. Умеет ли SAM работать по DTMF или по какой-либо другой метке?

Отредактировано saxell (17-08-2013 14:39:24)

Всем привет, просьба помочь, в запаре опять.

Есть скрипт, который выводит джингл через определенное время

var Song : TSongInfo;

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

Задача, добавить после джингла трек из категории Hit (CAT['Hit'].ChooseSong(smRandom,NoRules)), пробовал по разному, не идет чтото, выдает ошибку компиляции. Помогите пожалуйста

tarasian666, большое вам спасибо.

Можете помочь со скриптом? В общем ситуация следующая, джингл играет через деки и на странице в SHOUTCAST - SONG HISTORY показывается его название. Как его скрыть? Переименовка джинглов это не выход, как и скрыть все проигранные треки. Можно ли это сделать с помощью скрипта? Спасибо!

пишет tarasian666:

Ok_go_love есть
isaul используйте aux вместо деки

Может есть какое готовое решение у тебя? Не поможешь со скриптом?

Доброго времени суток! Есть скрипт, который в конце каждого часа запускает "закрывашку" (последний трек в часе)  для добивки и выравнивания часа. После него идёт отбивка времени через ftn. Можно ли сделать так, чтобы ftn не сразу обрывал предыдущую композицию, а с fade out'ом в 15 секунд. Может есть какой-то параметр или скрипт, который можно применить "в определённое время" или к определённой папке "закрывашек". Настройках в самой композиции отпадает ручная установка Fade out, т.к. песня будет играть не до конца, поэтому Fade out не будет применяться (мне так кажется). Лучше бы параметр для ftn... В общем, у коого есть какие идеи? Заранее спасибо!

пишет Falcon:

пишет BadFM Radio:

Доброго времени суток! Есть скрипт, который в конце каждого часа запускает "закрывашку" (последний трек в часе)  для добивки и выравнивания часа. После него идёт отбивка времени через ftn. Можно ли сделать так, чтобы ftn не сразу обрывал предыдущую композицию, а с fade out'ом в 15 секунд. Может есть какой-то параметр или скрипт, который можно применить "в определённое время" или к определённой папке "закрывашек". Настройках в самой композиции отпадает ручная установка Fade out, т.к. песня будет играть не до конца, поэтому Fade out не будет применяться (мне так кажется). Лучше бы параметр для ftn... В общем, у коого есть какие идеи? Заранее спасибо!

PAL.Loop:=True;
PAL.WaitForTime('XX:59:50'); - момент, когда нужно сфэйдить
ActivePlayer.FadeToNext;

Судя по всему, как-то так.

спасибо!