Results 1 to 2 of 2

Thread: Fishing Procedure

  1. #1
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default Fishing Procedure

    I have been trying FOREVER to create a fishing procedure. One which will click the spot, and fish it.

    I have created EVERYTHING else, but not this.

    I cannot seem to get it

    If someone could PLEASE help me make one, link me to a tut, or just give me advice, I would give them rep and eternal e-love.

    Here is what I have been trying to use...

    SCAR Code:
    {*******************************************************************************
    Function FindFishMole(:boolean);
    By: Hermpie
    Description: Looks for FishMole in River when called.
    *******************************************************************************}


    function FindFishMole :boolean;
    var FishSpot: Array of TPointArray;
        FishPoints:TPointArray;
        CTS, I, HX, HY: Integer;
    begin
      CTS := GetColorToleranceSpeed;
      if not (cts = 2) then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(Hx, Hy, FishPoints, FishColor, MSX1, MSY1, MSX2, MSY2, 15)
      FishSpot:= SplitTPA(FishPoints,10);
      for i := 0 to High(FishSpot) do
      begin
        MiddleTPAEx(FishSpot[i], Hx, Hy);
        MMouse(Hx, Hy, 3, 3);
        Wait(25+random(10));
        Result:=IsUpText('ure');
        if Result then
          begin
            Writeln('Found fish mole.');
            GetMousePos(x,y);
            Mouse(X, Y, 0, 0,False);
            Wait(25+random(10));
            ChooseOption('ure');
            Result:=true;
          end;
        Result:=false;
      end;
    end;

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    here fixed it:

    SCAR Code:
    {*******************************************************************************
    Function FindFishMole(:boolean);
    By: Hermpie
    Description: Looks for FishMole in River when called.
    *******************************************************************************}

     
    function FindFishMole :boolean;
    var FishSpot: Array of TPointArray;
        FishPoints:TPointArray;
        CTS, I, HX, HY: Integer;
    begin
      CTS := GetColorToleranceSpeed;
      if not (cts = 2) then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(Hx, Hy, FishPoints, FishColor, MSX1, MSY1, MSX2, MSY2, 15)
      FishSpot:= SplitTPA(FishPoints,10);
      for i := 0 to High(FishSpot) do
      begin
        MiddleTPAEx(FishSpot[i], Hx, Hy);
        MMouse(Hx, Hy, 3, 3);
        Wait(25+random(10));
        Result:=IsUpText('ure');
        if Result then
          begin
            Writeln('Found fish mole.');
            Mouse(hX, hY, 0, 0,False);
            Wait(25+random(10));
            ChooseOption('ure');
            Result:=true;
          end;
        Result:=false;
      end;
    end;

    Needed to change the co-ords

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 6
    Last Post: 04-16-2009, 06:40 AM
  2. Procedure TypeSendRandom & Procedure AutoResponder!
    By Ultra in forum Research & Development Lounge
    Replies: 12
    Last Post: 01-08-2008, 07:04 PM
  3. Fishing
    By hardman in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 08-21-2007, 08:05 AM
  4. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  5. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •