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

Switch to edit mode.

1:  "Copied from Generic Player (#12):@addfeature by Slacker (#55)Jun 30 20:44:37 1998"
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:  if (player == this && caller == this)
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:   for x in (FOs)
25:     if (x in player.features)
26:       player:tell(x.name, " is already one of your features.")
27:     elseif (player:add_feature(x, verb[length(verb)] == "!"))
28:       player:tell($string_utils:nn(x), " added as a feature.")
29:     else
30:       player:tell("You can't seem to add ", $string_utils:nn(x), " to your features list.")
31:     endif
32:   endfor
33: endif
34: "Last modified by Dax (#789) on Thu Nov  8 11:38:32 2001 MST."

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