Ive been wanting to upgrade my scripts instead of just using FindColor and Find Color tolernace.. So i think arrays help alot in that subject
Arrays are great for finding colors. They are 
Here's a small example:
SCAR Code:
program New;
var
TinColor: Array [1..9] of Integer;
i: Integer;
procedure DeclareColors;
begin
TinColor[1] := 6645101;
TinColor[2] := 5789790;
TinColor[3] := 5987170;
TinColor[4] := 7434874;
TinColor[5] := 8553356;
TinColor[6] := 8092549;
TinColor[7] := 6053220;
TinColor[8] := 4803152;
TinColor[9] := 6381929;
end;
procedure ClickTin;
begin
for i := 1 to 9 do
begin
if FindColorSpiralTolerance(x, y, TinColor[i], MSX1, MSY1, MSX2, MSY2, 5) then
begin
DoStuff;
DoOtherStuff;
DoSomeMoreStuff;
end;
end;
end;
begin
DeclareColors;
ClickTin;
end.