Simba Code:
program BuryBones; //First Script, Laakerules BoneBurier procedure.
{$DEFINE SMART}
{.include SRL/SRL.simba}
{.include SRL/SRL/Skill/Fighting.simba}
{$DEFINE UseLaptopMouse}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
Var
BoneColours: TIntegerArray;
LootCount, BuryCount, x, y: Integer;
Procedure Antiban;
begin
x := Random(500) case x of 0: HoverSkill('Attack', false);
1:
HoverSkill('prayer', false);
12..15:
PickUpMouse;
16..25:
RandomMovement;
26..27:
RandomRClick;
28..32:
BoredHuman;
34:
RandomAngle(SRL_ANGLE_HIGH);
end;
Wait(RandomRange(800, 1200));
end;
Procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'prayer';
end;
procedure FindBones;
var
Xi, Yi, X1, Y1, X2, Y2: Integer;
FindNormalRandoms;
begin
Writeln('Checking for bones');
if FindObjEx(Xi, Yi, ['ake', 'ke'], BoneColours, 3, 50, 1, 5, 689, 390) then
begin
GetMousePos(Xi, Yi);
Mouse(Xi, Yi, 0, 0, false);
if WaitOptionMulti(['ake Bone', 'ake B'], 200) then
begin
LootCount := LootCount + 1;
writeln('looted bones')
end;
WaitOptionMulti(['ake Bones', 'ake B'], 200);
Wait(RandomRange(700, 1200));
while IsMoving do
begin
Wait(250);
end;
If not(invfull) then
begin
FindBones;
end;
end;
end;
Procedure Bury; //laakerules's Procedure
var
I: Integer;
FindNormalRandoms;
begin
for i := 1 to 28 do
begin
InvMouse(I, 3);
if IsUpText('Bury') then
begin
ClickMouse2(True);
Wait(RandomRange(950, 975));
BuryCount:= BuryCount +1;
end;
end;
exit;
end;
Procedure ProggReport;
Writeln('Bones Picked up')+ InToStr(LootCount));
Writeln('Bones Buried')+ InToStr(BuryCount));
procedure SetupChar;
begin
SetupSRL();
SetAngle(0);
ClickNorth(0);
end;
begin
Smart_Server := 69;
Smart_Members:= false;
Smart_Signed := false;
Smart_SuperDetail := false;
SetupSRL;
MouseSpeed := RandomRange(15, 20);
ActivateClient;
DeclarePlayers;
LoginPlayer;
BoneColours:= [12303812, 14408933, 13685209, 13553880, 15000804]
Begin
Repeat
Repeat
AntiRandoms;
FindBones;
until(invfull);
Bury;
until ( Not LoggedIn);
end;
end.