SCAR Code:
function IsTextAtTPA(Text: string; x1, x2, x3, x4: integer; color, tolerance: integer): boolean;
var TextTPA, TextColorTPA, Matches: TPointArray;
begin
TextTPA := CreateTPAFromText(Text, Length(Text));
FindColorsTolerance(TextColorTPA, color, x1, x2, x3, x4, tolerance);
Result := FindTPAinTPA(TextColorTPA, TextTPA, Matches);
end;
SCAR Code:
function IsInChatTPA(Text: string): boolean;
var TextTPA, ColorTextTPA, Matches: TPointArray;
begin
TextTPA := CreateTPAFromText(Text, Length(Text));
FindColorsSpiralTolerance(MCCX, MCCY, ColorTextTPA, 16711680, MCX1, MCY1, MCX2, MCY2, 5);
Result := FindTPAinTPA(ColorTextTPA, TextTPA, Matches);
end;