This is what you have:
SCAR Code:
program Chicken;
var
x,y: Integer;
const
FindChicken = 2968160 ;
procedure Find1;
begin
If(FindColorSpiral(x,y,FindChicken,0,0,[B]20,50[/B])) then
begin
MoveMouse(x,y);
Wait(400);
ClickMouse(x,y,true);
end;
end;
begin
Find1;
end.
[B]end.[/B]
A few mistakes are highlighted in bold there - firstly, you are only searching for that colour in the a 20x50 box at the top of the RS Client. You should try increasing 20, 50 to the actual size of the RS game. (I forget what it is).
Also, you have one too many 'end.'s (although it doesn't matter, nothing after 'end.' is executed.
HTH,
-Agent