Simba Code:
program SwampToad;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i sps/sps.simba}
Const
NumbOfPlayers = 1; //How many players are you using
StartPlayer = 0; //Player to start botting with
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
end;
end;
Procedure Start;
Begin
SetUpSRL;
MouseSpeed := 12;
ActivateClient;
DeclarePlayers;
If (Not LoggedIn) then
LoginPlayer;
SPS_Setup(RUNESCAPE_SURFACE, ['4_7', '3_7', '3_6']);
SetAngle(True);
MakeCompass('n');
End;
procedure Antiban;
begin
If Not FindNormalRandoms Then
Begin
if not (LoggedIn) then
Exit;
begin
case Random(50) of
10: RandomRClick;
20: PickUpMouse;
30: RandomMovement;
40: BoredHuman;
49: ExamineInv;
end;
end;
End;
end;
Function ToSwamp : Boolean;
var
Path:TPointArray;
Begin
If Not FindNormalRandoms Then
Begin
Path := [Point(1621, 2898), Point(1600, 2852), Point(1569, 2809), Point(1554, 2763), Point(1548, 2712), Point(1539, 2658), Point(1522, 2614)];
WriteLn('Walking to the swamp.');
If SPS_WalkPath(Path) Then
writeln('We have made it to the swamp.');
result := True;
End;
End;
Procedure MoveToCenter;
Var
Path:TPointArray;
Begin
Writeln('Moving to center');
Path := [Point(1510, 2589)];
SPS_WalkPath(Path);
End;
Function ClickToad : Boolean;
Var
X, Y:Integer;
begin;
If Not FindNormalRandoms Then
Begin
If (Not InvFull) Then
Repeat
Begin
If FindObjCustom(X, Y, ['wam'], [2058558, 1991489, 1261353, 2257226, 2257211, 1261867, 1128998, 1925426, 1991495, 2390351, 2323781, 996383], 2) Then
Begin
AntiBan;
MMouse(X, Y, 1, 1);
Wait(400+random(100));
Mouse(X, Y, 0, 0, True);
Wait(600+RandomRange(200,300));
FFlag(0);
Result := True;
End;
End;
Until (InvFull);
End;
End;
Function ToBank : Boolean;
Var
Path:TPointArray;
Begin
If Not FindNormalRandoms Then
Begin
Path := [Point(1526, 2613), Point(1538, 2666), Point(1550, 2725), Point(1570, 2779), Point(1592, 2833), Point(1610, 2868), Point(1622, 2894)];
If SPS_WalkPath(Path) Then
begin
WriteLn('We have arrived at the bank.')
Result := True;
End;
end;
End;
Function AtBank : Boolean;
Var
AtBankDTM, X, Y:Integer;
Begin
If Not FindNormalRandoms Then
begin
AtBankDTM := DTMFromString('mggAAAHicY2NgYJBjgAAQbQLEzEBsA8TyQCwNlZMBYkcojnNVYGBjYsXAXAzYASMODAEA6p8Cog==');
If FindDTM(AtBankDTM, X, Y, MMX1, MMY1, MMX2, MMY2) Then
Result := True;
end;
End;
Function Bank : Boolean;
Var
X, Y, A, B, C, D:Integer;
Begin
If Not FindNormalRandoms Then
Begin
A := 626+Random(3);
B := 53+Random(3);
MakeCompass('s');
SetAngle(False);
If FindObjCustom(X, Y, ['airca'], [528920, 396817, 462612, 330510, 529176, 727586], 3) Then
Begin
MMouse(X, Y, 5, 5);
Wait(500+RandomRange(200,300));
Mouse(X, Y, 0, 0, True);
Wait(3500+RandomRange(500,800));
If AtBank Then
begin
MMouse(A, B, 0, 0);
Wait(200+Randomrange(20,50));
Mouse(A, B, 0, 0, True);
Wait(2500+Randomrange(200,300));
writeln('Looking for the bank');
SetAngle(True);
If FindObjCustom(C, D, ['anker'], [8435943, 8762864, 8367589, 9092602], 5) Then
begin;
MMouse(C, D, 3, 3);
Wait(200+RandomRange(50,100));
Mouse(C, D, 0, 0, False);
Wait(200+Randomrange(100,150));
ChooseOption('ank Gno');
Wait(800+RandomRange(500,700));
DepositAll;
Wait(500+randomrange(200,300));
CloseBank;
writeln('Successfully Banked all toads!')
Result := True;
End;
End;
End;
End;
Function ExitBank : Boolean;
Var
X, Y, A, B:Integer;
Begin
If Not FindNormalRandoms Then
Begin
X := 630+Randomrange(2, 5);
Y := 20+RandomRange(2, 5);
SetAngle(True);
MakeCompass('n');
MMouse(X, Y, 0, 0);
Wait(100+randomrange(20,30));
Mouse(X, Y, 0, 0, True);
Wait(3500+randomrange(300,500));
If FindObjCustom(A, B, ['airca'], [667723, 401458, 400943], 3) Then
Begin
repeat
MMouse(A, B, 2, 2)
Wait(100+randomrange(10,20));
Mouse(A, B, 0, 0, False);
Wait(100+Randomrange(200,400));
ChooseOption('airca');
writeln('We have gone down the stairs of the bank!');
until(Not AtBank);
End;
If AtBank Then
Result := True;
End;
End;
begin
Start;
repeat
If InvFull Then
Begin
ToBank;
Bank;
ExitBank;
end;
ToSwamp;
ClickToad;
until(false)
end.