Simba Code:
program ClayCrusher;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].BoxRewards := ['oins', 'oins', 'oins'];
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure WalkToBank;
Var
OutBank:TPointArray;
begin //SetupSRL here made a second client be summoned when It got to this part, so I took it out :)
SPS_Setup(RUNESCAPE_SURFACE, ['11_7','10_8','10_7','10_6','12_6','12_8']); //This I changed
OutBank := [Point(4566, 2906), Point(4557, 2932), Point(4532, 2942),
Point(4521, 2960), Point(4519, 2987), Point(4520, 3001), Point(4522, 3013),
Point(4521, 3025), Point(4525, 3039), Point(4527, 3048), Point(4524, 3061),
Point(4530, 3072), Point(4536, 3082), Point(4538, 3089), Point(4537, 3098),
Point(4545, 3114), Point(4551, 3120), Point(4565, 3141), Point(4559, 3169),
Point(4184, 3277), Point(4075, 3010), Point(4094, 2738), Point(5092, 2756), Point(5088, 3203), Point(4843, 3311)];
SPS_WalkPath(OutBank);
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
procedure MineRock;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'lay',7845078,10) then
begin
Mouse(x, y, 5, 5, false); //I added some randomization
ChooseOption('ine');
end;
Wait(1500+random(250));
until(InvFull);
WalkToBank;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
MineRock;
WalkToBank;
end.