DEADSOFTWARE

removed unused function
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Sat, 19 Aug 2017 19:25:07 +0000 (22:25 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Sun, 20 Aug 2017 00:22:21 +0000 (03:22 +0300)
src/game/g_phys.pas

index a3e790dca705410113cbaff304592ffb486994d0..7780b3ba74806b71cc8d29d8fbfab261f1e5aae2 100644 (file)
@@ -143,26 +143,6 @@ begin
         end;
 end;
 
-function CollideMonsters(Obj: PObj; XInc, YInc: Integer): Boolean;
-var
-  a: Integer;
-begin
-  Result := False;
-
-  if gMonsters = nil then
-    Exit;
-
-  for a := 0 to High(gMonsters) do
-    if gMonsters[a] <> nil then
-      if gMonsters[a].Live and
-         gMonsters[a].Collide(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
-                              Obj^.Rect.Width, Obj^.Rect.Height) then
-      begin
-        Result := True;
-        Exit;
-      end;
-end;
-
 function Blocked(Obj: PObj; XInc, YInc: Integer): Boolean;
 begin
   Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,