Added IAudioPlayback Interface and implementation for BASS.

Created "AudioPlayback" Global Singleton, which removed the need 
for the "Music" Global variable.  This was done because global singleton objects are 
a recognized better "design pattern" achieving the same thing as global variables, but
in a nicer way.

I will be working to 
  a) separate IAudioPlayback in to separate "Playback" and "Input" Interfaces
  b) build a FFMpeg class that implements IAudioPlayback



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

1 files changed, 11 insertions, 11 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index 2bd0156a..b7d6d3e7 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -172,7 +172,7 @@ begin
       SDLK_BACKSPACE :
         begin
           FadeTo(@ScreenMain);
-          Music.PlayBack;
+          AudioPlayback.PlayBack;
         end;
 {       SDLK_SPACE:
          begin
@@ -288,7 +288,7 @@ begin
   deluxe_slidein := 0;
   Credits_Alpha := 0;
   //Music.SetLoop(true); Loop looped ned, so ne scheisse
-  Music.Open(soundpath + 'wome-credits-tune.mp3'); //danke kleinster liebster weeeetüüüüü!!
+  AudioPlayback.Open(soundpath + 'wome-credits-tune.mp3'); //danke kleinster liebster weeeetüüüüü!!
 //  Music.Play;
   CTime:=0;
 //  setlength(CTime_hold,0);
@@ -344,7 +344,7 @@ end;
 
 procedure TScreenCredits.onHide;
 begin
-  Music.Stop;
+  AudioPlayback.Stop;
 end;
 
 Procedure TScreenCredits.Draw_FunkyText;
@@ -445,7 +445,7 @@ const  myLogoCoords: Array[0..27,0..1] of Cardinal = ((39,32),(84,32),(100,16),(
 
 begin
   //dis does teh muiwk y0r
-  Data := Music.GetFFTData;
+  Data := AudioPlayback.GetFFTData;
 
   Log.LogStatus('',' JB-1');
 
@@ -465,7 +465,7 @@ begin
 
       CRDTS_Stage:=Intro;
       CTime:=0;
-      Music.Play;
+      AudioPlayback.Play;
 
     end;
     if (CRDTS_Stage=Intro) and (CTime=Timings[7]) then
@@ -1311,14 +1311,14 @@ Log.LogStatus('',' JB-4');
     begin
       if CTime=Timings[20] then begin
         CTime_hold:=0;
-        Music.Stop;
-        Music.Open(soundpath + 'credits-outro-tune.mp3');
-        Music.Play;
-        Music.SetVolume(20);
-        Music.SetLoop(True);
+        AudioPlayback.Stop;
+        AudioPlayback.Open(soundpath + 'credits-outro-tune.mp3');
+        AudioPlayback.Play;
+        AudioPlayback.SetVolume(20);
+        AudioPlayback.SetLoop(True);
       end;
       if CTime_hold > 231 then begin
-        Music.Play;
+        AudioPlayback.Play;
         Ctime_hold:=0;
       end;
       glClearColor(0,0,0,0);