* function OpenBankNPC: Boolean;

[rogeruk]

Watched my script for a bit and sometimes char was still moving while trying to look for bank so it didnt work.

[Rich]

Yeah, I couldnt get it to go perfectly to at Draynor, tried changing colours still goes around the floor before it goes to the banker.

Is that in your Draynor Chopper? I get the same problem when using your script.

[Sir R. M8gic1an]

Added GJ

~RM

[Sandstorm]

Cool function. I think it's been so long since they used the committed tag they forgot an M .

~Sandstorm

[Rich]

Added GJ

~RM

But it doesn't work fully in Draynor...Did you change it to work then?

[marpis]

Edited it so that it waits until Bank/Pin screen appears. Also now it doesn't wait 2sec in vain if the banker wasn't found (misclick)

Uses WaitFunc so this would require BankScreenOrPinScreen: Boolean; to be commited as well.

Works perfectly in Catherby btw Awesome job Home!

function BankScreenOrPinScreen: Boolean;
begin
  Result := BankScreen or PinScreen;
end;
{*******************************************************************************
function OpenBankNPC: Boolean;
By: Home, edited by marpis
Description: Opens the bank by using Banker.
*******************************************************************************}
function OpenBankNPC2: Boolean;
var
  bx, by, Speed, ColFace, ColGrey, ColBlue: Integer;
begin
  Speed := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  ColFace := 7774419; // Face Color
  ColGrey := 6381925; // Grey Color [ Clothes ]
  ColBlue := 2429979; // Blue Color [ Clothes ]
  if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey], [5, 5, 5], ['anke', 'to B', 'Banker', 'nker'], 2, 2)) then
  begin
    Mouse(bx, by, 0, 0, False);
    if WaitOption('ank B', 350 + Random(50)) then
    begin
      FFlag(0);
      Result := WaitFunc(@BankScreenOrPinScreen, 100, 10000 + Random(2000));
      if Result then
        if (Length(Players) > 0) then
          if (Players[CurrentPlayer].Pin <> '') then
            InPin(Players[CurrentPlayer].Pin);
    end;
  end;
  ColorToleranceSpeed(Speed);
end;