X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_shells.pas;h=99864d94b148b56cf93e6bc1c643ff9217b002e2;hb=6d055beda222b95132d935ceeff92aad3adda831;hp=1ba5fdb9d0d53130d8fad8475a1c574588d5c261;hpb=0361545117c9f1e9c4e719f2250c48f69879de4a;p=d2df-sdl.git

diff --git a/src/game/g_shells.pas b/src/game/g_shells.pas
index 1ba5fdb..99864d9 100644
--- a/src/game/g_shells.pas
+++ b/src/game/g_shells.pas
@@ -23,6 +23,7 @@ interface
     SHELL_BULLET   = 0;
     SHELL_SHELL    = 1;
     SHELL_DBLSHELL = 2;
+    SHELL_LAST     = SHELL_DBLSHELL;
 
     DefaultShellTimeout = 60000;
     DefaultShellMax = 300;
@@ -134,9 +135,9 @@ implementation
   procedure g_Shells_RemoveAll;
     var i: Integer;
   begin
-    i := g_Shells_GetMax();
-    g_Shells_SetMax(0);
-    g_Shells_SetMax(i);
+    if gShells <> nil then
+      for i := 0 to High(gShells) do
+        gShells[i].alive := false;
   end;
 
   procedure g_Shells_SoundBounce(X, Y: Integer; T: Byte);