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;