Results 1 to 9 of 9

Thread: Pin Screen Problem.

  1. #1
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Pin Screen Problem.

    Why doesn't my bank method work?

    Code:
    procedure Bank;
      begin
        MakeCompass('E');
        SetAngle(SRL_ANGLE_HIGH);
        MMouse(223,168,5,12);
        if IsUpText('ank') then
          begin
          Mouse(223,168,5,12,True);
        end else
          begin
            Writeln('Could not find bank!');
            FailSafe('No bank found');
          end;
        Writeln('Banking..');
        if PinScreen then
          InPin(Players[CurrentPlayer].Pin);
        Wait(800+random(200));
        DepositAll;
        Withdraw(0,0,14);
        Withdraw(1,0,14);
        CloseBank;
      end;
    Here's what I have for my DeclarePlayers procedure:
    Code:
    procedure DeclarePlayers;
      var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards := ['XP'];
    
      With Players[0] do
      begin
        Name := 'name'; //Username.
        Pass := 'pass'; //Password.
        Active := True;
        Pin := 'pin' // Bank Pin
      end;
    
    end;
    Last edited by Mattie403; 02-17-2012 at 04:50 AM.

  2. #2
    Join Date
    Nov 2011
    Location
    Jozi, South Africa
    Posts
    249
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Post

    This needs to be a 'string'.
    Players[CurrentPlayer].Pin
    If ...
    CurrentPlayer := StartPlayer
    .
    What is StartPlayer set to ?

    And just to finish, what are you observing when you run the script ? Nothing ? An error ?
    Ciao
    NM

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

    Default

    Can you explain what exactly is going wrong?
    Where does it mess up?
    Also you can change your Mouse(223,168,5,12,True); to Mouse(223,168,0,0,True);
    Because your MMouse moves to bank and checks uptext, and if it's right then you don't need any randomness before you click, you can just click.

  4. #4
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here are my constants:
    Also, it compiles with no problem. When the pin screen opens up, it just ignores it and continues as if it's taking the items out of the bank.
    Code:
    const
      SERVER            = 0;  // Enter "0" to pick a random server.
      MEMBERS           = True; //False if F2P
      //BreakEvery        = 250;  // How long to bot before break(min)
      //BreakFor          = 10;    // Break Length(min)
      NumbOfPlayers     = 1;
      StartPlayer       = 0;
      AntibanAttempt    = 8; //How much Antiban? 1=Always  10=Rare

  5. #5
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    What you should do:

    Simba Code:
    repeat
      wait(100);
    until(PinScreen or BankScreen);
    if PinScreen then
      begin
      saifubsifbsdi
      wait(1000)
      end;
    if BankScreen then
     iufnsinfs

    Add a timeout there though.

  6. #6
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The actual problem is typing in the pin. That's where I really need help.

  7. #7
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Here-

    Simba Code:
    if DidRedClick then
          begin
          MarkTime(t);
          repeat
            wait(100);
            if TimeFromMark(t) > 7000 then
              begin
                Bank;
                exit;
              end;
          until(PinScreen or BankScreen);
          end;
        if PinScreen then
        begin
          InPin(Players[CurrentPlayer].Pin);
        end;

    add T as a Integer

  8. #8
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Shit ya! Tyvm Sin. what an amazing community.

  9. #9
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Your welcome
    If you need any more help, just ask.

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
  •