X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_monsters.pas;h=434730b492cccf9c686c0d5c546dd5fa57fa40a3;hb=01ca3b4324c78f00caae7d5b16cd49efce31f831;hp=09322925bb7e21ce2935faaa9c104eae6d0c8e9b;hpb=ebfc7ae61e239e614c7b7ad32520dd36ae9000d2;p=d2df-sdl.git diff --git a/src/game/g_monsters.pas b/src/game/g_monsters.pas index 0932292..434730b 100644 --- a/src/game/g_monsters.pas +++ b/src/game/g_monsters.pas @@ -23,7 +23,7 @@ uses SysUtils, Classes, mempool, MAPDEF, - g_basic, e_graphics, g_phys, g_textures, g_grid, + g_base, g_basic, g_phys, g_textures, g_grid, g_saveload, g_panel, xprofiler; const @@ -488,12 +488,28 @@ var implementation uses - e_log, e_texture, g_main, g_sound, g_gfx, g_player, g_game, + e_log, g_main, g_sound, g_gfx, g_player, g_game, g_weapons, g_triggers, g_items, g_options, g_console, g_map, Math, g_menu, wadreader, g_language, g_netmsg, idpool, utils, xstreams; +function g_Look(a, b: PObj; d: TDirection): Boolean; +begin + if not gmon_dbg_los_enabled then begin result := false; exit; end; // always "wall hit" + + if ((b^.X > a^.X) and (d = TDirection.D_LEFT)) or + ((b^.X < a^.X) and (d = TDirection.D_RIGHT)) then + begin + Result := False; + Exit; + end; + + Result := g_TraceVector(a^.X+a^.Rect.X+(a^.Rect.Width div 2), + a^.Y+a^.Rect.Y+(a^.Rect.Height div 2), + b^.X+b^.Rect.X+(b^.Rect.Width div 2), + b^.Y+b^.Rect.Y+(b^.Rect.Height div 2)); +end; // ////////////////////////////////////////////////////////////////////////// // procedure g_Mons_ProfilersBegin ();