var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на 3 песни PAL.WaitForTime('+00:30:00'); //выбираем трек наугад Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Aux.QueueSong(Song); Aux.play; Song.Free;
var Song : TSongInfo; PAL.Loop := True; PAL.WaitForTime('+00:40:00'); Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); Aux := Aux1; Aux.QueueSong(Song); Aux.play; Song.Free;
var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на 3 песни PAL.WaitForTime('+00:01:00'); //выбираем трек наугад Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди var Aux : TPlayer; Aux.QueueSong(Song); Aux.play; Song.Free;
var Song : TSongInfo; //ñêðèïò áóäåò âûïîëíÿòñÿ ïîñòîÿííî(ìíîãîêðàòíî) PAL.Loop := True; //ñòàâèì çàäåðæêó íà 3 ïåñíè PAL.WaitForTime('+00:01:00'); //âûáèðàåì òðåê íàóãàä Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); //äîáàâëÿåì åãî â íà÷àëî î÷åðåäè var Aux : TPlayer; Aux := Aux1; Aux.QueueSong(Song); Aux.play; Song.Free;