@verb #3215:"title" this none this rxdo #3215
@program #3215:"title" this none this
title = `this.msg_title ! E_PROPNF, E_PERM'
title = title ? title | this.name
title = strsub(title, "_", " ")
mood = `this.msg_mood ! E_PROPNF, E_PERM'
mood = mood ? tostr(" (", mood, ")") | ""
if (this:connected(0))
  idle = this:idle_seconds()
  if (idle >= 60 * 30)
    mood = tostr(mood, " (afk)")
  elseif (idle >= 60 * 5)
    mood = tostr(mood, " (idle)")
  endif
endif
return tostr(title, mood)
"Last modified by phault (#3215) on Fri Nov  1 18:12:12 2002 MST."
.