151

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

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

152

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

Есть скрипт:

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := True;
PAL.WaitForTime('+00:10:00');

P := SoundFX;
if P <> nil then
begin
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song);
P.Play;
end;
end;

Нужно сделать следующее:
Скрипт проверяет длительность трека (duration) играющего в деке, если он не короче 1 минуты и не длиннее 30 минут, то выполняется.
Помогите реализовать, буду очень признателен smile

Отредактировано KyPIIaToB (17-05-2011 01:31:09)

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

153

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

Народ помогите.
1.Нужен скрипт который бы запускал на 1 час определённого артиста/группу.
2.Нужен скрипт который бы запускал на 1 час определённое направление музыки например Trance, Drum&bass и т.д.

154

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

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

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

155

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

пишет KyPIIaToB:

Есть скрипт:

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := True;
PAL.WaitForTime('+00:10:00');

P := SoundFX;
if P <> nil then
begin
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song);
P.Play;
end;
end;

Нужно сделать следующее:
Скрипт проверяет длительность трека (duration) играющего в деке, если он не короче 1 минуты и не длиннее 30 минут, то выполняется.
Помогите реализовать, буду очень признателен smile

Ну же, ребятки) Нужна помощь)

Отредактировано KyPIIaToB (17-05-2011 01:31:28)

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

156

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

Ну вот, вроде как сам попробовал сделать. Если что криво в коде прошу поправить, но нужную функцию с нужными правилами теперь выполняет.

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := True;
PAL.WaitForTime('+00:10:00');

if(ActivePlayer.Duration>60000) AND (ActivePlayer.Duration<1800000) then
begin
P := SoundFX;
if P <> nil then
begin
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;
end;
В здоровом теле - здоровый дух!

157

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

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

Заранее премного благодарен за помощь.

158

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

Где скачать программу schedule для сема,что бы было рассписание у него,киньте плииз ссылку

icq 453558734

159

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

пишет maxon:

Где скачать программу schedule для сема,что бы было рассписание у него,киньте плииз ссылку

Вообще то это опция в самом SAMе
http://support.spacialaudio.com/wiki/Event_Scheduler

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

160

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

есть такой вот скрипт

PAL.Loop := True;
PAL.WaitForTime('XX:59:55');

Queue.Clear;
Cat['News_1'].QueueTop(smLemmingLogic, noRules);
ActivePlayer.FadeToNext;

соответственно в 59:55 каждого часа делает некое действие, а как сделать чтобы он это делал в 59:55 каждого второго часа?

161

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

пишет Greenhed:

есть такой вот скрипт

PAL.Loop := True;
PAL.WaitForTime('XX:59:55');

Queue.Clear;
Cat['News_1'].QueueTop(smLemmingLogic, noRules);
ActivePlayer.FadeToNext;

соответственно в 59:55 каждого часа делает некое действие, а как сделать чтобы он это делал в 59:55 каждого второго часа?

PAL.WaitForTime('01:59:55');
Не уж то так тяжело догадаться)

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

162

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

KyPIIaToB
эээ... он будет ждать когда наступит 1:59:55 и в это время проигрывать. а мне нужно чтобы он проигрывал в 0, 2, 4 и т.д.

163

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

что то даже затрудняюсь ответить как через скрипт сделать, попробуй через шедулер.

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

164

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

Друзья в Voice FX есть Config(конфигурацию регуляторы и т.п. для микрофона) пожалуйста пришлите кто нибудь самы нормальные и оптимальные настройки,я понимаю что у всех разные микрофоны но хоть какие нить такие норм настроечки)))Благодарен заранее

Добавлено спустя     1 минуту   20 секунд:
Добавлено спустя       25 секунд:
Лучше если вышлите скрин что бы посмотреть и настроить

icq 453558734

165

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

Благодарю! Пока не нашел ответов на следующие вопросы, может кто знает...
1. Как запустить последний трэк в категории?
2. Как отобрать рандомом трэки, сумма продолжительности которых не будет превышать 1 час?
3. Как запустить трэйк, который ни разу не проигрывался, тобишь у которого Play Count в деталях равен 0?
4. Как запустить файл с самой поздней датой  создания из папки в ротацию?
Еще один решил корректировать сообщение...
5. Как добавить трэки из директории в определенную категорию и что бы без повторов? Либо какая команда в PAL для удаления дубликатов?
Спасибо за любой ответ

------------------------
http://radio-electron.ru/img/logo_small.gif
http://radio-electron.ru/play

166

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

пишет Greenhed:

эээ... он будет ждать когда наступит 1:59:55 и в это время проигрывать. а мне нужно чтобы он проигрывал в 0, 2, 4 и т.д.

Если ты запустишь этот скрипт в 0:00 то получишь каждые 2 часа действие, следовательно в 0,2,4 и т.д.

PAL.Loop := True;
PAL.WaitForTime('02:00:00');

------------------------
http://radio-electron.ru/img/logo_small.gif
http://radio-electron.ru/play

167

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

А как пал-скриптом перечитать теги у всех песен в категории? Что-то не нахожу (

168

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

VladokZzz а если я не успел его в 0:00 запустить? плохая идея. Сделал шедулером стандартным

169

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

пишет Greenhed:

VladokZzz а если я не успел его в 0:00 запустить? плохая идея. Сделал шедулером стандартным

Это был пример!Если ты запустил в 12 ночи...с интервалом в каждые два часа,то ровно через два часа,с точностью до секунды,будет включатся:)

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

170

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

JamStyle
еще раз. Мне не нужно раз в два часа с отсчетом от какого-то времени. Мне нужно нужно строго в 59:55 каждого второго часа

171

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

пишет Greenhed:

JamStyle
еще раз. Мне не нужно раз в два часа с отсчетом от какого-то времени. Мне нужно нужно строго в 59:55 каждого второго часа

if (OldTime>T ['06:00:00']) думаю проши воспользоваться такими методами, расписывайте скрипт на каждое время когда хотите запускать.

172

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

Народ нужен скрипт который пробежался бы по всем песенкам и удалил песни длиннее 20мин.
Подскажите плиз.

173

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

У меня по проще задача, но никак не могу найти решение.

Есть несколько передач разбитых на несколько файлов. Соединять их в один файл не кошерно, потому что будут писаться ещё так же разбитые.

Задача:

В определённой папке, рандомом выбрать одну любую папку и запихать всё её содержимое в queue (в идеале с сортировкой по дате).

либо

В определённой папке выбрать один файл с плейлистом m3u и запихать его в queue

______________

ни то ни другое пока осуществить не удаётся, не ужели я первопроходец)




Есть вот такой скрипт, но он в queue закидывет пустышку с названием листа, вместо содержимого и не проигрывает его.

var List : TSongInfo;

PAL.Loop := True; //скрипт будет выполнятся постоянно(многократно)
PAL.WaitForPlayCount(1); //ставим задержку на треки
List := Dir['D:\dir\mp3\m3u'].ChooseSong(smRandom,NoRules); //выбираем трек наугад
//добавляем его в начало очереди
Queue.Add(list,ipTop);

Отредактировано Nikem79 (28-06-2011 09:58:40)

174

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

Подскажите пожалуйста скрипт который выводит заказанную песню и сам заказ,где то читал об этом но не понимаю как и куда прописывать

icq 453558734

175

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

samPHPweb

http://support.spacialaudio.com/wiki/Web_integration

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