Function FindFishingEquipMent: Boolean;

I have created a function that finds the fishing equipment almost all the time.
I think this is a MUST BE in the srl fishing include because it works so good :).

for the moment it only finds the fly fishing rod.

First u should have somewhere after u change player.

SCAR Code:

FishRodColor:= FindFishingEquipmentColor;

then in ur fishing loop or after it

SCAR Code:

FindFishingEquipMent;

here it is:

SCAR Code:

program New;

{.Include SRl/SRL.Scar}

var
  FishRodColor, DTMFishEquipMent: Integer;

Function WaitR(Time : Integer) : Boolean;
Var Time1: Integer;
Begin
  Marktime(time1)
    Repeat
      Wait(50);
      If(FindTalk)Then
        Result := True;
    Until(result)or(TimeFromMark(Time1)>Time);
End;

Function FindFastRandoms: Boolean;   //by WT-Fakawi
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
    end;
    wait(1);
  end;
end;

Procedure AntiRandoms;
begin
    FindFastRandoms;
    wait(5)
    UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver := True
    FindMaze;
    wait(5)
    Solvepinball;
    wait(5)
    TalkToRand;
    wait(5)
      if (FindQuiz) then
          SolveQuiz;
    FindNormalRandoms;
end;

Function GotFishingEquipMent: Boolean;
Begin
  DTMFishEquipMent := DTMFromString('78DA63F464626078CC800618914820ED0D547' +
       '39F801A77A09A1704D4B800D5BC21A0C609A8E61D15DCE3035473' +
       '0FBF1A0092F5085D');
  GameTab(4);
  If(FindDTM(DTMFishEquipMent,x,y,MIX1,MIY1,MIX2,MIY2))Then
    Result := True;
  FreeDTM(DTMFishEquipMent);
End;

Function FindFishingEquipMent: Boolean;
Var
  RaisingTolerance, FindTimer: Integer;
  Fish: TPoint;
  RodBoxes: TBoxArray;
Begin
  If(Not LoggedIn)Then Exit;

  //FishRodColor = Contains The Rod Color.

  If(Not GotFishingEquipMent)Then
    Begin
      MarkTime(FindTimer);
        Repeat
          Status(IntToStr(TimeFromMark(FindTimer)) + 'MSec');
          WaitR(500+Random(400));
          If(FindColorSkipBoxArrayTolerance(Fish.x,Fish.y,FishRodColor,MSX1,MSY1,MSX2,MSY2,RaisingTolerance,RodBoxes))Then
            Begin
              MMouse(Fish.x,Fish.y,0,0);
              Wait(50+Random(30));
              If(IsUpText('ake'))Then
                Begin
                  Mouse(Fish.x,Fish.y,0,0,True);
                  Flag;
                  Wait(1000+Random(1000));
                  Result:= GotFishingEquipMent;
                  SetArrayLength(RodBoxes, 0);
                End Else
                  Begin
                    SetArrayLength(RodBoxes, GetArrayLength(RodBoxes) + 1);
                    RodBoxes[GetArrayLength(RodBoxes) - 1].x1 := Fish.X - 10;
                    RodBoxes[GetArrayLength(RodBoxes) - 1].y1 := Fish.Y - 10;
                    RodBoxes[GetArrayLength(RodBoxes) - 1].x2 := Fish.X + 10;
                    RodBoxes[GetArrayLength(RodBoxes) - 1].y2 := Fish.Y + 10;
                    RaisingTolerance:= 0;
                  End;
            End Else RaisingTolerance:= RaisingTolerance + 2;
        Until(Not LoggedIn)or(TimeFromMark(FindTimer)>40000)or(Result);
    End;

    If(Result)Then
      Begin
        DTMFishEquipMent := DTMFromString('78DA63F464626078CC800618914820ED0D547' +
       '39F801A77A09A1704D4B800D5BC21A0C609A8E61D15DCE3035473' +
       '0FBF1A0092F5085D');
        GameTab(4);
        If(FindDTM(DTMFishEquipMent,x,y,MIX1,MIY1,MIX2,MIY2))Then
          Begin
            MMouse(x,y,5,5);        //This is based on DragItem.
            GetMousePos(x, y);      //It will drag ur fishing rod to 1 or 2 inv slot.
            HoldMouse(x, y, True);
            Wait(150 + Random(50));
            If(ExistsItem(1))Then
              MMouseItem(2)
            Else If(ExistsItem(2))Then
              MMouseItem(1)
            Else Begin
                   Writeln('Highly unexpected error. POST on the forum.');
                   Players[Currentplayer].Boolean1:= True;
                 End;
            GetMousePos(x, y);
            ReleaseMouse(x, y, True);
            Wait(100 + Random(100));
            MMouse(x, y, 2, 2)
          End Else
            Begin
              Writeln('Loggingout, Lost Fishing EquipMent.');
              Players[Currentplayer].Boolean1:= True;
            End;
        FreeDTM(DTMFishEquipMent);
      End Else
        Begin
          Writeln('Loggingout, Lost Fishing Equipment.');
          Players[Currentplayer].Boolean1:= True;
        End;
End;

Function FindFishingEquipmentColor: Integer;
Var
  FlyFishingRod, iX, iY: Integer;
Begin
   FlyFishingRod := BitmapFromString(7, 6, 'z78DA758E410EC' +
    '4300803BF440093E4D8A4F0FF27355BBA527328BE59A3C126982B' +
    'A6A141BF2BCD0CE4F5C02437D3937AF66860B00C81209BEA88C50' +
    'C14EAEA32FEA4169932DF4C65D86E7B9C45871EAD5B256F6CBC98' +
    '8090432476F2BDED8B4943DA9EFDF7B68DC95FB7E70239B234CA');
  GameTab(4);
  If(FindBitmapToleranceIn(FlyFishingRod, iX, iY, MIX1, MIY1, MIX2, MIY2, 25))Then
    Begin
      Result := GetColor(iX, iY);
      WriteLn('Fishing Equipment Color is ' + IntToStr(Result));
    End Else
      Begin
        Writeln('Couldnt Find Fishing Equipment Color..');
        Logout;
      End;
  FreeBitMap(FlyFishingRod);
End;

begin
  SetupSRl;
  FishRodColor:= FindFishingEquipmentColor;
  Writeln('Drop NOW');
  Wait(10000);
    repeat
      If(Not GotFishingEquipMent)Then
        FindFishingEquipMent;
    until(GotFishingEquipMent)
  writeln('Got Fish');
end.

im sorry if the standards looks bad, copy paste..

Players[Currentplayer].Boolean1

will return TRUE if u lost ur rod and it couldnt find it