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

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

 

833
metra52 @metra52

6245
Тарас @tarasian666
ты блондинка?
поставь кодировку 1251

833
metra52 @metra52
стоит а опера вообще страницу не отображает и не только у одного меня кракозябры

6245
Тарас @tarasian666
нет, все таки ты блондинка ))
во первых шоуткаст пускает на страницу только мозилоподобные браузеры, тому надо ставить идентификацию
во вторых КОДИРОВКА И ЕЩЕ РАЗ КОДИРОВКА 1251

Отредактировано tarasian666 - 09.03.2010
6
radio-roman @radio-roman
Господа!! Помогите, пожалуйста :))

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

Т.е. нужен скрипт такой - в Queue список сам по себе составляется по правилам ротации:

Dir['D:\radio\music\instrument\temp'].QueueBottom(smLemmingLogic, EnforceRules);
Dir['D:\radio\music\pop en\80\temp'].QueueBottom(smLemmingLogic, EnforceRules);
Dir['D:\radio\music\pop en\00\temp'].QueueBottom(smLemmingLogic, EnforceRules); и т.д.

треки звучат поочерёдно в деках, само собой. Но нужно, чтобы когда подходит время джингла он дождался бы окончания песни в одной деке, запускался бы из плеера AUX (1 или 2 неважно) и потом миксовался бы со следующей песней в другой деке.

В шаблонах PAL скриптов есть скрипт Лайнеров - но они накладываются на начало песни в момент вступления, а мне нужно, чтоб джинглы просто миксовались бы с песнями.

Прошу вашей помощи, т.к. далёк от программирования.

Отредактировано radio-roman - 22.03.2010
6245
Тарас @tarasian666
radio-roman пишет:

в деках нельзя, т.к. заставочки короткие и некорректно миксуются часто

есть такая функцыя как "не микшировать если трек короче 'n' секунд"

122
intervision @intervision
tarasian666 пишет:

intervision достаточно задать в schedule

а можно подрообнее про это?

6245
Тарас @tarasian666
нажмите + там где schedule и там разберетесь, ни чего сложного

122
intervision @intervision
аа все ))) спасибо )))

6
radio-roman @radio-roman
tarasian666 пишет:

radio-roman пишет:

в деках нельзя, т.к. заставочки короткие и некорректно миксуются часто

есть такая функцыя как "не микшировать если трек короче 'n' секунд"

Такой вариант не подходит, и обрезание "хвостов песен" тоже т.к. звучит слишком топорно, а мне нужен профессиональный эфир. Вот так:


Вот стандартный скрипт для лайнеров (джингл поверх песни) в СЭМЕ

{ About:
This script will play a liner in Aux1 as soon as a new track starts
The liner will only be played if
a) The song has an intro of specified minimem duration
b) The song is of type S, i.e. a normal song.

Then the script will wait the specified amount of time before
it tries to play another liner.

This script can help brand your station and make it sound like a true
commercial terrestrial station.
any source connected

Usage:
a) Make sure you use the song information editor to specify intro times for your tracks!
b) Make sure the AGC settings on Aux1 is to your liking. Also set the volume a bit louder
on Aux1 so you cna clearly hear the liner above the active Deck audio.
c) Edit the configuration details below.
Make sure to change the category to the one you use to store your liners.
}
{ CONFIGURATION }
{==================================================}
const MIN_INTRO = 5*1000; //5 seconds
const MIN_WAIT = '+00:15:00'; //Wait 15 minutes between liners
const LINERS_CATEGORY = 'Liners';


{ IMPLEMENTATION }
{--------------------------------------------------}
function ExtractIntro(Song : TSongInfo):Integer; forward;

var Song, Liner : TSongInfo;
var Waiting : Boolean = True;
var Intro : Integer = 0;
Aux1.Eject;

{Step1: Queue up the deck, ready for play}
Liner := CAT[LINERS_CATEGORY].ChooseSong(smLRP,NoRules);
if (Liner=nil) then
WriteLn('No valid liner found')
else if (not Aux1.QueueSong(Liner)) then
WriteLn('Failed to queue song: '+Liner['filename']);

{Wait for a valid song with intro}
while Waiting do
begin
{Step2: Wait for the song to change}
PAL.WaitForPlayCount(1);

{Step3: Grab current song information}
Song := ActivePlayer.GetSongInfo;

if (Song=nil) then
WriteLn('The active player contained no song info??')
else
begin
{Extract the intro time - this is a bit tricky}
Intro := ExtractIntro(Song);

{Start playing the liner if the current song matches our rules}
if(Song['songtype']='S') and (Intro>=MIN_INTRO) then
begin
Aux1.Play;
Waiting := False;
end;
Song.Free; Song := nil;
end;
end;

{Wait 5 minutes before we do this all again}
PAL.WaitForTime(MIN_WAIT);
PAL.Loop := True;

{................................................}
function ExtractIntro(Song : TSongInfo):Integer;
var
P : Integer;
XFade : String;
begin
Result := -1;
XFade := Trim(Song['xfade']);

WriteLn('Decoding XFade string');
WriteLn('XFade: '+XFade);

if XFade = '' then
Result := -1
else
begin
P := Pos('&i=',XFade);
if (P > 0) then
begin
Delete(XFade,1,P+2);
P := Pos('&',XFade);
if (P>0) then
Delete(XFade,P,Length(XFade));

Result := StrToIntDef(XFade,-1);
WriteLn('Intro time detected: '+XFade);
end;
end;
end;

{--------------------------------------------------}

Как его исправить, чтобы вместо лайнеров поверх песни на AUX выводились бы джинглы и миксовались с другими треками?

Кстати, в этом скрипте почему-то прога выбирает один единственный лайнер и крутит только его, а не дёргает из папки новые :(

Помогите! Иначе придётся на винампе с плагином кроссфейда по пересечению уровня Дб сидеть :(

Отредактировано radio-roman - 25.03.2010
1400
Pheoru @Pheoru
Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.

6
radio-roman @radio-roman
[quote=Nick Pheomotion]Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.[/quote]
Ну тогда уж RADIO Player Pro лучше - он удобнее и функциональнее.
НО
1.СЭМ специальное ПО для онлайн радио, вё в одной программе от вывода микрофон до интерфейса на сайт
2. Качественный ротатор - можно месяцами не заглядывать в него, всё сам без лишних телодвижений делает правильно
3. В империи и RADIO Player Pro нужно персонально настраивать звучание и фейд каждого файла в базе, что физически нереально, поэтому нужен автомикс по пересечению уровня начала и конца песен (в RADIO Player Pro просто удаление тишины)
ну и другие доводы в пользу СЭМа.
Если бы я хоть немного понимал скрипты, то изменил бы сам, но не умею :( тем более, что дополнительные проигрыватели изначально для этого и придуманы - не думаю, что это сложно.

Отредактировано radio-roman - 25.03.2010
3
Danny @Danny
Здравствуйте! Я может невнимательно читал, но проблема вот в чем значит. Мне нужно, чтобы PAL скрипт отображал информацию вместо названия песен (какие либо объявления, сообщения). Но не получается настроить (не знаю почему). Помогите. А лучше у кого работает, скопируйте готовый код, дальше может разберусь. А то я там может напортачил много, вот и не работает.

97
aPhone @aPhone
Здравствуйте, нужен скрип который бы в определенное время просматривал каталог на компе:
F:\music
к примеру, и если там есть изменения добавлял новые файлы в плейлист
пробовал через sheduler. Задал время выполнения, задал папку, но ничего не происходит. Там такой код:
{# Add files to queue script #}
Dir['F:\music'].Rescan;
Dir['F:\music'].QueueDir(ipBottom);

144
Руся @Ruskat
Здравствуйте! Как в скрипт отбивки времени после стартового часа добавить проигрывание трека из нужной мне папки, соответствующего сегодняшней дате в виде ччммгггг.mp3 ?
И где найти скрипт вывода надписи в мета-дате? Был где-то, но не нашел.
Скрипт удаления битых путей на файлы:
Показать текст

Отредактировано Ruskat - 11.05.2010
144
Руся @Ruskat
Как указать в коде:
Показать текст

чтобы из категории Jazz в папке id брался нужный файл, который в начале джазового времени играл бы как регулярное вступление ?

Отредактировано Ruskat - 02.06.2010
5
Aleks @Virtya1itu
Возник такой вопрос.
Кто может попробует сделать, может кто-то где-то видел pal скрипт который работает по примерно такому принципу.
Он должен на N-ое кол-во часов отключать(т.е. вообще не принимать заказы) с web-сайта.
Кто поможет?

6245
Тарас @tarasian666
Ruskat пробуй PAL.WaitForTime
Virtya1itu смотреть в сторону RequestPolicy.Enabled := False;

5
Aleks @Virtya1itu
Спасибо. Работает :)

2
Владимир173 @Владимир173
Всем здрям!!! Вещание происходит через IceCast, необходима помощь в написании Pal Script'а:

1) Включение только отбивки часа (1 файл) в 0-ую минуту часа

2) На 20-ой и 50-й минутах часа информация для радиослушателей до неё и перед ней джинглы. (но только с 7-22 часов, ежедневно)

Буду благодарен. Если не затруднит, напишите мне в ICQ 593762970, есть ещё некоторые вопросы, уже не скриптам...

Отредактировано Владимир173 - 07.07.2010