@verb #3512:"@age age" any none none rxdo #6319
@program #3512:"@age age" any none none
"@age <player>"
""
"Finds the specific MOO-age of a player.  Also can determine the real age of a player, if they have a property set on themselves called `real_bday'.  This property should hold, in the MOO's seconds-since-1970 time format, the player's real birthdate."
""
"$time_utils:from_ctime() can help you determine your real birthday in the correct time format.  It is asked of you that you do not attempt to lie about or exaggerate your real age.  Please don't bother setting it if you don't wish to be honest."
""
"Original verb by Lancer (#5999).  Leap-Year support by Mandos (#8165).  Hacked up by Raptor (#6319)."
this:update_usage("age", player)
if (!args)
  if (caller == this)
    return player:tell("You should state the name of a player.")
  endif
  target = player.name
else
  target = args[1]
endif
if ($command_utils:player_match_failed(dobj = $string_utils:match_local_player(target), target))
  return
endif
if ((w = #2774:player_age(dobj)) == E_NONE)
  return player:sub_tell("%d has not connected yet.")
elseif (w == E_QUOTA)
  player:sub_tell("%d seems to have altered %d#-3, so an exact age cannot be found.")
else
  player:sub_tell("%d first connected %1 ago.", $time_utils:english_time(w))
endif
if (r = `#2774:determine_age(dobj.real_bday) ! ANY => 0')
  $command_utils:suspend_if_advisable()
  player:sub_tell("%d is %1 old in real life.", $time_utils:english_time(r))
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:47:28 1999 MDT."
.