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

Thread: Ultimate RuneBuyer

  1. #1
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Ultimate RuneBuyer

    Features:
    -Buys fires, airs, chaos, deaths, waters, bodys, earths, and minds.
    -Buys runes from the squire at the void outpost, Betty in port sarim, or Aubry in Varrock.
    -SWITCHES WORLDS, a feature that few other bots have, so it can buy runes much faster.
    -Uses hard to detect mouse procedures that wont get you banned.
    -Has anti-randoms.
    -Has a timer so you can decide how many minutes you want to buy runes.

    If you need help making it go contact me via pm.

    SCAR Code:
    program UltimateRuneBuyer;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Misc/Amount.scar}
    {.include SRL/SRL/Misc/Playerform.scar}

    {This script will buy runes from the squire at pest control, from aubry
    in varrock, or from betty in port sarim.  It will then SWITCH WORLDS
    and buy from a full shop.  If you have any suggestions please
    pm me, I'd appreciate it.  Written and tested in SCAR 2.03.

    -----------SETUP------------
    1. Station the account with money at Aubry, Betty, or the Squire.
    2. Complete the simple setup on lines 28-37
    3. Run the script (push the green play button) and fill out the form
         -Username
         -Password
         -3-4 letters from your name (for anti-random detection)
         -*Location (leave this blank)
         -Skill to raise if you get a genie
    4. Push OK.

    Credits
    SoupyBastrd and the rs-resources community
    SRL-Forums.com for making SRL
    }


    const
    Version = '2.2';//version number, don't change
    Shop = 'Aubry'; //Buy from Betty, Aubry, or Squire?
    Chaos = 'True'; //Put true for the runes you want to buy
    Death = 'True';
    Mind = 'False';
    Body = 'False';
    Air = 'False';
    Water = 'False';
    Earth = 'False';
    Fire = 'False';
    TimeToBuy = 5;  //Number of minutes you want to buy runes

    var xx, yy, time:integer;

    Function FindSquire:Boolean;
    begin
      wait(100+random(300));
    if(findobj3(xx,yy,'Sq',1586243,5))then
        begin
       Mouse(xx,yy,2,2,False);
       chooseoption(x,y,'Trade');
       flag;
       wait(2000+random(400));
       if(ShopScreen)then
       begin
        Result := True;
       end
      end
      else
    Begin
      Result := False;
    end;
    end;

    Function FindBetty:Boolean;
    begin
      wait(100+random(300));
    if(findobj3(xx,yy,'Bet',6359394,5))then
        begin
       Mouse(xx,yy,2,2,False);
       chooseoption(x,y,'Trade');
       flag;
       wait(2000+random(400));
       if(ShopScreen)then
       begin
        Result := True;
       end
      end
    else
    Begin
      Result := False;
    end;
    end;

    Function FindAubry:Boolean;
    begin
      wait(100+random(300));
    if(findobj3(xx,yy,'Aub',1754335,4))then
        begin
       Mouse(xx,yy,3,3,False);
       chooseoption(x,y,'Trade');
       flag;
       wait(2000+random(400));
       if(ShopScreen)then
       begin
        Result := True;
       end
      end
    else
    Begin
      Result := False;
    end;
    end;

    Procedure AntiRandoms;
    begin
    if(InBlack)then
      begin
       Logout;
      end;
         FindLamp(LampSkill);
         FindNormalRandoms;
         SRLRandomsReport;
    end;

    Procedure FindShop;
    var Zuchinni, carrot, mushroom: integer;
    begin
      if(Shop = 'Squire') then
      begin
      MarkTime(Zuchinni)
      repeat
      wait(50)
      AntiRandoms;
      If(TimeFromMark(Zuchinni)>2*60000)then
        begin
        WriteLn('Could not find Squire')
        LogOut;
        TerminateScript;
        end;
      until(FindSquire)
      end;

      if(Shop = 'Betty') then
      begin
      MarkTime(carrot)
      repeat
      wait(50)
      AntiRandoms;
      If(TimeFromMark(carrot)>2*60000)then
        begin
        WriteLn('Could not find Betty')
        LogOut;
        TerminateScript;
        end;
      until(FindBetty)
      end;

      if(Shop = 'Aubry') then
      begin
      MarkTime(mushroom)
      repeat
      wait(50)
      AntiRandoms;
      If(TimeFromMark(mushroom)>2*60000)then
        begin
        WriteLn('Could not find Aubry')
        LogOut;
        TerminateScript;
        end;
      until(FindAubry)
      end;
      end;

    //RuneBuying Procedures
    Procedure BuyFire;
    begin
    If(Fire = 'True') then
    begin
    If(((RuneAmount('shop','fire')) < 3500))then Exit;
    Repeat
    wait(10);
    mouse(93,84,5,5,False);
    wait(100+random(300));
    mouse(93,158,6,6,True);
    wait(100+random(300));
    Until((RuneAmount('shop','fire')) < 3500);
    end;
    end;

    Procedure BuyAir;
    begin
    If(Air = 'True') then
    begin
    If(((RuneAmount('shop','air')) < 3000))then Exit;
    Repeat
    wait(10);
    mouse(187,87,5,5,False);
    wait(100+random(300));
    mouse(190,158,6,3,True);
    wait(100+random(300));
    Until((RuneAmount('shop','air')) < 3000);
    end;
    end;

    Procedure BuyBody;
    begin
    If(Body = 'True') then
    begin
    If(((RuneAmount('shop','body')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(330,87,5,5,False);
    wait(100+random(300));
    mouse(325,158,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','body')) < 3270);
    end;
    end;

    Procedure BuyEarth;
    begin
    If(Earth = 'True') then
    begin
    If(((RuneAmount('shop','earth')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(235,87,5,5,False);
    wait(100+random(300));
    mouse(230,155,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','earth')) < 3270);
    end;
    end;

    Procedure BuyWater;
    begin
    If(Water = 'True') then
    begin
    If(((RuneAmount('shop','water')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(142,87,5,5,False);
    wait(100+random(300));
    mouse(149,158,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','water')) < 3270);
    end;
    end;

    Procedure BuyMind;
    begin
    If(Mind = 'True') then
    begin
    If(((RuneAmount('shop','mind')) < 10))then Exit;
    Repeat
    wait(10);
    mouse(282,85,10,10,False);
    wait(50+random(150));
    mouse(280,155,40,4,True);
    wait(50+random(150));
    Until((RuneAmount('shop','mind')) < 10);
    end;
    end;

    Procedure BuyChaos;
    begin
    If(Chaos = 'True') then
    begin
    If(((RuneAmount('shop','chaos')) < 10))then Exit;
    Repeat
    wait(20);
    mouse(380,87,10,10,False);
    wait(100+random(300));
    mouse(385,158,30,3,True);
    wait(100+random(300));
    Until((RuneAmount('shop','chaos')) < 10);
    end;
    end;

    Procedure BuyDeath;
    begin
    If(Death = 'True') then
    begin
    If(((RuneAmount('shop','death')) < 10))then Exit;
    Repeat
    wait(10);
    mouse(420,87,5,5,False);
    wait(100+random(300));
    mouse(415,158,6,3,True);
    wait(100+random(300));
    Until((RuneAmount('shop','death')) < 10);
    end;
    end;

    Procedure Done;
    begin
    Mouse(488,44,2,2,True);
    wait(300+random(300));
    Logout;
    End;

    Procedure SwitchWorlds;
    begin
    Mouse(53,484,10,10,True);
    end;

    Procedure SortWorlds;
    begin
    Mouse(412,11,2,2,True);
    wait(300);
    Mouse(632,10,2,2,True);
    end;

    Procedure PickAFreeWorld;
    begin
    If(Shop = 'Betty') or (Shop = 'Aubry')then
    begin
    if(findcolortolerance(xx,yy,9013641,65+ random(170),37+random(300),272,419,1))then
    begin
      Mouse(xx,yy,3,3,True);
      Wait(1000);
    end;
    end;
    end;

    Procedure PickAMembersWorld;
    begin
    if(Shop = 'Squire')then
    begin
    if(findcolortolerance(xx,yy,1419709,65+ random(170),37+random(300),272,419,5))then
    begin
      Mouse(xx,yy,0,0,True);
      Wait(2000);
    end;
    end;
    end;

    Procedure Greet;
    begin
    WriteLn('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
    WriteLn('@ Thank you for using alach11s RuneBuyer.  Thanks to @')
    WriteLn('@ Soupybastrd for writing a members runebuyer which  @')
    WriteLn('@ I used to make this.  Please cheat responsibly. :) @')
    WriteLn('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
    end;

    begin
    MarkTime(time);
    SetupSRL;
    SetupPlayers;
    Greet;
    repeat
    LoginPlayer;
    wait(1000)
    AntiRandoms;
    FindShop;
    BuyFire;
    BuyAir;
    BuyMind;
    BuyChaos;
    BuyDeath;
    BuyWater;
    BuyBody;
    BuyEarth;
    Done;
    SwitchWorlds;
    SortWorlds;
    PickAFreeWorld;
    PickAMembersWorld;
    Until(TimeFromMark(time) > (TimeToBuy*60000));
    end.

  2. #2
    Join Date
    Apr 2007
    Posts
    275
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    will see if got the cash to test fully
    -----
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  3. #3
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Looks good . You could change your 'True' to normal Booleans though . And another thing what I saw: Your ShopSellerFinder could be an endless loop?
    Hup Holland Hup!

  4. #4
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by nielsie95 View Post
    Looks good . You could change your 'True' to normal Booleans though . And another thing what I saw: Your ShopSellerFinder could be an endless loop?
    Yeah the boolean thing I'll probably change.

    As for the endless loop what do you mean? I guess if the number of runes didn't decrease because it was messed up? So should I add a MarkTime and If(Timefrommark) to the rune buying procedure?

  5. #5
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    *bump* can anybody answer that question? ^^

  6. #6
    Join Date
    Nov 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its a good script but if im buying water runes it will buy 20 water runes each world and hop, do you know how i can change this to say 2k water runes?

  7. #7
    Join Date
    Dec 2006
    Location
    Auckland, New Zealand
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm, nice script may run it later, maybe use a string for the rune type to keep the main loop tidier.

    AntiRandoms;
    FindShop;
    BuyFire;
    BuyAir;
    BuyMind;
    BuyChaos;
    BuyDeath;
    BuyWater;
    BuyBody;
    BuyEarth;

    If you cut that down and used a Case .... of, it would be ALOT better asthetically. Anyway good script may test later.

  8. #8
    Join Date
    Nov 2006
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is # of minutes you want to buy runes how many minutes before you switch or how many before you log off? and how many does it buy before swithcing, j/w

  9. #9
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by shawn11 View Post
    Its a good script but if im buying water runes it will buy 20 water runes each world and hop, do you know how i can change this to say 2k water runes?
    This is the code that deals with that:
    SCAR Code:
    Procedure BuyWater;
    begin
    If(Water = 'True') then
    begin
    If(((RuneAmount('shop','water')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(142,87,5,5,False);
    wait(100+random(300));
    mouse(149,158,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','water')) < 3270);
    end;
    end;

    The script buys until the number of runes is less than 3270 in this case. You can change that number to whatever you like.

  10. #10
    Join Date
    Nov 2006
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    bought chaos using 1 user. shop ran out, so it switched worlds. but it never logged back in

  11. #11
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Weird could you have accidentaly ended the script? Or did you have TimeToBuy set really low? Default is 5 minutes if you didn't change it.

  12. #12
    Join Date
    Feb 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can anyone post a test run, thanks

  13. #13
    Join Date
    Nov 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by alach11 View Post
    This is the code that deals with that:
    SCAR Code:
    Procedure BuyWater;
    begin
    If(Water = 'True') then
    begin
    If(((RuneAmount('shop','water')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(142,87,5,5,False);
    wait(100+random(300));
    mouse(149,158,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','water')) < 3270);
    end;
    end;

    The script buys until the number of runes is less than 3270 in this case. You can change that number to whatever you like.
    If i change

    SCAR Code:
    Procedure BuyWater;
    begin
    If(Water = 'True') then
    begin
    If(((RuneAmount('shop','water')) < 3270))then Exit;
    Repeat
    wait(10);
    mouse(142,87,5,5,False);
    wait(100+random(300));
    mouse(149,158,6,3,True);
    wait(120+random(300));
    Until((RuneAmount('shop','water')) < 3270);
    end;
    end;

    To

    SCAR Code:
    Procedure BuyWater;
    begin
    If(Water = 'True') then
    begin
    If(((RuneAmount('shop','water')) < 900))then Exit;
    Repeat
    wait(10);
    mouse(142,87,5,5,False);
    wait(1+random(1));
    mouse(149,158,6,3,True);
    wait(1+random(1));
    Until((RuneAmount('shop','water')) < 900);
    end;
    end;
    It will log out after 2 shop buys hop worlds perfectly and buy 20 and log out again. But when i do not set wait it logs out and stops the script

  14. #14
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When it changes worlds it will accidently click in between the world bottom, and the script will stop, is it possible to change it so it doesn't do that or correct it's self or is my comp to slow or something

  15. #15
    Join Date
    Nov 2006
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tested it for about 10mins, ran perfectly!

  16. #16
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ldg141414 View Post
    When it changes worlds it will accidently click in between the world bottom, and the script will stop, is it possible to change it so it doesn't do that or correct it's self or is my comp to slow or something
    I've never had that happen to me before. Did it do that more than once?

    Shawn, the number that you set is not the number of runes to buy. The number tells the script that if there are that many runes or less in the shop, don't buy them. How many it buys per world depends on how many runes are in the shop to start.

  17. #17
    Join Date
    Feb 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can you post attachment with the .scar file? im trying to copy and paste it at school not working

  18. #18
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah sure.

  19. #19
    Join Date
    Nov 2006
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    one more problem, when using the squire it will buy, get to world select, and then sort worlds and players and what not but wont log back into members world (or free for that matter)

  20. #20
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not sure what the problem is for you. : \
    I just tested the version attatched to my previous post and it worked fine at aubry. Try increasing TimeToBuy and make sure you're setting the right person to buy from.

  21. #21
    Join Date
    Sep 2006
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by alach11 View Post
    I've never had that happen to me before. Did it do that more than once?

    Shawn, the number that you set is not the number of runes to buy. The number tells the script that if there are that many runes or less in the shop, don't buy them. How many it buys per world depends on how many runes are in the shop to start.

    yeah it happened more then once but let me try it again

  22. #22
    Join Date
    Nov 2006
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works fine for me..... im using scar divi 3.02 and srl 3.6.

    It would be great if it could go a bit faster though.

    Cheers

  23. #23
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    I'm verry sorry I respond so late, but here we go:

    SCAR Code:
    Procedure FindShop;
    begin
      if(Shop = 'Squire') then
      begin
      repeat
      wait(50)
      AntiRandoms;
      until(FindSquire) //This could be endless.
      //What if a random transported you to an unknown location and the script didn't noticed it?
      //It will keep looking for the shopseller and just stay logged in?
      end;
     
      if(Shop = 'Betty') then
      begin
      repeat
      wait(50)
      AntiRandoms;
      until(FindBetty)
      end;
     
      if(Shop = 'Aubry') then
      begin
      repeat
      wait(50)
      AntiRandoms;
      until(FindAubry)
      end;
      end;
    Hup Holland Hup!

  24. #24
    Join Date
    May 2007
    Location
    Ohio, USA
    Posts
    96
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Loving the script, tyvm

  25. #25
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fixed what nielsie95 pointed out, thanks.

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. Ultimate PK aid.
    By 006786 in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 02-03-2009, 05:01 PM
  2. Ultimate Fisher You Must Have It
    By homiejames123 in forum First Scripts
    Replies: 20
    Last Post: 05-08-2008, 11:13 PM
  3. Ultimate Ess Miner Set-up
    By Zher in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 05-20-2007, 12:11 PM
  4. runebuyer v0.1
    By Killerdou in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 01-08-2007, 10:52 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
  •