scar Code:
Function BlindPoint(D, R : Integer): TPoint;
Var
D2 : Integer;
Begin
D2 := D - Round(rs_GetCompassAngleDegrees);
Result.X := MMCX + Round(R * Cos(Radians(D2 - 90)));
Result.Y := MMCY + Round(R * Sin(Radians(D2 - 90)));
End;
procedure FishingSpot;
var
tries, x, y : integer;
TP : TPoint;
label
NotFound;
begin
if not loggedin then Exit;
NotFound:
If Tries > 4 Then
Exit;
If(FindSymbol(x,y, 'Fishing Spot')) then
begin
Wait(200+random(90));
SetRun(true);
Mouse(x,y,5,5,true);
FFlag(2);
Exit;
end else
begin
TP := BlindPoint(180, 10);
MouseFlag(Tp.X, TP.Y, 2, 2, 0);
Inc(Tries);
GoTo NotFound;
end;
End;
That should walk to south(even if the compass is rotated) until it finds the fishing spot or it walked more than 4 times.