226 Ответ от radioplus

  • radioplus
  • radioplus
  • Частый гость
  • Неактивен
  • Откуда: Tallinn
  • Зарегистрирован: 12-07-2010
  • Сообщений: 43

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

пишет KyPIIaToB:

пишет radioplus:

Мне нужен скрипт, который будет выключать джинглы, а не включать в определённое время!

А я что тебе сказал? создаешь правило и все.

как прописать целиком скрипт, который будет отключать его выполнение к примеру: каждое воскресенье с 15:00 до 15:50?

-----------------------------------------------------------------------------
Тестрование песен для радио,
создание логотипа и слогана,
настройка радио "под ключ",
обучение программированию в Power Gold,
определение формата,
создание музыкальной базы,
обучение и консультации персонала.
Skype: etoradio

Сайт radioplus

227 Ответ от isaul

  • isaul
  • Прохожий
  • Неактивен
  • Зарегистрирован: 09-07-2011
  • Сообщений: 6

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

Друзья помогите!Я прочитал много тем но так и не нашел ответ!В общем что нужно прописать в PAL скрипте что бы песни играли не в случайном порядке (Random) а по порядку (1-20) выручайте!

228 Ответ от LAZ2735

  • LAZ2735
  • Частый гость
  • Неактивен
  • Откуда: Дедовск
  • Зарегистрирован: 16-05-2011
  • Сообщений: 57

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

Нашёл скрипт  времени с новостями (или тем что вам захочется)

var strFile, strPath : String;
var P,F : Tplayer;

strPath := 'd:\RADIO\Clock\';

PAL.Loop:=True;
PAL.WaitForTime('XX:59:50');
PAL.LockExecution;
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Case strFile Of
'd:\RADIO\Clock\07-00.mp3' : Begin
                                  If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Monday) then
                                  Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
                                  Else
                                  Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\08-00.mp3' :  Begin
                                  If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Monday) then
                                  Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
                                  Else
                                  Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\09-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\гороскоп.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\11-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\гороскоп.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\12-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\новость 12.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\13-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\новость 12.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\15-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\новость 15.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\16-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\новость 15.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\18-00.mp3' :  Begin
                                  Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\19-00.mp3' :  Begin
                                  If (DayOfWeek(Now) <> Sunday) AND (DayOfWeek(Now) <> Saturday) then
                                  Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop);
                                  Queue.AddFile(strFile, ipTop);
                                  Aux1.QueueSong(Queue.NextInQueue);
                                  If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
'd:\RADIO\Clock\20-00.mp3' :  Begin
                                   If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Saturday) then
                                   Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
                                   Else
                                   Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
                                   Queue.AddFile(strFile, ipTop);
                                   Aux1.QueueSong(Queue.NextInQueue);
                                   If DeckA.Status = psPlaying then
                                                                  Begin
                                                                       DeckB.QueueSong(Queue.NextInQueue);
                                                                       DeckA.FadeToPause;
                                                                       F := DeckA;
                                                                       P := DeckB;
                                                                       Aux1.FadeToPlay;
                                                                   End
                                                               Else
                                                                   Begin
                                                                         DeckA.QueueSong(Queue.NextInQueue);
                                                                         DeckB.FadeToPause;
                                                                         F := DeckB;
                                                                         P := DeckA;
                                                                         Aux1.FadeToPlay;
                                                                    End;

                              End;
Else
     Begin
     Queue.AddFile(strFile, ipTop);
     If DeckA.Status = psPlaying then
                                      Begin
                                            Aux1.QueueSong(Queue.NextInQueue);
                                            DeckA.FadeToPause;
                                            P := DeckA;
                                            F := DeckB;
                                            Aux1.FadeToPlay;
                                        End
                                   Else
                                       Begin
                                             Aux1.QueueSong(Queue.NextInQueue);
                                             DeckB.FadeToPause;
                                             P := DeckB;
                                             F := DeckA;
                                             Aux1.FadeToPlay;
                                        End;
    End;
End;
PAL.UnlockExecution;
PAL.WaitForTime('+00:00:09');
P.FadeToPlay;
If P.Status <> psPlaying then F.Play
Else F.QueueSong(Queue.NextInQueue);

Сайт LAZ2735

229 Ответ от JamStyle

  • JamStyle
  • JamStyle
  • Местный житель
  • Неактивен
  • Откуда: Украина,Сумы
  • Зарегистрирован: 21-05-2007
  • Сообщений: 332

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

пишет LAZ2735:

Нашёл скрипт  времени с новостями (или тем что вам захочется)

Спасибо за скрипт,давно искал...:)

Первая сумская интернет радиостанция "LIVE" - http://www.radiolive.sumy.ua

Сайт JamStyle

230 Ответ от Render

  • Render
  • Render
  • Частый гость
  • Неактивен
  • Зарегистрирован: 28-06-2011
  • Сообщений: 188

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

Может подскажет кто, как реализовать подобное для Sound FX?
Перед проигрыванием Sound FX - убавление громкости играющей деки, после проигранного Sound FX, возвращение громкости обратно. Пытался вставить из этого примера, работает только изначальное снижение громкости, но как только запускается наложение Sound FX (код ниже), то громкость резко возвращается на исходную,
То есть по сути, не выходит нормально сделать тайм ожидания, для возвращения громкости.
Исходное 

var Song : TSongInfo;
var P : TPlayer;
PAL.Loop := True; 
PAL.WaitForTime('+00:05:00');
P := SoundFX;
if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;

То, что пытался сляпать (ибо не варю пока в pal)

var Song : TSongInfo;
var P : TPlayer;
var i : integer;
PAL.Loop := True; 
i := ActivePlayer.GetVolume;
PAL.WaitForTime('+00:05:00'); 
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 160;
P := SoundFX;
if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
PAL.WaitForTime('+00:00:10');
ActivePlayer.Volume := i - 160;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;
P.QueueSong(Song);
P.Play;
end;
end;

Как и куда только не вставлял PAL.WaitForTime с возвратом громкости, но результата не удалось получить. Как только стартует наложение Sound FX, громкость просто резко возвращается.
Помогите подправить в работоспособный вариант... (может уже было решение где-то этой проблемы, не удалось найти)

Radiodev - coming soon.

231 Ответ от Drakkar

  • Drakkar
  • Drakkar
  • Здесь живёт
  • Неактивен
  • Откуда: Петропавловск-Камчатский
  • Зарегистрирован: 07-09-2011
  • Сообщений: 410

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

пишет JamStyle:

пишет LAZ2735:

Нашёл скрипт  времени с новостями (или тем что вам захочется)

Спасибо за скрипт,давно искал...:)

Опишите пожалуйста подробнее, что это за СКРИПТ ВРЕМЕНИ С НОВОСТЯМИ? Как он применяется и для чего он нужен.

Сайт Drakkar

232 Ответ от Render

  • Render
  • Render
  • Частый гость
  • Неактивен
  • Зарегистрирован: 28-06-2011
  • Сообщений: 188

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

UP. Помогите, ребятушки.

Radiodev - coming soon.

233 Ответ от KyPIIaToB

  • KyPIIaToB
  • KyPIIaToB
  • Это мой дом
  • Неактивен
  • Откуда: Тула
  • Зарегистрирован: 19-11-2009
  • Сообщений: 1,572

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

пишет Render:

UP. Помогите, ребятушки.

Для тех кто в танке, громкость для активного плеера ActivePlayer.Volume и не каким макаром не влияет на SoundFX
Соответственно меняй ActivePlayer на SoundFX, хоть немного думай.

Отредактировано KyPIIaToB (10-02-2012 12:40:14)

В здоровом теле - здоровый дух!

234 Ответ от Render

  • Render
  • Render
  • Частый гость
  • Неактивен
  • Зарегистрирован: 28-06-2011
  • Сообщений: 188

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

пишет KyPIIaToB:

пишет Render:

UP. Помогите, ребятушки.

Для тех кто в танке, громкость для активного плеера ActivePlayer.Volume и не каким макаром не влияет на SoundFX
Соответственно меняй ActivePlayer на SoundFX, хоть немного думай.

Видимо не совсем правильно объяснил, мне и не нужно влиять на громкость SoundFX.
Нужно всего лишь перед запуском звука из SoundFX, снижать громкость ActivePlayer, во время выполнения SoundFX (наложения), громкость ActivePlayer - всё так же должна оставаться на сниженном уровне, то есть некий timewait, пока проигрывается звук SoundFX и затем после окончания некого timwait равного к примеру 5 секундам, возвращение громкости ActivePlayer в предыдущее положение.
Повторюсь, начало - работает, как нужно. То есть громкость снижается на ActivePlayer перед запуском SoundFX, но вот дальше...
Как только стартует наложение звука, громкость резко возвращается назад и как сделать, чтобы даже во время наложения, бегунок громкости на ActivePlayer оставался на том же месте и ждал своего "прихода", мне не известно.

Если совсем на простом языке, то:
Играет трек.
В какой-то момент, громкость трека уменьшается где-то на 50%
Сверху накладывается какой-то звуковой эффект (причём громкость трека всё так же 50%)
По окончании наложения, возврат громкости трека на предыдущее значение.

Фуф. Вроде так neutral

Radiodev - coming soon.

235 Ответ от Falcon

  • Falcon
  • Falcon
  • Часть форума
  • Неактивен
  • Зарегистрирован: 05-11-2009
  • Сообщений: 888

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

if Song <> nil then
begin
P.QueueSong(Song);
P.Play;
PAL.WaitForTime('+00:00:10');
ActivePlayer.Volume := i - 160;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;
end;

http://radioheart.ru/banners/radioheart_400x40_banner.jpg
RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

Сайт Falcon

236 Ответ от Render

  • Render
  • Render
  • Частый гость
  • Неактивен
  • Зарегистрирован: 28-06-2011
  • Сообщений: 188

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

Falcon, спасибо, но немного не то, так тоже пробывал уже.
KyPIIaToB, тоже спасибо за направление почти на путь истинный.
В итоге удалось достичь результата таким безобразием. Может кому-то пригодится.

var Song : TSongInfo;
var P : TPlayer;
var i : integer;
PAL.Loop := True;
i := ActivePlayer.GetVolume;
PAL.Loop := True; 
PAL.WaitForTime('+00:05:59'); 
ActivePlayer.Volume := i - 20;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i - 60;
ActivePlayer.Volume := i - 70;
P := SoundFX; 
if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;
PAL.WaitForTime('+00:00:05');
ActivePlayer.Volume := i
Radiodev - coming soon.

237 Ответ от KyPIIaToB

  • KyPIIaToB
  • KyPIIaToB
  • Это мой дом
  • Неактивен
  • Откуда: Тула
  • Зарегистрирован: 19-11-2009
  • Сообщений: 1,572

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

Обнаружил прикольный скрипт, который озвучивает название трека с помощью ranslate.google.com
Видео примера можно глянуть тут http://www.youtube.com/watch?v=zN25zVBN … re=related

Создаем категорию nu , туда помещаем c:\test\nu.mp3
Ну это как пример конечно же

    PAL.Loop := True ;

        var verzoek, song : TSongInfo;
        var map, almost, ready : string ;

        Song := ActivePlayer.GetSongInfo;

        if (Song['songtype'] = 'J') then
            begin
                PAL.WaitForTime('+00:00:10');
            end
        else
         Song.Free;
            Song := ActivePlayer.GetSongInfo;

            map :=  'c:\test\nu.mp3' ;
            verzoek := CAT['nu'].ChooseSong(smRandom, NoRules) ;

            almost := 'Now Playing.'+Song['artist']+'. with.'+Song['title']+'.' ;
            ready := URLEncode(almost) ;

            WebToFile(map,'http://translate.google.com/translate_tts?tl=en&q='+ready) ;

            Aux2.QueueSong(verzoek);
            Aux2.Play;

            PAL.WaitForPlayCount(1) ;

Источник http://broadcasterforum.nl/viewtopic.ph … 929#p24862

В здоровом теле - здоровый дух!

238 Ответ от aeroman

  • aeroman
  • Прохожий
  • Неактивен
  • Зарегистрирован: 07-04-2012
  • Сообщений: 2

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

Я совсем новичок в етом деле так что прошу строго не судить. Скажите как PAL скриптом сохранить в файл содержимое Queue???
И просветите меня, есть ли какая-нибуть документация по PAL скриптам???

239 Ответ от tarasian666

  • Откуда: Львів
  • Зарегистрирован: 04-09-2009
  • Сообщений: 6,245

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

http://support.spacialaudio.com/wiki/PAL_Scripts
http://support.spacialaudio.com/wiki/PA … anguage%29

Сайт tarasian666

240 Ответ от aeroman

  • aeroman
  • Прохожий
  • Неактивен
  • Зарегистрирован: 07-04-2012
  • Сообщений: 2

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

пишет tarasian666:

http://support.spacialaudio.com/wiki/PA … anguage%29

Спасибо.
А по русски нет ничего подобного??

241 Ответ от tarasian666

  • Откуда: Львів
  • Зарегистрирован: 04-09-2009
  • Сообщений: 6,245

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

по русски гугл переводчик ))

Сайт tarasian666

242 Ответ от Leff27

  • Leff27
  • Leff27
  • Часть форума
  • Неактивен
  • Зарегистрирован: 27-01-2011
  • Сообщений: 727

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

Ребят, просмотрел тему. не нашел...
Какая команда отвечает за кол-во треков в Queue?
Мне надо, сделать условие if Queue.Size(например)='1' then и поехали smile

Сайт Leff27

243 Ответ от tarasian666

  • Откуда: Львів
  • Зарегистрирован: 04-09-2009
  • Сообщений: 6,245

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

Queue.Count

Сайт tarasian666

244 Ответ от Leff27

  • Leff27
  • Leff27
  • Часть форума
  • Неактивен
  • Зарегистрирован: 27-01-2011
  • Сообщений: 727

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

Благодарю!

Сайт Leff27

245 Ответ от Leff27

  • Leff27
  • Leff27
  • Часть форума
  • Неактивен
  • Зарегистрирован: 27-01-2011
  • Сообщений: 727

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

PAL.Loop := True;
if (Queue.Count < 3) then
  begin
  SubDir['C:\Users\Administrator\Downloads\music'].QueueBottom(smLemmingLogic, EnforceRules);
  SubDir['C:\Users\Administrator\Downloads\music2'].QueueBottom(smLemmingLogic, EnforceRules);
  end;
PAL.WaitForPlayCount(3);

Вставил в pal файл, сохранил, вставил в сэм, проверяю в режиме правки кода в сэме, все срабатывается, если в queue больше 3 треков, то ждет 3 трека, затем повторяет и если меньше, то добавляет... жму окей, выключаю-включаю скрипт через блок PAL scripts, он выполняется независимо сколько треков в queue, все равно добавляет треки из папок, чего не так!?!?!'

зы Разобрался, не актуально

Отредактировано Leff27 (05-05-2012 14:19:23)

Сайт Leff27

246 Ответ от Leff27

  • Leff27
  • Leff27
  • Часть форума
  • Неактивен
  • Зарегистрирован: 27-01-2011
  • Сообщений: 727

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

Как можно узнать сколько осталось до конца песни и если менее 3-х секунд пустить лайнер в aux?
типо 

if (DeckA.Time = 3) or (DeckB.Time = 3)  then
begin
Aux.Play(...);
Глушим в деках звук до 20%;
Высчитываем длину трека в Aux(который играет);
time = длина_трека_aux - 3;
WaitForTime(+time);
Возвращаем звук в деках...
end;

Можно такое натворить?))

Сайт Leff27

247 Ответ от tarasian666

  • Откуда: Львів
  • Зарегистрирован: 04-09-2009
  • Сообщений: 6,245

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

если нет нужных переменных в pal то можно через базу взять эти переменные
http://support.spacialaudio.com/wiki/PA … anguage%29

Сайт tarasian666

248 Ответ от KyPIIaToB

  • KyPIIaToB
  • KyPIIaToB
  • Это мой дом
  • Неактивен
  • Откуда: Тула
  • Зарегистрирован: 19-11-2009
  • Сообщений: 1,572

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

пишет Leff27:

Как можно узнать сколько осталось до конца песни и если менее 3-х секунд пустить лайнер в aux?
типо 

if (DeckA.Time = 3) or (DeckB.Time = 3)  then
begin
Aux.Play(...);
Глушим в деках звук до 20%;
Высчитываем длину трека в Aux(который играет);
time = длина_трека_aux - 3;
WaitForTime(+time);
Возвращаем звук в деках...
end;

Можно такое натворить?))

ActivePlayer.Duration вот так узнаем время трека.

В здоровом теле - здоровый дух!

249 Ответ от Render

  • Render
  • Render
  • Частый гость
  • Неактивен
  • Зарегистрирован: 28-06-2011
  • Сообщений: 188

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

Интересует подобное решение, может кто осилит подсказать, реально или нет такое сделать и если реально, пример не помешал бы.
Примерные действия:
-  указывается переменной директория для сканирования
-  сканирование всех треков из этой директории, высчитывание bpm (есть подобная кнопка если смотреть инфо о треке в sam)
-  сохранение bpm каждого трека (рекурсивно), можно как в сами файлы, в id-теги, так и в бд (в моём случае fb).
В конечном результате должно быть так, чтобы можно было просмотреть в инфо о треке и его bmp был уже известен, без нажатия на эту кнопку.
Были бы широкие познания в pal, да и вообще в sam, не задавался бы таким вопросом. hmm

Radiodev - coming soon.

250 Ответ от Ramalinga

  • Ramalinga
  • Новенький
  • Неактивен
  • Зарегистрирован: 13-05-2012
  • Сообщений: 26

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

Приветствую )
Есть мысль автоматизировать весь процесс радио вещания, ну что касательно записей...
Создан шаблон расписания, по рубрикам к примеру, соответственно к каждой рубрике привязана папка с mp3 файлами. Так вот есть ли такой скрипт, что бы в определенное время SAM загружал файлы из определенной папки и рандомом естественно.. ?

Отредактировано Ramalinga (15-05-2012 11:07:31)