SRL Archive - Reflection Development

im pretty sure you know what this is

{*******************************************************************************
function R_BankTab(TabNum: Integer): Boolean;
By: Shuttleu
Description: Clicks on the bank tab if it exists.
*******************************************************************************}
function R_BankTab(TabNum: Integer): Boolean;
var
  x, y, ID: Integer;
  Position: TPoint;
begin
  case TabNum of
    1: ID:= 63;
    2: ID:= 61;
    3: ID:= 59;
    4: ID:= 57;
    5: ID:= 55;
    6: ID:= 53;
    7: ID:= 51;
    8: ID:= 49;
    9: ID:= 47;
  end;
  x:= GetInterfaceComponentTextureID(INTERFACE_BANK, ID);
  if ((not(x=BANK_TAB_ADD_TEXTURE)) and R_BankTabExists(TabNum)) then
  begin
    Position:= GetInterfaceComponentRelativePoint(INTERFACE_BANK, ID);
    Mouse(Position.x+20, Position.y+15, 10, 10, True);
    Result:= True;
  end;
end;  

~shut

EDIT: the title should be R_BankTab