From 716c7b842a3b5d9a4b0b5b0134a46906661d6522 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 22 Feb 2013 21:59:06 +0000
Subject: Add Applause for medley mod.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2944 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UMusic.pas         | 3 +++
 src/screens/UScreenSing.pas | 1 +
 2 files changed, 4 insertions(+)

(limited to 'src')

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;
 
-- 
cgit v1.2.3