316
@verb #12:"_destructor" this none this rxdo #55
@program #12:"_destructor" this none this
"Begin generic security check (_destructor)"
if (verb == "_destructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_destructor)"
if (caller_perms() != #-1)
  return
endif
{dead} = args
if (is_player(dead))
  $wiz_utils:unset_player(dead)
endif
for editor in ($editor:leaves())
  if (who = dead in editor.active)
    "Clean out all editors."
    editor:kill_session(who)
  endif
endfor
for x in (dead.features)
  try
    `dead:feature_remove(x) ! E_INVIND, E_VERBNF'
  finally
    `dead.features = setremove(dead.features, x) ! E_PROPNF'
  endtry
endfor
"Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
.

0