Results 1 to 25 of 25

Thread: Priff waterfall Fishing

  1. #1
    Join Date
    Dec 2011
    Location
    New York
    Posts
    119
    Mentioned
    5 Post(s)
    Quoted
    40 Post(s)

    Default Priff waterfall Fishing

    I plan on trying to work on this on my own but im still learning to script slowly.. This seems like a pretty easy script since its super afk and there isnt much involved.

    Either way I figured one of you more savvy scripters would be able to whip this up rather quickly.

  2. #2
    Join Date
    Dec 2011
    Location
    East Coast, USA
    Posts
    4,231
    Mentioned
    112 Post(s)
    Quoted
    1869 Post(s)

    Default

    Could you explain the method a bit more, or link to a RS Wikia page where it is detailed? I am unfamiliar with this method.
    GitLab projects | Simba 1.4 | Find me on IRC or Discord | ScapeRune scripts | Come play bot ScapeRune!

    <BenLand100> we're just in the transitional phase where society reclassifies guns as Badâ„¢ before everyone gets laser pistols

  3. #3
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by KeepBotting View Post
    Could you explain the method a bit more, or link to a RS Wikia page where it is detailed? I am unfamiliar with this method.
    http://runescape.wikia.com/wiki/Prif...erfall_Fishing

  4. #4
    Join Date
    Dec 2011
    Location
    East Coast, USA
    Posts
    4,231
    Mentioned
    112 Post(s)
    Quoted
    1869 Post(s)

    Default

    Oh, jeez. My account is nowhere near the level(s) required to access that area
    GitLab projects | Simba 1.4 | Find me on IRC or Discord | ScapeRune scripts | Come play bot ScapeRune!

    <BenLand100> we're just in the transitional phase where society reclassifies guns as Badâ„¢ before everyone gets laser pistols

  5. #5
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by KeepBotting View Post
    Oh, jeez. My account is nowhere near the level(s) required to access that area
    looks like a VERY easy script to write. I had so many sripts in progress for rs3. but I'm playing darkscape exclusively so we'll see if I get back info rs3 and prif...

  6. #6
    Join Date
    Dec 2011
    Location
    New York
    Posts
    119
    Mentioned
    5 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by footballjds View Post
    looks like a VERY easy script to write. I had so many sripts in progress for rs3. but I'm playing darkscape exclusively so we'll see if I get back info rs3 and prif...
    Considering no movement/dropping or anything else si required other than clicking fish it seems to me that it should be quite easy, unfortunately im still learning the basics so im not even sure where to start

    Goodluck on darkscape tho

  7. #7
    Join Date
    Dec 2014
    Posts
    383
    Mentioned
    2 Post(s)
    Quoted
    206 Post(s)

    Default

    this seems like such a simple script, but the requirements just to test the script would put me on edge, unless you have an account for testing ( which i highly doubt since this seems like a MAIN MAIN kind of script )

  8. #8
    Join Date
    Dec 2011
    Location
    New York
    Posts
    119
    Mentioned
    5 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by theholyone View Post
    this seems like such a simple script, but the requirements just to test the script would put me on edge, unless you have an account for testing ( which i highly doubt since this seems like a MAIN MAIN kind of script )
    Quote Originally Posted by theholyone View Post
    this seems like such a simple script, but the requirements just to test the script would put me on edge, unless you have an account for testing ( which i highly doubt since this seems like a MAIN MAIN kind of script )
    yeah i see your point, 90 agil and strength just to get there and 90+ fishing to evem use the spots is defintely high reqs.. looks like im gonna have to figure this one out on my own, the part that im unsure of is how to find the fishing spot, as in what kind of code would i need for that cause obviously color wouldnt work for this

  9. #9
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by iAmaGz View Post
    looks like im gonna have to figure this one out on my own, the part that im unsure of is how to find the fishing spot, as in what kind of code would i need for that cause obviously color wouldnt work for this
    color always works

  10. #10
    Join Date
    Jun 2015
    Location
    New Zealand
    Posts
    322
    Mentioned
    2 Post(s)
    Quoted
    131 Post(s)

    Default

    Good luck mate, will be glad to see the finished product.

  11. #11
    Join Date
    Oct 2015
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    good luck mate will be glad to see the it!

  12. #12
    Join Date
    Mar 2016
    Posts
    192
    Mentioned
    6 Post(s)
    Quoted
    91 Post(s)

    Default

    Did you finally give up?

  13. #13
    Join Date
    Aug 2006
    Posts
    33
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Did anybody make one of these? Would be awesome due to the new way to level invention through fishing rods. I'd be willing to lend my account to a trusted member to make one if needed.

  14. #14
    Join Date
    Dec 2011
    Posts
    2,147
    Mentioned
    221 Post(s)
    Quoted
    1068 Post(s)

    Default

    One could make a fancy script but it's really just auto-clicking every x seconds, and ensuring no logout. Could go one step further and be constantly checking for a fishing state, like below. I'd check for the presence of my character's hand (red circle) at a certain point on the screen, when it's holding the rod over the spot.



    Simba Code:
    program WaterfallFisher;

    {$i srl-6/srl.simba}

    const
      HAND_COLOR = ;
      HAND_TOLERANCE = ;
      HAND_HUE = ;
      HAND_SAT = ;
      HAND_SEARCHBOX: tBox = [0, 0, 0, 0];

      FISHING_POINT: tPoint = [0, 0];
     
    var
      idleTime: tCountDown;

    function isFishing(): boolean;
    var
      tpa: tPointArray;
    begin
      if findColorsTolerance(tpa, HAND_COLOR, HAND_SEARCHBOX, HAND_TOLERANCE, colorSetting(2, HAND_HUE, HAND_SAT)) then
        result := true;
      writeln('Currently fishing: ' + toStr(result));
    end;

    begin
      activateClient();
      idleTime.setTime(random(170000, 220000));
      repeat
        if (not isFishing()) or idleTime.isFinished() then
        begin
          if idleTime.isFinished() then
            writeln('Idle countdown expired.');
          mouse(point(FISHING_POINT.X + random(-15, 15), FISHING_POINT.Y + random(-15, 15)), MOUSE_LEFT, MOUSE_HUMAN);
          mouseSpeed := random(25, 65);
          idleTime.setTime(random(170000, 220000));
        end;
        wait(random(2500, 6000));
      until false;
    end.

    I don't know if this could potentially be broken by someone placing Clan Vex, I know they try to do that at Seren Stones. Could just right click choose option instead of left clicking to avoid that issue.
    Last edited by Clarity; 03-17-2016 at 08:32 PM.

  15. #15
    Join Date
    Aug 2006
    Posts
    33
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by Clarity View Post
    I don't know if this could potentially be broken by someone placing Clan Vex, I know they try to do that at Seren Stones. Could just right click choose option instead of left clicking to avoid that issue.
    Yeah from what i see on reddit, it seems like a clan vex is what they use to break them at the waterfall also. Thanks for the info!

  16. #16
    Join Date
    Dec 2011
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by Clarity View Post
    One could make a fancy script but it's really just auto-clicking every x seconds, and ensuring no logout. Could go one step further and be constantly checking for a fishing state, like below. I'd check for the presence of my character's hand (red circle) at a certain point on the screen, when it's holding the rod over the spot.



    Simba Code:
    program WaterfallFisher;

    {$i srl-6/srl.simba}

    const
      HAND_COLOR = ;
      HAND_TOLERANCE = ;
      HAND_HUE = ;
      HAND_SAT = ;
      HAND_SEARCHBOX: tBox = [0, 0, 0, 0];

      FISHING_POINT: tPoint = [0, 0];
     
    var
      idleTime: tCountDown;

    function isFishing(): boolean;
    var
      tpa: tPointArray;
    begin
      if findColorsTolerance(tpa, HAND_COLOR, HAND_SEARCHBOX, HAND_TOLERANCE, colorSetting(2, HAND_HUE, HAND_SAT)) then
        result := true;
      writeln('Currently fishing: ' + toStr(result));
    end;

    begin
      activateClient();
      idleTime.setTime(random(170000, 220000));
      repeat
        if (not isFishing()) or idleTime.isFinished() then
        begin
          if idleTime.isFinished() then
            writeln('Idle countdown expired.');
          mouse(point(FISHING_POINT.X + random(-15, 15), FISHING_POINT.Y + random(-15, 15)), MOUSE_LEFT, MOUSE_HUMAN);
          mouseSpeed := random(25, 65);
          idleTime.setTime(random(170000, 220000));
        end;
        wait(random(2500, 6000));
      until false;
    end.

    I don't know if this could potentially be broken by someone placing Clan Vex, I know they try to do that at Seren Stones. Could just right click choose option instead of left clicking to avoid that issue.
    Thanks!

  17. #17
    Join Date
    Mar 2016
    Posts
    192
    Mentioned
    6 Post(s)
    Quoted
    91 Post(s)

    Lightbulb

    Added a login procedure, smart and some antiban. It's my first attempt to create something, but I think it works properly (wow) :P
    Simba Code:
    program WaterfallFisher; //edited by Scob

    {$DEFINE SMART}
    {$I SRL-6/SRL.simba}

    const
      HAND_COLOR = 7369770;
      HAND_TOLERANCE = 5;
      HAND_HUE = 0.7;
      HAND_SAT = 2.0;
      HAND_SEARCHBOX: tBox = [281, 157, 300, 177];

      FISHING_POINT: tPoint = [293, 180];

    procedure declarePlayers();
    begin
      setLength(players, 1);
      with players[0] do
      begin
        loginName := '';       //Enter your login
        password := '';        //Enter your pass
        world := ;             //Select world
        isActive := true;
        isMember := true;
      end
      currentPlayer := 0;
    end;

    var
      idleTime: tCountDown;

    function isFishing(): boolean;
    var
      tpa: tPointArray;
    begin
      if findColorsTolerance(tpa, HAND_COLOR, HAND_SEARCHBOX, HAND_TOLERANCE, colorSetting(2, HAND_HUE, HAND_SAT)) then
        result := true;
      writeln('Currently fishing: ' + toStr(result));
    end;

    var
      AB: TTimeMarker; //Antiban time marker
      NextAB: Integer; //when to do next antiban

    procedure antiban;
    Var
      I, ABMin, ETA, h, m, s: Integer;
    Begin
      if ((AB.time = -1) or (AB.getTime > NextAB)) then
      begin
        I := Random(1500);
        Case I Of
          1..30:
            Begin
              hoverSkill(SKILL_FISHING);
              Wait(GaussRangeInt(1000,10000));
              TabBackpack.Open;
            End;
          101..200:
            Begin
              MouseOffClient(Random(4));
              Wait(GaussRangeInt(0, 2000));
            End;
          201..220:
            begin                                       //checking voices
                mouse(44, 53, 11, 10, MOUSE_MOVE);
                Wait(random(4000, 5500));
                mouse(121, 52, 10, 10, MOUSE_MOVE);
                Wait(random(3000, 8000));
                mouseOffClient(OFF_CLIENT_RANDOM);
            end;
          251..260:
               begin
                mouse(158, 473, 7, 7, MOUSE_LEFT);         //switching chats
                Wait(random(2000, 4505));
                mouse(243, 542, 45, 45, MOUSE_MOVE);
                Wait(random(3002, 6000));
                mouse(25, 471, 7, 7, MOUSE_LEFT);
                Wait(random(1700, 4900));
                mouseOffClient(OFF_CLIENT_RANDOM);
              end;
          261..320: mouseMovingObject;
          391..451: SleepAndMoveMouse(GaussRangeInt(100,1500));
        End;
        AB.reset; AB.start;
        NextAB := AB.getTime + 6000 + gaussRangeInt(2000, 6000);
      end;
      minimap.setAngle(MM_DIRECTION_NORTH);
      ETA := NextAB - AB.getTime;
    End;                    

    procedure CheckifFishing();
        begin
    if (not isFishing()) or idleTime.isFinished() then
        begin
          if idleTime.isFinished() then
            writeln('Idle countdown expired.');
          mouse(point(FISHING_POINT.X + random(-9, 9), FISHING_POINT.Y + random(-9, 9)), MOUSE_LEFT, MOUSE_HUMAN);
          mouseSpeed := random(25, 65);
          Wait(random(2000, 9005));
          mouseOffClient(OFF_CLIENT_RANDOM);
          idleTime.setTime(random(170000, 220000));
        end;
        end;
    begin
      smartEnableDrawing := True;
      disableSRLDebug := False;
      setupSRL;
      declarePlayers();
      idleTime.setTime(random(170000, 220000));
      repeat
      if not isLoggedIn() then
      begin
        players[currentPlayer].login();
        exitTreasure();
        minimap.clickCompass();
        mainScreen.setAngle(MS_ANGLE_HIGH);
      end;
        CheckifFishing();
        wait(random(2500, 6000));
        antiban();
      until false;
    end.

    Coordinates are for 93 spot, the one on the east:



    -PS COLORS ARE CALIBRATED FOR O-MATIC ROD-
    Last edited by scob; 03-31-2016 at 12:03 PM. Reason: UPDATED

  18. #18
    Join Date
    Dec 2011
    Posts
    77
    Mentioned
    5 Post(s)
    Quoted
    31 Post(s)

    Default

    Thanks Clarity/scob! Works perfectly. Made a few tweaks to prime it for 99 fishvention.

  19. #19
    Join Date
    Mar 2016
    Posts
    192
    Mentioned
    6 Post(s)
    Quoted
    91 Post(s)

    Lightbulb

    Quote Originally Posted by Sulferx View Post
    Thanks Clarity/scob! Works perfectly. Made a few tweaks to prime it for 99 fishvention.
    You are welcome! Here is my updated version for spot 97 with progress report and random breaks. Other thing I improved is the way it checks if you are fishing. Previously it was checking if there is a whrilpool, this could be easily disturbed by other players fishing at the same spot, but now it checks precisely if YOU are fishing . Check it out and give me some proggies:

    Simba Code:
    program WaterfallFisher;  // Idea and some script by Clarity <3

    {$DEFINE SMART}
    {$I SRL-6/SRL.simba}

    const
      initialExp= 1;
      HAND_COLOR = 6710900;
      HAND_TOLERANCE = 5;
      HAND_HUE = 0.7;
      HAND_SAT = 2.0;
      HAND_SEARCHBOX: tBox = [266, 184, 279, 193];

      FISHING_POINT: tPoint = [265, 220];

      var
      progressTimer: TTimeMarker;
      B, A: integer;

    procedure declarePlayers();
    begin
      setLength(players, 1);
      with players[0] do
      begin
        loginName := '';       //Enter your login
        password := '';        //Enter your pass
        world := -1;           //Select world
        isActive := true;
        isMember := true;
      end
      currentPlayer := 0;
    end;

    var
      idleTime: tCountDown;

    function isFishing(): boolean;
    var
      tpa: tPointArray;
    begin
      if findColorsTolerance(tpa, HAND_COLOR, HAND_SEARCHBOX, HAND_TOLERANCE, colorSetting(2, HAND_HUE, HAND_SAT)) then
        result := true;
      writeln('Currently fishing: ' + toStr(result));
    end;

    var
      AB: TTimeMarker;
      NextAB: Integer;

    procedure antiban;
    Var
      I, ABMin, ETA, h, m, s: Integer;
    Begin
      if ((AB.time = -1) or (AB.getTime > NextAB)) then
      begin
        I := Random(3000);  // edit this value to change frequency of the antiban
        Case I Of           // LESS number= more frequent
          1..30:
            Begin
              inc(A);
              hoverSkill(SKILL_FISHING);
              Wait(Random(7000, 12000));
              TabBackpack.Open;
            End;
          31..37:                                            //edit this ex. 31..45:
            begin                                            //to make breaks more frequent
              inc(B);
              writeLn('Random break activated');
              wait(random(320000, 500000));                  //Break duration
            end;
          101..200:
            Begin
              inc(A);
              MouseOffClient(Random(4));
              Wait(GaussRangeInt(100, 2000));
            End;
          201..220:
            begin
                inc(A);                                      //checking voices
                mouse(44, 53, 11, 10, MOUSE_MOVE);
                Wait(random(4000, 5500));
                mouse(121, 52, 10, 10, MOUSE_MOVE);
                Wait(random(3000, 8000));
                mouseOffClient(OFF_CLIENT_RANDOM);
            end;
          221..230:
               begin
                inc(A);
                mouse(158, 473, 7, 7, MOUSE_LEFT);           //switching chats
                Wait(random(2000, 4505));
                mouse(243, 542, 45, 45, MOUSE_MOVE);
                Wait(random(3002, 6000));
                mouse(25, 471, 7, 7, MOUSE_LEFT);
                Wait(random(1700, 4900));
                mouseOffClient(OFF_CLIENT_RANDOM);
              end;
          261..320:
              begin
                inc(A);
                mouseMovingObject;
              end;
          391..451:
              begin
                inc(A);
                SleepAndMoveMouse(GaussRangeInt(100,1500));
              end;
        End;
        AB.reset; AB.start;
        NextAB := AB.getTime + 6000 + gaussRangeInt(2000, 6000);
      end;
      minimap.setAngle(MM_DIRECTION_NORTH);
      ETA := NextAB - AB.getTime;
    End;

    procedure ClickSpot();
       begin
          mouse(point(FISHING_POINT.X + random(-4, 4), FISHING_POINT.Y + random(-4, 4)), MOUSE_RIGHT, MOUSE_HUMAN);
          mouseSpeed := random(15, 35);
          chooseOption.select(['Lure']);
                writeLn('Succesfully clicked fishing spot');
          wait(random(1000, 2000));
          MouseOffClient(Random(4));
          idleTime.setTime(random(170000, 220000));
        end;

    procedure CheckIfFishing();
        begin
    if (not isFishing()) or idleTime.isFinished() then
          begin
            ClickSpot();
          end;
        end;

    procedure Report;
    var
      XP, XPHR, h, m, s, W: Integer;
      L0, L1, L2, L3, L4, L5: string;
    begin
      w := smartImage.getWidth;
      smartImage.clearArea(IntToBox(583,490, w-1,565));
      XP := chatbox.getXPBar - Players[0].integers[initialExp];
      ConvertTime(progressTimer.getTime, h, m, s);
      XPHR := Round(XP * 1000.0 * (3600.0 / (progressTimer.getTime+1)));
      L0 := 'Waterfall Fisher by Scob';
      L1 := 'Working for: ' + ToString(h) + ' H, ' + ToString(m) + ' M, ' + ToString(s) + ' S';
      L2 := 'XP: ' + ToString(XP);
      L3 := 'XP/HR: ' + ToString(XPHR);
      L4 := 'Breaks: ' + toString(B);
      L5 := 'Antiban: ' +toString(A);
      smartImage.drawTextLines([L0, L1, L2, L3, L4, L5], Point(583, 490), statChars, False, clWhite);
    end;

    begin
      smartEnableDrawing := True;
      disableSRLDebug := False;
      setupSRL;
      declarePlayers();
      idleTime.setTime(random(170000, 220000));
      progressTimer.start;
      minimap.clickCompass();
      mainScreen.setAngle(MS_ANGLE_HIGH);
      exitTreasure();
      players[0].integers[initialExp] := chatbox.getXPBar;
       
      repeat
         if not isLoggedIn() then
       begin
        players[currentPlayer].login();
        exitTreasure();
        minimap.clickCompass();
        mainScreen.setAngle(MS_ANGLE_HIGH);
        ClickSpot();
       end;

        CheckIfFishing();
        Report;
        wait(random(2000, 4000));
        antiban();

      until false;
    end.

    Position is marked with a RED dot:


    XP counter position:


    And here is my latest achievment:


    TIPS: I've noticed that you have to start your bot when you are logged in to let the XP tracker collect correct data about initial XP. It's a trifle, but I can't figure out how to fix it :P. That's the only flaw I found in this bot.

    I'm waiting for your proggies!
    My record is 25 hrs

    PS Maybe I should start a new thread with this bot? Clarity?
    Last edited by scob; 04-08-2016 at 10:52 AM. Reason: Check for UPDATES here and copy new script, I will be adding some changes

  20. #20
    Join Date
    Dec 2011
    Posts
    77
    Mentioned
    5 Post(s)
    Quoted
    31 Post(s)

    Default

    Only thing I touched was the antiban, click area, and and fishing colors. Working nicely.

  21. #21
    Join Date
    Dec 2011
    Posts
    2,147
    Mentioned
    221 Post(s)
    Quoted
    1068 Post(s)

  22. #22
    Join Date
    Dec 2011
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by scob View Post
    You are welcome! Here is my updated version for spot 97 with progress report and random breaks. Other thing I improved is the way it checks if you are fishing. Previously it was checking if there is a whrilpool, this could be easily disturbed by other players fishing at the same spot, but now it checks precisely if YOU are fishing . Check it out and give me some proggies:

    Simba Code:
    program WaterfallFisher;  // Idea and some script by Clarity <3

    {$DEFINE SMART}
    {$I SRL-6/SRL.simba}

    const
      initialExp= 1;
      HAND_COLOR = 6710900;
      HAND_TOLERANCE = 5;
      HAND_HUE = 0.7;
      HAND_SAT = 2.0;
      HAND_SEARCHBOX: tBox = [266, 184, 279, 193];

      FISHING_POINT: tPoint = [265, 220];

      var
      progressTimer: TTimeMarker;
      B, A: integer;

    procedure declarePlayers();
    begin
      setLength(players, 1);
      with players[0] do
      begin
        loginName := '';       //Enter your login
        password := '';        //Enter your pass
        world := -1;           //Select world
        isActive := true;
        isMember := true;
      end
      currentPlayer := 0;
    end;

    var
      idleTime: tCountDown;

    function isFishing(): boolean;
    var
      tpa: tPointArray;
    begin
      if findColorsTolerance(tpa, HAND_COLOR, HAND_SEARCHBOX, HAND_TOLERANCE, colorSetting(2, HAND_HUE, HAND_SAT)) then
        result := true;
      writeln('Currently fishing: ' + toStr(result));
    end;

    var
      AB: TTimeMarker;
      NextAB: Integer;

    procedure antiban;
    Var
      I, ABMin, ETA, h, m, s: Integer;
    Begin
      if ((AB.time = -1) or (AB.getTime > NextAB)) then
      begin
        I := Random(3000);  // edit this value to change frequency of the antiban
        Case I Of           // LESS number= more frequent
          1..30:
            Begin
              inc(A);
              hoverSkill(SKILL_FISHING);
              Wait(Random(7000, 12000));
              TabBackpack.Open;
            End;
          31..37:                                            //edit this ex. 31..45:
            begin                                            //to make breaks more frequent
              inc(B);
              writeLn('Random break activated');
              wait(random(320000, 500000));                  //Break duration
            end;
          101..200:
            Begin
              inc(A);
              MouseOffClient(Random(4));
              Wait(GaussRangeInt(100, 2000));
            End;
          201..220:
            begin
                inc(A);                                      //checking voices
                mouse(44, 53, 11, 10, MOUSE_MOVE);
                Wait(random(4000, 5500));
                mouse(121, 52, 10, 10, MOUSE_MOVE);
                Wait(random(3000, 8000));
                mouseOffClient(OFF_CLIENT_RANDOM);
            end;
          221..230:
               begin
                inc(A);
                mouse(158, 473, 7, 7, MOUSE_LEFT);           //switching chats
                Wait(random(2000, 4505));
                mouse(243, 542, 45, 45, MOUSE_MOVE);
                Wait(random(3002, 6000));
                mouse(25, 471, 7, 7, MOUSE_LEFT);
                Wait(random(1700, 4900));
                mouseOffClient(OFF_CLIENT_RANDOM);
              end;
          261..320:
              begin
                inc(A);
                mouseMovingObject;
              end;
          391..451:
              begin
                inc(A);
                SleepAndMoveMouse(GaussRangeInt(100,1500));
              end;
        End;
        AB.reset; AB.start;
        NextAB := AB.getTime + 6000 + gaussRangeInt(2000, 6000);
      end;
      minimap.setAngle(MM_DIRECTION_NORTH);
      ETA := NextAB - AB.getTime;
    End;

    procedure ClickSpot();
       begin
          mouse(point(FISHING_POINT.X + random(-4, 4), FISHING_POINT.Y + random(-4, 4)), MOUSE_RIGHT, MOUSE_HUMAN);
          mouseSpeed := random(15, 35);
          chooseOption.select(['Lure']);
                writeLn('Succesfully clicked fishing spot');
          wait(random(1000, 2000));
          MouseOffClient(Random(4));
          idleTime.setTime(random(170000, 220000));
        end;

    procedure CheckIfFishing();
        begin
    if (not isFishing()) or idleTime.isFinished() then
          begin
            ClickSpot();
          end;
        end;

    procedure Report;
    var
      XP, XPHR, h, m, s, W: Integer;
      L0, L1, L2, L3, L4, L5: string;
    begin
      w := smartImage.getWidth;
      smartImage.clearArea(IntToBox(583,490, w-1,565));
      XP := chatbox.getXPBar - Players[0].integers[initialExp];
      ConvertTime(progressTimer.getTime, h, m, s);
      XPHR := Round(XP * 1000.0 * (3600.0 / (progressTimer.getTime+1)));
      L0 := 'Waterfall Fisher by Scob';
      L1 := 'Working for: ' + ToString(h) + ' H, ' + ToString(m) + ' M, ' + ToString(s) + ' S';
      L2 := 'XP: ' + ToString(XP);
      L3 := 'XP/HR: ' + ToString(XPHR);
      L4 := 'Breaks: ' + toString(B);
      L5 := 'Antiban: ' +toString(A);
      smartImage.drawTextLines([L0, L1, L2, L3, L4, L5], Point(583, 490), statChars, False, clWhite);
    end;

    begin
      smartEnableDrawing := True;
      disableSRLDebug := False;
      setupSRL;
      declarePlayers();
      idleTime.setTime(random(170000, 220000));
      progressTimer.start;
      minimap.clickCompass();
      mainScreen.setAngle(MS_ANGLE_HIGH);
      exitTreasure();
      players[0].integers[initialExp] := chatbox.getXPBar;
       
      repeat
         if not isLoggedIn() then
       begin
        players[currentPlayer].login();
        exitTreasure();
        minimap.clickCompass();
        mainScreen.setAngle(MS_ANGLE_HIGH);
        ClickSpot();
       end;

        CheckIfFishing();
        Report;
        wait(random(2000, 4000));
        antiban();

      until false;
    end.

    Position is marked with a RED dot:


    XP counter position:


    And here is my latest achievment:


    TIPS: I've noticed that you have to start your bot when you are logged in to let the XP tracker collect correct data about initial XP. It's a trifle, but I can't figure out how to fix it :P. That's the only flaw I found in this bot.

    I'm waiting for your proggies!
    My record is 25 hrs

    PS Maybe I should start a new thread with this bot? Clarity?
    You should start a thread for sure!

  23. #23
    Join Date
    Sep 2014
    Posts
    447
    Mentioned
    10 Post(s)
    Quoted
    203 Post(s)

    Default

    If anybody's interested, I've written a script for fishing + invention that's almost complete (just doing testing right now). Will be released in a couple days I hope, though I don't think too many people will use it, due to the high level requirement.

    I can alter my script to work for all the waterfall fishing spots without too much difficulty, might do that as well.

  24. #24
    Join Date
    Mar 2016
    Posts
    192
    Mentioned
    6 Post(s)
    Quoted
    91 Post(s)

  25. #25
    Join Date
    Dec 2011
    Posts
    77
    Mentioned
    5 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by yourule97 View Post
    If anybody's interested, I've written a script for fishing + invention that's almost complete (just doing testing right now). Will be released in a couple days I hope, though I don't think too many people will use it, due to the high level requirement.

    I can alter my script to work for all the waterfall fishing spots without too much difficulty, might do that as well.
    There's definitely an interest. Looking forward to it.

    Quote Originally Posted by scob View Post
    Good work!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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