Results 1 to 4 of 4

Thread: Boner

  1. #1
    Join Date
    Feb 2013
    Location
    United States
    Posts
    53
    Mentioned
    2 Post(s)
    Quoted
    12 Post(s)

    Default Boner

    Leveling prayer recently and whipped this together in a few mins. By no means comprehensive, or complex.

    Simply takes whatever bones you have in the first slot of your bank, withdraws 28, and buries them all. Over and over.

    Useful for when you're trying to bury a 1000+...

    Bank booth color in find object is set up for PC bank, although you can change this to whatever.

    Change times to how ever many loads you want to do. ~~

    Code:
    program new;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    VAR
    loads,times: integer;
    
    procedure OpenBank1;
    var x, y: integer;
    begin
      writeln('openbank');
      Repeat
        If(not Bankscreen and FindObj(x, y, 'ank booth', 9278361, 10)) then
        begin
          Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
          ChooseOptionMulti(['Bank']);
        end;
      until(BankScreen)
      Withdraw(0, 0, 28);//Withdraw bones in first slot of bank
      Closebank;
    end;
    
    procedure burybones;
    begin
      if(invfull) then
      begin
        for x:= 1 to 28 do
        begin
          InvMouse(x,1);
          wait(700+random(200));
        end;
      end;
    end;
    
    begin
      SetupSRL();
      times:=50;
      ActivateClient;
      wait(3000+random(100));
      loads:=0;
      repeat
        loads:=loads+1;
        openbank1;
        burybones;
      until(loads=times);
    end.
    Last edited by vizzyy; 03-09-2014 at 05:46 PM.

  2. #2
    Join Date
    Aug 2012
    Location
    The Dark Tower
    Posts
    154
    Mentioned
    5 Post(s)
    Quoted
    56 Post(s)

    Default

    Your 'For loop' makes perfect sense to me. You just made me realize what I didn't understand about 'For loops' and for that good job and thanks. Nice script as well. Short and sweet.

  3. #3
    Join Date
    Feb 2013
    Location
    United States
    Posts
    53
    Mentioned
    2 Post(s)
    Quoted
    12 Post(s)

    Default

    I'm glad to have helped! haha. For loops are the shit!

  4. #4
    Join Date
    Feb 2015
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by vizzyy View Post
    I'm glad to have helped! haha. For loops are the shit!
    The best thing about this post is not only the script but the title.... God the title.. x"3

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
  •