diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index 5b88258c09ffb54111ce0d3ac116196d1b8a5ed5..475cb68d7ec3b961c324f504bcf802230ae2bbfc 100644 (file)
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
temp: Integer;
ccidx, curci: Integer;
lastGA: Integer = -1;
- ga, x, y: Integer;
+ ga: Integer;
gw, gh, minx, miny, maxx, maxy: Integer;
cc: PGridCell;
px: PBodyProxyRec;
if dbgShowTraceLog then e_LogWritefln('optimized htrace; wklen=%d', [wklen]);
{$ENDIF}
ga := (yptr^ div tsize)*gw+(xptr^ div tsize);
- // one of those will never change
- x := xptr^+minx;
- y := yptr^+miny;
{$IF DEFINED(D2F_DEBUG)}
if hopt then
begin
- if (y <> ay0) then raise Exception.Create('htrace fatal internal error');
+ if (yptr^ <> ay0) then raise Exception.Create('htrace fatal internal error');
end
else
begin
- if (x <> ax0) then raise Exception.Create('vtrace fatal internal error');
+ if (xptr^ <> ax0) then raise Exception.Create('vtrace fatal internal error');
end;
{$ENDIF}
while (wklen > 0) do
begin
{$IF DEFINED(D2F_DEBUG)}
- if dbgShowTraceLog then e_LogWritefln(' htrace; ga=%d; x=%d, y=%d; y=%d; y=%d', [ga, xptr^+minx, yptr^+miny, y, ay0]);
+ if dbgShowTraceLog then e_LogWritefln(' htrace; ga=%d; x=%d, y=%d; ay0=%d', [ga, xptr^+minx, yptr^+miny, ay0]);
{$ENDIF}
// new tile?
if (ga <> lastGA) then
lastGA := ga;
ccidx := mGrid[lastGA];
// convert coords to map (to avoid ajdusting coords inside the loop)
- if hopt then x := xptr^+minx else y := yptr^+miny;
while (ccidx <> -1) do
begin
cc := @mCells[ccidx];
begin
// process cell
curci := ccidx;
- // convert coords to map (to avoid ajdusting coords inside the loop)
- x := xptr^+minx;
- y := yptr^+miny;
// process cell list
while (curci <> -1) do
begin