SCAR Code:
procedure CutTree;
var
A : Integer;
begin
MakeCompass('N');
if (not LoggedIn) then
Exit;
MouseSpeed := RandomRange(13, 16);
if FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText}) then
begin
repeat
FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
GetMousePos(x, y);
FindEnt(x, y, True);
Wait(100 + Random(200));
case Random(2) of
0 : begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
GetMousePos(x, y);
end;
1 : begin
Mouse(x, y, 4, 4, True);
GetMousePos(x, y);
end;
end
Wait(2000 + Random(400));
FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})
MMouse(x, y, 2, 2);
FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})
until Invfull or not FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText});
if Invfull then
begin
{Put code here}
end;
end;
while (not FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})) do
repeat
MakeCompass('S');
Wait(3000 + Random(1500));
if (not FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})) then
begin
MakeCompass('N');
Wait(3000 + Random(1500));
end;
if (not FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText})) then
Inc(A);
until FindObjTPA(x, y, {Color}, 30, 2, 15, 25, 10, {UpText}) or (A = 4);
if (A = 4) then
begin
WriteLn('Couldn''t find Tree :(');
{If you're using multiplayer, you can use the NextPlayer() here}
end;
end;