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

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

 

89
Ok_go_love @Ok_go_love
Всем привет.
Набыдлокодил вывод новостей на 15 и 45 минуте каждого часа с радиостанции Эхо Москвы.
Комментарии приветствуются, ибо постигаю дзен.
ps. В PAL вообще существуют функции? А то переписывать по сто раз одно и то же геморрой, проще же вызвать функцию с нужным аргументом.
PAL.Loop:=True;
PAL.WaitForTime('XX:15:00');
Queue.AddURL('http://radio.memonet.ru:501/current.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime('XX:45:00');
Queue.AddURL('здесь такая же ссылка, как и сверху, форум не дает вставить :)',ipTop);
ActivePlayer.FadeToNext;

6
Ëкарный @isaul
Можете помочь со скриптом? В общем ситуация следующая, джингл играет через деки и на странице в SHOUTCAST - SONG HISTORY показывается его название. Как его скрыть? Переименовка джинглов это не выход, как и скрыть все проигранные треки. Можно ли это сделать с помощью скрипта? Спасибо!

6245
Тарас @tarasian666
Ok_go_love есть
isaul используйте aux вместо деки

6
Ëкарный @isaul
tarasian666 пишет:

Ok_go_love есть
isaul используйте aux вместо деки



Может есть какое готовое решение у тебя? Не поможешь со скриптом?

6245
Тарас @tarasian666
В этой же ветке должен быть такой скрипт

7
BadFM_Radio @BadFM_Radio
Доброго времени суток! Есть скрипт, который в конце каждого часа запускает "закрывашку" (последний трек в часе) для добивки и выравнивания часа. После него идёт отбивка времени через ftn. Можно ли сделать так, чтобы ftn не сразу обрывал предыдущую композицию, а с fade out'ом в 15 секунд. Может есть какой-то параметр или скрипт, который можно применить "в определённое время" или к определённой папке "закрывашек". Настройках в самой композиции отпадает ручная установка Fade out, т.к. песня будет играть не до конца, поэтому Fade out не будет применяться (мне так кажется). Лучше бы параметр для ftn... В общем, у коого есть какие идеи? Заранее спасибо!

888
Falcon @Falcon
[quote=BadFM Radio]Доброго времени суток! Есть скрипт, который в конце каждого часа запускает "закрывашку" (последний трек в часе) для добивки и выравнивания часа. После него идёт отбивка времени через ftn. Можно ли сделать так, чтобы ftn не сразу обрывал предыдущую композицию, а с fade out'ом в 15 секунд. Может есть какой-то параметр или скрипт, который можно применить "в определённое время" или к определённой папке "закрывашек". Настройках в самой композиции отпадает ручная установка Fade out, т.к. песня будет играть не до конца, поэтому Fade out не будет применяться (мне так кажется). Лучше бы параметр для ftn... В общем, у коого есть какие идеи? Заранее спасибо![/quote]

PAL.Loop:=True;
PAL.WaitForTime('XX:59:50'); - момент, когда нужно сфэйдить
ActivePlayer.FadeToNext;

Судя по всему, как-то так.

7
BadFM_Radio @BadFM_Radio
Falcon пишет:

[quote=BadFM Radio]Доброго времени суток! Есть скрипт, который в конце каждого часа запускает "закрывашку" (последний трек в часе) для добивки и выравнивания часа. После него идёт отбивка времени через ftn. Можно ли сделать так, чтобы ftn не сразу обрывал предыдущую композицию, а с fade out'ом в 15 секунд. Может есть какой-то параметр или скрипт, который можно применить "в определённое время" или к определённой папке "закрывашек". Настройках в самой композиции отпадает ручная установка Fade out, т.к. песня будет играть не до конца, поэтому Fade out не будет применяться (мне так кажется). Лучше бы параметр для ftn... В общем, у коого есть какие идеи? Заранее спасибо!


PAL.Loop:=True;
PAL.WaitForTime('XX:59:50'); - момент, когда нужно сфэйдить
ActivePlayer.FadeToNext;

Судя по всему, как-то так.[/quote]
спасибо!

11
trianglesis @trianglesis
Leff27 пишет:

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, все равно добавляет треки из папок, чего не так!?!?!'

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


Так что там было? У меня похожая трабла

1
Станислав @Станислав_Дворецкий
Помогите кто может Кто может помогите. Подскажите как реализовать проблемку есть 4 плейлиста или папки и из них по очереди проигрывать музыку такое возможно?

243
Владислав @VladokZzz
[quote=Станислав Дворецкий]Помогите кто может Кто может помогите. Подскажите как реализовать проблемку есть 4 плейлиста или папки и из них по очереди проигрывать музыку такое возможно?[/quote]
А в чем трудность?

Cat['Folder1'].QueueTop(smRandom, noRules);
PAL.WaitForPlayCount(1);
Cat['Folder2'].QueueTop(smRandom, noRules);
PAL.WaitForPlayCount(1);
Cat['Folder3'].QueueTop(smRandom, noRules);
PAL.WaitForPlayCount(1);
Cat['Folder4'].QueueTop(smRandom, noRules);
PAL.WaitForPlayCount(1);
и зациклил

7
Кармус @icevirtualaz
Ok_go_love пишет:

Всем привет.
Набыдлокодил вывод новостей на 15 и 45 минуте каждого часа с радиостанции Эхо Москвы.
Комментарии приветствуются, ибо постигаю дзен.
ps. В PAL вообще существуют функции? А то переписывать по сто раз одно и то же геморрой, проще же вызвать функцию с нужным аргументом.
PAL.Loop:=True;
PAL.WaitForTime('XX:15:00');
Queue.AddURL('http://radio.memonet.ru:501/current.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime('XX:45:00');
Queue.AddURL('здесь такая же ссылка, как и сверху, форум не дает вставить :)',ipTop);
ActivePlayer.FadeToNext;


Отличный скрипт, удачи в познании! БОМ!

237
Rocketdock @Rocketdock
Есть скрипт

var Song : TSongInfo;

PAL.Loop := True;
PAL.WaitForPlayCount(1);
CAT['JD'].QueueTop(smLemmingLogic, NoRules);

Он проигрывает джингл через 1 трек, но иногда бывает что джингл зацикливается т.е. играет раз 5-6.
Как можно этого избежать?

237
Rocketdock @Rocketdock
Rocketdock пишет:

Есть скрипт

var Song : TSongInfo;

PAL.Loop := True;
PAL.WaitForPlayCount(1);
CAT['JD'].QueueTop(smLemmingLogic, NoRules);

Он проигрывает джингл через 1 трек, но иногда бывает что джингл зацикливается т.е. играет раз 5-6.
Как можно этого избежать?

Мда всё понял косяк, поставил через 2 трека всё норм)

7
Кармус @icevirtualaz
Есть ли пал скрипт останавливающий другие скрипты в определенные часы?

243
Владислав @VladokZzz
Скиньте плз код для реализации обновления трэков в категории из папки.
Есть папка D:/Music и категория All в SAM
Нужно по времени запустить импорт в категорию, но без повторов.
Спасибо

24
http//radioextreme_ru @djnewborn
VladokZzz пишет:

Скиньте плз код для реализации обновления трэков в категории из папки.
Есть папка D:/Music и категория All в SAM
Нужно по времени запустить импорт в категорию, но без повторов.
Спасибо

Задача поставлена криво

в сэме есть 2 типа категорий - "Playlist" и "Content"
так вот, вторая не подразумевает наличия дублей в принципе, если конечно вы импортируете одну и ту же папку.
если первая - то хз, вроде нет встроенного механизма удаления дублей из скрипта

юзайте поиск и встроенный хелп... там все есть... возможно это поможет:

Rescan method



Example

Applies to

TDirCategory class



Declaration

procedure Rescan;



Description

Rescan will scan the directory for songs and perform the following operations

1) Add any songs that is not currently listed in the songlist table.

2) Remove any songs in the songlist table that no longer physically exists in the database.



Rescan on large directories can be very CPU intensive, so we recommend splitting your music library into multiple directories and scanning each directory in turn.



The example script shows how you can rescan your computer for new files once a day at midnight.



PAL.Loop := True;



{## Wait for midnight }

PAL.WaitForTime('23:59:59');



{## Scan our promos directory }

DIR['c:\promos\'].Rescan;



{## Take a breather }

PAL.WaitForTime('+00:00:30');



{## Scan our main music directory }

{## Include all subdirectories }

SUBDIR['c:\music\'].Rescan;


Отредактировано djnewborn - 01.04.2014
24
http//radioextreme_ru @djnewborn
icevirtualaz пишет:

Есть ли пал скрипт останавливающий другие скрипты в определенные часы?

проще в тело скрипта встроить проверку на время/задать loop =true/false, в общем способов масса

410
Евгений @Drakkar
djnewborn пишет:

VladokZzz пишет:

Скиньте плз код для реализации обновления трэков в категории из папки.
Есть папка D:/Music и категория All в SAM
Нужно по времени запустить импорт в категорию, но без повторов.
Спасибо

Задача поставлена криво

в сэме есть 2 типа категорий - "Playlist" и "Content"
так вот, вторая не подразумевает наличия дублей в принципе, если конечно вы импортируете одну и ту же папку.
если первая - то хз, вроде нет встроенного механизма удаления дублей из скрипта


PAL.Loop := True;



{## Wait for midnight }

PAL.WaitForTime('23:59:59');



{## Scan our promos directory }

DIR['c:\promos\'].Rescan;



{## Take a breather }

PAL.WaitForTime('+00:00:30');



{## Scan our main music directory }

{## Include all subdirectories }

SUBDIR['c:\music\'].Rescan;




Приветствую. Кажется, я понял, что он хотел. Я сам именно с такой целью штудирую Радиоталк уже не первый день, а именно эту ветку с 1 страницы.
Хочется, чтоб СЭМ с периодичностью (К примеру раз в 30 минут) сканировал директорию D:/Music и если обнаруживал там новые треки(новые названия треков), то автоматически добавлял бы их в свою категорию Music (All). Ну и соответственно эти треки, с помощью настроенного Playlist Rotation Rules добавлялись в Queue. Но с добавлением в очередь проблем нет. Есть проблемы с автодобавлением треков СЭМОМ из директории в категорию.
PS. Немного дополнения: дело в том, что у меня вся-вся музыка в одной папке - D:/Music. И если ты добавляешь в эту папку к примеру песен 50, то надо вручную добавлять их в категорию Сэма Music (All), иначе он их просто не увидит. Я делаю это так: Выделил одник кликом Music (All), нажимаю на + , затем Add Files и пошёл их искать в куче треков...

398
ubuntu-studio @ubuntu-studio
Drakkar пишет:

Приветствую. Кажется, я понял, что он хотел. Я сам именно с такой целью штудирую Радиоталк уже не первый день, а именно эту ветку с 1 страницы.
Хочется, чтоб СЭМ с периодичностью (К примеру раз в 30 минут) сканировал директорию D:/Music и если обнаруживал там новые треки(новые названия треков), то автоматически добавлял бы их в свою категорию Music (All). Ну и соответственно эти треки, с помощью настроенного Playlist Rotation Rules добавлялись в Queue. Но с добавлением в очередь проблем нет. Есть проблемы с автодобавлением треков СЭМОМ из директории в категорию.


Не занимайтесь глупостями, на официальном форуме СЭМа этот вопрос уже сто раз разжеван - осталось только съесть.