GetMiniMapDotsIn

{*******************************************************************************
function GetMiniMapDotsIn(WhatDot: String; x1, y1, x2, y2: Integer): TPointArray;
By: euphemism
Description: Results the dots specified by WhatDot in the box x1, y1, x2, y2.
Usage : 'npc', 'yellow', 'n', 'y' : Yellow Dot;
        'cape', 'blue', 'team', 't', 'b' : Blue Dot;
        'item', 'red', 'i', 'r' : Red Dot;
        'player', 'white', 'p', 'w' : White Dot;
        'friend', 'green', 'f', 'g' : Green Dot;
*******************************************************************************}
function GetMiniMapDotsIn(WhatDot: String; x1, y1, x2, y2: Integer): TPointArray;
var
  DotColor, Radius: Integer;
begin
  case LowerCase(WhatDot) of
    'npc', 'n', 'yellow', 'y': DotColor := 61937;
    'item', 'i', 'red', 'r': DotColor := 237;
    'player', 'p', 'white', 'w': DotColor := 15527148;
    'friend', 'f', 'green', 'g': DotColor := 60160;
    'team', 't', 'blue', 'b', 'cape': DotColor := 9917996;
    'clan', 'c', 'orange', 'o': DotColor := 1604816;
  else
    srl_Warn('GetMiniMapDotsIn', '"' + WhatDot + '" is not a valid dot type', warn_AllVersions);
  end;
  Radius := Max((x2-x1)/2, (y2-y1)/2);
  FindColorsPie(Result, DotColor, 0, 0, 360, 0, radius, x1, y1, x2, y2, (x1+x2)/2, (y1+y2)/2);
  RAaSTPAEx(Result, 1, 1);
end;