I am looking for a way for Renegade to reject a new-user signing on inputting 
an invalid birthday (like anything past the current year minus 18 or 
something)

In the Renegade source code, the following routine gets the date from the
caller:

procedure doage;
var
  s:astr;
  q:boolean;
begin
  if (how = 1) and (IEMSIRec.bdate <> '') then
    begin
      buf := IEMSIRec.bdate;
      IEMSIRec.bdate := '';
    end;
  print('Enter date of birth (mm/dd/yyyy). This will be used only in');
  print('conjunction with a password reset if its forgotten.');
  prt(':');
  if how=3 then q:=TRUE else q:=FALSE;
  UserColor(3); inputformatted(s,'##/##/####',q);
  if (s <> '') then
    begin
      if (how = 2) then
        sysoplog('Changed birthdate from '+pd2date(user.birthdate)+' to '+s);
      user.birthdate := date2pd(s);
    end;
  done1:=TRUE;
 end;

Do the new versions above Y2KA2 address this or can someone tell me what I 
need to add/change?

I do not want to change the inputformatted function since it may "break" other
things here.

Nick

--- Renegade vY2Ka2
 * Origin: darkrealms.ca (1:229/426)