View/Edit #2250:@remove-feature @rmfeature

Switch to edit mode.

1:  "Copied from Generic Player (#12):@rmfeature by Slacker (#55)Jun 30 20:44:46 1998"
2:  "Usage:  @rmfeature <feature object(s)>"
3:  "Remove one or more objects from your .features list."
4:  set_task_perms(player)
5:  if (dobjstr)
6:    features = player.features
7:    for dobjstr in (args)
8:      dobj = this:my_match_object(dobjstr)
9:      if (!valid(dobj))
10:       dobj = $string_utils:match(dobjstr, features, "name", features, "aliases")
11:     endif
12:     if (!$command_utils:object_match_failed(dobj, dobjstr))
13:       if (dobj in features)
14:         player:remove_feature(dobj)
15:         player:tell(dobj, " (", dobj.name, ") removed from your features list.")
16:       else
17:         player:tell(dobjstr, " is not one of your features.")
18:       endif
19:     endif
20:     $command_utils:suspend_if_needed()
21:   endfor
22: else
23:   player:tell("Usage:  @remove-feature &lt;object(s)&gt;")
24: endif
25: "Last modified by Dax (#789) on Thu Nov  8 11:38:32 2001 MST."

[home | help | who | search | setup | code]