Results 1 to 3 of 3

Thread: Bank wont deposit.

  1. #1
    Join Date
    Jul 2008
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bank wont deposit.

    when my script gets to banking it opens up the bankscreen then closes it and doesnt deposit.

    Script:
    SCAR Code:
    procedure Banking;
    begin
      if (InvFull) then
      begin
        MakeCompass('W')
        Wait (300 + random(160));
        OpenBankFast('db');
        if (PinScreen) then
        InPin(YourPin);
          if(FindColorSpiral(x, y, 4155248, 547, 206, 734, 464))then
        begin
         DepositAll;
         Banked := True;
         if Banked = True then
         begin
           LoadsNum := LoadsNum + 1;
           LoadsNum2 := LoadsNum2 + 1;
           ReportVars[1] := ReportVars[1] + 1;
           SendSRLReport;
         end;
        end;
       CloseBank;
       Wait(150 + random (278));
       MakeCompass('S');
      end;
    end;

  2. #2
    Join Date
    May 2008
    Location
    127.0.0.1
    Posts
    705
    Mentioned
    1 Post(s)
    Quoted
    6 Post(s)

    Default

    procedure Banking;
    begin
    if (InvFull) then
    begin
    MakeCompass('W')
    Wait (300 + random(160));
    OpenBankFast('db');
    if (PinScreen) then
    InPin(YourPin);
    DepositAll;
    Banked := True;
    if Banked = True then
    begin
    LoadsNum := LoadsNum + 1;
    LoadsNum2 := LoadsNum2 + 1;
    ReportVars[1] := ReportVars[1] + 1;
    SendSRLReport;
    end;
    end;
    CloseBank;
    Wait(150 + random (278));
    MakeCompass('S');
    end;
    end;
    <Wizzup> And he's a Christian
    <Wizzup> So he MUST be trusted
    ___________________________________________
    <Wizzup> she sounds like a dumb bitch

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

    Default

    SCAR Code:
    procedure Banking;
    begin
      if (InvFull) then
      begin
        MakeCompass('W')
        Wait (300 + random(160));
        OpenBankFast('db');
        if (PinScreen) then
        InPin(YourPin);
        DepositAll;
        Banked := True;
        LoadsNum := LoadsNum + 1;
        LoadsNum2 := LoadsNum2 + 1;
        ReportVars[1] := ReportVars[1] + 1;
        SendSRLReport;
        CloseBank;
        Wait(150 + random (278));
        MakeCompass('S');
       end;
     end;

    This should work out?
    Also in my opinion, you should check if invatory is full in a different procedure. Then if it is, call Bank;. Otherwise you are calling Bank every single time, and if invatory is not full it just exits. I'm not sure, but in my opinion that is a waste of energy/time/w.e.

    Full script edit: Here
    Last edited by osmm; 06-12-2009 at 12:59 PM.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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