Function doprarm

src/invent.c:4600–4638

the #seearmor command */

/* the #seearmor command */
int
doprarm(void)
{
    /*
     * Note:  players sometimes get here by pressing a function key which
     * transmits ''ESC [ <something>'' rather than by pressing '[';
     * there's nothing we can--or should-do about that here.
     */

    if (!wearing_armor()) {
        noarmor(TRUE);
    } else {
        char lets[8]; /* 8: up to 7 pieces of armor plus terminator */
        int ct = 0;

        /* obj_to_let() will assign letters to all of invent if necessary
           (for '!fixinv') so doesn't need to be repeated once called, but
           each armor slot doesn't know whether any that precede have made
           that call so just do it for each one; use SORTPACK_INUSE order */
        if (uarm)
            lets[ct++] = obj_to_let(uarm);
        if (uarmc)
            lets[ct++] = obj_to_let(uarmc);
        if (uarms)
            lets[ct++] = obj_to_let(uarms);
        if (uarmh)
            lets[ct++] = obj_to_let(uarmh);
        if (uarmg)
            lets[ct++] = obj_to_let(uarmg);
        if (uarmf)
            lets[ct++] = obj_to_let(uarmf);
        if (uarmu)
            lets[ct++] = obj_to_let(uarmu);
        lets[ct] = 0;

        (void) dispinv_with_action(lets, TRUE, NULL);
    }
    return ECMD_OK;
}

/* the #seerings command */
int