Рандом в плейлистах и скрипты в назначеный час (sam broadcaster)

По поводу второго. В шедулере сэма есть возможность start/stop pal script.

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

по первому надо писать PAL скрипт
потом может приблизительно хоть скажу какой ))

ну можно в schedule поставить добавление треков из категории в queue

в скрипте задать if время с такого-то по такоето тогда делаем то и то else ничего не делаем
но скрипт должен быть в loop-е

что-то типа, на работоспособность не проверял

Показать / Cкрыть текст

var Song : TSongInfo;
mytime := now;
bad_time := T['19:00:00'];
bad_time2 := T['20:00:00'];
PAL.Loop := True;
if (mytime > bad_time) and (mytime < bad_time2) Then
  begin
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
Queue.Add(song,ipTop);
end

ну еще задержку надо если по одному треку и тд и тп

вполне возможно )) говорю же не пробовал
читаем ошибку и пытаемся ее понять

Добавлено спустя     4 минуты   42 секунды:
забыл добавить
var mytime : DateTime;
var bad_time, bad_time2 : DateTime;

но не сложно и так догадаться

с 19:00:00 по 20:00:00 время работы
остальное время - время простоя

сам по себе скрипт не запуститься он должен быть запущен постоянно, просто задать в какое время ему исполнять команды а в какое просто ждать

не расслабляемся, подключаем мозги и не ждем что все за вас сделают под ключ )))

о, теперь работает. Спасибо, тов. tarasian666:) а ты пишешь скрипты за деньги?

кстати насчёт первого, то есть ротации, полазил по форумам, включая саундкодер и вот что я там нашёл:

Показать / Cкрыть текст

Что бы мне хотелось?
Пока хочу реализовать самое простое - разбить сутки на куски вещания в разных стилях.
Пытался сообразить. Например. с 00 до 06 играет Эмбиент и чиллаут.
Написал скрипт:

var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;

If (OldTime>=T['00:00:00']) AND (OldTime<=T['06:00:00']) Then
begin
Cat['Ambient_ChillOut'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

Попробовал сделать тоже самое, но с учетом своих параметров, однако в назначенный промежуток времени,
скрипты в состоянии писали нечто подобное: "waiting for 1 tracks to play" и ничего не добавляли в очередь.
В чем может быть проблема? Кстати насчет категории, категория - это жанр или нет? тогда где эта самая категория прописывается для трека?
Думаю, если довести до ума этот скрипт, то сделаем счастливыми 30% посетителей этого сайта, так как можно автоматизировать вещание.

он вроде ждет пока трек проиграет тогда добавляет еще один
категория не жанр а "папка" с определенной музыкой или джингами и тд, там есть в семе окошко кажеться categories или тп

Я таки офигеваю с этого вашего .пал-скрипта:)
Проработало всё ровно до тех пор, пока я не перезашёл в СЭМ и не переназвал категории, раньше скрипт писал waiting for 1 tracks to play, теперь не пишет, что изменилось. Вот скрипт теперешний:

Показать / Cкрыть текст

var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;

If (OldTime>=T['18:00:00']) AND (OldTime<=T['00:00:00']) Then
begin
Cat['prime-time'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

Добавлено спустя     2 минуты   36 секунд:
блин, вот действительно, ничего не понимаю