yes it will click on one willow. (fixed some other things
)
SCAR Code:
Procedure CutWillows;
var
CBx,CBy : Integer;
Begin
for Colors := 1 to 6 do
begin
CBx := MSCx;
CBy := MSCy;
if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
begin
MMouse(CBx, CBy, 0, 0);
If FindText('your axe at') Then
begin
Writeln('Cutting willows');
Mouse(CBx, CBy, 2, 2, True);
Repeat
Wait(100);
Until FindText(TreeGone);
end;
end;
end;
end;
This is just a little thing lol. (i would not use it when i was you
) anyway, make the findcolorspiral in a little box around the player. and ad a time mark in the repeat loop in the cutwillowprocedure.
SCAR Code:
Procedure TreeGone:Boolean;
var
Colors : Interger;
Begin
for Colors := 1 to 6 do
begin
CBx := MSCx;
CBy := MSCy;
if FindColorSpiralTolerance(CBx, CBy, WillowColors[Colors], MSX1, MSY1, MSX2, MSY2, 15) then
Restul:= False;
end;
end;