@verb #2195:"title2" this none this rxdo #2195
@program #2195:"title2" this none this
"Copied from Kiddy (#2389):title Aug 29 10:32:36 1998"
"Copied from Avocado (#2195):title Aug 20 09:42:00 1998"
"Copied from Jay (#8438):title Jul 26 09:26:01 1998"
"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 + (" " + this.mood + "")
else
  return name + (idle ? " (in deep thought)" | (this.mood ? tostr(" " + this.mood + "") | ""))
endif
"Last modified by Avocado (#2195) on Sat Jul 17 11:39:41 1999 MDT."
.