@verb #12:"remove_feature" this none this rxdo #55
@program #12:"remove_feature" this none this
"Remove a feature from this player's features list."
"Need to have permissions on this or the feature."
"Returns true if successful, E_PERM if caller didn't have permission."
feature = args[1]
"So, owners of Generic FO classes can remove your features arbitrarily.  In exchange, #3100 can rmfeature itself."
if ($perm_utils:can_hack() || caller == feature || caller_perms() == feature.owner || caller_perms() == parent(feature).owner)
  if (typeof(this.features) == $LIST)
    "If this is a list, we can just setremove..."
    this.features = setremove(this.features, feature)
    "Otherwise, we leave it alone."
  endif
  "Let the feature know it's been removed."
  if (`feature:has_callable_verb("feature_remove") ! ANY')
    feature:feature_remove(this)
  endif
  return 1
  "We're done."
else
  raise(E_PERM)
  "Caller didn't have permission."
endif
"Last modified by Dax (#789) on Tue May  3 13:45:01 2005 MDT."
.