Results 1 to 8 of 8

Thread: east varrock oak banker by skilld u

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Thumbs up east varrock oak banker by skilld u

    hey hey hey
    its been a while since ive messed around with srl & runescape but i thought id give it a try now that old rs is back

    its a work in progress but let me know what yall think.
    it works pretty well for me i havent let it run for much more than 15 minutes at a time yet.

    i couldnt get the Findnormalrandoms; function to work so i left it out for now, so dont let it run too long by itself
    i need some help on counting how many logs weve cut & how much xp that is.

    Code:
    program oakbanker;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    {$I SRL-OSR/SRL/Reflection/Reflection.simba}
    {
     chopping animation: 877
    }
    
    var
     loads: integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;
    
    {procedure AntiBan;
    var
     i: integer;
    begin
      i:=random(100);
      case i of
      1..10: MMouse(random(150),random(100), 0,0);
    
    end;}
    
    procedure prog;
    begin
      writeln('|---------------------|');
      writeln('ran for ' + timerunning);
      writeln('banked ' + inttostr(loads) + ' loads');
      writeln('|---------------------|');
    end;
    
    {
    more options for object finding
    }
    procedure FillInv;
    var
     x, y, n : integer;
    begin
      repeat
        if FindObj(x, y,'Oak',2190948,8) then
        begin
          Mouse(x,y,0, 0,true);
          Wait(2000 + random(2500));
          writeln('clicked the tree');
          if n=1 then
          begin
            writeln('hopefully were back on track now');
            makecompass(0);
            n:=0;
          end;
        end else
    
        begin
          writeln('couldnt find an oak tree, waiting');
          wait(4000+random(1000));
          if FindObj(x, y,'Oak',2190948,8) then
          begin
            Mouse(x,y,0, 0,true);
            Wait(2000 + random(2500));
            writeln('we waited and now the tree is back!');
          end else
    
          begin
            writeln('we waited and still no trees, well give it 1 more shot');
            wait(4000+random(1000));
            if FindObj(x, y,'Oak',2190948,8) then
            begin
              Mouse(x,y,0, 0,true);
              Wait(2000 + random(2500));
              writeln('we waited and now the tree is back!');
            end else
            begin
              writeln('never found the tree.. :(');
              writeln('terminating script');
              prog;
            end;
          end;
        end;
    
        if r_gettileglobal=point(3278, 3430) then
        begin
          n:=1;
          writeln('at a wierd angle, lets switch things up');
          makecompass(45+random(10)-random(20));
        end;
        while R_GetAnimation=877 do
        begin
          //antiban;
          //FindNormalRandoms;
        end;
        writeln('this tree is done, moving on');
        if Random(100)>80 then Wait(2500+random(2400));
      until invFull;
      Writeln('inventory is full, attempting to walk to bank');
    end;
    
    {openbankfast('veb');
    openbankquiet('veb');
    openbanknpcex('blue');
    banktile point(3253, 3420)
    }
    procedure Bank;
    var
     //oaklog: integer;
     thespot,bpoint: tpoint;
    begin
      writeln('made it to the bank');
      {oaklog := DTMFromString('mlwAAAHicY2dgYOBlYWAQBGJxIBYGYg4g/sfMwMACpEMZGRi8gDgQiGOBOJERIuYDxEURpkDdjDgwboBLB5IuABSDBNc=');
      logscut := logscut + CountItems('dtm', oaklog, []); }
    
      Wait(500+random(250));
      if OpenBankfast('veb') then
      begin
        writeln('opened bank method 1!');
        Depositall;
        if Random(100)>80 then CloseBank;
      end else
    
      begin
        writeln('didnt open bank with method 1, attempting #2');
        bpoint := point(3253,3420);
        if not r_neartile(bpoint, 2) then
        begin
          thespot := r_tiletomm(bpoint);
          Mouse(thespot.x, thespot.y, 0,0,true);
        end else
    
        begin
          if OpenBankNPCEx('blue') then
          begin
            writeln('opened bank method 2!');
            Depositall;
            if Random(100)>80 then CloseBank;
          end else
          if openbankglass('veb', true, false) then
          begin
            writeln('bank is open, thanks method 3!');
            Depositall;
            if Random(100)>80 then Closebank;
          end else writeln('bank still isnt open, something must be wrong!');
        end;
      end;
      loads := loads + 1;
    end;
    
    {get the walking more reliable.. sometimes not in view of the bank
    or the southern tree
    add some color walking and use the reflection more as back up}
    procedure walkt;
    begin
      prog;
      writeln('walking to the tree');
      R_WalkPath([Point(3265, 3428), Point(3279, 3428)]); //to tree
      wait(1000+random(500));
    end;
    
    procedure walkb;
    begin
      R_WalkPath([Point(3271, 3428), Point(3262, 3428), Point(3253, 3420)]);//to bank
    end;
    
    begin
      setupsrl;
      declareplayers;
      SetupReflection;
      wait(2000);
      repeat
        if not loggedin then
        begin
          loginplayer;
          keydown(vk_up);
          wait(1500+random(1000));
          keyup(vk_up);
        end;
        if loggedin then
        begin
          walkt;
          fillinv;
          walkb;
          bank;
        end;
      until false;
      //writeln('animation: ' + inttostr(r_getanimation));
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    The land of the long white cloud.
    Posts
    3,702
    Mentioned
    261 Post(s)
    Quoted
    2006 Post(s)

    Default

    I remember you from back in the day - you won't remember me though as I was just a leecher Gratz on getting back into scripting

  3. #3
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks & yeah i dont remember you

  4. #4
    Join Date
    Jan 2014
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    hmmm? don't have this folder..? Exception in Script: Unable to find file 'SRL-OSR/SRL/Reflection/Reflection.simba' used from ''

  5. #5
    Join Date
    Mar 2013
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    you should add the ability to have the axe in the inventory, but i like the script

  6. #6
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Progress Report:
    |---------------------|
    ran for 31 Minutes and 21 Seconds
    banked 18 loads
    |---------------------|


    Great script, had to make a few modifications but still
    There used to be something meaningful here.

  7. #7
    Join Date
    Apr 2014
    Posts
    323
    Mentioned
    0 Post(s)
    Quoted
    131 Post(s)

    Default

    Quote Originally Posted by Frement View Post
    Progress Report:
    |---------------------|
    ran for 31 Minutes and 21 Seconds
    banked 18 loads
    |---------------------|


    Great script, had to make a few modifications but still
    would you mind posting your modifications?

  8. #8
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    |---------------------|
    ran for 1 Hours, 27 Minutes and 7 Seconds
    banked 19 loads
    |---------------------|
    Got stuck in a random Ima keep running this script and will keep the proggies coming although change the script a tad

    Good work mate!

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
  •