Note that this Wiki is a work in progress, items may not be updated or may disappear entirely as the pages are updated.
Playing Station IDs and Advertisements LOUDER than normal music
From SpacialAudio
Script to make Promos, Advertisements and Station IDs play LOUDER than normal music
{Volume: 0..255}
const VOL_NORMAL = 200;
const VOL_LOUD = 250;
PAL.Loop := True;
var P : TPlayer;
var Song : TSongInfo;
var WaitForPlay : Boolean;
P := QueuedPlayer;
if P <> nil then
begin
WaitForPlay := True;
Song := P.GetSongInfo;
case Song['songtype'] of
'S' : P.Volume := VOL_NORMAL;
'I','P','J','A','N','V','X' : P.Volume := VOL_LOUD;
else P.Volume := VOL_NORMAL;
end;
end
else WaitForPlay := False;
while WaitForPlay do
begin
WaitForPlay := False;
PAL.WaitForPlayCount(1);
end;
