SRL Archive - SRL Snippets

function ReturnDTMPointsMS(DTM:Integer):TPointArray;
var
  i,x,y:Integer;      //515 x 327
  t:TBoxArray;
begin
  SetLength(t,100);
  SetLength(Result,1);
  t := Grid(10, 10, 52, 33, 50, 33, point(26, 26));
  for i := 0 to 99 do
  begin
    if (FindDTM(DTM,x,y,t[i].X1,t[i].Y1,t[i].X2,t[i].Y2)) then
    begin
      Result[Length(Result)] := Point(x,y);
      SetLength(Result, Length(Result) + 1);
    end;
  end;
end;    

Returns a TPA of points it finds on the mainscreen.

what is the grid for? also findDTMs may help ;)

The grid separates the main screen into boxes.

From: Ollybest
what is the grid for? also findDTMs may help ;)

Clarifying… I believe the grid separates the main screen into boxes, then searches for a dtm in each box. I presume this is so if you were using a very small dtm, it would/might not appear many times in the same region?

Actually iirc it only searches for the main point in the area.

And where would you use this function?

From: Frement
And where would you use this function?

Someone on IRC wanted it.

It could be helpful looting? Just define which squares to search to avoid false positives.