X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=a1248f00155a5218285e177273ba6ad5d6795595;hb=51bbf0eef2641d7766e22e188d6c349d9b836023;hp=42f52c51ecbed1abe90d4db45678a3ad218d781a;hpb=a7daeef3855f07c8302a60ab31cb20ab74aefc45;p=d2df-sdl.git

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 42f52c5..a1248f0 100644
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -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);