Code:
var
i , m, x, y: integer;
treecolors: array [0..3] of integer;
treeNames: array [0..2] of String;
procedure chopwillows;
begin
begin
disguise('chopping')
treecolors[0]:= 3759203;
treecolors[1]:= 5406322;
treecolors[2]:= 6132352;
treecolors[3]:= 3363673;
treenames[0]:= 'Wil';
treenames[1]:= 'llo';
treenames[2]:= 'low';
repeat
if (not LoggedIn) then Exit;
for i := 0 to 3 do
if FindObjTPA(x, y, treecolors[i], 10, 2, 15, 25, 10, [treenames[0], treenames[1], treenames[2]]) then
begin
FindObjTPA(x, y, treecolors[i], 10, 2, 15, 25, 10, [treenames[0], treenames[1], treenames[2]])
Wait(100 + Random(300));
begin
Mouse(x, y, 4, 4, True);
m:=0;
MarkTime(M);
repeat
Case (Random(3)) of
0: wait(100);
1: wait(3500);
2: wait(3000);
end;
until not(IsUpText('willow')) or (m > 30000);
end;
end;
until invfull or inchat('full to')
end;
end;
procedure choptrees;
begin
treecolors[0]:= 1195316;//get new colors
treecolors[1]:= 4814702;
treecolors[2]:= 4353679;
treecolors[3]:= 4287628;
treenames[0]:= 'Tree';
treenames[1]:= 'Tre';
treenames[2]:= 'ree';
repeat
if (not LoggedIn) then Exit;
for i := 0 to 3 do
if FindObjTPA(x, y, treecolors[i], 10, 2, 15, 25, 10, [treenames[0], treenames[1], treenames[2]]) then
begin
FindObjTPA(x, y, treecolors[i], 10, 2, 15, 25, 10, [treenames[0], treenames[1], treenames[2]])
Wait(100 + Random(300));
begin
Mouse(x, y, 4, 4, True);
m:=0;
MarkTime(M);
repeat
Case (Random(3)) of
0: wait(10); //findrandoms;
1: wait(3500);
2: wait(3000);
end;
until not(IsUpText('tree')) or (m > 30000);
end;
end;
end;