var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на x времени //PAL.WaitForTime('+00:10:00'); //ставим задержку на х песен (в данном случае стоит задержка в 3 трека) PAL.WaitForPlayCount(3); //выбираем трек наугад Song := CAT['Jingles (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Queue.Add(song,ipTop);
var Song : TSongInfo; PAL.Loop := True; PAL.WaitForPlayCount(3); Song := CAT['Jingles (All)'].ChooseSong(smRandom,NoRules); Queue.Add(song,ipTop);
var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на 30 минут PAL.WaitForTime('+02:44:00'); //выбираем трек наугад Song := CAT['Promos (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Queue.Add(song,ipTop);