function TalkToBanker: Boolean;
var
  tm, tm2: Integer;
  banker_p: TPoint;
begin
  tm := GetSystemTime;
  repeat
    Result := ChoiceIsOpen;
    if not Result then
      if SearchForNPC(banker_p, Banker) then
      begin
        MoveMouse(banker_p.X, banker_p.Y);
        Wait(10 + Random(20));
        if (Pos('banker', Lowercase(RSCE_UpText)) > 0) then
        begin
          ClickMouse(banker_p.X, banker_p.Y, Mouse_right);
          Wait(10 + Random(20));
          if (Pos('banker', Lowercase(RSCE_RightClickText)) > 0) then
          begin
            MoveMouse(banker_p.X, (banker_p.Y + 15));
            ClickMouse(banker_p.X, banker_p.Y, Mouse_left);
            tm2 := GetSystemTime;
            repeat
              Result := ChoiceIsOpen;
              Wait(10);
            until (Result or ((GetSystemTime - tm2) >= 3100));
          end;
        end;
      end;
    Wait(10);
  until (Result or ((GetSystemTime - tm) >= 30000));
  if Result then
    ChooseChoice(1);
end;