SCAR Code:
procedure ChopY;
begin
if (WhereToChop = 'DW') then Exit;
if (PowerChop) then Exit;
if not FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1,['ew','ew'])then // IF IT DOESNT FIND THE TREE AFTER 7 SECONDS...
RandomGameTab; // THEN IT WILL DO THESE
RandomRClick; // THEN IT WILL DO THESE
FastAntiBan; // THEN IT WILL DO THESE
FindSomeTalk; // THEN IT WILL DO THESE, THEN IT WILL START ChopY; AGAIN
repeat
repeat
repeat
if FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1,['ew','ew'])then
YTPA;
FindEnt(x,y, True);
Case random(2) of
0 : begin
FindEnt(x,y, True);
if IsUpText('hop') then
begin
Mouse(x, y, 2, 2, False);
Disguise('Chopping Yews...');
Wait(300 + Random(243));
ChooseOption('hop');
Wait(5000 + Random(1854));
RandomGameTab;
FindEnt(x,y, True);
FindBirdsNest;
FastAntiBan;
if FindObjTPA(x, y, 6391421, 10, 20, 10, 10, 1,['hop','illow'])then
FindEnt(x,y, True);
Mouse(x, y, 2, 2, True);
end;
end;
1 : begin
FindEnt(x,y, True);
if IsUpText('hop') then
begin
Mouse(x, y, 2, 2, True);
Disguise('Chopping Yews...');
Wait(300 + Random(243));
ChooseOption('hop');
RandomGameTab;
FindEnt(x,y, True);
AntiRandoms;
FindBirdsNest;
Wait(5000 + Random(1976));
end;
end;
end;
until invfull;
until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
SetupPlayers;
until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
end;