@verb #53:"recycle" this none this rxdo #55
@program #53:"recycle" this none this
{toast} = args
if (!$perm_utils:controls(caller_perms(), toast))
  raise(E_PERM)
elseif (toast == caller_perms() || is_player(toast))
  "Some fool is trying to kill herself"
  raise(E_PERM)
endif
image = this:image(toast)
if (toast:isa($player))
  $cemetary:embalm(toast)
  name = "reaped.player." + tostr(toint(toast)) + "." + $file_utils:trans_to(toast.name)
  $mail_agent:send_message(this, $pdl, tostr(toast.name, " (", toast, ")"), {toast.email_address, "First connect: " + ctime(toast.first_connect_time)})
  $repo_man:filewrite(name, $file_utils:from_value(image))
  $repo_man:filesetaccess(name, "")
endif
this.location:sub_announce_all(this.msg_obj_recycled)
this:do_recycle(toast)
toast:_set_ghost(image)
"Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."
.