umm... just a sec, i will put in an array.
SCAR Code:
program New;
const
desiredtimes = 100;
procedure buttoncolors(xx, yy : Integer);
var
colorvar : integer;
begin
colorvar := GetColor(xx, yy);
case colorvar of
1233 : SendKeys('letters here'); //can use f keys with a different function.
1234 : SendKeys('letters here');
1235 : SendKeys('letters here');
1236 : SendKeys('letters here');
1237 : SendKeys('letters here');
end;
Writeln('color :' + IntToStr(colorvar) + 'Co-ords :' + IntToStr(xx) + ', ' + IntToStr(yy));
end;
var
xyarray : TPointArray;
i, b : integer;
begin
xyarray := [Point(x1, y1), Point(x2, y2), Point(x3, y3), Point(x4, y4), Point(x5, y5)];
repeat
for i := 0 to high(xyarray) do
buttoncolors(xyarray[i].x, xyarray[i].y);
inc(b);
wait(1000 + random(1000));
until (b = desiredtimes);
end.