Function mksobj

src/mkobj.c:1178–1259

mksobj(): create a specific type of object; result is always non-Null */

/* mksobj(): create a specific type of object; result is always non-Null */
struct obj *
mksobj(int otyp, boolean init, boolean artif)
{
    struct obj *otmp;
    char let = objects[otyp].oc_class;

    otmp = newobj();
    *otmp = cg.zeroobj;
    otmp->age = max(svm.moves, 1L);
    otmp->o_id = next_ident();
    otmp->quan = 1L;
    otmp->oclass = let;
    otmp->otyp = otyp;
    otmp->where = OBJ_FREE;
    unknow_object(otmp); /* set up dknown and known: non-0 for some things */
    otmp->corpsenm = NON_PM;
    otmp->lua_ref_cnt = 0;
    otmp->pickup_prev = 0;

    if (init)
        mksobj_init(&otmp, artif);

    /* some things must get done (corpsenm, timers) even if init = 0 */
    switch ((otmp->oclass == POTION_CLASS && otmp->otyp != POT_OIL)
            ? POT_WATER
            : otmp->otyp) {
    case CORPSE:
        if (otmp->corpsenm == NON_PM) {
            otmp->corpsenm = undead_to_corpse(rndmonnum());
            if (svm.mvitals[otmp->corpsenm].mvflags & (G_NOCORPSE | G_GONE))
                otmp->corpsenm = gu.urole.mnum;
        }
        FALLTHROUGH;
        /*FALLTHRU*/
    case STATUE:
    case FIGURINE:
        if (otmp->corpsenm == NON_PM)
            otmp->corpsenm = rndmonnum();
        if (otmp->corpsenm != NON_PM) {
            struct permonst *ptr = &mons[otmp->corpsenm];

            otmp->spe = (is_neuter(ptr) ? CORPSTAT_NEUTER
                         : is_female(ptr) ? CORPSTAT_FEMALE
                           : is_male(ptr) ? CORPSTAT_MALE
                             : rn2(2) ? CORPSTAT_FEMALE : CORPSTAT_MALE);
        }
        FALLTHROUGH;
        /*FALLTHRU*/
    case EGG:
    /* case TIN: */
        set_corpsenm(otmp, otmp->corpsenm);
        break;
    case BOULDER:
        /* next_boulder overloads corpsenm so the default value is NON_PM;
           since that is non-zero, the "next boulder" case in xname() would
           happen when it shouldn't; explicitly set it to 0 */
        otmp->next_boulder = 0;
        break;