@verb #1002:"@listwords" any none none rxd #7153
@program #1002:"@listwords" any none none
"Usage:  @listwords <language>"
"   -=>  Shows you all the words in <language>"
this:update_usage(verb)
if (!args)
  player:tell("Usage: @listwords &lt;language&gt;")
  player:tell("Valid languages are:  ", this:list_languages())
  return
endif
lexicon = this.lexicon
language = $string_utils:capitalize(tostr(args[1]))
try
  words = this:list_words(language)
  "Has to be put up here so any error can be caught."
  player:tell("&gt;&gt;&gt; " + $su:capitalize(language), " contains the following words:")
  player:tell(words)
  player:tell("&gt;&gt;&gt; Finished &lt;&lt;&lt;")
except (ANY)
  player:tell($su:capitalize(language), " is not one of the languages listed in the Lexicon.")
  player:tell("Valid languages are:  ", this:list_languages())
endtry
"Last modified by Dax (#789) on Thu Dec 13 20:40:59 2001 MST."
.