@verb #9595:"create_throw_verb" this none this rxd #8034
@program #9595:"create_throw_verb" this none this
"creates a verb that matches the throw list."
if (caller != this)
  raise(E_PERM)
endif
{vname, none} = {$string_utils:from_list(this.valid_throws, " "), "none"}
verbowner = verb_info(#9595, verb)[1]
add_verb(this, {verbowner, "rxd", vname}, {none, none, none})
set_task_perms(verbowner)
set_verb_code(this, length(verbs(this)), {"this:make_throw(verb);"})
"Last modified by Pentomino (#8034) on Mon Aug 30 14:42:57 2004 MDT."
.