@verb #12:"_clear_props_after_disfunc" this none this rxd #55
@program #12:"_clear_props_after_disfunc" this none this
if (!caller_perms().wizard)
  raise(E_PERM, "Uhuhuh, you didn't say the magic word!")
elseif (this:connected())
  return
endif
for x in (this.animated)
  boot_player(x)
endfor
if ((z = this:_animator()) != 0)
  z.animated = setremove(z.animated, this)
endif
zap = {"responsible", "last_commands", "animated", "spied", "env_context"}
if (this:isa($guest))
  `this.last_commands = {@this.last_commands, "--disconnected--"} ! ANY'
  zap = setremove(zap, "last_commands")
endif
for x in (zap)
  `clear_property(this, x) ! ANY'
endfor
"Last modified by whiz (#3135) on Thu Apr 18 17:22:33 2002 MDT."
.