game: fix spectator mode switch

[d2df-sdl.git] / src / game / g_shells.pas

diff --git a/src/game/g_shells.pas b/src/game/g_shells.pas
index de0fc86c06380e51c2092bb0449ae670515b5025..99864d94b148b56cf93e6bc1c643ff9217b002e2 100644 (file)
--- 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;
@@ -49,6 +50,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 +132,14 @@ implementation
     end;
   end;
 
+  procedure g_Shells_RemoveAll;
+    var i: Integer;
+  begin
+    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);
     var k: Integer;
   begin