shells: fix shell reset on map start

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

diff --git a/src/game/g_shells.pas b/src/game/g_shells.pas
index 6e2e61e8f20fb689ce6daeccb7de7f5b38f16e2f..99864d94b148b56cf93e6bc1c643ff9217b002e2 100644 (file)
--- a/src/game/g_shells.pas
+++ b/src/game/g_shells.pas
@@ -135,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);