X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_shells.pas;h=1ba5fdb9d0d53130d8fad8475a1c574588d5c261;hb=9c48cca3ecf72ee2f326460c7fe895245544bdcf;hp=de0fc86c06380e51c2092bb0449ae670515b5025;hpb=55f201758f237cac6c889e98572e6eda7c4067fc;p=d2df-sdl.git

diff --git a/src/game/g_shells.pas b/src/game/g_shells.pas
index de0fc86..1ba5fdb 100644
--- a/src/game/g_shells.pas
+++ b/src/game/g_shells.pas
@@ -49,6 +49,7 @@ interface
   function g_Shells_GetMax (): Word;
 
   procedure g_Shells_Create (fX, fY, dX, dY: Integer; T: Byte);
+  procedure g_Shells_RemoveAll;
   procedure g_Shells_Update;
 
 implementation
@@ -130,6 +131,14 @@ implementation
     end;
   end;
 
+  procedure g_Shells_RemoveAll;
+    var i: Integer;
+  begin
+    i := g_Shells_GetMax();
+    g_Shells_SetMax(0);
+    g_Shells_SetMax(i);
+  end;
+
   procedure g_Shells_SoundBounce(X, Y: Integer; T: Byte);
     var k: Integer;
   begin