Тема: Помогите с написанием одного скрипта
Уважаемые форумчане, у меня есть ежечасовые отбивки и джингл, играющий сразу после них. Вот скрипт:
var P : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;
strPath := 'E:\CLOCK\'; //папка с отбивкой
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов
PAL.Loop := True;
PAL.WaitForTime('XX:59:45'); //запускаемся в конце каждого часа
P := SoundFX;
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Queue.AddFile(strFile, ipTop);
Song := Queue.NextInQueue;
P.QueueSong(Song);
P.Play;
Но так же у меня есть ночной джингл no_slip.mp3, который надо сделать, чтобы запускался только ночю, к примеру с 00-00 до 07-00 сразу после отбивки часов. Как сиё реализовать?
И вопрос №2.
Есть три разных джингла по 7 секунд каждый: 1.p3, 2.mp3 и 3.mp3. Какой скрипт будет их в течении суток раз 20 к примеру в рандомном порядке, приглушая основной эфир, поверх песен пускать? Желательно, конечно, чтоб в самых тихих местах песен, где уровень ДБ ниже -10, но врятли это осуществимо ... хотябы просто приглушая эфир.
Спасибо.
Отредактировано Drakkar (06-11-2011 12:54:58)