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.