Among other things, I'm making a script, and I made this function for it. What do you guys think about this being added to SRL?
Basically, it returns a TIntegerArray; one integer(colour) for every line of text in the chat box. My test results and screenshot are an example of the output:

Yes, I'm a noob, I didn't free my bitmap.
It can be very useful and versatile in my opinion. Ofcourse, more colours can/will/should be added too 
Simba Code:
function GetChatTextColourArray: TIntegerArray;
var
i: Integer;
tmpTPA: TPointArray;
begin
SetLength(Result, 8);
for i := 0 to 7 do
begin
Result[i] := -1;
if FindColors(tmpTPA, clBlack, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
if FindColors(tmpTPA, clBlue, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
Result[i] := clBlue // Player chat
else
Result[i] := clBlack;
if FindColors(tmpTPA, clRed, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
Result[i] := clRed; // Unlocking new music, bird nest drop
if FindColors(tmpTPA, clYellow, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
Result[i] := clYellow; // Currently used when a demon appears somewhere
if FindColors(tmpTPA, 16776960, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
Result[i] := 16776960; // Cyan - GE buy/sell process completed
if FindColors(tmpTPA, 30446, 7, (349 + (i * 14)), 497, (351 + (i * 14))) then
Result[i] := 30446; // Orange - Daily Challenge (assignment + completion)
end;
end;