PAL.Loop := True; //we want the script to run continuously unless manually stopped
var liner : TSongInfo; //we will use liner to tell the Aux decks what to play
var activedeck : TPlayer; //we will use activedeck to determine which deck is currently playing
PAL.LockExecution; //we are going to lock SAM for a few milliseconds so we can quickly get these commands executed
activedeck := activeplayer; //set the activedeck variable as the deck playing a song
ActivePlayer.pause; //now pause that deck
Aux1.eject; //clear the aux decks and free them from queues
Aux2.eject;
liner := CAT['weather1'].ChooseSong(smRandom, NoRules); //in the weather1 category, place an introduction jingle to the weather update
Aux1.QueueSong(liner); //queue it in Aux1
Aux1.play; //play it
liner := CAT['weather2'].ChooseSong(smRandom, NoRules); //weather2 category will contain the generated audio file from the wundergroundannounce.vbs file and balabolka. It is the text-to-speech audio file that reads out the weather
Aux2.QueueSong(liner); //prepare it in aux2
PAL.UnlockExecution; //unlock SAM
while Aux1.Status=0 do  begin  end; //wait until the intro jingle is done playing
PAL.LockExecution; //we are going to lock SAM for a few milliseconds so we can quickly get these commands
Aux2.play; //then play the weather file
liner := CAT['weathermusic'].ChooseSong(smRandom, NoRules); //now we are going to select a music file from the weathermusic category. Put all the background music you want in this category, and one will select randomly to play quietly while the weather is being read out.
Aux1.QueueSong(liner); //queue the background music in Aux1
Aux1.volume := 75; //set aux1 at a quiet volume level so the music doesn't overpower the weather
Aux1.play; //play the background music
PAL.UnlockExecution; //unlock SAM
while Aux2.Status=0 do  begin  end; //wait until the weather file is done
PAL.LockExecution; //we are going to lock SAM for a few milliseconds so we can quickly get these commands
aux1.eject; //remove the background music
Aux1.volume := 255; //set aux1 back to normal volume
//If you wish to have a station identification play here, put it here. Use the commented-out example as a guide.
//IF DayOfWeek(Now) = Sunday THEN
//BEGIN
//liner := CAT['sabbathintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Monday THEN
//BEGIN
//liner := CAT['meditationintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Tuesday THEN
//BEGIN
//liner := CAT['tellusintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Wednesday THEN
//BEGIN
//liner := CAT['wolframintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Thursday THEN
//BEGIN
//liner := CAT['thankfulintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Friday THEN
//BEGIN
//liner := CAT['freakyintro'].ChooseSong(smRandom, NoRules);
//END;
//IF DayOfWeek(Now) = Saturday THEN
//BEGIN
//liner := CAT['singalongintro'].ChooseSong(smRandom, NoRules);
//END;
//If you wish to have station identification, uncomment the next three lines that are commented
//aux1.queuesong(liner);
//aux1.play;
PAL.UnlockExecution;  //unlock SAM
//while Aux2.Status=0 do  begin  end;
activedeck.play; //after the jingle is done (if requested in the script, otherwise after the weather is done), resume the paused song in the active deck
PAL.WaitForTime('NEXT15'); //wait until the next quarter hour to begin the next weather update

PAL.WaitForPlayCount(1);

liner := CAT['weatherandtraffic1'].ChooseSong(smRandom, NoRules);
//Queue.AddFile('C:\WRRJ\quickcast\qintroduction.wav',ipTop);
Aux1.QueueSong(liner);
Aux1.play;
liner := CAT['weatherandtraffic2'].ChooseSong(smRandom, NoRules);
Aux2.QueueSong(liner);
PAL.UnlockExecution;
while Aux1.Status=0 do  begin  end;
PAL.LockExecution;
Aux2.play;
liner := CAT['weathertrafficmusic'].ChooseSong(smRandom, NoRules);
Aux1.QueueSong(liner);
Aux1.volume := 75;
Aux1.play;
PAL.UnlockExecution;

liner := CAT['weatherandtraffic1'].ChooseSong(smRandom, NoRules);
//Queue.AddFile('C:\WRRJ\quickcast\qintroduction.wav',ipTop);
Aux1.QueueSong(liner);
Aux1.play;
liner := CAT['weatherandtraffic2'].ChooseSong(smRandom, NoRules);
Aux2.QueueSong(liner);
PAL.UnlockExecution;
PAL.WaitForTime('+00:00:13');
PAL.LockExecution;
Aux2.play;
liner := CAT['weathertrafficmusic'].ChooseSong(smRandom, NoRules);
Aux1.QueueSong(liner);
Aux1.volume := 75;
Aux1.play;
PAL.UnlockExecution;