4b3
@verb #18:"reset_me" this none this rxdo #55
@program #18:"reset_me" this none this
$perm_utils:can_hack() || raise(E_PERM)
this.description = this.real_desc
this.home = $player_start
this.password = 0
for x in ($list_utils:remove_duplicates({@properties($connectable), "paranoid", "lines", "responsible", "output_linelength", "linebuffer", "brief", "gaglist", "output_more_pagelength", "current_message", "current_folder", "messages", "request", "gender", "_mail_task"}))
  $command_utils:suspend_if_needed()
  if ($object_utils:has_property($guest, x))
    clear_property(this, x)
  endif
endfor
for x in (this.contents)
  $command_utils:suspend_if_needed()
  this:eject(x)
endfor
for x in (this.features)
  $command_utils:suspend_if_needed()
  if (!(x in $guest.features))
    this:remove_feature(x)
  endif
endfor
for x in ($guest.features)
  $command_utils:suspend_if_needed()
  if (!(x in this.features))
    this:add_feature(x)
  endif
endfor
for x in ($object_utils:descendants($editor))
  $command_utils:suspend_if_needed()
  if (loc = this in x.active)
    x:kill_session(loc)
  endif
endfor
"Last modified by Dax (#789) on Thu Jul 11 13:25:21 2002 MDT."
.

0