procedure findTanner(var p : TPoint);
var
  TPA : TPointArray;
  ATPA : T2DPointArray;
  x,y : integer;

begin

  findColorsSpiralTolerance(x, y, TPA, 2765903, mainscreen.getBounds(), 7, colorSetting(2, 0.65, 1.18));

  if (Length(TPA) < 1) then
  begin
    p.x := -1;
  end;

  // do stuff here: convert to atpa sort by nearest minimap npc dot?
end;