if ((now >= T['00:00:00']) and (now <= T['06:00:00']) // Если сейчас больше 00:00:00 времени и меньше 06:00:00 and (DayOfWeek(Now) = monday)) then // и сегодня понедельник, то begin //начать PAL.WaitForTime(T['+06:00:00']); //Скрипт Pal ожидает 6 часов end else //иначе Cat['tracks'].QueueBottom(smLemmingLogic, EnforceRules); // Добавить песни из папки Tracks по правилам ротации
if ((now >= T['00:00:10']) and (now <= T['00:00:15']) and (DayOfWeek(Now) = monday)) then //время начала джингла, интервал в 5 секунд нужен для того, чтобы скрипт успел выполнится и запустить джингл. P := Aux1; //Переменной присвоено значение Aux1 if P <> nil then //Фиг знает что это) begin // Начать Queue.AddFile('E:\Доскатер\Интернет - Радио\Джинглы\Забей, бухай.mp3',ipTop); //Путь к джинглу P := ActivePlayer; if P <> nil then P.FadeToNext; //фэйдим песню на активном плеере end; if ((now >= T['00:00:00']) and (now <= T['06:00:00']) and (DayOfWeek(Now) = monday)) then //время продолжительности рубрики begin Cat['fuck'].QueueTop(smLemmingLogic, EnforceRules); //папка с треками для этой рубрики end; if ((now >= T['06:00:10']) and (now <= T['06:00:15'])) then //Время для очищения queue queue.clear;
Скрипты PAL для Sam Broadcaster
6 •