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

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

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

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

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

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

пишет Rocketdock:

ап

Queue.Shuffle;

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

------------------------

http://radio-electron.ru/play

пишет LAZ2735:

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

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

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'); //ожидаем до повтора

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

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

ап

------------------------

http://radio-electron.ru/play

пишет KyPIIaToB:

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

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

------------------------

http://radio-electron.ru/play

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

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

Мне нужен скрипт, который будет выключать джинглы, а не включать в определённое время! То есть как сделать так, чтобы скрипт не выполнялся в определённый день и в определённое время, к примеру в воскресенье с 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;

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

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