View/Edit #5544:@addfeature*! @add-feature*!

Switch to edit mode.

1:  "Copied from Generic player (#6):@addfeature by Slacker (#2) Aug 28 01:09:13 1997"
2:  "Usage:  @addfeature <feature object(s)>"
3:  "Add an object to your features list."
4:  "@addfeature! adds the object at the top of your features list."
5:  set_task_perms(player)
6:  if (length(args) > 1)
7:    FOs = {}
8:    for x in (args)
9:      if (valid(dobj = this:my_match_object(x)))
10:       FOs = {@FOs, dobj}
11:     else
12:       $command_utils:object_match_failed(dobj, x)
13:     endif
14:   endfor
15: elseif (dobjstr)
16:   dobj = this:my_match_object(dobjstr)
17:   if ($command_utils:object_match_failed(dobj, dobjstr))
18:     return
19:   endif
20:   FOs = {dobj}
21: else
22:   return player:tell("Usage:  @addfeature &lt;object(s)&gt;")
23: endif
24: this:tell("yey")
25: for x in (FOs)
26:   if (x in player.features)
27:     player:tell(x.name, " is already one of your features.")
28:   elseif (`player:add_feature(x, verb[$] == "!") ! ANY')
29:     player:tell($string_utils:nn(x), " added as a feature.")
30:   else
31:     player:tell("You can't seem to add ", $string_utils:nn(x), " to your features list.")
32:   endif
33: endfor
34: "Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."

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