added headless mode

[d2df-sdl.git] / src / game / g_sound.pas

diff --git a/src/game/g_sound.pas b/src/game/g_sound.pas
index f5ce6c7b9308990ed720398d4f610f19989d7695..b1e09f8b4d91ee642fac286bf529fb0f32ab88c2 100644 (file)
--- a/src/game/g_sound.pas
+++ b/src/game/g_sound.pas
@@ -309,8 +309,8 @@ begin
   end;
 
   WAD.Free();
-
-  if not ok then
+{$IFNDEF HEADLESS}
+  if (not ok) then
   begin
     if isMusic then
       e_WriteLog(Format('Error loading music %s', [Resource]), MSG_WARNING)
@@ -318,7 +318,7 @@ begin
       e_WriteLog(Format('Error loading sound %s', [Resource]), MSG_WARNING);
     Exit;
   end;
-
+{$ENDIF}
   Result := True;
 end;
 
@@ -359,8 +359,8 @@ begin
   end;
 
   WAD.Free();
-
-  if not ok then
+{$IFNDEF HEADLESS}
+  if (not ok) then
   begin
     if isMusic then
       e_WriteLog(Format('Error loading music %s', [Resource]), MSG_WARNING)
@@ -368,7 +368,7 @@ begin
       e_WriteLog(Format('Error loading sound %s', [Resource]), MSG_WARNING);
     Exit;
   end;
-
+{$ENDIF}
   Result := True;
 end;