3bc
@verb #8045:"title" this none this rxdo #8045
@program #8045:"title" this none this
"Copied from Roosterman (#2322):copyme Sep  6 20:19:33 2000"
listiassoc("@par", callers(), 2) || listiassoc("@parents", callers(), 2) && dobj == this && {player:tell(this.name, "'s parents were  Edith and Seymour."), kill_task(task_id())}
"Copied from Jay (asleep) (#8438):mtitle Jun  8 10:20:09 1997"
"Originally Proggramed for Myra (#8045) by Jay (#8438)."
"Restored for Myra(#8045) by Roosterman (#2322)"
n = ""
if (this:msg_title())
  n = this:msg_title()
else
  n = this.name
endif
is_idle = `$object_utils:idle_seconds(this) / 180 ! ANY => 0'
return n + (this:connected(0) ? (this:msg_mood() ? " (" + this:msg_mood() + ")" | "") + (is_idle ? " (" + this:msg_idle_mood() + ")" | "") | " (" + this:msg_asleep_mood() + ")")
"Modified slightly to allow Myra to be invisible -- Cecil"
"Last modified by Cecil (#7407) on Sun Dec  3 12:26:53 2000 MST."
.

0