Results 1 to 10 of 10

Thread: procedure BankWithdraw(W1,W2,HM:Integer;WHICHBANK,PINNUMBER: String);

  1. #1
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default procedure BankWithdraw(W1,W2,HM:Integer;WHICHBANK,PINNUMBER: String);

    UPDATE 1.1: Added deposit. Added a True or False statement. Added FailSafe's (Only one, thanks to JuKKa. Didn't know i needed them).

    I haven't tested the new version. Can somebody do it for me?

    Information:
    SCAR Code:
    {*******************************************************************************
    procedure BankWithdraw(W1,W2,HM,ICN,S1,S2,T1:Integer;PINNUMBER,WHICHBANK:String;DI:Boolean):Boolean;
    by: IP-Drowner
    Description: Will open WHICHBANK and will withdraw HM at column W1 at row W2.
                      If it find's the pin screen, it will enter PINNUMBER. Return's True when
                     it has completed.
    *******************************************************************************}

    Usage:
    SCAR Code:
    BankWithdraw(1,1,28,13,4,28,0,'0000','varrock east',True);

    The Code:
    SCAR Code:
    procedure BankWithdraw(W1,W2,HM,ICN,S1,S2,T1:Integer;PINNUMBER,WHICHBANK:String;DI:Boolean):Boolean;
    begin
      if(Not(LoggedIn)) then Exit;
      if(DI) then
        begin
          if(InvCount>=ICN))  then
            begin
              Deposit(S1, S2, T1: Integer);
            end;
        end;
      OpenBankFast(WHICHBANK);
        if(PinScreen = True) then
          begin
            repeat
              InPin(PINNUMBER);
            Until(PinScreen = False);
          end;
        if(PinScreen = False) then
          begin
            Wait(327 + Random(191))
            FixBank;
            Wait(400 + Random(329))
            WithDraw(W1,W2,HM);
            Wait(129 + Random(97))
              repeat
                CloseBank;
              Until(CloseBank=True);
                Result:=True;
          end;
    end;

    Variable List for WHICHBANK:
    Code:
    'akb', 'al-kharid' - Al-Kharid Bank (South of gate, furnace and mining site)
    'lb', 'lumbridge' - Lumbridge Bank (Top level of Lumbridge Castle)
    'veb', 'varrock east' - Varrock East Bank (North-West of Iron Mining Site)
    'vwb', 'varrock west' - Varrock West Bank (South of the Grand Exchange, North of anvil's)
    'feb', 'falador east' - Falador East Bank (South of Hair Cutter)
    'fwb', 'falador west' - Falador West Bank (North of Mining Guild)
    'db', 'draynor' - Draynor Bank (North of fishing spot's and willow tree's)
    Edgeville Bank Variable's removed because it does not function correctly

    This part of script coding has been tested over 20 time's and it work's very well.

    I hope the community will like it. I will be using this in my script's, and if you do use this in your script's please credit me by adding: //Thanks IP-Drowner. Like this:
    SCAR Code:
    procedure BankWithdraw(W1,W2,HM:Integer;PINNUMBER,WHICHBANK:String); //Thanks IP-Drowner
    .

    Enjoy!
    Also remember to post feedback and comment's for improvement. This may be edited freely but not to be distributed to the public freely unless without my permission.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  2. #2
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    Yes pretty good. Should be used alot as a combination.

  4. #4
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by PwNZoRNooB View Post
    Nice looking procedure, you should do it though so that it returns true if it is succesful and false if not.
    Thanks, and yes i should do that.

    I just made this so it could make banking and withdrawing a whole lot easier. I hope it make's it into SRL.

    Maybe i should make it deposit too. Well, what do you guy's think?
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  5. #5
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't think simple procedures like these get into SRL. It is really rare to get anything into SRL unless you're a developer, and I've seen things way better than this, that didn't get in.

    No offence.

    -Knives

  6. #6
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Add failsafes like If(Not Loggedin)Then Exit; Timers, Counters etc..

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  7. #7
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I am putting together some includes, and, I'd like to use this. I will give credits to you.
    Formerly known as Cut em2 it

  8. #8
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Added update, will now deposit item's. Also, i haven't tested this, so if anybody could then thanks.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

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

    Default

    in most scripts when banking/ withdrawing people will look for dtms, not really for a specific place. so i think you should add in a dtm part in there.
    instead of the spot just make it look for the dtm. (and possibly the bankscreen scroll down if it doesn't find it)

    ~RM

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

  10. #10
    Join Date
    Sep 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Creds placed in script, you never fail to dissapoint

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 5
    Last Post: 03-30-2008, 01:40 PM
  2. function SendKeyboard(FKey:Integer; Text:String): Integer;
    By Daniel in forum Research & Development Lounge
    Replies: 4
    Last Post: 07-18-2007, 04:28 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
  •