Results 1 to 16 of 16

Thread: PowerFisher?

  1. #1
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default PowerFisher?

    It doesn't even need to fish everything, just power fish trout/salmon and check for randoms and anti ban <.<

    and yes, I did try to make this before I flat out requested the script, I even got help from 2 experienced scripters.

    SCAR Code:
    {I "used" Wizzups? whirlpool feature from his edgeville fisher
    but I don't know if it even works cuz my script won't compile!!}

    {Fixed by NaumanAkhlaQ}
     
    program PowerFisher;
    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    {.include srl/srl/skill/fishing.scar}
    const
    fishspot1= 15191480;
    fishspot2= 14858129;
    salmon= 5990048;
    trout= 10066341;
     
    var x, y, Tries: integer;
     
    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      Players[0].Name := ''; //username
      Players[0].Pass := ''; //password
      Players[0].Nick := ''; //3-4 letters from your username
      Players[0].Active := True;
    end;
     
    procedure AntiBan;
    begin
         if not LoggedIn then Exit;
         case Random(30) of
              1: RandomRClick;
              2: HoverSkill('Defense', False);
              3: BoredHuman;
              4: AlmostLogout;
         end;
    end;
     
    Function FindWhirlPool(x, y: integer): Boolean; forward;
     
    procedure AntiRandoms;
    begin
         If(FindFight)Then
         RunAway('N', True, 1, 15000);
         FindNormalRandoms;
         FindLamp('Defense');
         If FindWhirlPool(x, y) Then
            Begin
              Mouse(648, 84, 4, 4, True);
              Wait(100);
              WriteLn('Whirlpool found.');
              Inc(Whirlpools);
            End;
    end;
     
    Function FindWhirlPool(x, y: integer): Boolean;
     
    Var
       FishPoints: TPointArray;
       WhirlPoolAcc: Extended;
    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
    If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;
     
    procedure LureThatFish;
    begin
    if not LoggedIn then
       Exit;
       if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then
          Wait(100+random(75));
          Tries := Tries +1;
          if(Tries = 20)then
            begin
              Logout;
              Exit;
            end else
    if FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7) then
    repeat
          case (Random(1)) of
            1: begin                                 //Needs Begin and End Here
                 Mouse(x, y, 4, 4, false);
                 ChooseOption('ure');
                 FindNormalRandoms;
                 Wait(6000+(random(3000)))
               end;
          end;
          until (InvFull)
    end;
     
    procedure DropFish;       // Drop To doesnt work any more
    var i: integer;
    begin
    for i := 3 to 28 do    //FindObjCustom?! WTF man, Doesnt work for inventory.
      DropItem(i);
      FindNormalRandoms;
    end;
     
    begin
      SetupSRL;
      Wait(1000);
      declarePlayers;
      LoginPlayer;
      repeat
       LureThatFish;
       DropFish;
       AntiBan;
       AntiRandoms;
      until (False);
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    next time don't put a ? after you title now it is like you are asking for it
    ~Hermen

  3. #3
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am

    The one I posted doesn't work properly haha. I was just showing I've attempted it, and a scripter can even use that as a base. I just didn't want to come off like an absolute leecher.

  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by igotgrapes View Post
    I am

    The one I posted doesn't work properly haha. I was just showing I've attempted it, and a scripter can even use that as a base. I just didn't want to come off like an absolute leecher.
    :shame:, i will try something maybe give the white color of the fishing place?
    edit:
    next time i read your post lol :shame:
    edit2: don't use that many tries at find object find object repeats itself much to
    edit3: what is not working?
    ~Hermen

  5. #5
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It loads up, and then it doesn't find the fishing spot and it runs from whirlpools when there are none. I've actually been.... playing for the past 2 hours haha. It's weird, i've learned to be more efficient by watching scripts. But yeah, it never finds the spot, and when it does it won't click it to lure.

  6. #6
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then
    haha dude it only FINDS IT DOES NOT CLICK IT That X and Y are there because there the Coords of the found thing that are correct with the 'properties'(uptext lur or ure and the colors)

    then it will be saved in
    SCAR Code:
    X,Y
    then you have to call them again to click

    SCAR Code:
    Mouse(X, Y, 2, 2,True);
    ~Hermen

  7. #7
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    SCAR Code:
    if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then
    haha dude it only FINDS IT DOES NOT CLICK IT That X and Y are there because there the Coords of the found thing that are correct with the 'properties'(uptext lur or ure and the colors)

    then it will be saved in
    SCAR Code:
    X,Y
    then you have to call them again to click

    SCAR Code:
    Mouse(X, Y, 2, 2,True);
    Currently testing this.

  8. #8
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well I can't get it to work, could someone fool around with it and try to get it working properly please.

  9. #9
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What is the problem?? Did it finally click it after you added Mouse(x, y, 2, 2)?

  10. #10
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No it just logs in and sits there. I honestly thought that with zero scripting knowledge and a few tuts I could make a power fisher lol. I'm bout to go out tho so maybe someone can do something with it, if not it's cool tool.

  11. #11
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    <.< anyone please?

  12. #12
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  13. #13
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    try this
    SCAR Code:
    program PowerFisher;
    {.include srl/srl.scar}
    {.include srl/srl/skill/fishing.scar}
    const
    fishspot1= 15191480;
    fishspot2= 14858129;
    salmon= 5990048;
    trout= 10066341;

    var x, y, Tries: integer;

    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //username
      Players[0].Pass := ''; //password
      Players[0].Nick := ''; //3-4 letters from your username
      Players[0].Active := True;
    end;

    procedure AntiBan;
    begin
         if not LoggedIn then Exit;
         case Random(30) of
              1: RandomRClick;
              2: HoverSkill('Fishing', False);
              3: BoredHuman;
              4: AlmostLogout;
         end;
    end;

    procedure AntiRandoms;
    begin
      If(FindFight)Then
      RunAway('N', True, 1, 15000);
      FindNormalRandoms;
      FindLamp('Defense');
      HandleWhirlPool;
    end;



    procedure LureThatFish;
    begin
      if not LoggedIn then
      Exit;
      Tries:= 0;
      repeat
      if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 30))) then
      Wait(100+random(75));
      Tries := Tries +1;
      if(Tries = 20)then
      begin
        Logout;
        Exit;
      end else
      if FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 30) then
      repeat
      begin                                
        Mouse(x, y, 4, 4, false);
        ChooseOption('ure');
        FindNormalRandoms;
        Wait(10000+(random(5000)));
        antiban;
        Wait(10000+(random(5000)));
      end;
      until (InvFull);
      until (InvFull);
    end;

    procedure DropFish;
    var i: integer;
    begin
    for i := 3 to 28 do    
      DropItem(i);
      FindNormalRandoms;
    end;

    begin
      SetupSRL;
      Wait(1000);
      declarePlayers;
      LoginPlayer;
      repeat
       LureThatFish;
       DropFish;
       AntiBan;
       AntiRandoms;
      until (False);
    end.

    ~shut

  14. #14
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nop=/ it jus won't work for me.

  15. #15
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Findobj is currently not working
    try something else
    ~Hermen

  16. #16
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol i've fished legitly to 65 <.<

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. PowerFisher 0.03
    By RPS13x in forum OSR Help
    Replies: 10
    Last Post: 03-08-2009, 01:57 AM
  2. Srl 20 Powerfisher
    By jiggypwner in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 08-17-2008, 10:03 PM
  3. PowerFisher
    By JuvenileHall in forum OSR Help
    Replies: 4
    Last Post: 10-27-2007, 06:24 PM
  4. powerfisher help!
    By legendaryhero90 in forum OSR Help
    Replies: 5
    Last Post: 02-22-2007, 08:10 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
  •