Function mon_explodes

src/explode.c:1018–1067

A monster explodes in a way that produces a real explosion (e.g. a sphere * or gas spore, not a yellow light or similar). * This is some common code between explmu() and explmm(). */

 * This is some common code between explmu() and explmm().
 */
void
mon_explodes(
    struct monst *mon,
    struct attack *mattk)
{
    int dmg;
    int type;
    if (mattk->damn) {
        dmg = d((int) mattk->damn, (int) mattk->damd);
    }
    else if (mattk->damd) {
        dmg = d((int) mon->data->mlevel + 1, (int) mattk->damd);
    }
    else {
        dmg = 0;
    }

    if (mattk->adtyp == AD_PHYS) {
        type = PHYS_EXPL_TYPE;
    }
    else if (mattk->adtyp >= AD_MAGM && mattk->adtyp <= AD_SPC2) {
        /* The -1, +20, *-1 math is to set it up as a 'monster breath' type
         * for the explosions (it isn't, but this is the closest analogue). */
        /* FIXME: there are macros for kind of thing... */
        type = -((mattk->adtyp - 1) + 20);
    }
    else {
        impossible("unknown type for mon_explode %d", mattk->adtyp);
        return;
    }

    /* Kill it now so it won't appear to be caught in its own explosion.
     * Must check to see if already dead - which happens if this is called
     * from an AT_BOOM attack upon death. */
    if (!DEADMONSTER(mon)) {
        mondead(mon);
    }

    /* This might end up killing you, too; you never know...
     * also, it is used in explode() messages */
    Sprintf(svk.killer.name, "%s explosion",
            s_suffix(pmname(mon->data, Mgender(mon))));
    svk.killer.format = KILLED_BY_AN;

    explode(mon->mx, mon->my, type, dmg, MON_EXPLODE,
            adtyp_to_expltype(mattk->adtyp));

    /* reset killer */
    svk.killer.name[0] = '\0';
}

/*explode.c*/