[SCAR*] Script Here [/SCAR*]
You'll have to take out the "*" for it to work.
It will look like this:
Your script: with standards
SCAR Code:
begin
SetupSRL;
ActivateClient;
ClickOnExistingUserButton;
TypeInUserandPass;
CompleteLogin;
GoToLobsterFishingSpot;
Findspot
BackToBank
DepositLobster
end.
SCAR Code:
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,0,0,75 0,500,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;