View/Edit #901:_destructor

Switch to edit mode.

1:  "This is not a totally secure check.  With a bit of cleverness, you can remove features from other people.  *gasp*.  It does have the advantage, though, of not exploding."
2:  "Begin generic security check (_destructor)"
3:  if (verb == "_destructor" && caller_perms() != #-1)
4:    raise(E_PERM)
5:    return E_PERM
6:  endif
7:  "End generic security check (_destructor)"
8:  cp = callers()[1][$]
9:  "(!cp:controls(args[1])) && raise(E_PERM);"
10: args[1].owner.features = setremove(args[1].owner.features, args[1])
11: "Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
12: "This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
13: "Last modified by Dax (#789) on Sat Aug 17 14:50:03 2002 MDT."

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