void test_crap(CHAR_DATA *ch,char *argument)
{
  char arg[MSL];
  char *p;

  argument=one_argument(argument,arg);

  p=strstr(argument,arg);
  stc(p,ch);

}

void alter_corpse(OBJ_DATA *obj)
{
  char *p;
  char buf[MSL];
  char newname[MSL];
  if(obj->item_type == ITEM_CORPSE_NPC)
  {
    switch(obj->timer)
    {
      default: break;
      case 25: sprintf(buf,"foul-smelling ");
		act("$p begins to smell bad.",NULL,obj,NULL,TO_ROOM);
		break;
      case 20: sprintf(buf,"moldy ");
		act("$p starts to grow mold.",NULL,obj,NULL,TO_ROOM);
		break;
      case 15: sprintf(buf,"rotting ");
		act("$p begins to decay.",NULL,obj,NULL,TO_ROOM);
		break;
      case 10: sprintf(buf,"maggot-infested ");
		act("Maggots begin to pour out of $p.",NULL,obj,NULL,TO_ROOM);
		break;
      case 5:  sprintf(buf,"maggot-infested, putrid ");
		act("The sight of $p begins to be unbearable.",NULL,obj,NULL,TO_ROOM);
		break;
      case 2:  sprintf(buf,"maggot-infested remains ");
		act("The maggots continue to munch on $p.",NULL,obj,NULL,TO_ROOM);
		break;
    }
  }

  else if(obj->item_type == ITEM_CORPSE_PC)
  {    switch(obj->timer)
    {
      default: break;
      case 65: sprintf(buf,"foul-smelling ");
		act("$p begins to smell bad.",NULL,obj,NULL,TO_ROOM);
		break;
      case 50: sprintf(buf,"moldy ");
		act("$p starts to grow mold.",NULL,obj,NULL,TO_ROOM);
		break;
      case 45: sprintf(buf,"rotting ");
		act("$p begins to decay.",NULL,obj,NULL,TO_ROOM);
		break;
      case 30: sprintf(buf,"maggot-infested ");
		act("Maggots begin to pour out of $p.",NULL,obj,NULL,TO_ROOM);
		break;
      case 15:  sprintf(buf,"maggot-infested, putrid ");
		act("The sight of $p begins to be unbearable.",NULL,obj,NULL,TO_ROOM);
		break;
      case 5:  sprintf(buf,"maggot-infested remains of the ");
		act("The maggots continue to munch on $p.",NULL,obj,NULL,TO_ROOM);
		break;
    }
  }
  else 
  {
    sprintf(buf,"Alter_Corpse: %d %s not a corpse.",obj->pIndexData->vnum,obj->name);
    bug(buf);
    return;
  }

  p=strstr(obj->real_name,"the ")+4;
  sprintf(newname,"the %s%s",buf,p);
  obj->short_descr = str_dup(newname);
  strcat(newname," is lying here.")l
  obj->description = str_dup(newname);

}