From 716c7b842a3b5d9a4b0b5b0134a46906661d6522 Mon Sep 17 00:00:00 2001 From: k-m_schindler 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 +++ 1 file changed, 3 insertions(+) (limited to 'src/base') 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; -- cgit v1.2.3