@verb #18:"blacklist_me" this none this rxdo #789
@program #18:"blacklist_me" this none this
"Lock all guests out of this guest's location for 2 hours."
caller_perms().wizard || raise(E_PERM)
where = $string_utils:connection_hostname(this.current_connection_name)
if (listassoc("censor", callers(), 2))
  $wiz_utils:guard_alert(this:title(), " has been auto-booted by swearing: ", toliteral(this.last_commands[$]), ".  ", where, " has been blacklisted.")
else
  $wiz_utils:guard_alert(this:title(), " has just been thrown off the MOO by ", player:title(), ".  ", where, " has been blacklisted.")
endif
banned = 2 * 3600
$clock:schedule($login, "blacklist_remove", {where}, 0, 0, banned)
$login:blacklist_add(where)
"Last modified by Dax (#789) on Tue Jan 15 16:06:27 2002 MST."
.