SCAR Code:
procedure WoodCutColor;
var
OakTPA: TPointArray;
OakTP: Tpoint;
begin
repeat
if(FindColorsTolerance(OakTPA, 3832687, MSx1, MSy1, MSx2, MSy2, 15))then
for i := 0 to high(OakTPA) do
begin
OakTPA[i] := OakTP;
MMouse(OakTP.x, OakTP.y, 3, 3);
if(IsUpText('hop'))then
begin
D('We have found an Oak Tree');
GetMousePos(x, y);
case random(2) of
0: Mouse(x, y, 0, 0, true);
1: begin
Mouse(x, y, 0, 0, false);
W(500, 500);
ChooseOption('hop');
end;
end;
end;
end;
WoodCuttingWait;
until(R_invfull)
end;
Just moves the mouse around the top right hand corner?