SRL Archive - OSR Help

How do i bank with moving banker, like in fist of Guthix?

OpenBankNPC doesnt work there.

//Edit As i understand its not about moving its about colours of the banker?

Write your own function/procedure that finds the moving banker like you would any main screen object and then click to bank or right click and select bank option from the menu depending on how the npc works.

function BankFinder(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.25, 0.35);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3830891, MSX1, MSY1, MSX2, MSY2, 18)     //           Banker colour
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    Wait(200+Random(50));
    If(IsUpTextMultiCustom(['anker'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;
Procedure OpenBank;
begin
  If (LoggedIn) then
  begin
    If Not FindNormalRandoms then
    begin
      Wait(RandomRange(700, 800));
      If BankFinder(X,Y) then
      begin
    If IsUpText('anker') then
    ClickMouse2(False);
    Wait(100+Random(50));
    ChooseOption('Bank Sir');

        Repeat
          Wait(50);
        Until(PinScreen Or BankScreen);
        If PinScreen then
          InPin(Players[CurrentPlayer].Pin);
        If BankScreen then
        begin
        end else
        begin
          OpenBank;
        end;
      end else
        OpenBank;
    end;
  end;
end;  

something like that

From: jakeyboy29

function BankFinder(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.25, 0.35);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3830891, MSX1, MSY1, MSX2, MSY2, 18)     //           Banker colour
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    Wait(200+Random(50));
    If(IsUpTextMultiCustom(['anker'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;
Procedure OpenBank;
begin
  If (LoggedIn) then
  begin
    If Not FindNormalRandoms then
    begin
      Wait(RandomRange(700, 800));
      If BankFinder(X,Y) then
      begin
    If IsUpText('anker') then
    ClickMouse2(False);
    Wait(100+Random(50));
    ChooseOption('Bank Sir');

        Repeat
          Wait(50);
        Until(PinScreen Or BankScreen);
        If PinScreen then
          InPin(Players[CurrentPlayer].Pin);
        If BankScreen then
        begin
        end else
        begin
          OpenBank;
        end;
      end else
        OpenBank;
    end;
  end;
end;  

something like that

Trying to make my first script and i have noidea what this is.