Results 1 to 4 of 4

Thread: Need Help with Adding Bank Function!

  1. #1
    Join Date
    Jul 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help with Adding Bank Function!

    Ok, this is the script so far:

    SCAR Code:
    {=========================================================================]
    [                   SRL                                                   ]
    [                                                                         ]
    [           NAME        : SRL                                             ]
    [           AUTHOR      : Arctic Skilz                                    ]
    [           CATEGORY    :                                                 ]
    [           DESCRIPTION :                                                 ]
    [           USAGE       :                                                 ]
    [           AUTOCOLOR   : No                                              ]
    [           NOTES       : If you brought this script,ask for a refund now ]
    [           CONTACT     :                                                 ]
    [                                                                         ]
    [                                                                         ]
    [=========================================================================]
    [                         Script With Auto Login!                         ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ 1. USE Runescape with Low Detail, Very Bright.                          ]
    [ 2. Set your Screen to 32 bit TRUE color.                                ]
    [ 3. Set Playernames and Passwords in DeclarePlayers.                     ]
    [ 4. Set Howmanyplayers inside DeclarePlayers                             ]
    [ 5. Set colors on recommended lines                                      ]
    [ 6. Start script Logged Out!                                             ]
    [=========================================================================}


    program New;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    {.include SRL/SRL.scar}

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Const NumberOfUsers          = 10;             // Amount of Users 1 - 10
    Const StartPlayer            = 0;              // Account Number 0 - 9, no 10 because of 0

    Const Loads                  = 10;             // Amount of Loads to do before switching player

    Const Version                = 1;              // Dont Edit This, for My Use Only

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DeclarePlayers;

    Begin
       HowManyPlayers:= NumberOfUsers;
       NumberOfPlayers( HowManyPlayers );
       CurrentPlayer := StartPlayer;

       Players[0].Name :='';        // Username
       Players[0].Pass :='';        // Password
       Players[0].Nick :='';        // 3 or 4 Letters from your Username
       Players[0].Loc :='Bank';     // Where Abouts, Leave This!
       Players[0].Active:=True;

       Players[1].Name :='';        // Username
       Players[1].Pass :='';        // Password
       Players[1].Nick :='';        // 3 or 4 Letters from your Username
       Players[1].Loc :='Bank';     // Where Abouts, Leave This!
       Players[1].Active:=True;

       Players[2].Name :='';        // Username
       Players[2].Pass :='';        // Password
       Players[2].Nick :='';        // 3 or 4 Letters from your Username
       Players[2].Loc :='Bank';     // Where Abouts, Leave This!
       Players[2].Active:=True;

       Players[3].Name :='';        // Username
       Players[3].Pass :='';        // Password
       Players[3].Nick :='';        // 3 or 4 Letters from your Username
       Players[3].Loc :='Bank';     // Where Abouts, Leave This!
       Players[3].Active:=True;

       Players[4].Name :='';        // Username
       Players[4].Pass :='';        // Password
       Players[4].Nick :='';        // 3 or 4 Letters from your Username
       Players[4].Loc :='Bank';     // Where Abouts, Leave This!
       Players[4].Active:=True;

       Players[5].Name :='';        // Username
       Players[5].Pass :='';        // Password
       Players[5].Nick :='';        // 3 or 4 Letters from your Username
       Players[5].Loc :='Bank';     // Where Abouts, Leave This!
       Players[5].Active:=True;

       Players[6].Name :='';        // Username
       Players[6].Pass :='';        // Password
       Players[6].Nick :='';        // 3 or 4 Letters from your Username
       Players[6].Loc :='Bank';     // Where Abouts, Leave This!
       Players[6].Active:=True;

       Players[7].Name :='';        // Username
       Players[7].Pass :='';        // Password
       Players[7].Nick :='';        // 3 or 4 Letters from your Username
       Players[7].Loc :='Bank';     // Where Abouts, Leave This!
       Players[7].Active:=True;

       Players[8].Name :='';        // Username
       Players[8].Pass :='';        // Password
       Players[8].Nick :='';        // 3 or 4 Letters from your Username
       Players[8].Loc :='Bank';     // Where Abouts, Leave This!
       Players[8].Active:=True;

       Players[9].Name :='';        // Username
       Players[9].Pass :='';        // Password
       Players[9].Nick :='';        // 3 or 4 Letters from your Username
       Players[9].Loc :='Bank';     // Where Abouts, Leave This!
       Players[9].Active:=True;

    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DoChats;

    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Friends', 2);
      SetChat('Friends', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure ClearVars;

    Var
      I : Integer;
    Begin
      For I := 1 To 19 Do
      ReportVars[I] := 0;
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure SetupScript;

    Begin
      ClearDebug;
      WriteLn('Cleared Debug');
      ActivateClient;
      WriteLn('Activated Client');
      Wait(100);
      SetupSRL;
      WriteLn('Setup SRL');
      DeclarePlayers;
      WriteLn('Declared Players');
      MouseSpeed := 5;
      ScriptID := '238';
      ClearVars;
      WriteLn('Mouse Speed : 5');
      CurrentPlayer := StartPlayer;
      WriteLn('Start Player');
      wait(100);
      LoginPlayer;
      WriteLn('Login Player');
      Wait(1000);
      DoChats;
      WriteLn('Done Chats');
      BenMouse := True;
      WriteLn('Ben Mouse : True');
      HighestAngle;
      WriteLn('Highest Angle');
      MakeCompass('N');
      WriteLn('Compass North');
      SetRun(True);
      SRLRandomsReport;
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure RunToFlax;
    Begin
      WriteLn('Running too flax...');
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure PickFlax;
    Begin
      WriteLn('Picked Flax');
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure RunBank;
    Begin
      WriteLn('Running too bank...');
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DepositBank;
    Begin
      WriteLn('Depositing...');
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Function BankStuff: Boolean;

    Var
      FlaxPicked: Integer;
    Begin
      If Not BankScreen Then Exit;
      FlaxPicked := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
           '2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
           'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
           '3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
           '57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
           'BB9DF73F7ACE7D1F');
      FlaxPicked := FlaxPicked + CountItemBmpTol(FlaxPicked, 15);
      ClickAllItemsBmpTolWait('All', FlaxPicked, 15, 1500);
      Deposit(1, 28, 2)
      FreeBitMap(FlaxPicked);
      If BankScreen Then CloseBank;
      Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
      Banks := Banks + 1;
      Result := True;
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    begin
      ActivateClient;
      SetupScript;
      SRLRandomsReport;

      Repeat
        MakeCompass('N');
        If Players[CurrentPlayer].Loc = 'Bank' Then
        Begin
          FindNormalRandoms;
          RunToFlax;
          FindNormalRandoms;
        If LoggedIn Then Players[CurrentPlayer].Loc := 'FlaxField';
          FindNormalRandoms;
          PickFlax;
          FindNormalRandoms;
        If LoggedIn Then Players[CurrentPlayer].Loc := 'GotFlax';
          FindNormalRandoms;
          RunBank;
          FindNormalRandoms;
        If LoggedIn Then Players[CurrentPlayer].Loc := 'AtBank';
          FindNormalRandoms;
          DepositBank;
          FindNormalRandoms;
        If LoggedIn Then Players[CurrentPlayer].Loc := 'Deposited';
        End;

        {If Players[CurrentPlayer].Loc = 'Deposited' Then
        Begin
          LogOut;
          Break;
        If(Not LoggedIn) Then
          Wait(1000);
          NextPlayer(True);
          DoChats;
          SetRun(True);
        End;

        If Not LoggedIn Then
        Begin
          NextPlayer(True);
          DoChats;
          SetRun(True);
        End;}

      Until False;
     // ProgressReport;
      SRLRandomsReport;
    end.

    Can someone help me with my bank function please.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Wana tell us whats wrong with it?

  3. #3
    Join Date
    Jul 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont know how to implements it into one of my procedures. thats what i need help with

  4. #4
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    SRL Has built in procedures to open the bank find the bank ECT look at the SRL Manuel

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Interrupting a Bank Function?
    By Macros in forum OSR Help
    Replies: 0
    Last Post: 11-12-2008, 03:32 AM
  2. Need Bank Function Help!
    By bgxsaer in forum RuneScape News and General
    Replies: 2
    Last Post: 01-20-2008, 10:12 AM
  3. Bank Function HELP!
    By bgxsaer in forum OSR Help
    Replies: 4
    Last Post: 01-20-2008, 08:35 AM
  4. What Is The Best Bank Opening Function/Procedure?
    By ronny.m.p in forum OSR Help
    Replies: 15
    Last Post: 04-10-2007, 12:01 AM

Posting Permissions

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