Okay, now since you didn't define the search boxes for the colors, you'll have to insert them in the const.
Also, you didn't tell me how many times it should repeat all the clicking and stuff, so I put it to infinite.
Here you have it...
SCAR Code:
program New;
var
x,y,I: Integer;
const
CBX1 = 0;//Define where the upper left corner of the search box
CBY1 = 0;//for the color should be.
CBX2 = 700;//Define where the lower right corner of the search box
CBY2 = 500;//for the color should be.
Procedure ClickCustom(coordx,coordy: Integer);
begin
ClickMouseSpline(coordx,coordy,0,0,true);
Wait(50);
end;
Procedure ClickStuff;
begin
If FindColor(x,y,2175372,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
If FindColor(x,y,16776960,CBX1,CBY1,CBX2,CBY2) then
begin
ClickCustom(x,y);
end;
ClickCustom(182,112);
If FindColor(x,y,16777215,CBX1,CBY1,CBX2,CBY2) then
begin
repeat
ClickCustom(x,y);
Wait(1000);
I := I+1;
until(I = 28);
I := 0;
end;
ClickCustom(424,73);
repeat
ClickCustom(387,75);
Wait(1000);
I:=I+1;
until(I=28);
I := 0;
end;
begin
repeat
ClickStuff;
until(false);
end.
That should work, if it doesn't , explain more in detail what it should do XD.
EDIT : also, if you don't know how to fill in the consts, I'm sorry but then I find you to be a real leecher with all your longevity and all... Sorry...