X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=06cc70736982c57703c3117d2412173fcf48ea0a;hb=335e018a96e0da3bb62e8c220ce162e586356255;hp=7f74dc18f600bfd8e24343f0a1d98797560c9c61;hpb=d0936017ccb8a078d1b03f55478af284bb015bbc;p=d2df-sdl.git diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas index 7f74dc1..06cc707 100644 --- a/src/game/g_holmes.pas +++ b/src/game/g_holmes.pas @@ -21,7 +21,7 @@ uses 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, @@ -48,6 +48,12 @@ implementation uses {$INCLUDE ../nogl/noGLuses.inc} + {$IFDEF ENABLE_GFX} + g_gfx, + {$ENDIF} + {$IFDEF ENABLE_GIBS} + g_gibs, + {$ENDIF} {rttiobj,} typinfo, e_res, SysUtils, Classes, SDL2, MAPDEF, g_options, @@ -916,6 +922,7 @@ procedure plrDebugDraw (); end; end; +{$IFDEF ENABLE_GFX} procedure drawAwakeCells (); var x, y: Integer; @@ -932,6 +939,7 @@ procedure plrDebugDraw (); end; end; end; +{$ENDIF} procedure drawTraceBox (); var @@ -1224,6 +1232,7 @@ procedure plrDebugDraw (); for f := 0 to High(gTriggers) do drawTrigger(gTriggers[f]); end; +{$IFDEF ENABLE_GIBS} procedure drawGibsBoxes (); var f: Integer; @@ -1241,6 +1250,7 @@ procedure plrDebugDraw (); end; end; end; +{$ENDIF} var mon: TMonster; @@ -1297,12 +1307,15 @@ begin 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); (*