Leveling prayer recently and whipped this together in a few mins. By no means comprehensive, or complex.
Simply takes whatever bones you have in the first slot of your bank, withdraws 28, and buries them all. Over and over.
Useful for when you're trying to bury a 1000+...
Bank booth color in find object is set up for PC bank, although you can change this to whatever.
Change times to how ever many loads you want to do. ~~
Code:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
VAR
loads,times: integer;
procedure OpenBank1;
var x, y: integer;
begin
writeln('openbank');
Repeat
If(not Bankscreen and FindObj(x, y, 'ank booth', 9278361, 10)) then
begin
Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
ChooseOptionMulti(['Bank']);
end;
until(BankScreen)
Withdraw(0, 0, 28);//Withdraw bones in first slot of bank
Closebank;
end;
procedure burybones;
begin
if(invfull) then
begin
for x:= 1 to 28 do
begin
InvMouse(x,1);
wait(700+random(200));
end;
end;
end;
begin
SetupSRL();
times:=50;
ActivateClient;
wait(3000+random(100));
loads:=0;
repeat
loads:=loads+1;
openbank1;
burybones;
until(loads=times);
end.