diff --git a/src/game/g_map.pas b/src/game/g_map.pas
index ae230c2292dfb483875b2c03468d20fde04bbbb5..45a3fa3ccfb5b5c0e48acc5281dd295b55d782a3 100644 (file)
--- a/src/game/g_map.pas
+++ b/src/game/g_map.pas
type
TForEachPanelCB = function (pan: TPanel): Boolean; // return `true` to stop
-function g_Map_ForEachPanelAt (x, y: Integer; cb: TForEachPanelCB; panelType: Word): Boolean;
+function g_Map_HasAnyPanelAtPoint (x, y: Integer; panelType: Word): Boolean;
procedure g_Map_ProfilersBegin ();
// wall index in `gWalls` or -1
function g_Map_traceToNearestWall (x0, y0, x1, y1: Integer; hitx: PInteger=nil; hity: PInteger=nil): Boolean;
var
- lastX, lastY, lastDist: Integer;
+ lastX, lastY, lastDistSq: Integer;
wasHit: Boolean = false;
// pan=nil: before processing new tile
function sqchecker (pan: TPanel; tag: Integer; x, y, prevx, prevy: Integer): Boolean;
var
- dist: Integer;
+ distSq: Integer;
begin
if (pan = nil) then
begin
begin
if not pan.Enabled then exit;
end;
- dist := (prevx-x0)*(prevx-x0)+(prevy-y0)*(prevy-y0);
- if (dist < lastDist) then
+ distSq := (prevx-x0)*(prevx-x0)+(prevy-y0)*(prevy-y0);
+ if (distSq < lastDistSq) then
begin
wasHit := true;
- lastDist := dist;
+ lastDistSq := distSq;
lastX := prevx;
lastY := prevy;
end;
begin
result := false;
if (gMapGrid = nil) then exit;
- lastDist := (x1-x0)*(x1-x0)+(y1-y0)*(y1-y0)+1;
+ lastDistSq := (x1-x0)*(x1-x0)+(y1-y0)*(y1-y0)+1;
lastX := 0;
lastY := 0;
result := gMapGrid.traceRay(x0, y0, x1, y1, sqchecker, (GridTagWall or GridTagDoor));
end;
-function g_Map_ForEachPanelAt (x, y: Integer; cb: TForEachPanelCB; panelType: Word): Boolean;
+function g_Map_HasAnyPanelAtPoint (x, y: Integer; panelType: Word): Boolean;
function checker (pan: TPanel; tag: Integer): Boolean;
begin
@@ -432,16 +432,12 @@ function g_Map_ForEachPanelAt (x, y: Integer; cb: TForEachPanelCB; panelType: Wo
(WordBool(PanelType and PANEL_LIFTLEFT) and (pan.LiftType = 2)) or
(WordBool(PanelType and PANEL_LIFTRIGHT) and (pan.LiftType = 3)));
end;
-
- // other shit
- if result then result := cb(pan);
end;
var
tagmask: Integer = 0;
begin
result := false;
- if not assigned(cb) then exit;
if WordBool(PanelType and (PANEL_WALL or PANEL_CLOSEDOOR or PANEL_OPENDOOR)) then tagmask := tagmask or (GridTagWall or GridTagDoor);
if WordBool(PanelType and PANEL_WATER) then tagmask := tagmask or GridTagWater;
if WordBool(PanelType and PANEL_BLOCKMON) then tagmask := tagmask or GridTagBlockMon;
if (tagmask = 0) then exit;// just in case
- result := gMapGrid.forEachInAABB(x, y, 1, 1, checker, tagmask);
+ result := gMapGrid.forEachAtPoint(x, y, checker, tagmask);
end;
@@ -2319,8 +2315,8 @@ function g_Map_CollidePanel(X, Y: Integer; Width, Height: Word; PanelType: Word;
((WordBool(PanelType and PANEL_LIFTUP) and (pan.LiftType = 0)) or
(WordBool(PanelType and PANEL_LIFTDOWN) and (pan.LiftType = 1)) or
(WordBool(PanelType and PANEL_LIFTLEFT) and (pan.LiftType = 2)) or
- (WordBool(PanelType and PANEL_LIFTRIGHT) and (pan.LiftType = 3))) and
- g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height);
+ (WordBool(PanelType and PANEL_LIFTRIGHT) and (pan.LiftType = 3))) {and
+ g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height)};
exit;
end;
@@ -2331,7 +2327,8 @@ function g_Map_CollidePanel(X, Y: Integer; Width, Height: Word; PanelType: Word;
end;
// other shit
- result := g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height);
+ //result := g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height);
+ result := true;
end;
var
end
else}
begin
- result := gMapGrid.forEachInAABB(X, Y, Width, Height, checker, tagmask);
+ if (Width = 1) and (Height = 1) then
+ begin
+ result := gMapGrid.forEachAtPoint(X, Y, checker, tagmask);
+ end
+ else
+ begin
+ result := gMapGrid.forEachInAABB(X, Y, Width, Height, checker, tagmask);
+ end;
end;
end
else
//2: if ((tag and (GridTagWater or GridTagAcid1 or GridTagAcid2) = 0) then exit; // allowed: water, acid1, acid2
end;
// collision?
- if not g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height) then exit;
+ //if not g_Collide(X, Y, Width, Height, pan.X, pan.Y, pan.Width, pan.Height) then exit;
// yeah
texid := pan.GetTextureID();
// water? water has the highest priority, so stop right here
end
else}
begin
- gMapGrid.forEachInAABB(X, Y, Width, Height, checker, (GridTagWater or GridTagAcid1 or GridTagAcid2));
+ if (Width = 1) and (Height = 1) then
+ begin
+ gMapGrid.forEachAtPoint(X, Y, checker, (GridTagWater or GridTagAcid1 or GridTagAcid2));
+ end
+ else
+ begin
+ gMapGrid.forEachInAABB(X, Y, Width, Height, checker, (GridTagWater or GridTagAcid1 or GridTagAcid2));
+ end;
end;
result := texid;
end