Page 1 of 2 12 LastLast
Results 1 to 25 of 33

Thread: Joelster134's and Phoenix13nl's Fisher/Banker (Draynor)

  1. #1
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Joelster134's and Phoenix13nl's Fisher/Banker (Draynor)

    JOELSTER134 AND PHOENIX13NL PRESENT

    Draynor fisher and banker v1.31

    Uses Anti-Ban, Anti-Randoms (should now work better.) and ofcourse, it Fishes and Banks

    If you would like us to keep updating this script please write tell us your problems/suggestions/ideas


    Start somewhere between the Draynor bank and the fishingspots.

    Also please rate thread/rep Joelster134 and me for updates

    **Outdated, and No-longer Updated**
    I was about halfway rewriting this, but i stopped (cant remember why.. :/) but anyway, im no longer doing scar, just C# programming. sorry for that people that were trying to use this after i stopped, it had alot of bugs.
    Busy working on realtime C# ray tracer

  2. #2
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works nice. Might need a bit of tweaking on finding the fishing spot. (right clicks on speach box?)
    Maybe add a option for users with pins. Put SRL id into it.

    -reserved for proggy-

  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Non-SMART updated...now has SRL id etc btw it had smartworld : string; in Non-smart script! also fixed please rep me aswell as poenix13nl! + rate thread thanks.


    cant post in uploaded file so ill just copy and paste what i fixed here.
    BTW click on speech box = Part of AntiBan


    SCAR Code:
    ////////////////////////////////////////////////////////////////
    //                                                            //
    // *****    *****      **    **   **  ***  **   ****   *****  //
    // **  **   **  **    ** *    ** **   **** **  **  **  **  ** //
    // **   **  *****    ******    ***    ** ****  **  **  *****  //
    // **  **   **  **  **    **   **     **  ***  **  **  **  ** //
    // *****    **   ** **    **  **      **   **   ****   **   **//
    //                                                            //
    //        *****  **   ****   **   **  *****  *****            //
    //        **     **  **      **   **  **     **  **           //
    //        *****  **   ****   *******  *****  *****            //
    //        **     **      **  **   **  **     **  **           //
    //        **     **   ****   **   **  *****  **   **          //
    //                                                            //
    //                  **     ***  ** *****                      //
    //                 ** *    **** ** **  **                     //
    //                ******   ** **** **   **                    //
    //               **    **  **  *** **  **                     //
    //               **    **  **   ** *****                      //
    //                                                            //
    //      *****      **     ***  **  **  **  *****  *****       //
    //      **  **    ** *    **** **  ** **   **     **  **      //
    //      *****    ******   ** ****  ****    *****  *****       //
    //      **  **  **    **  **  ***  ** **   **     **  **      //
    //      *****   **    **  **   **  **  **  *****  **   **     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Description                           //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //  This is fisher will catch fish until the inventory is     //
    //  full. After it filled the inventory with fish it will     //
    //  walk to the bank and desposit it all.                     //
    //  This works for both net and bait fishing.                 //
    //                                                            //
    //  It contains AntiRandom, AntiBan, and it will notice if    //
    //  there is a whirlpool.                                     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Instructions                          //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //                MAKE SURE THAT YOU WILL...                  //
    //  Start in Draynor Village... with you fishing equipment    //
    //  in you first slot of your inventory, and your bait (if    //
    //  bait fishing) in the second one.                          //
    //  and that your inventory is not full, and that the         //
    //  fishinggspot icon appears on the map.                     //
    //                                                            //
    //  Write the data into the procedure of the DeclarePlayers   //
    //  pocedure. further instrunctions out there.                //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //      Script created by: Phoenix13nl and Joelster134        //
    ////////////////////////////////////////////////////////////////

    program DraynorFisherAndBanker;
    {.include SRL/SRL.Scar}

    const

     //SRL STATS
      YourID = 'blah'; // Your stats id here
      YourPW = 'extra blah'; //Your stats pw here


    var
       x, y, LoopCount, FishCount, xf, yf : integer;
       smartworld : string;

    procedure DeclarePlayers;
    begin
      howmanyplayers:=1;
      numberofplayers(howmanyplayers);
      players[0].name:='WriteUsernameHere';
      players[0].pass:='WritePasswordHere';
      players[0].nick:='WriteNicknameHere';  //Just write 3-4 letters of your username, use correct capitals.
      players[0].Integers[0]:=270; //Amount of fish to catch (About 27 fish per load of using net)
      players[0].active:=true;
      players[0].worked:=0;
    end;

    procedure AntiRandoms;
    begin
      if not(LoggedIn)then Exit;
      if not findnormalrandoms then
        begin
        findtalk;
        end;
      if findfight=true then runaway('E',true,1,4000+random(2000));
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
        0: PickUpMouse;
        1: RandomMovement;
        2: RandomRClick;
        3: case random(4) of
          0: HoverSkill('Fishing', false);
          1: HoverSkill('Cooking', false);
          2: HoverSkill('Woodcutting', false);
          3: HoverSkill('Firemaking', false);
          end;
      end;
    end;

    procedure WalkFish;
    begin
      if not LoggedIn then exit;
      KeyDown(VK_UP);
      wait(1500+random(500));
      KeyUp(VK_UP);
      wait(500+random(500));
      writeln('Angle set.');
      if (InvFull = True) then exit;
      wait(1500+random(500))
      if(FindSymbol(x,y,'fish'))then
      begin
        writeln('Walking to fishing spot.');
        AntiRandoms;
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(3000+random(1000))
        Antiban;
        AntiRandoms;
        wait(2000+random(500))
      end;
    end;

    Procedure CatchFish;
    begin
      if (InvFull = true) or (LoggedIn = false) then exit;
      repeat
        AntiRandoms;
        AntiBan;
        wait(500+random(500))
        if not FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then exit;
        repeat
          wait(1500+random(500)) //Dont not remove/move this line! will slow down RS by searching the ObjCustom before being able to find.
          if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
          begin
            runaway('E',true,1,200+random(200));
            writeln('Whirlpool spotted!')
            wait(2000+random(500));
            AntiRandoms;
            AntiBan;
            wait(7500+random(500));
          end;
          if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
          begin
            writeln('Net fishing spot spotted.');
            wait(100+random(50));
            Mouse(x, y, 1, 1, true);
            writeln('Fishing...');
            wait(5000+random(2500));
            if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
            begin
              runaway('E',true,1,200+random(200));
              writeln('Whirlpool spotted!')
              wait(2000+random(500));
              AntiRandoms;
              AntiBan;
              wait(7500+random(500));
            end;
            AntiRandoms;
            AntiBan;
            wait(3000+random(2500));
          end;
      until(InvFull = true);
    until(InvFull = true);
    FishCount:=FishCount+1;
    MMouse(648,57,4,4);
    wait(100+random(50));
    Mouse(648,57,1,1,true);
    wait(2000+random(1000))
    end;

    procedure WalkBank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      wait(1000+random(500))
      if(FindSymbol(x,y,'bank'))then
      begin
        Writeln('Bank found.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(5000+random(1000));
        AntiBan;
        AntiRandoms;
        wait(4500+random(1000));
      end;
    end;

    procedure Bank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      repeat
      if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
      begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,False);
        wait(1000+random(500))
        if ChooseOption('se-q') then
        begin
          wait(3500+random(500));
          deposit(3,28,true);
          wait(1500+random(500));
          MMouse(489,33,4,4);
          wait(100+random(50));
          Mouse(489,33,1,1,true);
          wait(1500+random(500));
          MMouse(609,129,4,4);
          wait(100+random(50));
          Mouse(609,129,1,1,true);
          AntiBan;
          wait(6000+random(2000));
          end;
        end;
      until(InvFull = false)
    end;

    begin
      cleardebug;
      setupsrl;
      lampskill:='fishing'; //Change into any skill... make sure its written corretly!
      declareplayers;
      currentplayer:=0;
      logout;
      closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
      loginplayer;
      Repeat
        if not loggedin then exit;
        WalkFish;
        CatchFish;
        WalkBank;
        Bank;
        if (InvFull = True) then break;
        Cleardebug;
        LoopCount:=LoopCount+1;
        Writeln(IntToStr(LoopCount) + ' loops completed.');
        Writeln('About ' + IntToStr(FishCount * 27) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish caught.');
      Until(FishCount * 27>= Players[CurrentPlayer].Integers[0]);
    logout;
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated the scripts to v1.1, very minor changes... Joelster134 added SRL stat things and removed a line that i forgot to, and Phoenix (me :P) included a line to type your pin in, and made some sort of Progressreport.

    also updated my scriptpack, and im realy happy no one Downloaded the first one yet cuz i just noticed it contained a script which still had my pass in it... (the script pack for most part contains scripts made by me in like 5 minutes :P but also a pair of 'good' ones :P like this)
    Busy working on realtime C# ray tracer

  5. #5
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for updates will test new version now...fell asleep grrrrrr stupid alarm didn't go off at midnight


    BTW fishing walk might be a bit to slow...so if youru sing nonsmart version click on WalkFish procedure then add in this


    SCAR Code:
    begin
        writeln('Walking to fishing spot.');
        AntiRandoms;
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(3000+random(1000))
        Antiban;
        AntiRandoms;
        wait(2000+random(5000))
      end;
    end;

    instead of
    SCAR Code:
    begin
        writeln('Walking to fishing spot.');
        AntiRandoms;
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(3000+random(1000))
        Antiban;
        AntiRandoms;
        wait(2000+random(500))
      end;
    end;
    IM BACK!!!!!!!!!!!!!!!!!

  6. #6
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    v1.2 released, now runs to the fishingspot, and doesnt wait that long before fishing now, should also pick up fishing nets in sight. but beware, if there is a net which isnt in the first or second slot of inventory, ALL NETS WILL BE BANKED..

    would the function: ArrangeInv; fix that? not sure waht it does...
    Busy working on realtime C# ray tracer

  7. #7
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Testing now...get home from school FAST lol...will post how it ran in 10-30mins sleep time till then yay! **note** putting alarm on extra loud!

    i don't HATE smart as such..i just don't like it...i mean why auto when at computer? i thought point of it was to be AFK..anyways it can be debated...


    Error btw (non smart) Failed when compiling
    Line 244: [Error] (16266:11): Duplicate identifier 'BANK' in script C:\Documents and Settings\Joel\Desktop\Joels AUto FIshers\DraynorFisher[v1.2].scar

    SCAR Code:
    procedure Bank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      repeat
      if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
      begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,False);
        wait(1000+random(500))
        if ChooseOption('se-q') then
        begin
          wait(3500+random(500));
          deposit(3,28,true);
          wait(1500+random(500));
          MMouse(489,33,4,4);
          wait(100+random(50));
          Mouse(489,33,1,1,true);
          wait(1500+random(500));
          MMouse(609,129,4,4);
          wait(100+random(50));
          Mouse(609,129,1,1,true);
          AntiBan;
          wait(6000+random(2000));
          end;
        end;
      until(InvFull = false)
    end;

    delete this (one AFTER proggy) then it will run
    IM BACK!!!!!!!!!!!!!!!!!

  8. #8
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ################################################## #################
    Draynor Fisher v1.2
    Ran for: 13 Minutes and 31 Seconds
    Loads done: 1
    Fish caught: 27 out of 54 fish caught.
    ################################################## #################

    first proggy yay me..
    IM BACK!!!!!!!!!!!!!!!!!

  9. #9
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Impoved the netfinding procedure, script now notices if net is in (slot 1-4 of) inventory. and should pick it up when the net is in sight. (equipment should always be in first or second slot) also runs away now if HP<25%. (because low lvls will get attack by the mage.)

    the script will only work for net now, if any one would like to have it able to fish with rod to, tell me and ill update.
    Busy working on realtime C# ray tracer

  10. #10
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by joelster134 View Post
    Testing now...get home from school FAST lol...will post how it ran in 10-30mins sleep time till then yay! **note** putting alarm on extra loud!

    i don't HATE smart as such..i just don't like it...i mean why auto when at computer? i thought point of it was to be AFK..anyways it can be debated...


    Error btw (non smart) Failed when compiling
    Line 244: [Error] (16266:11): Duplicate identifier 'BANK' in script C:\Documents and Settings\Joel\Desktop\Joels AUto FIshers\DraynorFisher[v1.2].scar

    SCAR Code:
    procedure Bank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      repeat
      if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
      begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,False);
        wait(1000+random(500))
        if ChooseOption('se-q') then
        begin
          wait(3500+random(500));
          deposit(3,28,true);
          wait(1500+random(500));
          MMouse(489,33,4,4);
          wait(100+random(50));
          Mouse(489,33,1,1,true);
          wait(1500+random(500));
          MMouse(609,129,4,4);
          wait(100+random(50));
          Mouse(609,129,1,1,true);
          AntiBan;
          wait(6000+random(2000));
          end;
        end;
      until(InvFull = false)
    end;

    delete this (one AFTER proggy) then it will run
    wow, thats an bad messy mistake lol, i forgot to overwrite the banking procedure so it had two, but its V1.25 now and fixed
    Busy working on realtime C# ray tracer

  11. #11
    Join Date
    Jul 2008
    Location
    England
    Posts
    763
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ################################################## #################
    Draynor Fisher v1.2
    Ran for: 21 Minutes and 34 Seconds.
    Loads done: 4
    Fish caught: 108 out of 270 fish caught.
    ################################################## #################


    very nice script but i don't think it has FindNormalRandoms
    lol

  12. #12
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will try fix now
    IM BACK!!!!!!!!!!!!!!!!!

  13. #13
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For NON SMART script try this now should have FindnormalRandoms; + got rid of Smart World S:string;




    SCAR Code:
    ////////////////////////////////////////////////////////////////
    //                                                            //
    // *****    *****      **    **   **  ***  **   ****   *****  //
    // **  **   **  **    ** *    ** **   **** **  **  **  **  ** //
    // **   **  *****    ******    ***    ** ****  **  **  *****  //
    // **  **   **  **  **    **   **     **  ***  **  **  **  ** //
    // *****    **   ** **    **  **      **   **   ****   **   **//
    //                                                            //
    //        *****  **   ****   **   **  *****  *****            //
    //        **     **  **      **   **  **     **  **           //
    //        *****  **   ****   *******  *****  *****            //
    //        **     **      **  **   **  **     **  **           //
    //        **     **   ****   **   **  *****  **   **          //
    //                                                            //
    //                  **     ***  ** *****                      //
    //                 ** *    **** ** **  **                     //
    //                ******   ** **** **   **                    //
    //               **    **  **  *** **  **                     //
    //               **    **  **   ** *****                      //
    //                                                            //
    //      *****      **     ***  **  **  **  *****  *****       //
    //      **  **    ** *    **** **  ** **   **     **  **      //
    //      *****    ******   ** ****  ****    *****  *****       //
    //      **  **  **    **  **  ***  ** **   **     **  **      //
    //      *****   **    **  **   **  **  **  *****  **   **     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Description                           //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //  This is fisher will catch fish until the inventory is     //
    //  full. After it filled the inventory with fish it will     //
    //  walk to the bank and desposit it all.                     //
    //  This works for both net and bait fishing.                 //
    //                                                            //
    //  It contains AntiRandom, AntiBan, and it will notice if    //
    //  there is a whirlpool.                                     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Instructions                          //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //                MAKE SURE THAT YOU WILL...                  //
    //  Start in Draynor Village... with you fishing equipment    //
    //  in you first slot of your inventory, and your bait (if    //
    //  bait fishing) in the second one.                          //
    //  and that your inventory is not full, and that the         //
    //  fishinggspot icon appears on the map.                     //
    //                                                            //
    //  Write the data into the procedure of the DeclarePlayers   //
    //  pocedure. further instrunctions out there.                //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //      Script created by: Phoenix13nl and Joelster134        //
    ////////////////////////////////////////////////////////////////

    program DraynorFisherAndBanker;
    {.include SRL/SRL.Scar}

    var
       x, y, LoopCount, FishCount, xf, yf, NetDTM : integer;


    const

     //SRL STATS
      YourID = 'blah'; // Your stats id here
      YourPW = 'extra blah'; //Your stats pw here

    procedure DeclarePlayers;
    begin
      howmanyplayers:=1;
      numberofplayers(howmanyplayers);
      players[0].name:='WriteUsernameHere';
      players[0].pass:='WritePasswordHere';
      players[0].nick:='WriteNicknameHEre';  //Just write 3-4 letters of your username, use correct capitals.
      players[0].pin :=''; //Leave blank if no pin.
      players[0].Integers[0]:=270; //Amount of fish to catch (About 27 fish per load when using net)
      players[0].active:=true;
      players[0].worked:=0;
    end;


    procedure Init;
    begin
      NetDTM := DTMFromString('78DA63B465666078C0C8800A189148206D0D5' +
         '47395801A5DA09A2704D47802D5DC25A0C68C0835CE40356F09A8' +
         '7107AA798C5F0D0051850803');
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if not(LoggedIn)then Exit;
      if not findnormalrandoms then
        begin
        findtalk;
        end;
      if findfight=true then runaway('E',true,1,4000+random(2000));
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
        0: PickUpMouse;
        1: RandomMovement;
        2: RandomRClick;
        3: case random(4) of
          0: HoverSkill('Fishing', false);
          1: HoverSkill('Cooking', false);
          2: HoverSkill('Woodcutting', false);
          3: HoverSkill('Firemaking', false);
          end;
      end;
    end;

    procedure WalkFish;
    begin
      if not LoggedIn then exit;
      KeyDown(VK_UP);
      wait(1500+random(500));
      KeyUp(VK_UP);
      wait(500+random(500));
      writeln('Angle set.');
      if (InvFull = True) then exit;
      wait(1500+random(500))
      if(FindSymbol(x,y,'fish'))then
     begin
        SetRun(True)
        writeln('Walking to fishing spot.');
        AntiRandoms;
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(3000+random(1000))
        Antiban;
        AntiRandoms;
        wait(2000+random(500))
      end;
    end;

    Procedure CatchFish;
    begin
      if (InvFull = true) or (LoggedIn = false) then exit;
      repeat
        AntiRandoms;
        AntiBan;
        wait(500+random(500))
        if not FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then exit;
        repeat
          if not(FindDTM(NetDTM,x,y,550,205,735,255))then
          begin
            writeln('Cant find net in inventory.')
            if not FindObjCustom(x, y, ['Small', 'all f', 'ng net'], [1053978, 1185564, 1844268], 3) then exit;
            wait(1500+random(500));
            Mouse(x, y, 1, 1, true);
            writeln('Found net on ground.')
            if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
            writeln('Net sucsesfully picked up.')
          end;
          wait(1500+random(500)) //Dont not remove/move this line! will slow down RS by searching the ObjCustom before being able to find.
          if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
          begin
            runaway('E',true,1,200+random(200));
            writeln('Whirlpool spotted!')
            wait(2000+random(500));
            AntiRandoms;
            AntiBan;
            wait(7500+random(500));
          end;
          if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
          begin
            writeln('Net fishing spot spotted.');
            wait(100+random(50));
            Mouse(x, y, 1, 1, true);
            writeln('Fishing...');
            wait(5000+random(2500));
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
            if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
            begin
              runaway('E',true,1,200+random(200));
              writeln('Whirlpool spotted!')
              wait(2000+random(500));
              AntiRandoms;
              AntiBan;
              wait(7500+random(500));
            end;
            AntiRandoms;
            AntiBan;
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
            wait(3000+random(2500));
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
          end;
      until(InvFull = true);
    until(InvFull = true);
    FishCount:=FishCount+1;
    MMouse(648,57,4,4);
    wait(100+random(50));
    Mouse(648,57,1,1,true);
    wait(2000+random(1000))
    end;

    procedure WalkBank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      wait(1000+random(500))
      if(FindSymbol(x,y,'bank'))then
      begin
        Writeln('Bank found.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(5000+random(1000));
        AntiBan;
        AntiRandoms;
        wait(4500+random(1000));
      end;
    end;

    procedure Bank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      repeat
      if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
      begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,False);
        wait(1000+random(500))
        if ChooseOption('se-q') then
        begin
          wait(3500+random(500));
          deposit(3,28,true);
          wait(1500+random(500));
          MMouse(489,33,4,4);
          wait(100+random(50));
          Mouse(489,33,1,1,true);
          wait(1500+random(500));
          MMouse(609,129,4,4);
          wait(100+random(50));
          Mouse(609,129,1,1,true);
          AntiBan;
          wait(6000+random(2000));
          end;
        end;
      until(InvFull = false)
    end;

    procedure ProgressReport;
    begin
      writeLn('###################################################################');
      writeLn('                     Draynor Fisher v1.2 ');
      writeLn('                 Ran for: ' + TimeRunning);
      writeLn('                 Loads done: ' + IntToStr(FishCount));
      Writeln('                 Fish caught: ' + IntToStr(FishCount * 27) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish caught.');
      writeLn('###################################################################');
    end;

    begin
      cleardebug;
      init;
      setupsrl;
      lampskill:='fishing'; //Change into any skill... make sure its written corretly!
      declareplayers;
      currentplayer:=0;
      logout;
      closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
      loginplayer;
      Repeat
        if not loggedin then exit;
        WalkFish;
        CatchFish;
        WalkBank;
        Bank;
        if (InvFull = True) then break;
        Cleardebug;
        LoopCount:=LoopCount+1;
        ProgressReport;
      Until(FishCount * 27>= Players[CurrentPlayer].Integers[0]);
    logout;
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  14. #14
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Extremley sorry for double/triple posts..just adding new updates


    Fishing time was to fast for a lvl 1-20 fisher so i made it abit longer...also FindNormalRandoms; has been included now as well

    here it is!

    SCAR Code:
    ////////////////////////////////////////////////////////////////
    //                                                            //
    // *****    *****      **    **   **  ***  **   ****   *****  //
    // **  **   **  **    ** *    ** **   **** **  **  **  **  ** //
    // **   **  *****    ******    ***    ** ****  **  **  *****  //
    // **  **   **  **  **    **   **     **  ***  **  **  **  ** //
    // *****    **   ** **    **  **      **   **   ****   **   **//
    //                                                            //
    //        *****  **   ****   **   **  *****  *****            //
    //        **     **  **      **   **  **     **  **           //
    //        *****  **   ****   *******  *****  *****            //
    //        **     **      **  **   **  **     **  **           //
    //        **     **   ****   **   **  *****  **   **          //
    //                                                            //
    //                  **     ***  ** *****                      //
    //                 ** *    **** ** **  **                     //
    //                ******   ** **** **   **                    //
    //               **    **  **  *** **  **                     //
    //               **    **  **   ** *****                      //
    //                                                            //
    //      *****      **     ***  **  **  **  *****  *****       //
    //      **  **    ** *    **** **  ** **   **     **  **      //
    //      *****    ******   ** ****  ****    *****  *****       //
    //      **  **  **    **  **  ***  ** **   **     **  **      //
    //      *****   **    **  **   **  **  **  *****  **   **     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Description                           //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //  This is fisher will catch fish until the inventory is     //
    //  full. After it filled the inventory with fish it will     //
    //  walk to the bank and desposit it all.                     //
    //  This works for both net and bait fishing.                 //
    //                                                            //
    //  It contains AntiRandom, AntiBan, and it will notice if    //
    //  there is a whirlpool.                                     //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //                      Instructions                          //
    ////////////////////////////////////////////////////////////////
    //                                                            //
    //                MAKE SURE THAT YOU WILL...                  //
    //  Start in Draynor Village... with you fishing equipment    //
    //  in you first slot of your inventory, and your bait (if    //
    //  bait fishing) in the second one.                          //
    //  and that your inventory is not full, and that the         //
    //  fishinggspot icon appears on the map.                     //
    //                                                            //
    //  Write the data into the procedure of the DeclarePlayers   //
    //  pocedure. further instrunctions out there.                //
    //                                                            //
    ////////////////////////////////////////////////////////////////
    //      Script created by: Phoenix13nl and Joelster134        //
    ////////////////////////////////////////////////////////////////

    program DraynorFisherAndBanker;
    {.include SRL/SRL.Scar}

    var
       x, y, LoopCount, FishCount, xf, yf, NetDTM : integer;


    const

     //SRL STATS
      YourID = 'blah'; // Your stats id here
      YourPW = 'lblahblah'; //Your stats pw here

    procedure DeclarePlayers;
    begin
      howmanyplayers:=1;
      numberofplayers(howmanyplayers);
      players[0].name:='';
      players[0].pass:='';
      players[0].nick:='';  //Just write 3-4 letters of your username, use correct capitals.
      players[0].pin :=''; //Leave blank if no pin.
      players[0].Integers[0]:=54; //Amount of fish to catch (About 27 fish per load when using net)
      players[0].active:=true;
      players[0].worked:=0;
    end;


    procedure Init;
    begin
      NetDTM := DTMFromString('78DA63B465666078C0C8800A189148206D0D5' +
         '47395801A5DA09A2704D47802D5DC25A0C68C0835CE40356F09A8' +
         '7107AA798C5F0D0051850803');
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if not(LoggedIn)then Exit;
      if not findnormalrandoms then
        begin
        findtalk;
        end;
      if findfight=true then runaway('E',true,1,4000+random(2000));
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      case random(4) of
        0: PickUpMouse;
        1: RandomMovement;
        2: RandomRClick;
        3: case random(4) of
          0: HoverSkill('Fishing', false);
          1: HoverSkill('Cooking', false);
          2: HoverSkill('Woodcutting', false);
          3: HoverSkill('Firemaking', false);
          end;
      end;
    end;

    procedure WalkFish;
    begin
      if not LoggedIn then exit;
      KeyDown(VK_UP);
      wait(1500+random(500));
      KeyUp(VK_UP);
      wait(500+random(500));
      writeln('Angle set.');
      if (InvFull = True) then exit;
      wait(1500+random(500))
      if(FindSymbol(x,y,'fish'))then
     begin
        SetRun(True)
        writeln('Walking to fishing spot.');
        AntiRandoms;
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(3000+random(1000))
        Antiban;
        AntiRandoms;
        wait(2000+random(500))
      end;
    end;

    Procedure CatchFish;
    begin
      if (InvFull = true) or (LoggedIn = false) then exit;
      repeat
        AntiRandoms;
        AntiBan;
        wait(500+random(500))
        if not FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then exit;
        repeat
          if not(FindDTM(NetDTM,x,y,550,205,735,255))then
          begin
            writeln('Cant find net in inventory.')
            if not FindObjCustom(x, y, ['Small', 'all f', 'ng net'], [1053978, 1185564, 1844268], 3) then exit;
            wait(1500+random(500));
            Mouse(x, y, 1, 1, true);
            writeln('Found net on ground.')
            if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
            writeln('Net sucsesfully picked up.')
          end;
          wait(1500+random(500)) //Dont not remove/move this line! will slow down RS by searching the ObjCustom before being able to find.
          if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
          begin
            runaway('E',true,1,200+random(200));
            writeln('Whirlpool spotted!')
            wait(2000+random(500));
            AntiRandoms;
            AntiBan;
            wait(7500+random(500));
          end;
          if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
          begin
            writeln('Net fishing spot spotted.');
            wait(100+random(50));
            Mouse(x, y, 1, 1, true);
            writeln('Fishing...');
            wait(5000+random(25000));
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
            if FindObjCustom(xf, yf, [], [10591393, 11052199], 3) then
            begin
              runaway('E',true,1,200+random(200));
              writeln('Whirlpool spotted!')
              wait(2000+random(500));
              AntiRandoms;
              AntiBan;
              wait(7500+random(500));
            end;
            AntiRandoms;
            AntiBan;
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
            wait(3000+random(2500));
            if HPpercent<25 then runaway('E',true,1,4000+random(2000));
          end;
      until(InvFull = true);
    until(InvFull = true);
    FishCount:=FishCount+1;
    MMouse(648,57,4,4);
    wait(100+random(50));
    Mouse(648,57,1,1,true);
    wait(2000+random(1000))
    end;

    procedure WalkBank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      wait(1000+random(500))
      if(FindSymbol(x,y,'bank'))then
      begin
        Writeln('Bank found.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        wait(5000+random(1000));
        AntiBan;
        AntiRandoms;
        wait(4500+random(1000));
      end;
    end;

    procedure Bank;
    begin
      if not LoggedIn then exit;
      if not (InvFull = true) then exit;
      repeat
      if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
      begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,False);
        wait(1000+random(500))
        if ChooseOption('se-q') then
        begin
          wait(3500+random(500));
          deposit(3,28,true);
          wait(1500+random(500));
          MMouse(489,33,4,4);
          wait(100+random(50));
          Mouse(489,33,1,1,true);
          wait(1500+random(500));
          MMouse(609,129,4,4);
          wait(100+random(50));
          Mouse(609,129,1,1,true);
          AntiBan;
          wait(6000+random(2000));
          end;
        end;
      until(InvFull = false)
    end;

    procedure ProgressReport;
    begin
      writeLn('###################################################################');
      writeLn('                     Draynor Fisher v1.2 ');
      writeLn('                 Ran for: ' + TimeRunning);
      writeLn('                 Loads done: ' + IntToStr(FishCount));
      Writeln('                 Fish caught: ' + IntToStr(FishCount * 27) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish caught.');
      writeLn('###################################################################');
    end;

    begin
      cleardebug;
      init;
      setupsrl;
      lampskill:='fishing'; //Change into any skill... make sure its written corretly!
      declareplayers;
      currentplayer:=0;
      logout;
      closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
      loginplayer;
      Repeat
        if not loggedin then exit;
        WalkFish;
        CatchFish;
        WalkBank;
        Bank;
        if (InvFull = True) then break;
        Cleardebug;
        LoopCount:=LoopCount+1;
        ProgressReport;
      Until(FishCount * 27>= Players[CurrentPlayer].Integers[0]);
    logout;
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  15. #15
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Please try to avoid double posting.
    ~Eerik~

  16. #16
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah sorry bout that :S just wanted to post updates...sorry
    IM BACK!!!!!!!!!!!!!!!!!

  17. #17
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Joelster, what did you do for the antidrandom? i cant find any changes...:S
    ill update it after we fixed a few more things ok? just need to fdigure out what things, any suggestionss? make it support baitfishing as welll? something else? please post.

    edit: if i get this function to work: CountItemDTM i can actualy count this fish caught precisly, but it says its an invailid identifier, and whne i {Include SRL/SRL/misc/amount.scar}
    it says error in line.. 33 i think, duplicate identifier tradechars... will try to update scar and see if it works tommorow.
    will also look for making a function that it can cook fish after total # of fish caught. but only after i got the counting working.
    Busy working on realtime C# ray tracer

  18. #18
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i added in FindNormalRandoms; also make it use bait fishing and maybe able to power fish instead of banking..just ideas....plus i made the time it takes before fishing new spot longer so lower level fishers have a better way to use this
    IM BACK!!!!!!!!!!!!!!!!!

  19. #19
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    V1.3 is out, improved the fish counting, now actualy counts instead of guessing.
    aslo DOES SUPPORT BAITFISHING now minor other changes.

    will try to start on a cooking thing tonight. so that it might cook all fish after the total # of fish to fish is reached.
    Busy working on realtime C# ray tracer

  20. #20
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Minor change, v1.31 will now run away when figthing instead when HP<25% and if HP is still <25% at end of loop it will log out if you left 'Yes' in the const LowHP.

    edit: sorry, i had to re-upload again, i forgot to add: GameTab(4); so it wasnt always looking in inventory when searching net, should be fixed now!

    Fishtype is set on 'Bait' change to 'Net' if you want to fish with net.

    still havent thought about anything to recognize a whirlpool, it does contain something but that does not work... any suggestions/idea's are welcome
    Busy working on realtime C# ray tracer

  21. #21
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ill find a Whirlpool FInder...but u owe me kidding
    IM BACK!!!!!!!!!!!!!!!!!

  22. #22
    Join Date
    Jul 2008
    Location
    England
    Posts
    763
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    use the one from Wizzup?s Edgeville Fisher
    lol

  23. #23
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;
       cts: Integer;

    Begin
      Result := False;
      If Not LoggedIn Then Exit;
      cts := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      setcolorspeed2modifiers(20.0, 2.0);
      FindColorsTolerance(FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 5);
      setcolorspeed2modifiers(0.2, 0.2);
      If Length(FishPoints) < 2000 Then
        Exit;
      WriteLn('WhirlPool pixels: ' + IntToStr(Length(FishPoints)));
      If Length(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(FloatToStr(Length(FishPoints) / 1600.0)+ '% is whirlpool');
        Result := True;
      End;
      ColorToleranceSpeed(cts);
    End;

    var
      x, y, Ran, Whirl: Integer;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      FindLamp(Skill);
      if(FindWhirlPool(x, y)) then
      begin
        WriteLn('Found Whirl Pool.');
        Mouse(MMCX + 3, MMCY, 0, 0, True);
        Whirl := Whirl + 1;
      end;
      if(FindFight) then
      begin
        MakeCompass(RunDir);
        RunAway(RunDir, True, 1, 20000);
        Ran := Ran + 1;
        MakeCompass('E');
      end;
    end;

    procedure AntiBan;
    begin
      case random(15) of
      0:begin
          HoverSkill('random', False);
          AntiRandoms;
          Exit;
        end;
      8:begin
          BoredHuman;
          AntiRandoms;
          Exit;
        end;
      5:begin
          Retaliate(True);
          AntiRandoms;
          Exit;
        end;
      3:begin
          GameTab(random(12)+1);
          AntiRandoms;
          Exit;
        end;
      12:begin
          RandomRClick;
          AntiRandoms;
          Exit;
        end;
      7:begin
          PickUpMouse;
          AntiRandoms;
          Exit;
        end;
      15:begin
          HoverSkill('fishing', False);
          AntiRandoms;
          Exit;
        end;
      end;
    end;
    from wizzup? creds to him!
    IM BACK!!!!!!!!!!!!!!!!!

  24. #24
    Join Date
    Oct 2008
    Location
    The Netherlands
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah, so stupid... should have checked Fishing.scar... its in there....
    i whas also thinking to make him withdraw a net/rod from bank, if i managed to, and added this, it should be able to work pefect... will also add the abilty to let the script quit after an specified amount of time, but it can be disabeled. im gonna work on it afther i finished fishing

    Prggy from v1.31

    All my skills were lvl 1, fishing to, so it took very long.
    ################################################## #################
    Draynor Fisher v1.3
    Ran for: 1 Hours, 40 Minutes and 52 Seconds
    Total fish caught: 270 out of 300 fish.
    Loads done: 10
    Nets/Rods sucsesfully picked up: 1
    ################################################## #################
    died when almost finished... the running away works realy well though, i've escaped from wizard dozens of times
    Busy working on realtime C# ray tracer

  25. #25
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok sounds good...going potatoing peoples houses tonight ill post proggy when i get back wewt!


    maybe make it if it loses net/rod it walks to bank types 'net' or 'rod' in search and withdraws next one...just future ideas...


    ---------------------Reserved for Proggy-------------


    BTW IT SAID HP BELOW 25% WEN IT WAS 10/10? AND I SAID NOT LOGGING OUT AND STILL DID?
    ALSO DID SAME WITH IT TURNED TO USE..

    so im using previous version, will post proggy later
    IM BACK!!!!!!!!!!!!!!!!!

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Draynor Fisher
    By masterdest in forum RS3 Outdated / Broken Scripts
    Replies: 31
    Last Post: 05-25-2008, 06:55 AM
  2. al kharid smith-banker & draynor willow cutter-banker
    By rivon in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-03-2008, 09:51 AM
  3. Draynor Fisher
    By masterdest in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 03-18-2007, 01:17 AM

Posting Permissions

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