summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7ded98b)
raw | patch | inline | side by side (parent: 7ded98b)
author | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Sat, 19 Aug 2017 19:25:07 +0000 (22:25 +0300) | ||
committer | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Sun, 20 Aug 2017 00:22:21 +0000 (03:22 +0300) |
src/game/g_phys.pas | patch | blob | history |
diff --git a/src/game/g_phys.pas b/src/game/g_phys.pas
index a3e790dca705410113cbaff304592ffb486994d0..7780b3ba74806b71cc8d29d8fbfab261f1e5aae2 100644 (file)
--- a/src/game/g_phys.pas
+++ b/src/game/g_phys.pas
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,