Flight
2011-03-27 07:26:11
I noticed there's not alot of work done yet to the banking system in general for deposit boxes. I required to use of them in one of my recent scripts so I made a very crude procedure for doing so. I thought maybe someone could throw in some fail safes, maybe modify it some and add it to the Bank reflection file?
Pretty obvious what it does and how it works, there's a lack of failsafes, and I even went stone-age and uses a static-define x/y coordinates for the 'Deposit All' button.
{*******************************************************************************
Procedure R_DBDepositAll
By: Flight
Description: Deposits all carried items to deposit box
*******************************************************************************}
Procedure R_DBDepositAll;
Var
x,y: Integer;
begin
R_FindRandoms;
if ((Not CharacterMoving) And (R_DepositBoxScreen)) then
begin
MMouse(345,277,10,7); //Deposit inventory button
if R_WaitUpTextMulti(['Deposit','carried'],RandomRange(250,350)) then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
Wait(RandomRange(200,350));
end;
end;
end;Pretty obvious what it does and how it works, there's a lack of failsafes, and I even went stone-age and uses a static-define x/y coordinates for the 'Deposit All' button.