Al Kharid Leather Tanner/Banker

[vizzyy]

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.


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.

[mrmarch]

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

[vizzyy]

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.
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
WithdrawEx(0,0,28,['owhide']); to whatever the untanned item is called, so it knows what to withdraw.

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

[adeghati]

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...

[Scurvy]

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? :)

[vizzyy]

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
until(count>trips) and make it
until(count>100) or whatever number you want.

[kid cudi]

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

im not sure what i am doing wrong

[jukenuke]

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?

[alexjohn92]

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?

[ilovesubaru]

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

[cjh2k13]

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

[rallostar]

Can you tweak the script to do green dhide?

[Nilsie]

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

[compulsiion]

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.

[Athylus]

Heehe nvm.

[Liquid Fusion]

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