diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index 98cebcce846067023ff07b3fa558f1c9ddba0797..53177473ac59a0c7da0a4f9d264fd60167f80212 100644 (file)
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
X2, Y2: Integer; Width2, Height2: Word): Boolean;
function g_CollidePlayer(X, Y: Integer; Width, Height: Word): Boolean;
function g_PatchLength(X1, Y1, X2, Y2: Integer): Word;
X2, Y2: Integer; Width2, Height2: Word): Boolean;
function g_CollidePlayer(X, Y: Integer; Width, Height: Word): Boolean;
function g_PatchLength(X1, Y1, X2, Y2: Integer): Word;
-function g_TraceVector(X1, Y1, X2, Y2: Integer): Boolean;
+function g_TraceVector(X1, Y1, X2, Y2: Integer): Boolean; // `true`: no wall hit
function g_GetAcidHit(X, Y: Integer; Width, Height: Word): Byte;
function g_Look(a, b: PObj; d: TDirection): Boolean;
procedure IncMax(var A: Integer; B, Max: Integer); overload;
function g_GetAcidHit(X, Y: Integer; Width, Height: Word): Byte;
function g_Look(a, b: PObj; d: TDirection): Boolean;
procedure IncMax(var A: Integer; B, Max: Integer); overload;
function b_Text_Format(S: string): string;
function b_Text_Unformat(S: string): string;
function b_Text_Format(S: string): string;
function b_Text_Unformat(S: string): string;
+
+var
+ gmon_dbg_los_enabled: Boolean = true;
+
implementation
uses
implementation
uses
- Math, g_map, g_gfx, g_player, SysUtils, MAPDEF,
- StrUtils, e_graphics, g_monsters, g_items;
+ Math, e_log, g_map, g_gfx, g_player, SysUtils, MAPDEF,
+ StrUtils, e_graphics, g_monsters, g_items, g_game;
function g_PatchLength(X1, Y1, X2, Y2: Integer): Word;
begin
function g_PatchLength(X1, Y1, X2, Y2: Integer): Word;
begin
end;
end;
end;
end;
+
function g_TraceVector(X1, Y1, X2, Y2: Integer): Boolean;
var
function g_TraceVector(X1, Y1, X2, Y2: Integer): Boolean;
var
+ wallHitX: Integer = 0;
+ wallHitY: Integer = 0;
+(*
i: Integer;
dx, dy: Integer;
Xerr, Yerr, d: LongWord;
incX, incY: Integer;
x, y: Integer;
i: Integer;
dx, dy: Integer;
Xerr, Yerr, d: LongWord;
incX, incY: Integer;
x, y: Integer;
+*)
begin
begin
- Result := False;
+ (*
+ result := False;
Assert(gCollideMap <> nil, 'g_TraceVector: gCollideMap = nil');
Assert(gCollideMap <> nil, 'g_TraceVector: gCollideMap = nil');
end;
Result := True;
end;
Result := True;
+ *)
+
+ // `true` if no obstacles
+ if (g_profile_los) then g_Mons_LOS_Start();
+ result := (g_Map_traceToNearestWall(x1, y1, x2, y2, @wallHitX, @wallHitY) = nil);
+ if (g_profile_los) then g_Mons_LOS_End();
end;
end;
+
function g_CreateUID(UIDType: Byte): Word;
var
ok: Boolean;
function g_CreateUID(UIDType: Byte): Word;
var
ok: Boolean;
function g_Look(a, b: PObj; d: TDirection): Boolean;
begin
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 = D_LEFT)) or
((b^.X < a^.X) and (d = D_RIGHT)) then
begin
if ((b^.X > a^.X) and (d = D_LEFT)) or
((b^.X < a^.X) and (d = D_RIGHT)) then
begin