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

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

 

2605
Александр @AlexIT
Так же.

10
SanYA @SanYA
Привет!
есть в инете файлик php с расписанием эфира,. выдает он нечто подобное:
22:20 Нож для Frau Muller - Vitamins On Board
22:22 Чи-ли - Сердце
22:26 F.R. David - F.R. David - Words'99
22:29 Lilu - Карамелькой
22:34 Eagle-Eye Cherry - Eagle-Eye Cherry - Feels So Right


нужно как-то вытащить первую строчку, чтобы показать ее в винампах слушателей.
Как это можно сделать?

2605
Александр @AlexIT
Вообще ничего не понял.

284
jerry007 @jerry007
SanYA пишет:

Привет!
есть в инете файлик php с расписанием эфира,. выдает он нечто подобное:
22:20 Нож для Frau Muller - Vitamins On Board
22:22 Чи-ли - Сердце
22:26 F.R. David - F.R. David - Words'99
22:29 Lilu - Карамелькой
22:34 Eagle-Eye Cherry - Eagle-Eye Cherry - Feels So Right


нужно как-то вытащить первую строчку, чтобы показать ее в винампах слушателей.
Как это можно сделать?

Шо за бред? :D
По русски можно?

1400
Pheoru @Pheoru
Любой вещатель выдает название трека без внешних скриптов.

92
slims @slims
Возможно я ошибаюсь, но наверно имелось в виду, что бы в винампе отображалось кто в эфире и что за трек звучит ( название)
Я могу заблуждаться, правильно ли я понял .
Если так как описано выше мной, то для сема есть скрипт, который показывает в винампе у слушателей строчкой, что звучит и кто в эфире , если у ДЖ указоно в настройках в семе )
Он кстате еще и заказанную композицию показывает и пожелание если оно было сделано .

1
Rick @Rick
Здравствуйте. Не подскажите, есть ли команда для PAL script'а чтобы удалить дубликаты их очереди?

2
Legion @Legion
Здраствуйте.
У каво есть PAL скрип для рекламы (чтобы через каждых 5-6 песень играла рекламка) ? Пытался на ОФФ сайте найти, но с АНГ не дружу((

1400
Pheoru @Pheoru
var Song : TSongInfo;

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

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

(c) Deman

В обоих случаях джинглы/реклама и т.д. должна находиться в категории "Station IDs".
1 вариант - вставка через каждые 30 минут;
2 вариант - вставка через каждые 5 треков.

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

Как я понимаю если мне нужно не из Station IDs вызвать звук а из Jingels то я делаю вот так?

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

и все?)

1400
Pheoru @Pheoru
Jingles (All)
да.

35
Александр @duseldorf
все, спасибо)

76
Amin @Amin
а можно ли 2 скрипта одинаковых запустить, но что бы первый скрипт через определенное время прогрывал с одной папки, а второй с другой, ненарушил ли это работу?

1400
Pheoru @Pheoru
В один скрипт объединяете и ставите:
Играть из первой папки через 2 композиции
Играть из второй папки через 2 композиции

468
Klef @Klef
вопрос знатокам, работа с Queue, а именно выяснение сколько треков в данном списке, выборочная очистка (не полная), выяснение во сколько будет играть следующий (второй, третий, цатый) трек.
Заранее спасибо.

3
buchacho @buchacho
вот скрипт переключения диджеев, как примерно понял но не опробовал
Переключение ДИ-ДЖЕЕВ
Много станций имеют более, чем одного ДИ-ДЖЕЯ, обслуживающий станцию, которые расположены по всему миру. Они применяют небольшую хитрость, чтобы переключаться между сеансами . Если Вы следующий ДИ-ДЖЕЙ хочет вещать, они регистрируются на панели администрации SHOUTcast и убивают текущий шифратор вещания, и тогда быстро соединяются со своим собственным шифратором.

Следующий сценарий ПАЛ может полностью автоматизировать этот процесс:

{ О:
Этот сценарий отключает любой источник подключенный к серверу SHOUTcast затем соединяет это с СЭМ Broadcaster как новый источник.

Использование:
a) Создайте единственный шифратор MP3, чтобы подключать к серверу SHOUTcast.
b) Поставьте ваши детали сервера SHOUTcast в секцию конфигурации нижеуказанного
c), Использовать Планировщик Событий, чтобы запускать этот сценарий ПАЛ в нужное время.
}
{ CONFIGURATION }
{==================================================}
const shoutcast_password = 'changeme';
const shoutcast_host = 'localhost';
const shoutcast_port = '8000';
{==================================================}

{ IMPLEMENTATION }
{--------------------------------------------------}

{ Build URL used to send command to SHOUTcast server }
var URL : String;
URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi?mode=kicksrc';

{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

{ Now start & connect all encoders }
{ NOTE: This assumes you only have one encoder }
Encoders.StartAll;

{TIP: Use this to start a specific encoder:
Encoders[0].Start;
}

кто попробует отпишитесь может есть и более продвинутый способ

3
buchacho @buchacho
проверил работает.. 8)
у меня 2 ретранслятора поэтому чуть дописал
единственное нужно поставить на основном сэме реконнект время побольше а то могут диджейские вещатели не успеть подключится 8)

Добавлено спустя 1 минуту 8 секунд:
Klef пишет:

вопрос знатокам, работа с Queue, а именно выяснение сколько треков в данном списке, выборочная очистка (не полная), выяснение во сколько будет играть следующий (второй, третий, цатый) трек.
Заранее спасибо.

бери инфу с трека и время узнаешь , да все что хочешь узнаешь 8)

Добавлено спустя 5 минут :
duseldorf пишет:

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

Как я понимаю если мне нужно не из Station IDs вызвать звук а из Jingels то я делаю вот так?

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

если нужно не выборочно тк такой путь не очень могут один и тот де джингл отыгрывать не по разу просто дописать

PAL.Loop := True; // скрипт будет выполнятся постоянно
//трек1
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков
CAT['Station IDs (All)'].QueueTop(1, NoRules);
//трек2
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков
CAT['Jingels (All)'].QueueTop(2, NoRules);
//трек3
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков
CAT['Jingels (All)'].QueueTop(3, NoRules);
//трек4
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков
CAT['Jingels (All)'].QueueTop(4, NoRules);

и так сколько джинглов потом снова с 1 8)

66
rost-angeles @rost-angeles
Nick Pheomotion

Здраствуйте можете дать Пал скипт который будет прогирывать джингл кажды 30 минут
(чисто код)

Очень надо Буду очень благадарен)))

144
Руся @Ruskat
А как рeализовать подключeниe второго диджeя для сэм +айс ?

66
rost-angeles @rost-angeles
А есть PAL Скрипт который будет не между трэкамии выводить джингл а поверх трэка

Примерно так Играет трэк и поверх его играет Джингл (Просто слова Название радио)

Такой скрипт есть.?