Add Applause for medley mod.

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

3 files changed, 4 insertions, 0 deletions

diff --git a/game/sounds/Applause.mp3 b/game/sounds/Applause.mp3
new file mode 100644
index 00000000..d5eeb881
--- /dev/null
+++ b/game/sounds/Applause.mp3
diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index c85e3417..ca577db4 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -572,6 +572,7 @@ type
       Change:  TAudioPlaybackStream;
       Option:  TAudioPlaybackStream;
       Click:   TAudioPlaybackStream;
+      Applause:TAudioPlaybackStream;
       BGMusic: TAudioPlaybackStream;
 
       constructor Create();
@@ -946,6 +947,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'));
 
@@ -961,6 +963,7 @@ begin
   FreeAndNil(Change);
   FreeAndNil(Option);
   FreeAndNil(Click);
+  FreeAndNil(Applause);
   FreeAndNil(BGMusic);
 end;
 
diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index ff4f33e6..f9770cb3 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -1437,6 +1437,7 @@ begin
     (PlaylistMedley.CurrentMedleySong <= PlaylistMedley.NumMedleySongs) then
   begin
     PlaylistMedley.ApplausePlayed := true;
+    AudioPlayback.PlaySound(SoundLib.Applause);
   end;
 end;