27e
@verb #18:"censor" this none this rxdo #789
@program #18:"censor" this none this
"If a guests swears, he pays the ultimate price."
text = args[1]
if (caller != this)
  raise(E_PERM)
elseif (text != $msg:censor(text))
  player:blacklist_me()
  player:tell("Swearing is not tolerated on ", $name, ".")
  player.location:announce_all(player:title(), " opens ", player:pronoun_pp(), " mouth, inserts foot, and is disconnected.")
  $guest:fileappend("autoboot.txt", {tostr(this.last_commands[$])})
  boot_player(player)
  kill_task(task_id())
endif
return text
"Last modified by Dax (#789) on Sun May  6 08:07:09 2001 MDT."
.

0