@verb #9595:"@throwlist" this is any rxd #8034
@program #9595:"@throwlist" this is any
"Usage: @throwlist <feature> is <throw> <throw> <throw> ..."
"  Sets the list of throws in a particular roshambo feature object."
"  Only games with an odd number of throws can be made fair."
if (this.owner != (valid(caller_perms()) ? caller_perms() | player))
  raise(E_PERM)
endif
throws = $string_utils:words(iobjstr)
r = {}
for throw in (throws)
  if (index(throw, ","))
    return player:tell("No commas please, they frighten and confuse me.")
  endif
  r = {@r, $string_utils:lowercase(throw)}
  if (r[$] in {"and", "or"})
    return player:tell("No ands or ors please, they frighten and confuse me.")
  endif
endfor
if (!(length(r) % 2))
  player:tell("The resulting game cannot be made fair.")
endif
this.valid_throws = throws
this:clean_verbs()
this:create_throw_verb()
this:set_feature_verbs({"unthrow"})
player:tell("New rules created: ", $string_utils:english_list(throws))
"Last modified by Pentomino (#8034) on Tue Aug 31 22:59:42 2004 MDT."
.