I created this function:
SCAR Code:
Function FindSpots : Boolean;
Var
Bx, By : Integer;
TPA : Array Of TPoint;
ATPA : T2DPointArray;
I : Integer;
Begin
FindColorsSpiralTolerance(Bx, By, TPA, 13221816, MSX1, MSY1, MSX2, MSY2, 16)
Begin
ATPA := SplitTPA(TPA, 10);
For I := 0 To High(ATPA) Do
If MiddleTPAEX(ATPA[i], Bx, By) Then
MMouse(Bx, By, 1, 1);
If IsUpText('ishin') Then
Begin
Result := True;
end else
Result := False;
Exit;
end;
end;
and this procedure to go with it:
SCAR Code:
procedure FindFish;
begin
CheckInventory;
if not LoggedIn then TerminateScript;
if FindSpots then
begin
if IsUpText('et') then
begin
Mouse(x, y, 5, 5, False);
ChooseOption('arpoon');
NoRandoms;
AntiBan(50);
if(GetAnimation = 5108) then
begin
FFDebug('We are fishing.');
WaitUntilNotFishing;
Exit;
if not FindSpots then
begin
RandomCompass;
end;
if not(GetAnimation = 5108) then
begin
FFDebug('Unable to fish..');
CheckInventory;
AntiBan(50);
end;
end;
end;
end;
end;
Here's my issue, it finds the fishing spot, but the cursor then goes to the upper left corner and does not right click or anything. Can you guys help me?