420
@verb #2250:"@remove-feature @rmfeature" any none none rdo #7788
@program #2250:"@remove-feature @rmfeature" any none none
"Copied from Generic Player (#12):@rmfeature by Slacker (#55)Jun 30 20:44:46 1998"
"Usage:  @rmfeature <feature object(s)>"
"Remove one or more objects from your .features list."
set_task_perms(player)
if (dobjstr)
  features = player.features
  for dobjstr in (args)
    dobj = this:my_match_object(dobjstr)
    if (!valid(dobj))
      dobj = $string_utils:match(dobjstr, features, "name", features, "aliases")
    endif
    if (!$command_utils:object_match_failed(dobj, dobjstr))
      if (dobj in features)
        player:remove_feature(dobj)
        player:tell(dobj, " (", dobj.name, ") removed from your features list.")
      else
        player:tell(dobjstr, " is not one of your features.")
      endif
    endif
    $command_utils:suspend_if_needed()
  endfor
else
  player:tell("Usage:  @remove-feature &lt;object(s)&gt;")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:32 2001 MST."
.

0