From 588095fb82564c2abf34278e8d0767d92ccb463e Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 17 Jun 2010 13:58:55 +0000
Subject: pause bg music during credits

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2535 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenCredits.pas | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/screens/UScreenCredits.pas b/src/screens/UScreenCredits.pas
index b1333b4a..a428cb15 100644
--- a/src/screens/UScreenCredits.pas
+++ b/src/screens/UScreenCredits.pas
@@ -251,6 +251,9 @@ procedure TScreenCredits.OnShow;
 begin
   inherited;
 
+  // pause background music
+  SoundLib.PauseBgMusic;
+
   CRDTS_Stage    := InitialDelay;
   Credits_X      := 580;
   deluxe_slidein := 0;
@@ -265,6 +268,8 @@ end;
 procedure TScreenCredits.OnHide;
 begin
   AudioPlayback.Stop;
+
+  SoundLib.StartBgMusic;
 end;
 
 Procedure TScreenCredits.Draw_FunkyText;
-- 
cgit v1.2.3