Results 1 to 16 of 16

Thread: Al Kharid Leather Tanner/Banker

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

    Default Al Kharid Leather Tanner/Banker

    Very Simple Script. Tans cowhides into soft leather. Uses OSR and SPS and SMART. You'll have to find those includes and download them on your own. I'm not going to help you there.

    Few things to note:
    Trips is how many times you want it to loop;
    It only does soft leather because I put the coordinates for that type straight into the script, you can change that in the tanstuff method to do whatever kind of leather you want;
    Must have cowhides or whatever you want to tan in first slot of bank and scrolled up to ensure it's visibility;
    Must have a stack of cash in your first inventory spot;
    Sometimes SPS is fuckin' up and won't work when you start it, after logging in from a fresh smart so what i usually do is run in any direction for a bit until a new block of map loads and fixes the coloring of the minimap;
    You can start it at the tan shop and the bank;
    Does the usual randoms bullshit.

    Code:
    program new;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    {$I SPS/sps-osr.simba}
    
    var
    count,trips:integer;
    myloc:tpoint;
    
    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
       Players[0].Name := '';
       Players[0].Pass :='';
       Players[0].Nick :='';
       Players[0].Active:=True;
    end;
    
    procedure OpenBank1;
    var x, y: integer;
    begin
      writeln('openbank');
      Repeat
        If FindObj(x, y, 'ank booth', 5463907, 10) Then
        begin
          Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
          ChooseOptionMulti(['Bank']);
        end
        else
        begin;
          MakeCompass(randomrange(25, 35));
        end;
      until(BankScreen)
    end;
    
    procedure gotobank;
    begin
      writeln('gotobank');
      MyLoc:=sps_getMyPos;
      writeln('SPS returns '+inttostr(myloc.x)+','+inttostr(myloc.y));
      repeat
      until(SPS_WalkPath([Point(4927, 3925), Point(4934, 3925), Point(4940, 3929), Point(4945, 3931), Point(4949, 3935), Point(4949, 3941), Point(4950, 3946), Point(4949, 3954), Point(4949, 3960), Point(4947, 3965), Point(4946, 3970), Point(4944, 3974), Point(4944, 3980), Point(4940, 3985), Point(4937, 3991), Point(4935, 3997), Point(4929, 4005), Point(4924, 4012), Point(4921, 4020), Point(4915, 4025), Point(4910, 4027), Point(4905, 4025)]));
      repeat
          openbank1;
      until(BankScreen);
    end;
    
    procedure gotostore;
    begin
      writeln('gotostore');
      MyLoc:=sps_getMyPos;
      writeln('SPS returns '+inttostr(myloc.x)+','+inttostr(myloc.y));
      repeat
      until(SPS_WalkPath([Point(4905, 4025), Point(4910, 4027), Point(4915, 4025), Point(4921, 4020), Point(4924, 4012), Point(4929, 4005), Point(4935, 3997), Point(4937, 3991), Point(4940, 3985), Point(4944, 3980), Point(4944, 3974), Point(4946, 3970), Point(4947, 3965), Point(4949, 3960), Point(4949, 3954), Point(4950, 3946), Point(4949, 3941), Point(4949, 3935), Point(4945, 3931), Point(4940, 3929), Point(4934, 3925), Point(4927, 3925)]));
    end;
    
    procedure bankinteraction;
    begin
      writeln('banking');
      gotobank;
      repeat
        openbank1;
      until(BankScreen);
      if(BankScreen)then
      begin
        Deposit(2,28,true);
        WithdrawEx(0,0,28,['owhide']);
      end;
    end;
    
    procedure tanstuff;
    var
    x,y:integer;
    begin
      writeln('tanning');
      repeat
        repeat
          findobj(x,y,'llis',5076693,15);
          Mouse(x,y,3,3,false);
        until(ChooseOptionMulti(['rade','Trade']));
        repeat
          wait(1650+random(100));
          Mouse(95,107,5,5,false); //Change this if you want to Tan something else
          wait(650+random(100));
        until(ChooseOptionMulti(['All']));
        MMouseItem(2);
      until(isUpText('eather'));
    end;
    
    begin
      SetupSRL();
      DeclarePlayers;
      SetScreenName(Players[CurrentPlayer].Nick);
      SPS_Setup(runescape_surface,['12_9']);
      ActivateClient;
      SPS_AnyAngle := True;
      count:=0;
      repeat
        count:=count+1;
        FindNormalRandoms();
        bankinteraction;
        gotostore;
        tanstuff;
        gotobank;
      until(count>=trips);
    
    end.
    Peace and love.
    Last edited by vizzyy; 04-07-2013 at 03:58 PM.

  2. #2
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    If you don't mind me asking, how would I go about figuring out the numbers to make it tan green d leather instead?

    Thanks

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

    Default

    Quote Originally Posted by mrmarch View Post
    If you don't mind me asking, how would I go about figuring out the numbers to make it tan green d leather instead?

    Thanks
    So here's the skinny :

    This line determines what the script tans.
    Code:
     Mouse(95,107,5,5,false); //Change this if you want to Tan something else
    The first two numbers are the X and Y. If I were you I would drag the cross-hairs on your runescape and go to the tanner. Hold your mouse over the green dhide and note the coordinates that Simba will display in the bottom left hand corner. Change the coordinates in that line of code to what you've found.

    Then change
    Code:
       WithdrawEx(0,0,28,['owhide']);
    to whatever the untanned item is called, so it knows what to withdraw.

    Then change
    Code:
      until(isUpText('eather'));
    to whatever it's called when it's tanned, so it can check if it's tanned your stuff each iteration.

  4. #4
    Join Date
    Feb 2013
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    I get the error (SPS returns -1,-1). I have already set up all of the includes correctly.
    edit: NVM Fixed, this error comes in populated world.
    New error though, the script looks through my bank for cowhide. It is in the first slot, I even made all of the first page brownish items...
    Last edited by adeghati; 04-06-2013 at 05:32 PM.

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

    Default

    How exactly do you make it loop? You mentioned something about trips, but it's very unclear what exactly I have to adjust. Any help, please?

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

    Default

    Quote Originally Posted by adeghati View Post
    I get the error (SPS returns -1,-1). I have already set up all of the includes correctly.
    edit: NVM Fixed, this error comes in populated world.
    New error though, the script looks through my bank for cowhide. It is in the first slot, I even made all of the first page brownish items...
    The -1,-1 error will occur if SPS cannot figure out where you are on the minimap. This almost always occurs right after you log in due to the initial map load being a shade much darker than it normally is. Once you move to a new block of map it'll load for a second and bring back appropriate colors. I mentioned this in the first post.

    Your second issue: I'm assuming you put the cowhides in the very top slot of your bank, and have it all the way scrolled up. Sometimes it takes a while for it to withdraw the items, it'll move the mouse around for 30 or so seconds before clicking the cowhides.

    How exactly do you make it loop? You mentioned something about trips, but it's very unclear what exactly I have to adjust. Any help, please?
    If you're referring to how many iterations or inventories of leather you want to tan, the variable "trips" is what you're looking at. It's initialized but there is no value assigned to it, so you can either write in trips:=10; or whatever, or simply delete "trips" from the main loop where it says
    Code:
    until(count>trips)
    and make it
    Code:
    until(count>100)
    or whatever number you want.

  7. #7
    Join Date
    Apr 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Exception in Script: Unable to find file 'SPS/sps-osr.simba' used from ''

    im not sure what i am doing wrong

  8. #8
    Join Date
    Apr 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not working for me i keep getting this SPS returns -1,-1 and wont move anywhere. And i have moved a block to change the shade still not working anyone know why?

  9. #9
    Join Date
    May 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SPS/sps-osr.simba'

    All other 07 scripts i have tried are working fine, anything i can do?

  10. #10
    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i think u have to take that file redownload it and also put it in this folder C:\Simba\Includes\SPS. after i had did this everything would load and i would get a sps -1,-1 unable to locate player idk what to do after that

  11. #11
    Join Date
    May 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i am new to coding this keeps poping up when trying to load this script
    Exception in Script: Unable to find file 'SRL-OSR/SRL.Simba' used from

  12. #12
    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you tweak the script to do green dhide?

  13. #13
    Join Date
    May 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You can do that yourself.

    After fixing the SRL-OSR fix I still get these:

    [Hint] C:\Simba\Includes\SPS/sps-osr.simba(480:3): Variable 'Z' never used at line 479
    [Hint] C:\Simba\Includes\SPS/sps-osr.simba(482:3): Variable 'DEGREEFIX' never used at line 481
    [Hint] C:\Simba\Includes\SPS/sps-osr.simba(483:3): Variable 'FINDPOINT' never used at line 482

    And SPS returns -1,-1 and after that it just stands there. :"D
    Last edited by Nilsie; 06-08-2013 at 10:55 AM.

  14. #14
    Join Date
    Jun 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, great script! Running flawlessly for green d-leather right now.
    Just wondering, what part of the script would I have to modify to eliminate the random mouse movements that happen when the script first enters the bank window. It takes up a lot of unnecessary time. Thanks, and again, great script.

  15. #15
    Join Date
    Aug 2013
    Posts
    82
    Mentioned
    0 Post(s)
    Quoted
    35 Post(s)

    Default

    Heehe nvm.
    Last edited by Athylus; 08-14-2013 at 02:36 PM.

  16. #16
    Join Date
    May 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does anyone know how to fix this error?

    Exception in Script: Unknown declaration "getTClient" at line 52, column 10 in file "C:\Simba\Includes\SPS\sps-osr.simba"
    and if i use PascalScript interpreter i get the error:
    [Error] C:\Simba\Includes\SPS\sps-osr.simba(396:55): Invalid number of parameters at line 396
    Compiling failed
    Last edited by Liquid Fusion; 01-01-2014 at 07:50 PM.

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
  •