Function ClickDummy: Boolean;
Var
DepP: TPointArray;
TP: Tpoint;
Dep: T2DPointArray;
I, Times: Integer;
Begin
If Not LoggedIn then Exit;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, DepP, {Dummy Color}, MSX1, MSY1, MSX2, MSY2, 20);
Dep:= TPAtoATPAEx(DepP, 20, 20);
for i := 0 to Length(Dep)-1 do
begin
TP := MiddleTPA(Dep[i]);
MMouse(TP.x, TP.y, 3, 3);
Wait(100+Random(100));
Inc(Times)
if IsUpText('Dummy') then
begin
Mouse(TP.x,TP.y,0,0,true);
FFlag(0);
Wait(500+Random(500));
ColorToleranceSpeed(1);
Exit;
end;
If Times = 8 then
Begin
Writeln('Not Found Spell Dummy, Exiting');
Times:=0;
Exit;
end;
Wait(500+random(500));
end;
end;
Made that, didn't test it but I expect it will find it :)