1 files changed, 25 insertions, 2 deletions
diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas
index 9c13b461..442c999b 100644
--- a/Game/Code/Classes/UAudioCore_Bass.pas
+++ b/Game/Code/Classes/UAudioCore_Bass.pas
@@ -9,8 +9,12 @@ interface
 {$I switches.inc}
 
 uses
+  {$IFDEF MSWINDOWS}
+  Windows,
+  {$ENDIF}
   Classes,
-  SysUtils;
+  SysUtils,
+  UMusic;
 
 type
   TAudioCore_Bass = class
@@ -18,6 +22,7 @@ type
     public
       class function ErrorGetString(): string; overload;
       class function ErrorGetString(errCode: integer): string; overload;
+      class function ConvertAudioFormatToBASSFlags(Format: TAudioSampleFormat; out Flags: DWORD): boolean;
   end;
 
   
@@ -113,4 +118,22 @@ begin
     end;
 end;
 
-end.
-\ No newline at end of file
+class function TAudioCore_Bass.ConvertAudioFormatToBASSFlags(Format: TAudioSampleFormat; out Flags: DWORD): boolean;
+begin
+  case Format of
+    asfS16:
+      Flags := 0;
+    asfFloat:
+      Flags := BASS_SAMPLE_FLOAT;
+    asfU8:
+      Flags := BASS_SAMPLE_8BITS;
+    else begin
+      Result := false;
+      Exit;
+    end;
+  end;
+
+  Result := true;
+end;
+
+end.