function RSCE_BankOpen: Boolean;
begin
  Result := ((GetTextAtEx(53, 21, 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, False, False, 0, 0, 16777215, 4, True, tr_AllChars) = 'Bank') and (GetTextAtEx(341, 35, 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, False, False, 0, 0, 16776960, 6, True, tr_AllChars) = 'Number'));
end;

function RSCE_BankPageCount: Integer;
begin
  if RSCE_BankOpen then
    for Result := 1 to 3 do
      if (CountColor(12582912, (109 + (Result * 65)), 23, (136 + (Result * 65)), 30) > 200) then
        Exit;
end;

function RSCE_ActiveBankPage: Integer;
begin
  if RSCE_BankOpen then
    for Result := 1 to 4 do
      if (CountColor(255, (109 + ((Result - 1) * 65)), 23, (136 + ((Result - 1) * 65)), 30) > 100) then
        Exit;
  Result := 0;
end;

function RSCE_TargetedBankPage: Integer;
begin
  if RSCE_BankOpen then
    for Result := 1 to 4 do
      if (CountColor(65535, (109 + ((Result - 1) * 65)), 23, (136 + ((Result - 1) * 65)), 30) > 100) then
        Exit;
  Result := 0;
end;

function RSCE_OpenBankPage(page: Integer): Boolean;
var
  t: Integer;
begin
  if (RSCE_BankPageCount >= page) then
    if InRange(page, 1, 4) then
    begin
      Result := (RSCE_ActiveBankPage = page);
      if Result then
        Exit;
      RSCE_Click((109 + ((page - 1) * 65)), 23, 35, 7, mbLeft);
      t := GetSystemTime;
      repeat
        Result := (CountColor(255, (109 + ((page - 1) * 65)), 23, (136 + ((page - 1) * 65)), 30) > 100);
      until (Result or ((GetSystemTime - t) > 5000));
    end;
end;

function RSCE_CloseBank: Boolean;
var
  t: Integer;
begin
  Result := not RSCE_BankOpen;
  if Result then
    Exit;
  t := GetSystemTime;
  RSCE_Click(386, 24, 60, 5, mbLeft);
  repeat
    Result := not RSCE_BankOpen;
    Wait(10);
  until (Result or ((GetSystemTime - t) > 2500));
end;