nice little script :) it can easily be reduced into a case, and be made a lot shorter and easier, but it doesnt really matter for a first script :) i dont mind showing you if you want.
and to find a color(basicly)
program New;
{.Include SRL/SRL.scar}
var x, y: integer;
begin
mousespeed:= 10;
if findcolortolerance(x, y, {color}, 0, 0, 100, 100, 10) then
mouse(x, y, 0, 0, true);
end.
to break it down,
x, y are the variables that it stores the point of the color is, fill in your own color, then the "0, 0, 100, 100" is the area to search for the color. the 10 is the tolerance.
there are LOADS of different ways to find color, and much much better ways(more complex as well) to find color(s), but that should get the basic idea across. i also wouldn't really recommend using findcolortolerance in RS.