const change_interval = '+00:00:20'; const endinterval = '+00:00:12'; var CurSong : TSongInfo; var UpdSong : TSongInfo; var Toggle : Boolean = True; var LinePos : Integer = 0; var NextSong : String; PAL.WaitForTime(change_interval); {Зацикливаем скрипт} PAL.Loop := True; UpdSong := TSongInfo.Create; Toggle := not Toggle; if Toggle then begin CurSong := ActivePlayer.GetSongInfo; Encoders.SongChange(CurSong); end; UpdSong['title'] := 'СуперШОУ - Вася Пупкин и Боря Моисеев в студии'; Encoders.SongChange(UpdSong); PAL.WaitForTime(endinterval); Toggle := not Toggle; if Toggle then begin CurSong := ActivePlayer.GetSongInfo; Encoders.SongChange(CurSong); CurSong.Free; end; UpdSong.Free;