828
@verb #2002:"vit*als" any any any rdo #2002
@program #2002:"vit*als" any any any
"Copied from The_Venomous_One (#2351):vitals Aug 31 09:03:17 1995"
if (dobjstr == "" || dobj == player)
  dobj = player
  check = 1
else
  dobj = $string_utils:match_player(dobjstr)
  check = 0
endif
targ = dobj
if (!valid(targ))
  if (!valid(targ = $string_utils:match_player(argstr)))
    player:tell(argstr, " doesn't exist.")
  endif
else
  last = ctime(dobj.last_connect_time)
  age = ctime(dobj.first_connect_time)
  place = dobj.location.name
  desc = dobj:description()
  player:tell("--------------------")
  player:tell("			", dobj.name, ", ", dobj)
  if (check == 1)
    if (desc)
      player:tell(desc)
    else
      player:tell("You have no description set.")
    endif
    player:tell("")
    player:tell("You are currently in ", dobj.location, ", ", dobj.location.name, ".")
    player:tell("You have the feature(s): ", toliteral(dobj.features))
    player:tell("Your alias(es) are: ", toliteral(dobj.aliases))
    player:tell("")
    player:tell("You first connected on ", age, ".")
    player:tell("You last connected on ", last, ".")
    player:tell("You are carrying: ", toliteral(dobj.contents))
    player:tell("")
    player:("@quota")()
  else
    if (desc)
      player:tell(desc)
    else
      player:tell(dobj.name, " has no description set.")
    endif
    player:tell("")
    player:tell(dobj.name, " [", dobj.gender, "] is currently in ", dobj.location, ", ", dobj.location.name, ".")
    player:tell(dobj.name, " has the feature(s): ", toliteral(dobj.features))
    player:tell(dobj.name, " has the alias(es): ", toliteral(dobj.aliases))
    player:tell("")
    player:tell(dobj.name, " first connected on ", age, ".")
    player:tell(dobj.name, " last connected on ", last, ".")
    player:tell(dobj.name, " is carrying: ", toliteral(dobj.contents))
    player:tell("")
    player:("@quota")()
  endif
  player:tell("--------------------")
endif
"Last modified by Slacker (#55) on Wed Jul 10 11:31:09 2002 MDT."
.

0