PDA

View Full Version : Boner



vizzyy
02-07-2014, 09:41 PM
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. ~~


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.

Pakyakkistan
03-03-2014, 02:32 AM
Your 'For loop' makes perfect sense to me. You just made me realize what I didn't understand about 'For loops' and for that good job and thanks. Nice script as well. Short and sweet.

vizzyy
03-03-2014, 11:50 PM
I'm glad to have helped! haha. For loops are the shit!

JenGamer
02-24-2015, 07:06 PM
I'm glad to have helped! haha. For loops are the shit!

The best thing about this post is not only the script but the title.... God the title.. x"3