Question I broke corpses somehow

static void make_corpse(struct char_data *ch) {   char buf2[MAX_NAME_LENGTH + 64];   struct obj_data *corpse, *o;   struct obj_data *money;   int i, x, y;     corpse = create_obj();   corpse->item_number = NOTHING;   IN_ROOM(corpse) = NOWHERE;   snprintf(buf2, sizeof(buf2), "corpse %s", GET_NAME(ch));   corpse->name = strdup(buf2);   snprintf(buf2, sizeof(buf2), "The corpse of %s is lying here.", GET_NAME(ch));   corpse->description = strdup(buf2);   snprintf(buf2, sizeof(buf2), "the corpse of %s", GET_NAME(ch));   corpse->short_description = strdup(buf2);   GET_OBJ_TYPE(corpse) = ITEM_CONTAINER;   for(x = y = 0; x < EF_ARRAY_MAX || y < TW_ARRAY_MAX; x++, y++) {     if (x < EF_ARRAY_MAX)       GET_OBJ_EXTRA_AR(corpse, x) = 0;     if (y < TW_ARRAY_MAX)       corpse->obj_flags.wear_flags[y] = 0;   }   SET_BIT_AR(GET_OBJ_WEAR(corpse), ITEM_WEAR_TAKE);   SET_BIT_AR(GET_OBJ_EXTRA(corpse), ITEM_NODONATE);   GET_OBJ_VAL(corpse, 0) = 0; /* Can't store stuff */   GET_OBJ_VAL(corpse, 3) = 1; /* Corpse Identifier */   SET_BIT(GET_OBJ_VAL(corpse, 3), CONT_CORPSE); /* Set CONT_CORPSE flag */   GET_OBJ_VAL(corpse, 1) = IS_NPC(ch) ? 0 : GET_IDNUM(ch); /* Set owner ID */   GET_OBJ_WEIGHT(corpse) = 1 + IS_CARRYING_W(ch); /* Set weight: 1 + carried items */   GET_OBJ_RENT(corpse) = 100000;   if (IS_NPC(ch))     GET_OBJ_TIMER(corpse) = CONFIG_MAX_NPC_CORPSE_TIME;   else     GET_OBJ_TIMER(corpse) = CONFIG_MAX_PC_CORPSE_TIME;   /* Transfer inventory */   corpse->contains = ch->carrying;   for (o = corpse->contains; o != NULL; o = o->next_content)     o->in_obj = corpse;   object_list_new_owner(corpse, NULL);   /* Transfer equipment */   for (i = 0; i < NUM_WEARS; i++)     if (GET_EQ(ch, i)) {       remove_otrigger(GET_EQ(ch, i), ch);       obj_to_obj(unequip_char(ch, i), corpse);     }   /* Transfer gold */   if (GET_GOLD(ch) > 0) {     if (IS_NPC(ch) || ch->desc) {       money = create_money(GET_GOLD(ch));       obj_to_obj(money, corpse);     }     GET_GOLD(ch) = 0;   }   ch->carrying = NULL;   IS_CARRYING_N(ch) = 0;   IS_CARRYING_W(ch) = 0;   if (IS_NPC(ch))     obj_to_room(corpse, IN_ROOM(ch));    /* Apply radiation affect if in wasteland zone       if (ZONE_FLAGGED(GET_ROOM_ZONE(IN_ROOM(corpse)), ZONE_WASTELAND)) {       SET_BIT_AR(GET_OBJ_AFFECT(corpse), AFF_RADIATION);       log("If this isn't here then aff_radiation wont be");       } */   else     obj_to_room(corpse, real_room(3068));   if (CONFIG_DEBUG_MODE) {     log("MAKE_CORPSE: Created corpse '%s' (type %d, value[3] %d, value[1] %d, weight %d) for %s in room %d",         corpse->name, GET_OBJ_TYPE(corpse), GET_OBJ_VAL(corpse, 3), GET_OBJ_VAL(corpse, 1), GET_OBJ_WEIGHT(corpse), GET_NAME(ch), GET_ROOM_VNUM(real_room(3068)));   } }

/* do corpse retrieve code by Bramage */ ACMD(do_retrieve) { /*  struct obj_data *corpse, *obj, *next_obj; */   struct obj_data *corpse, *next_obj;   char corpse_name[MAX_NAME_LENGTH + 32];   int found = FALSE;   /* Check if player is in the corpse room (3068) */   if (GET_ROOM_VNUM(IN_ROOM(ch)) != 3068) {     send_to_char(ch, "You must be in the room above the Questmaster in Midgaard to retrieve your corpse.\r\n");     return;   }   /* Construct corpse name (e.g., "the corpse of Groo") */   snprintf(corpse_name, sizeof(corpse_name), "the corpse of %s", GET_NAME(ch));   /* Debug all objects in the room */   if (CONFIG_DEBUG_MODE) {     log("RETRIEVE: Scanning objects in room 3068 for %s's corpse", GET_NAME(ch));     for (corpse = world[IN_ROOM(ch)].contents; corpse; corpse = corpse->next_content) {       log("RETRIEVE: Checking object '%s' (type %d, value[3] %d, value[1] %d, keywords '%s')",           corpse->short_description, GET_OBJ_TYPE(corpse), GET_OBJ_VAL(corpse, 3), GET_OBJ_VAL(corpse, 1), corpse->name);     }   }   /* Search for the player's corpse */   for (corpse = world[IN_ROOM(ch)].contents; corpse; corpse = next_obj) {     next_obj = corpse->next_content;     if (GET_OBJ_TYPE(corpse) == ITEM_CONTAINER && IS_SET(GET_OBJ_VAL(corpse, 3), CONT_CORPSE) &&         isname(GET_NAME(ch), corpse->name) && GET_OBJ_VAL(corpse, 1) == GET_IDNUM(ch)) {       found = TRUE;       break;     }   }   if (!found) {     send_to_char(ch, "No corpse of yours lies within this chamber.\r\n");     if (CONFIG_DEBUG_MODE) {       log("RETRIEVE: No corpse found for %s in room 3068, searched for '%s' (keywords 'corpse')",           GET_NAME(ch), corpse_name);     }     return;   }   /* Move corpse to player's inventory */   obj_from_room(corpse);   obj_to_char(corpse, ch);   /* Thematic messaging */   send_to_char(ch, "A blast of colors envelops the corpse of %s as it is restored to you by the Gods of Chaos.\r\n", GET_NAME(ch));   act("$n retrieves $p, guided by the Winds of Chaos.", FALSE, ch, corpse, 0, TO_ROOM);   /* Debug log */   if (CONFIG_DEBUG_MODE) {     log("RETRIEVE: %s retrieved corpse '%s' in room 3068", GET_NAME(ch), corpse_name);   } }

CONTAINER: (Type Flag 15) value 0: Capacity (max containable weight) of container value 1: Container flag bitvector (MUST be a numeric bitvector) 1 CLOSEABLE Container can be closed and locked. 2 PICKPROOF Lock on container can’t be picked. 4 CLOSED Container is closed when loaded. 8 LOCKED Container is locked when loaded. value 2: The vnum of the key object that opens this container. -1 if it has no key. value 3: Unused

  GET_OBJ_VAL(corpse, 0) = 0; /* Can't store stuff */   GET_OBJ_VAL(corpse, 3) = 1; /* Corpse Identifier */   SET_BIT(GET_OBJ_VAL(corpse, 3), CONT_CORPSE); /* Set CONT_CORPSE flag */   GET_OBJ_VAL(corpse, 1) = IS_NPC(ch) ? 0 : GET_IDNUM(ch); /* Set owner ID */

Weight capacity: 0, Lock Type: CLOSED LOCKED UNDEFINED UNDEFINED , Key Num: 0, Corpse: YES

#define CONT_CORPSE (1 << 5) #define IS_CORPSE(cont) IS_SET(GET_OBJ_VAL(1, CONT_CORPSE)) SET_BIT(GET_OBJ_VAL(corpse, 1), CONT_CORPSE); /* set the corpse flag */ GET_OBJ_VAL(corpse, 3) = IS_NPC(ch) ? 0 : GET_IDNUM(ch); /* Set owner ID */