Here you go guys, updated. It really wasn't all that hard. Maybe 3 lines were changed:
program MiniBury;
{$DEFINE SMART} //<- Comment this to disable SMART!
{$i SRL/SRL.simba}
{
Instructions
o Works at all F2P banks supported in SRL
x Varrock East = Bank_VE
x Varrock West = Bank_VW
x Falador East = Bank_FE
x Falador West = Bank_FW
x Draynor = Bank_DR
o Have nothing in your inventory
o Put the bones to the 1st bank slot
Experience table
o Normal 4.5
o Big 15.0
o Zogre 22.5
o Baby-dragon 30.0
o Dragon 72.0
}
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
SMART_Server := 106;
SMART_Signed := True;
with Players[0] do
begin
Name := '';
Pass := '';
PIN := '';
Loc := Bank_VE; // Bank
Extendeds[0] := 15; // XP per bone
Active := True;
end;
end;
function GetBones: boolean;
var
x, y: integer;
begin
if OpenBank(Players[CurrentPlayer].Loc, False, False) then
begin
MouseBox(45, 100, 60, 113, 3);
if WaitUptext('ones', 3000) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(280 + random(50));
Result := WaitOption('ll', 3000);
end;
end;
CloseBank;
Wait(750 + random(200));
end;
procedure Bury;
var
Slots: TIntegerArray;
i: integer;
begin
if not LoggedIn then Exit;
Slots := [1, 2, 3, 4, 8, 7, 6, 5, 9, 10, 11, 12, 16, 15, 14, 13, 17, 18, 19,
20, 24, 23, 22, 21, 25, 26, 27, 28];
for i := 0 to 27 do
begin
if not ExistsItem(Slots[i]) then Continue;
MouseItem(Slots[i], 1);
Inc(Players[CurrentPlayer].Integers[0]);
Wait(450 + random(80));
FindNormalRandoms;
end;
end;
procedure ProgressReport;
var
xph: integer;
begin
ClearDebug;
WriteLn('~ MiniBury v.1.0 ~');
with Players[CurrentPlayer] do
begin
WriteLn(' Exp per bone : '+FloatToStr(Extendeds[0]));
WriteLn(' Bones buried : '+IntToStr(Integers[0]));
WriteLn(' Total xp : '+FloatToStr(Extendeds[0] * Integers[0]));
xph := Round((Extendeds[0] * Integers[0]) / (GetTimeRunning / 3600000.0));
WriteLn(' XP per hour : '+IntToStr(xph));
WriteLn(' Time running : '+TimeRunning);
end;
WriteLn('~ by: marpis ~');
end;
begin
DeclarePlayers;
SetupSRL;
if not LoggedIn then LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
repeat
if not GetBones then
begin
WriteLn('Worked for '+TimeRunning);
LogOut;
TerminateScript;
end;
Bury;
ProgressReport;
until false;
end.
Oh, and a progress report.
~ MiniBury v.1.0 ~
Exp per bone : 4.5
Bones buried : 1022
Total xp : 4599
XP per hour : 11830
Time running : 23 Minutes and 19 Seconds
~ by: marpis ~
