SCAR Code:
{.include srl/srl.scar}
function FindSpot(Tol: Integer): Boolean;
var
a,b: Integer;
Box,Box2: TBox;
begin
if Not LoggedIn then Exit;
if(FindColorTolerance(a,b,14796717,0,0,750,500,Tol ))then
begin
Mouse(a,b,2,2,False)
FTWait(2)
if(ChooseOption('Cage'))then
begin
Result:= True;
FFlag(0);
end else
begin
Box:= IntToBox(a-30,b-30,a+30,b+30)
if FindColorSkipBoxTolerance(a,b,14796717,0,0,750,500 ,Tol,Box)then
begin
Mouse(a,b,2,2,false)
FTWait(2)
if ChooseOption('Cage') then
begin
Result:= True;
FFlag(0)
end else
begin
Box2:= IntToBox(a-30,b-30,a+30,b+30)
if FindColorSkipBoxArrayTolerance(a,b,14796717,MSX1,MSY1,MSX2,MSY2,Tol,[Box,Box2]) then
begin
Mouse(a,b,2,2,false)
FTWait(2)
if ChooseOption('Cage') then
begin
Result:= True;
FFlag(0)
end;
end;
end;
end;
end;
end;
end;