diff --git a/src/game/g_sound.pas b/src/game/g_sound.pas
index 813d8d145c4edec5cb745d5e83206215d9a17f12..ad514c197fdea6e31142abb975bf88d571a4ef54 100644 (file)
--- a/src/game/g_sound.pas
+++ b/src/game/g_sound.pas
-(* Copyright (C) DooM 2D:Forever Developers
+(* Copyright (C) Doom 2D: Forever Developers
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
unit g_sound;
interface
Exit;
end;
- e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), MSG_WARNING);
+ e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), TMsgType.Warning);
end;
function g_Sound_PlayExPanVolume(SoundName: ShortString; Pan: Single; Volume: Single): Boolean;
Exit;
end;
- e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), MSG_WARNING);
+ e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), TMsgType.Warning);
end;
function PlaySoundAt(X, Y: Integer; var Pan: Single; var Volume: Single; InVolume: Single = 1.0): Boolean;
Exit;
end;
- e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), MSG_WARNING);
+ e_WriteLog(Format(_lc[I_GAME_ERROR_SOUND], [SoundName]), TMsgType.Warning);
end;
function g_Sound_CreateFile(var ID: DWORD; FileName: string; isMusic: Boolean = False): Boolean;
begin
{$IFNDEF HEADLESS}
if isMusic then
- e_WriteLog(Format('Error loading music %s', [Resource]), MSG_WARNING)
+ e_WriteLog(Format('Error loading music %s', [Resource]), TMsgType.Warning)
else
- e_WriteLog(Format('Error loading sound %s', [Resource]), MSG_WARNING);
+ e_WriteLog(Format('Error loading sound %s', [Resource]), TMsgType.Warning);
Exit;
{$ENDIF}
end;
begin
{$IFNDEF HEADLESS}
if isMusic then
- e_WriteLog(Format('Error loading music %s', [Resource]), MSG_WARNING)
+ e_WriteLog(Format('Error loading music %s', [Resource]), TMsgType.Warning)
else
- e_WriteLog(Format('Error loading sound %s', [Resource]), MSG_WARNING);
+ e_WriteLog(Format('Error loading sound %s', [Resource]), TMsgType.Warning);
Exit;
{$ENDIF}
end;