Function mhidden_description

src/pager.c:185–280

describe a hidden monster; used for look_at during extended monster detection and for probing; also when looking at self and camera feedback */

/* describe a hidden monster; used for look_at during extended monster
   detection and for probing; also when looking at self and camera feedback */
void
mhidden_description(
    struct monst *mon,   /* hidden monster to describe */
    unsigned mhid_flags, /* controls optional aspects of description */
    char *outbuf)        /* output buffer */
{
    struct obj *otmp;
    const char *what;
    NhRegion *reg;
    size_t buflen;
    boolean incl_prefix = (mhid_flags & MHID_PREFIX) != 0,
            incl_article = (mhid_flags & MHID_ARTICLE) != 0,
            show_altmon = (mhid_flags & MHID_ALTMON) != 0,
            force_region = (mhid_flags & MHID_REGION) != 0;
    boolean fakeobj, isyou = (mon == &gy.youmonst);
    coordxy x = isyou ? u.ux : mon->mx, y = isyou ? u.uy : mon->my;
    int glyph = (svl.level.flags.hero_memory && !isyou) ? levl[x][y].glyph
                                                       : glyph_at(x, y);

    *outbuf = '\0';
    if (M_AP_TYPE(mon) == M_AP_FURNITURE
        || M_AP_TYPE(mon) == M_AP_OBJECT) {
        if (incl_prefix)
            Strcpy(outbuf, ", mimicking ");
        if (M_AP_TYPE(mon) == M_AP_FURNITURE) {
            what = defsyms[mon->mappearance].explanation;
            if (incl_article)
                what = an(what);
            Strcat(outbuf, what);
        } else if (M_AP_TYPE(mon) == M_AP_OBJECT
                   /* remembered glyph, not glyph_at() which is 'mon' */
                   && glyph_is_object(glyph)) {
 objfrommap:
            otmp = (struct obj *) 0;
            fakeobj = object_from_map(glyph, x, y, &otmp);
            what = (otmp && otmp->otyp != STRANGE_OBJECT)
                   ? simpleonames(otmp)
                   : obj_descr[STRANGE_OBJECT].oc_name;
            if (incl_article && (!otmp || otmp->quan == 1L))
                what = an(what);
            Strcat(outbuf, what);

            if (fakeobj && otmp) {
                otmp->where = OBJ_FREE; /* object_from_map set to OBJ_FLOOR */
                dealloc_obj(otmp); /* has no contents */
            }
        } else {
            Strcat(outbuf, something);
        }
    } else if (M_AP_TYPE(mon) == M_AP_MONSTER) {
        if (show_altmon) {
            if (incl_prefix)
                Strcat(outbuf, ", masquerading as ");
            what = pmname(&mons[mon->mappearance], Mgender(mon));
            if (incl_prefix)
                what = an(what);
            Strcat(outbuf, what);
        }