X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=a1248f00155a5218285e177273ba6ad5d6795595;hb=51bbf0eef2641d7766e22e188d6c349d9b836023;hp=a534e7a3919ec48467373a5df82975b55632ed91;hpb=15ef0fb2d44e381afb8d0ea07cdb31fd3903ba7b;p=d2df-sdl.git diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas index a534e7a..a1248f0 100644 --- a/src/game/g_holmes.pas +++ b/src/game/g_holmes.pas @@ -114,7 +114,7 @@ var msY: Integer = -666; msB: Word = 0; // button state kbS: Word = 0; // keyboard modifiers state - showGrid: Boolean = {$IF DEFINED(D2F_DEBUG)}true{$ELSE}false{$ENDIF}; + showGrid: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}false{$ENDIF}; showMonsInfo: Boolean = false; showMonsLOS2Plr: Boolean = false; showAllMonsCells: Boolean = false; @@ -1134,6 +1134,23 @@ procedure plrDebugDraw (); for f := 0 to High(gTriggers) do drawTrigger(gTriggers[f]); end; + procedure drawGibsBoxes (); + var + f: Integer; + px, py, pw, ph: Integer; + gib: PGib; + begin + for f := 0 to High(gGibs) do + begin + gib := @gGibs[f]; + if gib.alive then + begin + gib.getMapBox(px, py, pw, ph); + drawRect(px, py, pw, ph, 255, 0, 255); + end; + end; + end; + var mon: TMonster; mx, my, mw, mh: Integer; @@ -1167,6 +1184,8 @@ begin if showTriggers then drawTriggers(); if showGrid then drawSelectedPlatformCells(); + //drawGibsBoxes(); + glPopMatrix(); glDisable(GL_SCISSOR_TEST);