Stop by KWTF The Edge to find out how to win a Fender Guitar!

Look me up at myspace.com/thepowermaker

Ask me about CD submissions

To HELL with coporate crap


{---------------------------------------------------------------------}


var CurSong : TSongInfo;
var UpdSong : TSongInfo;
var Banners : TStringList;
var Toggle  : Boolean = True;
var LinePos : Integer = 0;


PAL.Loop := True;


UpdSong := TSongInfo.Create;
Banners := TStringList.Create;


if FileExists('C:\Program Files\SpacialAudio\SAM3\bannertext.txt') then
 Banners.LoadFromFile('C:\Program Files\SpacialAudio\SAM3\bannertext.txt')
else
 WriteLn('Banner source file does not exist!');
 
LinePos := 0;
while (LinePos<Banners.Count) do
begin
  {Wait for specified time}
  PAL.WaitForTime('+00:00:15');
  

  UpdSong['title'] := Banners[LinePos];
  UpdSong['artist'] := 'KWTF The Edge';
 
  Toggle := not Toggle;
  if Toggle then
   begin
    CurSong := ActivePlayer.GetSongInfo;
     Encoders.SongChange(CurSong);
    CurSong.Free;
   end
  else
    Encoders.SongChange(UpdSong);

 
  LinePos := LinePos + 1;
end;


Banners.Free;
UpdSong.Free;