@verb #2570:"do_command" this none this rxdo #8084
@program #2570:"do_command" this none this
if (connected_seconds(this) > 60 * 60 * 2)
  "I'm not going to wear out my welcome.  Two hours is my limit."
  fork (10)
    if (this:connected())
      force_input(this, ":waves goodbye.")
    endif
    suspend(10)
    if (this:connected())
      force_input(this, "@quit")
    endif
  endfork
endif
"Don't do or say anything that contains swearwords."
return argstr != $msg:censor(argstr)
"Last modified by Dax (#789) on Sat Sep 29 05:44:08 2001 MDT."
.