X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_phys.pas;h=7780b3ba74806b71cc8d29d8fbfab261f1e5aae2;hb=a17222535319cb4089e3f9a92711731c015819b3;hp=d581eb3903e325e6fc8ba94a7f659df01167a7a0;hpb=7292fe409145dfcbb2776e34bb64d56e32985b9d;p=d2df-sdl.git

diff --git a/src/game/g_phys.pas b/src/game/g_phys.pas
index d581eb3..7780b3b 100644
--- a/src/game/g_phys.pas
+++ b/src/game/g_phys.pas
@@ -13,7 +13,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *)
-{$INCLUDE g_amodes.inc}
+{$INCLUDE ../shared/a_modes.inc}
 unit g_phys;
 
 interface
@@ -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,