ok here is the chop procedure
Code:
procedure ChopTree;
var x,i, y: integer;
TreeColors: array [0..3] of integer;
begin
TreeColors[0] := 2511174;
TreeColors[1] := 2641981;
TreeColors[2] := 5274220;
TreeColors[3] := 2577730;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Mouse(x,y,0,0,false);
Chooseoption('hop')
repeat
wait(1200+random(250));
AntiBan;
Until Not IsUpText('illow') or InvFull;
Until(InvFull);
if InvFull then
Drop;
GameTab(2);
HoverSkill('Woodcutting', False);
HoverSkill('Firemaking', False);
report;
end;
end;