PAL.WaitForTime('+00:05:30'); // 5 мин. 30 сек. ожидания
PAL.Loop := True; // Скрипт будет выполнятся постоянно // ----------------------------------------------------------------------------- // Не изменяйте код ниже этой линии, если вы не уверены в том, что вы делаете! // ----------------------------------------------------------------------------- var WeekDayW1 : Boolean; // W1 = Working1 (1 сценарий) var WeekDayW2 : Boolean; // W2 = Working2 (2 сценарий) ///////////////////////////// 1 сценарий /////////////////////////////////////// var Working1Start : string = '23:58:00'; // Старт (Время не изменять) var Working1End : string = '23:59:59'; // Стоп (Время не изменять) // ----------------------------------------------------------------------------- ///////////////////////////// 2 сценарий /////////////////////////////////////// var Working2Start : string = '00:00:01'; // Старт (Время не изменять) var Working2End : string = '23:58:00'; // Стоп (Время не изменять) //////////////////////////////////////////////////////////////////////////////// // -------------------------- начало 1 сценария -------------------------------- // Старт (Working1) Работа во все дни недели по Будням и Выходным
var WeekDayW1 : Boolean; // W1 = Working1 (1 сценарий) var WeekDayW2 : Boolean; // W2 = Working2 (2 сценарий) .............................................................................................. .............................................................................................. .............................................................................................. .............................................................................................. var WeekDayW18 : Boolean; // W18 = Working2 (18 сценарий)
DeckA.Seek(60000); // 60 секунд
var P : TPlayer; var OldTime : DateTime; OldTime := Now; PAL.Loop:=True; // Скрипт будет выполнятся постоянно /////////////////////////////////// 1 сценарий /////////////////////////////////////// if (OldTime>=T['08:14:00']) and (OldTime<=T['19:45:00']) then // ежедневно с 8 утра до 20 вечера begin cat['1-folder'].QueueTop(smRandom,NoRules); // ставим 1 джингл в начало очереди из ['1-folder'] PAL.WaitForTime(T['+00:30:00']); // задержка 30 минут end; /////////////////////////////////// 2 сценарий /////////////////////////////////////// if (OldTime>=T['20:14:00']) and (OldTime<=T['23:45:00']) then // ежедневно с 20 вечера до 0 ночи begin cat['2-folder'].QueueTop(smRandom,NoRules); // ставим 1 джингл в начало очереди из ['2-folder'] PAL.WaitForTime(T['+00:30:00']); // задержка 30 минут end; ////////////////////////////////// продолжение 2 сценария //////////////////////////// if (OldTime>=T['00:14:00']) and (OldTime<=T['07:45:00']) then // ежедневно с 0 ночи до 8 утра begin cat['2-folder'].QueueTop(smRandom,NoRules); // ставим 1 джингл в начало очереди из ['2-folder'] PAL.WaitForTime(T['+00:30:00']); // задержка 30 минут end; ////////////////// в итоге получаем трансляцию 2 джинглов каждый час в течении 24 часов ////////////////
Скрипты PAL для Sam Broadcaster
6 •