added applause sound

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2671 b956fd51-792f-4845-bead-9b4dfca2ff2c

2 files changed, 4 insertions, 1 deletions

diff --git a/medley_new/src/base/UMusic.pas b/medley_new/src/base/UMusic.pas
index c775fd51..0fa625ee 100644
--- a/medley_new/src/base/UMusic.pas
+++ b/medley_new/src/base/UMusic.pas
@@ -569,6 +569,7 @@ type
       Change:  TAudioPlaybackStream;
       Option:  TAudioPlaybackStream;
       Click:   TAudioPlaybackStream;
+      Applause:TAudioPlaybackStream;
       BGMusic: TAudioPlaybackStream;
 
       constructor Create();
@@ -938,6 +939,7 @@ begin
   Change  := AudioPlayback.OpenSound(SoundPath.Append('select music change music 50.mp3'));
   Option  := AudioPlayback.OpenSound(SoundPath.Append('option change col.mp3'));
   Click   := AudioPlayback.OpenSound(SoundPath.Append('rimshot022b.mp3'));
+  Applause:= AudioPlayback.OpenSound(SoundPath.Append('Applause.mp3'));
 
   BGMusic := AudioPlayback.OpenSound(SoundPath.Append('background track.mp3'));
 
@@ -953,6 +955,7 @@ begin
   FreeAndNil(Change);
   FreeAndNil(Option);
   FreeAndNil(Click);
+  FreeAndNil(Applause);
   FreeAndNil(BGMusic);
 end;
 
diff --git a/medley_new/src/screens/UScreenSing.pas b/medley_new/src/screens/UScreenSing.pas
index cea1b2c3..4998ed02 100644
--- a/medley_new/src/screens/UScreenSing.pas
+++ b/medley_new/src/screens/UScreenSing.pas
@@ -1425,7 +1425,7 @@ begin
   begin
     PlaylistMedley.ApplausePlayed:=true;
     // TODO: add fade-out!
-    //Music.PlayApplause;
+    AudioPlayback.PlaySound(SoundLib.Applause);
     //Music.Fade(MP3Volume, 10, CurrentSong.Medley.FadeOut_time);
   end;
 end;