#include "defs.h"
#define WATCH ({"obj/master","obj/simul_efun"})

main() {
  object a,tmp;
  int i,size,tot,num;

  SECURE
  write("Shadows on users, "+implode(WATCH,", ")+" in the mud:\n");
  a=users();
  size=sizeof(a);  tot=0;
  for(i=0;i<size;i++) {
    if((tmp=a[i]) && shadow(tmp,0)) {
      write(" "+pad(a[i]->query_name(),20));
      num=0;
      while(tmp=shadow(tmp,0)) {
        write("  "+file_name(tmp));
        num++;
      } 
      write("\n");
      tot+=num;
    }
    if(a[i] && (tmp=environment(a[i])) && shadow(tmp,0)) {
      write("^"+pad(a[i]->query_name(),20));
      num=0;
      while(tmp=shadow(tmp,0)) {
        write("  "+file_name(tmp));
        num++;
      } 
      write("\n");
      tot+=num;  
    }
  }

  a=WATCH;
  size=sizeof(a);
  for(i=0;i<size;i++) 
    if((tmp=find_object(a[i])) && shadow(tmp,0)) {
      write("!"+pad(a[i],20));
      num=0;
      while(tmp=shadow(tmp,0)) {
        write("  "+file_name(tmp));
        num++;
      } 
      write("\n");
      tot+=num;
    }

  if(!tot) WRITE1("None found.\n");
  write(tot+" shadow"+(tot>1?"s":"")+" found.\n");
  return 1;
}