@verb #3465:"title" this none this rd #3465
@program #3465:"title" this none this
"Use full name if contents list or exit message:"
fullname = 0
for c in (callers())
  if (c[1] == this.location && c[2] == "tell_contents" || $object_utils:isa(c[1], $exit))
    fullname = 1
    break
  endif
endfor
name = fullname ? "David Meyer" | "David M."
if (this in connected_players())
  if (idle_seconds(this) < 120)
    return name
  else
    return name + " (Distracted)"
  endif
else
  return this.name + " (Asleep)"
endif
"Last modified by David_Meyer (#3465) on Wed May 19 01:35:03 2004 MDT."
.