SCAR Code:
procedure ChopWillows;
begin
repeat
if (not (LoggedIn)) then
Exit;
if (not (FindColorTolerance(x, y, WillowTree1, MSX1, MSY1, MSX2, MSY2, 45))) or
(not (FindColorTolerance(x, y, WillowTree2, MSX1, MSY1, MSX2, MSY2, 45))) or
(not (FindColorTolerance(x, y, WillowTree3, MSX1, MSY1, MSX2, MSY2, 45))) then
Wait(550 + Random(450));
Tries := Tries + 1;
if (Tries = 20) then
begin
Writeln('Failed to find the Willows, checked 20 times. Try setting different colors.');
LogOut;
Exit;
end else
if (FindColorTolerance(x, y, WillowTree1, MSX1, MSY1, MSX2, MSY2, 45)) or
(FindColorTolerance(x, y, WillowTree2, MSX1, MSY1, MSX2, MSY2, 45)) or
(FindColorTolerance(x, y, WillowTree3, MSX1, MSY1, MSX2, MSY2, 45)) then
MMouse(x, y, 5, 5);
if IsUpText('illow') then
begin
case Random(2) of
1: begin
Mouse(x, y, 4, 4, True);
FFlag(0);
Writeln('Found Willow, left click.');
AntiBan;
MMouse(x, y, 4, 4);
EntFinder;
CheckRandoms;
end;
2: begin
Mouse(x, y, 4, 4, False);
FFlag(0);
Writeln('Found Willow, right click.');
AntiBan;
MMouse(x, y, 4, 4);
EntFinder;
CheckRandoms;
end;
end;
end;
until (InvFull) or (TimeFromMark(ChoppingDone) > 18000 + Random(2000)) or (FindBlackChatMessage('Your inventory is too full to hold anymore logs.'))
end;