@verb #1002:"@rmword" any any any rxd #7153
@program #1002:"@rmword" any any any
"@remword <word> <language> - Removes a word from a language list."
"The language must be one of the languages in the lexicon."
this:update_usage(verb)
if (!this:is_trusted(player))
  player:tell("Sorry, you can't remove a word from a language right now.  If you want to be added to the trusted list, please contact Picard (#7153).")
  return
endif
if (length(args) < 3)
  player:tell("Usage: @rmword &lt;word&gt; from &lt;language&gt;")
  return
endif
lexicon = this.lexicon
word = tostr(dobjstr)
language = $string_utils:capitalize(iobjstr)
try
  for x in [1..length(this.lexicon.(language))]
    if ($su:words(this.lexicon.(language)[x])[1] == word)
      found = x
    endif
  endfor
  if (found)
    lexicon.(language) = listdelete(lexicon.(language), found)
    player:tell(word, " deleted from ", language, ".")
    player:tell(language, " now contains the following words:")
    player:tell(this:list_words(language))
  else
    player:tell(word, " is not in ", language, ".")
  endif
except (E_PROPNF)
  player:Tell(language, " is not one of the languages in the Lexicon.")
  player:tell("Valid languages are:  ", this:list_languages())
endtry
"Last modified by Dax (#789) on Thu Nov  8 11:38:31 2001 MST."
.