@verb #8438:"title" this none this rxdo #8438
@program #8438:"title" this none this
"Programmed by Jay (#8438) - feel free to copy and use! :-)"
name = `this:name() ! E_VERBNF => this.name'
idle = `$object_utils:idle_seconds(this) / 180 ! ANY => 0'
if (!$object_utils:connected(this))
  return name + " (asleep)"
else
  return name + (idle ? " (dozing)" | (this.msg_mood ? tostr(" (" + this.msg_mood + ")") | ""))
endif
"Last modified by Jay (#8438) on Sat May  6 18:18:43 2000 MDT."
.