vizzyy
2013-03-29 18:15:10
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.
Peace and love.
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.