#include "defs.h"

#define KILL "players/jubal/shad/dest!sh"
main(arg) {
  object it,env,*inv,ob;
  string error;
  int i;

  SECURE
  if(!arg) return !notify_fail("Usage: dest! <what>\n");
  if(!(it=present(arg,TP)) && !(it=present(arg,environment(TP)))
   && !(it=find_player(arg)) && !(it=find_object(arg)))
    return !notify_fail("Not found.\n");
  write("Setting up shadows.\n");
  env=clone_object(KILL)->start(environment(it));
  ob=first_inventory(it);
  inv=({});
  while(ob) {
    inv+=clone_object(KILL)->start(ob);
    ob=next_inventory(ob);
  }
  ob=clone_object(KILL)->start(it);
  write("Now attempting destruct.\n");
  error=catch(destruct(it));
  if(error) write("Error destructing: "+error+"\n");
  else write("Done.\n");
  destruct(env);
  for(i=0;i<sizeof(inv);i++) destruct(inv[i]);
  return 1;
}