Results 1 to 7 of 7

Thread: procedure OpenBankNowDeposit;

  1. #1
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default procedure OpenBankNowDeposit;

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

  2. #2
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    SCAR Code:
    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.
    :-)

  3. #3
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh thx lol my bad lol updated

    spaz

  4. #4
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    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

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  5. #5
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

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

  6. #6
    Join Date
    Oct 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    "For it is not what goes into your mouth that will defile you; rather, it is what comes out of your mouth that defiles you." - Jesus of Nazareth

  7. #7
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Dont need to use if uptext findobj custom already does that

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Help with run procedure
    By MetalancA in forum OSR Help
    Replies: 2
    Last Post: 08-30-2008, 08:19 PM
  2. Procedure TypeSendRandom & Procedure AutoResponder!
    By Ultra in forum Research & Development Lounge
    Replies: 12
    Last Post: 01-08-2008, 07:04 PM
  3. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  4. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •