diff --git a/src/game/g_shells.pas b/src/game/g_shells.pas
index 1ba5fdb9d0d53130d8fad8475a1c574588d5c261..99864d94b148b56cf93e6bc1c643ff9217b002e2 100644 (file)
--- a/src/game/g_shells.pas
+++ b/src/game/g_shells.pas
SHELL_BULLET = 0;
SHELL_SHELL = 1;
SHELL_DBLSHELL = 2;
SHELL_BULLET = 0;
SHELL_SHELL = 1;
SHELL_DBLSHELL = 2;
+ SHELL_LAST = SHELL_DBLSHELL;
DefaultShellTimeout = 60000;
DefaultShellMax = 300;
DefaultShellTimeout = 60000;
DefaultShellMax = 300;
procedure g_Shells_RemoveAll;
var i: Integer;
begin
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);
end;
procedure g_Shells_SoundBounce(X, Y: Integer; T: Byte);