Simba Code:
Function IsDepositBoxOpen : Boolean ;
var
x , y : integer ;
begin
if not LoggedIn or InvEmpty or DepositScreen then
Exit ;
begin
if InvFull and GuyJustchilln then
begin
GetSymbolColor( x , y , 'bank' ) ;
SSMouse ( x + 14 , y , 5 , 5 , True ) ;
wait ( 2000 + Random ( 1000 ) ) ;
if FindObjTPA ( x , y , 8095630 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) or (*i use this for findind depot box cuz i can change/add color acrdingly*)
FindObjTPA ( x , y , 7964044 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) or
FindObjTPA ( x , y , 8226960 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) then
begin
SSMouse ( x , y , 5 , 5 , True ) ;
Result := True ;
end ;
end ;
end ;
end ;
procedure BankItems ;
var
SCMark , x , y : Integer ;
begin
if not LoggedIn or InvEmpty then
Exit ;
begin
if InvFull and WalkFinished then
begin
SCMark := DTMFromString('mWAAAAHicY2FgYBAGYiUg5gBiUSDmAWIxIGYHYhUgrq+qYrCxsmSIDg9naK2vZ5AEiiFjRjQMAgAKowW6');
if FindDTM ( SCMark , x , y , msx1 , msx1 , mscx , mscy ) then (*this dtm is a thing on left side of bank, for positioning is all*)
begin
IsDepositBoxOpen ;
Wait ( 3000 + Random ( 500 ) ) ;
if DepositScreen then
begin
DepositAll ;
end else
if FindObjTPA ( x , y , 8095630 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) or
FindObjTPA ( x , y , 7964044 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) or
findObjTPA ( x , y , 8226960 , 10 , - 1 , 30 , 60 , 600 , [ 'deposit' ] ) then
begin
SSMouse ( x , y , 5 , 5 , True ) ;
Wait ( 3000 + Random ( 500 ) ) ;
if DepositScreen then
begin
Wait ( 3000 + Random ( 500 ) ) ;
DepositAll ;
end ;
end ;
end ;
end ;
end ;
end ;