26

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

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

27

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

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

28

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

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

29

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

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 треков.

30

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

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);

и все?)

31

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

Jingles (All)
да.

32

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

все, спасибо)

33

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

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

34

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

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

35

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

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

-------------------------------
R244390603111<- пиво лить сюда

36

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

вот скрипт переключения диджеев, как примерно понял но не опробовал
Переключение ДИ-ДЖЕЕВ
Много станций имеют более, чем одного ДИ-ДЖЕЯ, обслуживающий станцию, которые расположены по всему миру. Они применяют небольшую хитрость, чтобы переключаться между сеансами . Если Вы следующий ДИ-ДЖЕЙ хочет вещать, они регистрируются на панели администрации 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;
}

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

37

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

проверил работает.. 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)

38

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

Nick Pheomotion

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

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

39

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

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

Сайт и плейлист радио ZED-FM.

40

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

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

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

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

41

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

rost-angeles пишет:

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

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

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

Это называется "сухарь" - потому что он без оформления - просто голос или ID станции поверх песни.
Его,насколько я помню,ставят вручную.-)

42

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

Понятно тоесть скрипта нет Жаль А на РадиоБоссе можно было так делать вставлять в расписаниие и он выводил поверх любых трэков в указоное врем например с 21-00  повторения 100 раз каждые 10 минут.
Очень плохо что такого скрипта нет.

43

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

rost-angeles пишет:

Понятно тоесть скрипта нет Жаль А на РадиоБоссе можно было так делать вставлять в расписаниие и он выводил поверх любых трэков в указоное врем например с 21-00  повторения 100 раз каждые 10 минут.
Очень плохо что такого скрипта нет.

Ну я не говорю что точно нет.-)
Насколько я знаю - то нет.Поищите-)
Как я понимаю - просто в определённое время нужно чтобы запустилась другая дека с сухарём - и получится....как бы эффект наложения.
Почему я говорил что вручную - потому что должно быть красиво.А то наложится прямо по словам и получится каша.

44

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

retro4uПонятно спасибо))))

45

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

используйте для этого AUX а не деку, так проблем меньше. Но retro4u прав, сухарь лучше руками пускать.

-------------------------------
R244390603111<- пиво лить сюда

46

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

А eсть ли скрипт-рандомайзeр, чтобы из квива выбирался случайный трeк в общeм, или случайный из указанных в нeм жанров?
Или сдeлать, чтобы с 8 до 20:00 выбирались одни указанныe жанры, а с 20:00 до 2:00 другиe.

Сайт и плейлист радио ZED-FM.

47

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

Ребят как сделать скрипт, чтобы он проверял проигрывается ли песня. Т.е. иногда у меня бывает что очередь заканчивается и радио перестает вещать. Заранее спасибо.

48

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

var mySong : TSongInfo;
PAL.Loop := True;

if (deckA.Status=1) and (deckB.Status=1) then
    begin
     mySong := Cat['mp3'].ChooseSong(smRandom, noRules);
     deckA.QueueSong(mySong);
     deckA.Play;
     CAT['mp3'].QueueBottom(smLemmingLogic, NoRules);
    end;

я использую такую связку

Отредактировано Klef (20-07-2009 23:32:57)

-------------------------------
R244390603111<- пиво лить сюда

49

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

А можеш строчки расшифровать?

50

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

Хочу сделать чтобы скрипт проверял включен ли плеер и если нет то включил бы он его
Я приблизительно делал так, но ничего не получается

var mySong : TSongInfo;
var P : TPlayer;
PAL.Loop := True;

if (deckA.Status=1) and (deckB.Status=1) then
begin
 P:=IdlePlaer;
 if P <> nil then P.Next; P.Play;
end;