ummm first of all you should put the procedure in the main loop.
you dont have to put SetupSRL in your procedure as you only have to do it once when you start the script.
with your chop procedure you could do you something like this:
SCAR Code:
procedure Chop;
begin
repeat
if (FindColorTolerance(x, y, 2373688, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
x:=MSCX;
y:=MSCY;
FindColorSpiralTolerance(x, y, 2373688, MSX1, MSY1, MSX2, MSY2, 10);
Mouse(x, y, 1, 1, true);
Flag;
Wait(1000+random(500));
end;
until not (FindColorTolerance(x, y, 2373688, MSX1, MSY1, MSX2, MSY2, 10));
end;
this should hopefully find the tree colour with a tolerance in the main screen, click and wait until the tree falls downs.
then in your main loop put something like this:
SCAR Code:
begin
SetupSRL;
repeat
AntiRandoms;
Chop;
until(false);
end;
of course you'll need to put a drop procedure and expand on the chopping and .... dada... you have yourself an extremely basic and easily detectable power chopper