X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_gibs.pas;h=804126414c3eb35090d7cda8ac5f2fdc19eac5f4;hb=9c48cca3ecf72ee2f326460c7fe895245544bdcf;hp=627764b6142c5de86389c69a42c482f2f7278fc3;hpb=55f201758f237cac6c889e98572e6eda7c4067fc;p=d2df-sdl.git

diff --git a/src/game/g_gibs.pas b/src/game/g_gibs.pas
index 627764b..8041264 100644
--- a/src/game/g_gibs.pas
+++ b/src/game/g_gibs.pas
@@ -46,6 +46,7 @@ interface
   function g_Gibs_GetMax (): Word;
 
   procedure g_Gibs_Create (fX, fY, mid: Integer; fColor: TRGB);
+  procedure g_Gibs_RemoveAll;
   procedure g_Gibs_Update;
 
 implementation
@@ -198,6 +199,14 @@ implementation
     end;
   end;
 
+  procedure g_Gibs_RemoveAll;
+    var i: Integer;
+  begin
+    i := g_Gibs_GetMax();
+    g_Gibs_SetMax(0);
+    g_Gibs_SetMax(i);
+  end;
+
   procedure g_Gibs_Update;
     var i: Integer; vel: TPoint2i; mr: Word;
   begin