@verb #1002:"@addword" any any any rxd #7153
@program #1002:"@addword" any any any
"Usage:  @addword <word> - <meaning> to <language>"
"   -=>  The language must be one of the languages on the lexicon."
this:update_usage(verb, player)
if (!this:is_trusted(player) && !player.wizard)
  player:tell("Sorry, you can't add a word to a language right now.  If you want to be added to the trusted list, please contact Picard (#7153).")
  return
endif
lexicon = this.lexicon
if (length(args) < 3)
  player:tell("Usage: @addword &lt;word&gt; - &lt;meaning&gt; to &lt;language&gt;")
  return
endif
to = index(argstr, "to")
word = argstr[1..to - 1]
language = argstr[to + 3..$]
try
  if (word in lexicon.(language))
    player:tell(word, " is already in ", language, ".")
  else
    lexicon.(language) = {@lexicon.(language), word}
    player:tell(word, " added to ", language, ".")
    player:tell(language, " now contains the following words:")
    player:tell(this:list_words(language))
  endif
except (E_PROPNF)
  player:tell(language, " is not one of the languages in the Lexicon.")
  player:tell("Valid languages are:  ", $string_utils:english_list(properties(lexicon)), ".")
  if ($command_utils:yes_or_no("do you want to add this language?"))
    add_property(this.lexicon, language, {word}, {#7153, "rc"})
    player:tell(language, " added with the word: ", word, ".")
    return
  else
    player:Tell("Language `", language, "' not added.")
  endif
endtry
"Last modified by Dax (#789) on Thu Nov  8 11:38:31 2001 MST."
.