SRL Archive - Research & Development Lounge

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 ;)

{*******************************************************************************
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):

Mouse(x,y,2,2,true);
ChooseOption('uickly');
wait(1000+Random(1234));

That won't work, considering you have the mouse left-clicking when you need it to right-click.

ahh thx lol my bad lol updated

spaz

you could also use DropAll; for the dropping and you might want to add in an option for the dropping spaz, i know i wouldn't use this if i risked dropping my whole load after having walked to the bank :p

Also another nice add would be to have it enter your bank pin if you have one =]

maybe a failsafe counter up to 5 when its looking for the bank? if you add everyones suggestions this could go into srl, i dont see why not.

Dont need to use if uptext findobj custom already does that :p