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

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

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

Отредактировано tarasian666 (09-03-2010 14:49:05)

пишет radio-roman:

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

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

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

пишет 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)

пишет 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)

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

Как указать в коде:

Показать / Cкрыть текст

begin
         if( mytime >= start_time_jazz) and (mytime <= end_time_jazz) Then
        begin
           cat['Jazz'].QueueBottom(smLemmingLogic,EnforceRules);
           PAL.WaitForQueue(1);
        end;
end;

Отредактировано Ruskat (02-06-2010 18:02:49)

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

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

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

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

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

Отредактировано Владимир173 (07-07-2010 14:24:03)

а на оф. форуме сема просто изобилие скриптов

fallback на icecast вас не устраивает?