Simba Code:
program Con;
{$define SMART}
{$i srl/srl.scar}
//At the end of script (line 153), where until(sr=30), set sr to how many ladders you want to make
var
xSer, ySer, x, y, sr, LarderCount :integer;
LoadBack :Boolean;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
End;
End;
procedure Startup;
begin
Smart_Server := 6;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
wait(100+random(100));
end;
Procedure Setup;
begin
ToggleXPBar( True);
Wait(500);
LoadBack:= False;
LarderCount:=0;
end;
Procedure SRock;
var xSR, ySR:integer;
Begin
if FindObjEx(xSR, ySR, ['trange'], [7171954], 15, 30, 570, 210, 720, 460) then
Begin
Mouse(xSR, ySR, 2, 2, false);
Wait(RandomRange(100,200));
ChooseOption('estroy');
Wait(RandomRange(100,200));
Mouse(RandomRange(345,405), RandomRange(395,410), 2, 2, True);
end;
end;
Procedure Servant;
begin
Wait(100);
Mouse(xSer, ySer, 2, 2, false);
Wait(RandomRange(100,200));
ChooseOption('etch');
Wait(RandomRange(600,800));
If FindNPCChatText('If', Nothing) then
begin
ClickToContinue;
Wait(RandomRange(800,1000));
FindNPCChatText ('coins.', ClickLeft);
Wait(RandomRange(190,290));
Mouse(xSer, ySer, 2, 2, false);
Wait(RandomRange(400,700));
ChooseOption('etch');
Wait(600);
end;
If not FindNPCChatText ('etch', nothing) then
begin
Wait(RandomRange(100,200));
FindNPCChatText ('Oak', ClickLeft);
Wait(500)
TypeSend('20');
end;
FindNPCChatText ('etch', ClickLeft);
LoadBack:=False;
Wait(500 + Random(300));
end;
Procedure FServant;
var SColors: TIntegerArray;
i: integer;
begin
SColors:= [989748, 1451339, 2174831, 1845343, 1779290];
For i:=0 to 4 do
begin
FreeSRLBitmaps;
If FindObjTPA(xSer, ySer, SColors[i], 30, -1, 10, 15, 1, ['utler', 'Butler']) then
begin
Servant;
Break;
end;
end;
end;
Procedure FLadder;
var LColors:TIntegerArray;
t:integer;
begin
Inc(x); Inc(y);
LColors:=[4613503, 2838371, 2574426];
Writeln('Search ladder');
if FindObjCustom(x, y, ['earch', 'Larder'], [2904421, 8423046], 5)then
begin
Mouse(x, y, 2, 2, false);
Wait(RandomRange(100,150));
ChooseOptionMultiEx(['Remove','emove'], 'Object', ClickLeft);
Wait(RandomRange(750,850));
FindNPCChatText ('Yes', ClickLeft);
Wait(RandomRange(830,1000));
end;
end;
Procedure Build;
var OXP, NXP:integer;
begin
Inc(x); Inc(y);
Mouse(x, y, 2, 2, false);
Wait(RandomRange(150,250));
ChooseOptionMultiEx(['Build','uild'], 'Object', ClickLeft);
Wait(RandomRange(600,700));
Mouse(RandomRange(105,115), RandomRange(135,145) , 2, 2, True);
Wait(RandomRange(450,600));
end;
Procedure AntiBan;
Begin
case Random(2000)of
0: HoverSkill('Construction', False);
1: SleepAndMoveMouse(7000 + Random(500));
2: RandomMovement;
3: PickUpMouse;
4: BoredHuman;
5..15: MakeCompass( RandomRange( -360, 360));
16..60: Wait( Random( 3000));
End;
End;
begin
Startup;
sr:=1;
Inc(x); Inc(y);
repeat
If CountItemsArea ('inv')<16 then FServant;
Wait(RandomRange(500,700));
if CountItemsArea ('inv')>7 then
begin
FLadder;
Wait(RandomRange(300,500));
Build;
Wait(600);
SRock;
AntiBan;
end;
If Not LoadBack then
begin
Repeat
Wait(1000)
if CountItemsArea ('inv')>19 then LoadBack:= True;
Until(LoadBack);
end;
sr:=sr+1;
until(sr=100);
end.