Wyn
2011-12-06 12:41:30
GetMiniMapDotsIn was broken in today's update.
Fixed.
Fixed.
{*******************************************************************************
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 := 1567960; //Last fixed Dec 6th wyn10
'item', 'i', 'red', 'r': DotColor := 1378484; //Last fixed Dec 6th wyn10
'player', 'p', 'white', 'w': DotColor := 15197951; //Last fixed Dec 6th wyn10
'friend', 'f', 'green', 'g': DotColor := 60160; //Who uses this
'team', 't', 'blue', 'b', 'cape': DotColor := 9917996; //Who uses this
'clan', 'c', 'orange', 'o': DotColor := 1604816; //Who uses this
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;