diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas
index e74ddcc9068093eaf900b17ff7fed59c53d083d8..b137db3ee26bc1936bcb9729329e48deb621d072 100644 (file)
--- a/src/game/g_gfx.pas
+++ b/src/game/g_gfx.pas
procedure g_GFX_Init();
begin
//CreateCollideMap();
procedure g_GFX_Init();
begin
//CreateCollideMap();
+{$IFDEF HEADLESS}
+ gpart_dbg_enabled := False;
+{$ENDIF}
end;
end;
DevY1, DevY2: Byte;
l: Integer;
begin
DevY1, DevY2: Byte;
l: Integer;
begin
+ if not gpart_dbg_enabled then Exit;
l := Length(Particles);
if l = 0 then exit;
if Count > l then Count := l;
l := Length(Particles);
if l = 0 then exit;
if Count > l then Count := l;
CRnd: Byte;
CC: SmallInt;
begin
CRnd: Byte;
CC: SmallInt;
begin
+ if not gpart_dbg_enabled then Exit;
if Kind = BLOOD_SPARKS then
begin
g_GFX_SparkVel(fX, fY, 2 + Random(2), -VX div 2, -VY div 2, DevX, DevY);
if Kind = BLOOD_SPARKS then
begin
g_GFX_SparkVel(fX, fY, 2 + Random(2), -VX div 2, -VY div 2, DevX, DevY);
BaseVelX, BaseVelY: Single;
l: Integer;
begin
BaseVelX, BaseVelY: Single;
l: Integer;
begin
+ if not gpart_dbg_enabled then Exit;
l := Length(Particles);
if l = 0 then
Exit;
l := Length(Particles);
if l = 0 then
Exit;
DevY1, DevY2: Byte;
l: Integer;
begin
DevY1, DevY2: Byte;
l: Integer;
begin
+ if not gpart_dbg_enabled then Exit;
l := Length(Particles);
if l = 0 then
Exit;
l := Length(Particles);
if l = 0 then
Exit;
a: Integer;
l: Integer;
begin
a: Integer;
l: Integer;
begin
+ if not gpart_dbg_enabled then Exit;
l := Length(Particles);
if l = 0 then
Exit;
l := Length(Particles);
if l = 0 then
Exit;
DevY1, DevY2: Byte;
l, liquidx: Integer;
begin
DevY1, DevY2: Byte;
l, liquidx: Integer;
begin
+ if not gpart_dbg_enabled then Exit;
l := Length(Particles);
if l = 0 then
Exit;
l := Length(Particles);
if l = 0 then
Exit;
@@ -1534,6 +1543,7 @@ procedure g_GFX_OnceAnim(X, Y: Integer; Anim: TAnimation; AnimType: Byte = 0);
var
find_id: DWORD;
begin
var
find_id: DWORD;
begin
+ if not gpart_dbg_enabled then Exit;
if Anim = nil then
Exit;
if Anim = nil then
Exit;