Ok guys please dont hate me for asking for help 
Ok so here is my chopping loop:
SCAR Code:
function ChoppingLoop: Boolean;
var
T, x, y: Integer;
P: TPoint;
Colour: Integer;
begin
repeat
begin
AntiRandom;
MarkTime(T);
if FindWillow(x, y) then
begin
Mouse(x, y, 3, 3, False);
Wait(100+random(200));
if ChooseOption('hop') then
begin
Colour := GetColor(x, y - 5);
Wait(1000+random(2000));
while (SimilarColors(Colour, GetColor(x, y - 5), 4) and not(InvFull)) do
begin
MakeCompass('N');
Result := True;
AntiBanage;
Wait(100)
AntiRandom;
SleepAndMoveMouse(2500+random(100));
if TimeFromMark(T) >= 20000 then Break;
end;
end;
end;
end;
until(InvFull = True);
end;
But it keeps chopping even when it has a full inv.
What have I done wrong, and sorry if I look nooby 
T~M