Originally Posted by
mohsin12331
yo wizzup, the error i posted is not the same as the ones on the previous page. the error is:
[Runtime Error] : Type Mismatch in line 130 in script F:\scar\SCAR 3.12\SCAR 3.12\Scripts\SRL Edgeville Fisher #14.scar
and the area is:
<----------------------------------------------------------------->
Function FindFishingSpots: TPointArray;
Description:
Finds all RuneScape 2 Fishing spots on the MainScreen.
Mainscreen is defined by MSX1, MSY1, MSX2, MSY2.
The spots are sorted by Distance, the first in the array
is the one closest to the RS char (MSCX, MSCY).
Made By: Wizzup?
<----------------------------------------------------------------->
}
Function FindFishingSpots: TPointArray;
Var
Fish: TPointArray;
Fishes: T2DPointArray;
I, cts: Integer;
Begin
If Not LoggedIn Then Exit;
SetLength(Result, 0);
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Fish, 15257001, MSX1, MSY1, MSX2, MSY2, 40);
Fishes := TPAToATPA(Fish, 25); <<<<<< THIS IS LINE 130
SetLength(Fish, 0);
SetLength(Result, Length(Fishes));
For I := 0 To High(Fishes) Do
Begin
If Length(Fishes[I]) < 5 Then
Continue;
Result[I] := MiddleTPA(Fishes[I]);
End;
SetLength(Fishes, 0);
ColorToleranceSpeed(cts);
End;
