SRL Archive - Help

Just need a little help with banking here, seeing as I've created my own.
I have the script Banking the Banker until it recognizes either the BankScreen or the PinScreen, but is this the correct format for having the script input the Bank PIN?
My entire procedure:

procedure GetBank;  //My procedure, "GetBank" does just what it says on the tin. It Gets the Bank, and it Gets it much faster than SRL can.
var x, y: integer;  //Thanks to nosaj.421 for suggesting this. Please report any bugs.
begin
FindNormalRandoms;
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
AntiBanSm;
WriteLn('We are at the bank. Finding a banker...');
repeat
if FindObj(x, y, 'anker', 4664372, 10) then //Finds the Banker. I had to use the Banker because the Bank Booth matches way too many colors.
WriteLn('Found a banker. Opening bank...');
Mouse(x, y, 0, 0, false);
ChooseOption('ank Ban');  //Gets the Bank.
until (BankScreen) or (PinScreen);
begin
if PinScreen then
if (Players[CurrentPlayer].Pin <> '')then
InPin(Players[CurrentPlayer].Pin)
end;
end;

Thanks,
KeepBotting

Yeah, I'm pretty sure that's how to enter a PIN. Might I suggest you use "

 ['/simba]" tags instead of [code]?

I think it is.

E: Snailed lol.

From: Flight
Yeah, I'm pretty sure that's how to enter a PIN. Might I suggest you use "

 ['/simba]" tags instead of [code]?

From: weequ
I think it is.

E: Snailed lol.

Thanks guys.
Sorry, I'm just so used to using CODE tags. I picked up the habit from powerbot about a year ago.
I'll try to remember to use SIMBA tags on these forums though :noobface:.

my working one, works for ALL scripts.

if PinScreen then
  begin
    InPin(Players[CurrentPlayer].Pin);
    wait(1500);
  end;  

From: Sin
my working one, works for ALL scripts.

if PinScreen then
  begin
    InPin(Players[CurrentPlayer].Pin);
    wait(1500);
  end;  

Thanks, added with credits.

I was bored… Here's a clean up idk if it works…

function GetBank: boolean;
var
  I, x, y: LongInt;
begin
  Result := LoggedIn();
  if (not (Result)) then
    Exit;

  Result := BankScreen();
  if (Result) then
    Exit;

  Result := PinScreen();
  if (Result) then
  begin
    Result := InPin(Players[CurrentPlayer].Pin);
    Exit;
  end;

  for I := 1 to 3 do
    if (FindObj(x, y, 'anker', 4664372, I * 5)) then
    begin
      Mouse(x, y, 0, 0, mouse_Right);
      Wait(100 + Random(250));
      if (ChooseOption('ank')) then
      begin
        Wait(100 + Random(250));
        Result := PinScreen();
        if (Result) then
          InPin(Players[CurrentPlayer].Pin);

        Wait(100 + Random(250));
        Result := BankScreen();
        Exit();
      end;
    end;
end;

From: Dgby714
I was bored… Here's a clean up idk if it works…

function GetBank: boolean;
var
  I, x, y: LongInt;
begin
  Result := LoggedIn();
  if (not (Result)) then
    Exit;

  Result := BankScreen();
  if (Result) then
    Exit;

  Result := PinScreen();
  if (Result) then
  begin
    Result := InPin(Players[CurrentPlayer].Pin);
    Exit;
  end;

  for I := 1 to 3 do
    if (FindObj(x, y, 'anker', 4664372, I * 5)) then
    begin
      Mouse(x, y, 0, 0, mouse_Right);
      Wait(100 + Random(250));
      if (ChooseOption('ank')) then
      begin
        Result := PinScreen();
        if (Result) then
          InPin(Players[CurrentPlayer].Pin);

        Result := BankScreen();
      end;
    end;
end;

Get a life mornon mormom.. dude.

From: Dgby714
I was bored… Here's a clean up idk if it works…

function GetBank: boolean;
var
  I, x, y: LongInt;
begin
  Result := LoggedIn();
  if (not (Result)) then
    Exit;

  Result := BankScreen();
  if (Result) then
    Exit;

  Result := PinScreen();
  if (Result) then
  begin
    Result := InPin(Players[CurrentPlayer].Pin);
    Exit;
  end;

  for I := 1 to 3 do
    if (FindObj(x, y, 'anker', 4664372, I * 5)) then
    begin
      Mouse(x, y, 0, 0, mouse_Right);
      Wait(100 + Random(250));
      if (ChooseOption('ank')) then
      begin
        Wait(100 + Random(250));
        Result := PinScreen();
        if (Result) then
          InPin(Players[CurrentPlayer].Pin);

        Wait(100 + Random(250));
        Result := BankScreen();
        Exit();
      end;
    end;
end;

Agh! I've been spoonfed! Thanks though ;) I might use parts of this.

From: Sin
Get a life mornon mormom.. dude.

*infract* Bwahahahahaha jkjk =)

From: KeepBotting
Agh! I've been spoonfed! Thanks though ;) I might use parts of this.

Actually all I did was rewrite what you already had to look sexier and with a few more failsafes.

From: Dgby714
*infract* Bwahahahahaha jkjk =)

From: Dgby714
Actually all I did was rewrite what you already had to look sexier and with a few more failsafes.

You double posted nerd friend, guess who should be infracted?

From: Sin
You double posted nerd friend, guess who should be infracted?

lol to bad for you, there is no double post infraction! Only a triple post one…