diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 7b1463be9619c519e59d1dbb4c93e4ecec6cac65..2c1544723acf5ed8cd070dfb6cdacdc20fea6907 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
mempool, geom,
e_log, e_input,
g_textures, g_basic, r_graphics, g_phys, g_grid, g_player, g_monsters,
- g_window, g_map, g_triggers, g_items, g_game, g_panel, g_console, g_gfx,
+ g_map, g_triggers, g_items, g_game, g_panel, g_console,
xprofiler,
sdlcarcass,
fui_common, fui_events, fui_ctls,
uses
{$INCLUDE ../nogl/noGLuses.inc}
- {rttiobj,} typinfo, e_texture, e_res,
+ {$IFDEF ENABLE_GFX}
+ g_gfx,
+ {$ENDIF}
+ {$IFDEF ENABLE_GIBS}
+ g_gibs,
+ {$ENDIF}
+ {rttiobj,} typinfo, e_res,
SysUtils, Classes, SDL2,
- MAPDEF, g_main, g_options,
+ MAPDEF, g_options,
utils, hashtable, xparser;
end;
end;
+{$IFDEF ENABLE_GFX}
procedure drawAwakeCells ();
var
x, y: Integer;
end;
end;
end;
+{$ENDIF}
procedure drawTraceBox ();
var
for f := 0 to High(gTriggers) do drawTrigger(gTriggers[f]);
end;
+{$IFDEF ENABLE_GIBS}
procedure drawGibsBoxes ();
var
f: Integer;
end;
end;
end;
+{$ENDIF}
var
mon: TMonster;
if showTriggers then drawTriggers();
if showGrid then drawSelectedPlatformCells();
- //drawAwakeCells();
+ {$IFDEF ENABLE_GFX}
+ // drawAwakeCells();
+ {$ENDIF}
if showTraceBox then drawTraceBox();
- //drawGibsBoxes();
-
+ {$IFDEF ENABLE_GIBS}
+ // drawGibsBoxes();
+ {$ENDIF}
//pan := g_Map_traceToNearest(16, 608, 16, 8, (GridTagObstacle or GridTagLiquid), @ex, @ey);
(*
// ////////////////////////////////////////////////////////////////////////// //
procedure g_Holmes_OnEvent (var ev: TFUIEvent);
-{$IF not DEFINED(HEADLESS)}
-var
- doeat: Boolean = false;
-{$ENDIF}
+ var doeat: Boolean = false;
begin
-{$IF not DEFINED(HEADLESS)}
if g_Game_IsNet then exit;
if not g_holmes_enabled then exit;
if g_holmes_imfunctional then exit;
if (ev.key) then
begin
+{$IFDEF USE_SDL2}
case ev.scan of
SDL_SCANCODE_LCTRL, SDL_SCANCODE_RCTRL,
SDL_SCANCODE_LALT, SDL_SCANCODE_RALT,
SDL_SCANCODE_LSHIFT, SDL_SCANCODE_RSHIFT:
doeat := true;
end;
+{$ENDIF}
end
else if (ev.mouse) then
begin
end;
if (doeat) then ev.eat();
-{$ENDIF}
end;
if not g_holmes_enabled then exit;
if g_holmes_imfunctional then exit;
- {$IF not DEFINED(HEADLESS)}
holmesInitCommands();
holmesInitBinds();
+{$IFDEF ENABLE_RENDER}
glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); // modify color buffer
glDisable(GL_STENCIL_TEST);
glDisable(GL_BLEND);
glDisable(GL_TEXTURE_2D);
if gGameOn then plrDebugDraw();
- {$ENDIF}
+{$ENDIF}
laserSet := false;
end;
if not g_holmes_enabled then exit;
if g_holmes_imfunctional then exit;
- {$IF not DEFINED(HEADLESS)}
gGfxDoClear := false;
+
+{$IFDEF ENABLE_RENDER}
//if assigned(prerenderFrameCB) then prerenderFrameCB();
uiDraw();
glMatrixMode(GL_MODELVIEW);
finally
glPopMatrix();
end;
- {$ENDIF}
+{$ENDIF}
end;