diff --git a/src/game/g_gibs.pas b/src/game/g_gibs.pas
index 627764b6142c5de86389c69a42c482f2f7278fc3..804126414c3eb35090d7cda8ac5f2fdc19eac5f4 100644 (file)
--- a/src/game/g_gibs.pas
+++ b/src/game/g_gibs.pas
function g_Gibs_GetMax (): Word;
procedure g_Gibs_Create (fX, fY, mid: Integer; fColor: TRGB);
+ procedure g_Gibs_RemoveAll;
procedure g_Gibs_Update;
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