#include "defs.h"

main(arg) {
  object anyshad;
  object ob;
  string name;
  int num;

  SECURE
  num=1;

  if(!arg || sscanf(arg,"%d",num)==1) {
    ob=this_player();
    name=capitalize(ob->query_real_name());
  } else {
    if(sscanf(arg,"%s %d",name,num)!=2 &&
       sscanf(arg,"%d %s",num,name)!=2 &&
       sscanf(arg,"%s",name)!=1)
      FAIL("Usage: "+query_verb()+" [who] [num]\n");
    if(ob=find_player(name))
      name=capitalize(ob->query_real_name());
    else if(ob=find_object(name))
      name=file_name(ob);
    else WRITE1("Couldn't find player or object: "+name+"\n");
  }

  anyshad=ob;
  while(anyshad && num-->0) anyshad=shadow(anyshad,0);
  if(!anyshad)
    if(num==0) WRITE1(name+" has no shadow.\n");
    else WRITE1(name+" has no shadow "+num+"\n");
  write("Shadow: "+file_name(anyshad)+" destroyed.\n");
  destruct(anyshad);
  if(shadow(ob,0)) write(capitalize(name)+" still has a shadow!\n");

  return 1;
}