SCAR Code:
program New;
{.include SRL/SRL.scar}
const
TreeColor = 2319190 ;
TreeColor1 = 1791306;
procedure Chop;
var
CuttingTime : integer;
x, y: integer;
begin
repeat
if(FindColorTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) or
(FindColorTolerance(x,y,TreeColor1,0,0,700,700,5)) and
IsUpText('illow') then
Wait(1000 +random(1000))
Mouse(x, y, 3, 3, True); // after it has clicked on willow tree rs window freezes
MarkTime(CuttingTime);
repeat
if (InvFull) then Exit;
until (TimeFromMark(CuttingTime) > 8000+random(2000));
//Wait(6000 + Random(2000));
until (InvFull)
If (InvFull) then
Exit;
else
Chop;
end;
begin
SetupSRL;
Wait(3000 +random(1000));
Chop;
end.
This should work, I'm going to test it just in case...
You did a good job, there aren't many people who just join that can do this.
Work on standards though.