201

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

У кого получилось реализовать?
Нужно запускать в определенное время из определенной папки, НО что бы добавлялись трэйки пока не пройдет 1 час с начала запуска.
То бишь есть 3 трэйка по 20 минут, нужно что бы в 20:00 запустился рандомный трэк, а потом шла проверка прошел ли час, если нет (а по факту всего 20 минут прошло) и добавлялся следующий из папки. Получается 3 раза.
Трэки могут быть любой продолжительности.
По истечении 1 часа добавление из папки прекращается.
Спасибо за внимание!

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

202

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

и что тут такого сложного?
делаем по типу (синтаксис не помню точно)
Loop
PAL.WaitForTime( 20:00) - ждем 20.00
запускаем трек
PAL.WaitForTime (+1:00) - ждем час
запускаем трек

другий скрипт из другой папки

203

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

Формирование плейлиста в SAM при помощи .pal

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

204

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

пишет tarasian666:

и что тут такого сложного?
делаем по типу (синтаксис не помню точно)
Loop
PAL.WaitForTime( 20:00) - ждем 20.00
запускаем трек
PAL.WaitForTime (+1:00) - ждем час
запускаем трек

другий скрипт из другой папки

Дак надо удалить лишние если они больше часа занимают... получается через час надо делать очистку всего queue и добавлять снова трэки основной ротации?

Пришлось сделать так:
1. Подходит время 20:00 идет очистка Queue
2. Добавление всех трэков из папки
3. Запуск шафла этих песен в Queue
4. Проходит 1 час Идет очистка
5. Добавление трэков основного потока
6. Шафл на них в Queue
Работает, но мне кажется есть способ корректнее )

Отредактировано VladokZzz (05-10-2011 17:21:47)

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

205

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

VladokZzz Я тебе дал выше постом тему, там есть скрипт.

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

206

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

Народ подскажите скрипт который будет перемешивать треки в Queue

207

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

изначально неправильно мыслите, их надо "рандумно" добавлять в queue, а не добавлять и потом перемешивать

208

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

да да именно так, у меня есть скрипт который делает так, если 2 деки свободны он берет целый плейлист и воспроизводит, хотелось бы чтобы треки мешались

209

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

ап

210

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

пишет Rocketdock:

ап

Queue.Shuffle;

Добавлено спустя     1 минуту   27 секунд:
Может нашелся смельчак? Какой код для отслеживания кол-ва раз проигрывания? К примеру хочу включать трэйки, которые меньше всего раз проигрывались.

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

211

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

Народ подскажите как можно реализовать например рандомный трек из категории  CAT['New'], но перед этим проиграл джингл, итак каждый раз когда из этой категории загружается трек?

212

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

пишет LAZ2735:

Народ подскажите как можно реализовать например рандомный трек из категории  CAT['New'], но перед этим проиграл джингл, итак каждый раз когда из этой категории загружается трек?

джингл определенный?

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

213

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

да, определённый

214

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

var Song : TSongInfo;
PAL.Loop := True;
Queue.AddFile('C:\jingl.mp3',ipTop); // путь до джингла
Song := CAT['CAT (New)'].ChooseSong(smRandom,NoRules);
Queue.Add(song,ipTop);
PAL.WaitForTime('+00:20:00'); //ожидаем до повтора

Не проверял, но должно быть все ок, если что пиши

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

215

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

Спасибо большое, работает

216

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

Добавлено спустя     1 минуту   27 секунд:
Может нашелся смельчак? Какой код для отслеживания кол-ва раз проигрывания? К примеру хочу включать трэйки, которые меньше всего раз проигрывались.

ап

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

217

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

На сколько я знаю в базе отмечается сколько какой трек был проигран. Бери и выводи себе табличку для удобства.

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

218

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

пишет KyPIIaToB:

На сколько я знаю в базе отмечается сколько какой трек был проигран. Бери и выводи себе табличку для удобства.

Вывести то не проблема на уровне PHP, а на уровне SAM как?
У меня идет ротация шафлом, какие-то трэки проигрались раз 15, а какие-то 1-2 раза. Это не есть хорошо.

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

219

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

Есть скрипт, который постоянно выпускает джинглы:

[size=6]PAL.Loop := True;
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:02:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);[/size]

Как его отключать в определённые часы? К примеру в воскресенье с 16:00:00 до 16:50:00 и в понедельник с 0:00:00 до 0:50:00, чтобы в это время он не втсавлял джинглы после каждого трека?
Спасибо!

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

220

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

пишет radioplus:

Есть скрипт, который постоянно выпускает джинглы:

PAL.Loop := True;
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:02:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);

Как его отключать в определённые часы? К примеру в воскресенье с 16:00:00 до 16:50:00 и в понедельник с 0:00:00 до 0:50:00, чтобы в это время он не втсавлял джинглы после каждого трека?
Спасибо!

Только с помощью добавления правила по типу

if ((now >= T['18:00:00']) and (now <= T['18:00:30']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['18:00:00']) and (now <= T['18:00:30']) and (DayOfWeek(Now) = Friday)) then
begin

Это просто пример.

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

221

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

пишет radioplus:

Есть скрипт, который постоянно выпускает джинглы:

[size=6]PAL.Loop := True;
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:02:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);[/size]

Как его отключать в определённые часы? К примеру в воскресенье с 16:00:00 до 16:50:00 и в понедельник с 0:00:00 до 0:50:00, чтобы в это время он не втсавлял джинглы после каждого трека?
Спасибо!

Вот отличный пример на сайте сэма:
http://support.spacialaudio.com/wiki/Ho … in_time%3F

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

222

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

Мне нужен скрипт, который будет выключать джинглы, а не включать в определённое время! То есть как сделать так, чтобы скрипт не выполнялся в определённый день и в определённое время, к примеру в воскресенье с 15:00 до 16:00? может так:
PAL.Loop := True;
var mytime : DateTime = now;
var I : Integer;
var start_time, end_time : DateTime;
end_time := date + EncodeTime(15,59,30,0);
start_time := date + EncodeTime(17,15,00,0);
if DayOfWeek(Now) = Sunday then
begin
      if( mytime >= start_time) and (mytime <= end_time) Then
           begin
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:03:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);
            end;
end;


Так он не запускается пока не дождётся времени старта! Скорее всего как то иначе, только вот как?

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

223

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

if DayOfWeek(Now) != Sunday then
begin
      if( mytime >= start_time) and (mytime <= end_time) Then
           begin
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:03:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);
            end;
end;

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

224

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

и в чём разница? Это скрипт включения программы в определённое время. А мне нужен отключения работы скрипта в определённый день и время.

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

225

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

пишет radioplus:

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

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

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