View/Edit #12:_destructor

Switch to edit mode.

Name(s): _destructor
1:  "Begin generic security check (_destructor)"
2:  if (verb == "_destructor" && caller_perms() != #-1)
3:    raise(E_PERM)
4:    return E_PERM
5:  endif
6:  "End generic security check (_destructor)"
7:  if (caller_perms() != #-1)
8:    return
9:  endif
10: {dead} = args
11: if (is_player(dead))
12:   $wiz_utils:unset_player(dead)
13: endif
14: for editor in ($editor:leaves())
15:   if (who = dead in editor.active)
16:     "Clean out all editors."
17:     editor:kill_session(who)
18:   endif
19: endfor
20: for x in (dead.features)
21:   try
22:     `dead:feature_remove(x) ! E_INVIND, E_VERBNF'
23:   finally
24:     `dead.features = setremove(dead.features, x) ! E_PROPNF'
25:   endtry
26: endfor
27: "Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

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