SRL Archive - SRL Archives

{*******************************************************************************
Function FindWhirlPoolMS: Boolean;
By: Wizzup
Description: Finds Whirlpools
*******************************************************************************}

Function FindWhirlPoolMS: Boolean;

Var
   FishPoints: TPointArray;
   FishPointsArray: T2DPointArray;
   cts, I: Integer;

Begin
  Result := False;
  If Not LoggedIn Then Exit;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsTolerance(FishPoints, 13947343,MSX1, MSY1, MSX2, MSY2, 40)
  FishPointsArray := TPAToATPAEx(FishPoints, 40, 40);
  For I := 0 To High(FishPointsArray) Do
  If Length(FishPointsArray[i]) > Round(230 * WhirlPoolAcc) Then
  Begin
    WhirlPools := Whirlpools + 1;
    WriteLn(FloatToStr(Length(FishPoints) / 1600.0)+ '% Change');
    Result := True;
    ColorToleranceSpeed(cts);
    Exit;
  End;
  ColorToleranceSpeed(cts);
End;

{*******************************************************************************
procedure HandleWhirlPool;
By: Wizzup and Dankness
Description: Finds and Handles Whirlpools by Standing still and waiting
*******************************************************************************}

procedure HandleWhirlPool;
begin
  if FindWhirlPoolMS then
  begin
    Status('Whirlpool found!');
    Inc(WhirlPools);
    Mouse(647, 82, 2, 2, True);
    FTWait(50 + Random(15));
    repeat
      HoverSkill('fishing', False);
      if (not (LoggedIn)) then Exit;
      FTWait(2 + Random(2));
    until not FindWhirlPoolMS;
  end;
end;

Now: When it finds a whirlpool it adds first in the "FindWhirlPoolMS" +1 to whirlpool. And then again in handlewhirlpool.

Now also in the repeat until not findwhirlpoolMS

whenever it finds a whirlpool it adds another. So it could easily add +10 whirlpools when it only has found 1.

If u know what i mean

fix:::

{*******************************************************************************
Function FindWhirlPoolMS: Boolean;
By: Wizzup
Description: Finds Whirlpools
*******************************************************************************}

Function FindWhirlPoolMS: Boolean;

Var
   FishPoints: TPointArray;
   FishPointsArray: T2DPointArray;
   cts, I: Integer;

Begin
  Result := False;
  If Not LoggedIn Then Exit;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsTolerance(FishPoints, 13947343,MSX1, MSY1, MSX2, MSY2, 40)
  FishPointsArray := TPAToATPAEx(FishPoints, 40, 40);
  For I := 0 To High(FishPointsArray) Do
  If Length(FishPointsArray[i]) > Round(230 * WhirlPoolAcc) Then
  Begin
    WriteLn(FloatToStr(Length(FishPoints) / 1600.0)+ '% Change');
    Result := True;
    ColorToleranceSpeed(cts);
    Exit;
  End;
  ColorToleranceSpeed(cts);
End;