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
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
repeat
case Random(2) of
1: Mouse(x, y, 4, 4, True);
2: Mouse(x, y, 4, 4, False);
Wait(250 + Random(530));
ChooseOption('Chop');
EntFinder;
CheckRandoms;
AntiBan;
EntFinder;
CheckRandoms;
end;
until (InvFull)
end;