SRL Archive - Help

Why doesn't my bank method work?

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:

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; 

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 ?

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.

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.

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 

What you should do:

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

Add a timeout there though.

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

Here-

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

Shit ya! Tyvm Sin. what an amazing community.

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