SRL Archive - Reflection Development

nother one for you

  BANK_TAB_ADD_TEXTURE                                  = 1435;

{*******************************************************************************
function NumberOfBankTabs: Integer;
By: Shuttleu
Description: Returns how many bank tabs you have.
*******************************************************************************}
function R_NumberOfBankTabs: Integer;
var
  AddExists: Boolean;
  i, x: Integer;
begin
  AddExists:= False;
  for i:=61 downto 47 do
  begin
    x:= GetInterfaceComponentTextureID(INTERFACE_BANK, i);
    AddExists:= (x = BANK_TAB_ADD_TEXTURE);
    if AddExists then Break;
  end;
  if (not(AddExists)) then
    Result:= 9
  else
  begin
    InIntArrayEx([61, 59, 57, 55, 53, 51, 49, 47], x, i);
    Result:= (x+1)
  end;
end; 

~shut