Simba Code:
program new;
{$i srl/srl.simba}
{$i sps/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name :=' '; // Username
Pass :=' '; // Password
Active := True;
end;
end;
procedure Antiban;
begin
case Random(999) of
1: HoverSkill('Agility', false);
2: ExamineInv;
3: Wait(RandomRange(3000,5000));
4: PickUpMouse;
end;
end;
procedure SwingRope;
var
x,y: Integer;
begin
if FindObj(x, y, 'swing', 928046, 10) then
Mouse(x, y, 0, 0, False);
ChooseOption('-on Rope');
end;
procedure Acrossit;
var
x,y: Integer;
begin
if FindObj(x, y, 'Log balance', 2370620, 5) then
Mouse(x, y, 0, 0 , False);
ChooseOption('across');
end;
procedure ClimbOver;
var
x, y: Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
if FindObj(x, y, 'Obstacle net', 5337209, 10) then
Mouse(x, y, 2, 2, True);
end;
procedure WalkLedge;
var
x, y: Integer;
begin
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
Wait(1000);
if FindObj(x, y, 'Balancing', 1454400, 10) then
Mouse(x, y, 2, 2, False);
ChooseOption('across');
end;
procedure ClimbDown;
var
x, y: Integer;
begin
MakeCompass('S');
wait(500);
if FindObj(x, y, 'Ladder', 1651522, 5) then
Mouse(x, y, 2, 2, False);
ChooseOption('down Ladder');
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
SwingRope;
WriteLn('Skilfully swing');
Wait(5000);
Acrossit;
Wait(6000);
writeln('going to the net');
Wait(500);
ClimbOver;
Wait(1000);
WalkLedge;
Wait(5000);
ClimbDown;
end.