Re: Скрипты PAL для Sam Broadcaster
стоит а опера вообще страницу не отображает и не только у одного меня кракозябры
Re: Скрипты PAL для Sam Broadcaster
нет, все таки ты блондинка ))
во первых шоуткаст пускает на страницу только мозилоподобные браузеры, тому надо ставить идентификацию
во вторых КОДИРОВКА И ЕЩЕ РАЗ КОДИРОВКА 1251
Отредактировано tarasian666 (09-03-2010 14:49:05)
Re: Скрипты PAL для Sam Broadcaster
Господа!! Помогите, пожалуйста )
Мне нужно запускать джинглы из плеера 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 02:20:46)
Re: Скрипты PAL для Sam Broadcaster
пишет radio-roman:
в деках нельзя, т.к. заставочки короткие и некорректно миксуются часто
есть такая функцыя как "не микшировать если трек короче 'n' секунд"
Re: Скрипты PAL для Sam Broadcaster
нажмите + там где schedule и там разберетесь, ни чего сложного
Re: Скрипты PAL для Sam Broadcaster
пишет 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 11:37:51)
Re: Скрипты PAL для Sam Broadcaster
Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.
Re: Скрипты PAL для Sam Broadcaster
пишет Nick Pheomotion:
Легче не мучиться с этим в SAM, а перейти на нормальный софт для профессионального вещания, например, Sound Empire.
Ну тогда уж RADIO Player Pro лучше - он удобнее и функциональнее.
НО
1.СЭМ специальное ПО для онлайн радио, вё в одной программе от вывода микрофон до интерфейса на сайт
2. Качественный ротатор - можно месяцами не заглядывать в него, всё сам без лишних телодвижений делает правильно
3. В империи и RADIO Player Pro нужно персонально настраивать звучание и фейд каждого файла в базе, что физически нереально, поэтому нужен автомикс по пересечению уровня начала и конца песен (в RADIO Player Pro просто удаление тишины)
ну и другие доводы в пользу СЭМа.
Если бы я хоть немного понимал скрипты, то изменил бы сам, но не умею тем более, что дополнительные проигрыватели изначально для этого и придуманы - не думаю, что это сложно.
Отредактировано radio-roman (25-03-2010 11:50:51)
Re: Скрипты PAL для Sam Broadcaster
Здравствуйте! Я может невнимательно читал, но проблема вот в чем значит. Мне нужно, чтобы PAL скрипт отображал информацию вместо названия песен (какие либо объявления, сообщения). Но не получается настроить (не знаю почему). Помогите. А лучше у кого работает, скопируйте готовый код, дальше может разберусь. А то я там может напортачил много, вот и не работает.
Re: Скрипты PAL для Sam Broadcaster
Здравствуйте, нужен скрип который бы в определенное время просматривал каталог на компе:
F:\music
к примеру, и если там есть изменения добавлял новые файлы в плейлист
пробовал через sheduler. Задал время выполнения, задал папку, но ничего не происходит. Там такой код:
{# Add files to queue script #}
Dir['F:\music'].Rescan;
Dir['F:\music'].QueueDir(ipBottom);
Re: Скрипты PAL для Sam Broadcaster
Здравствуйте! Как в скрипт отбивки времени после стартового часа добавить проигрывание трека из нужной мне папки, соответствующего сегодняшней дате в виде ччммгггг.mp3 ?
И где найти скрипт вывода надписи в мета-дате? Был где-то, но не нашел.
Скрипт удаления битых путей на файлы:
Показать / Cкрыть текст
Отредактировано Ruskat (11-05-2010 15:08:00)
Re: Скрипты PAL для Sam Broadcaster
Возник такой вопрос.
Кто может попробует сделать, может кто-то где-то видел pal скрипт который работает по примерно такому принципу.
Он должен на N-ое кол-во часов отключать(т.е. вообще не принимать заказы) с web-сайта.
Кто поможет?

Re: Скрипты PAL для Sam Broadcaster
Ruskat пробуй PAL.WaitForTime
Virtya1itu смотреть в сторону RequestPolicy.Enabled := False;
Re: Скрипты PAL для Sam Broadcaster
Спасибо. Работает

Re: Скрипты PAL для Sam Broadcaster
Всем здрям!!! Вещание происходит через IceCast, необходима помощь в написании Pal Script'а:
1) Включение только отбивки часа (1 файл) в 0-ую минуту часа
2) На 20-ой и 50-й минутах часа информация для радиослушателей до неё и перед ней джинглы. (но только с 7-22 часов, ежедневно)
Буду благодарен. Если не затруднит, напишите мне в ICQ 593762970, есть ещё некоторые вопросы, уже не скриптам...
Отредактировано Владимир173 (07-07-2010 14:24:03)
Re: Скрипты PAL для Sam Broadcaster
Хых..ребята,научитесь пользоватся поиском по форуму...Таких скриптов тут куча...Понимаю трудно осилить,но писать каждый раз такие скрипты это маразм...
Re: Скрипты PAL для Sam Broadcaster
а на оф. форуме сема просто изобилие скриптов
Re: Скрипты PAL для Sam Broadcaster
Народ, подскажите-ка: нашел я скрипт, который помогает незаметно переключать из автодиджея на ведущего из другого города незаметно для слушателя, чтоб не ждать того от кого идет вещание и не делать с ним мгновенное переключение на вещание с одной машины на другую, которое сбрасывает всех слушателей. Нашел скрипт этот здесь для шоуткаста. Подайте пожалуйста кто-то скрипт такой же для айскаста.
За ранее огромное спасибо
Re: Скрипты PAL для Sam Broadcaster
в общем про это нашел, как реализовать нашел. кому кинуть?
Отредактировано ivan_sh (22-10-2010 00:20:05)