{$IFDEF ENABLE_CORPSES}
g_corpses,
{$ENDIF}
+ {$IFDEF ENABLE_SHELLS}
+ g_shells,
+ {$ENDIF}
MAPDEF, utils, xstreams,
g_game, g_items, g_map, g_monsters, g_triggers,
g_basic, Math, wadreader,
{$IFDEF ENABLE_GIBS}
g_Gibs_RemoveAll;
{$ENDIF}
- {$IFDEF ENALBE_SHELLS}
+ {$IFDEF ENABLE_SHELLS}
g_Shells_RemoveAll; // ???
{$ENDIF}
{$IFDEF ENABLE_CORPSES}
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);