I made this cos i got bored but im not sure if it would work or not. In principle it should but hey i have a nack for making things that dont work 
SCAR Code:
{*******************************************************************************
procedure OpenBankNowDeposit;
by: Spaztaz666
Description: Opens Bank and deposits all.
If find bank failed then Drops all.
*******************************************************************************}
Procedure OpenBankNow;
var
i : Integer;
Begin;
If FindObjMultiText(x,y,'Bank','ank ','ooth',7042941,2900815,7767438,5,true,true) then
Begin
Mmouse(x,y,0,0);
If IsUpText('Use') then
Begin
Mouse(x,y,2,2,false);
ChooseOption('uickly');
wait(1000+Random(1234));
end;
begin
if (bankscreen) then
Writeln('Bank Found');
Deposit(FirstSlot, EndSlot, 1);
end else
Writeln('Finding Bank Failed');
Writeln('Turning to drop now...');
begin
for i := 1 to 28 do
begin
MouseItem(i, False);
ChooseOption('rop');
Wait(100 + Random(250));
end;
end;
end;
end;
ideas? rants? flames? complements? i dont mind lol all feedback is appreciated
spaz
h):