1 files changed, 13 insertions, 0 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 6e997c11..52bae3c9 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -59,6 +59,7 @@ type
       procedure InitializePlayback;
       procedure InitializeRecord;
       procedure SetVolume(Volume: integer);
+      procedure SetMusicVolume(Volume: Byte);
       procedure SetLoop(Enabled: boolean);
       function Open(Name: string): boolean; // true if succeed
       procedure Rewind;
@@ -350,6 +351,16 @@ begin
   BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
 end;
 
+procedure TMusic.SetMusicVolume(Volume: Byte);
+begin
+  //Max Volume Prevention
+  if Volume > 100 then
+    Volume := 100;
+
+  //Set Volume
+  BASS_ChannelSetAttributes (Bass, -1, Integer(Volume), -101);
+end;
+
 procedure TMusic.SetLoop(Enabled: boolean);
 begin
   Loop := Enabled;
@@ -364,6 +375,8 @@ begin
 
     Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);
     Loaded := true;
+    //Set Max Volume
+    SetMusicVolume (100);
   end;
 
   Result := Loaded;