Log in

View Full Version : SRL Includes



Element17
04-17-2012, 02:11 AM
program Bankprocedure;
{$i srl/srl.simba}

begin
if OpenDepositBox then
Deposit(2,28, false);
end.

That should work I think right? I would test it but I'm on an Ipad, It will find any deposit box and open it then deposit from slot 2 to 28 individually. How could I make it right click slot 2 and deposit all of that said item then click like slot 14 and deposit all of that item? I have the pickaxe in the first slot and don't want to deposit it.

Sin
04-17-2012, 02:35 AM
No, there's no function called 'OpenDepositBox', you're going to have to make one.
You can also do MouseItem(RandomRange(1,28),0), ChooseOption('All');.

Element17
04-17-2012, 02:54 AM
function OpenDepositBox : Boolean;
var
X, Y, T:integer;
begin
result := false;
If(not(LoggedIn)) then exit;
begin
if FindObjTPA(x, y, 739167, 10, -1, 30, 30, 200, ['deposit']) then
begin
GetMousePos(X, Y);
Mouse(x, y, 0, 0, mouse_left);
Result := True;
T :=0;
repeat
Inc(T);
Wait(500+random(500));
until (DepositScreen) or (T>=30);
end else
Writeln('Could not find the deposit box');
end;
end;

I got that from typing open in the search box in simba. If that isn't going to work then I don't think making one would be to hard.