Function expels

src/mhitu.c:263–306

}

void
expels(
    struct monst *mtmp,
    struct permonst *mdat, /* if mtmp is polymorphed, mdat != mtmp->data */
    boolean message)
{
    disp.botl = TRUE;
    if (message) {
        if (digests(mdat)) {
            You("get regurgitated!");
        } else if (enfolds(mdat)) {
            pline_mon(mtmp, "%s unfolds and you are released!", Monnam(mtmp));
        } else {
            char blast[40];
            struct attack *attk = attacktype_fordmg(mdat, AT_ENGL, AD_ANY);

            blast[0] = '\0';
            if (!attk) {
                impossible("Swallower has no engulfing attack?");
            } else {
                if (is_whirly(mdat)) {
                    switch (attk->adtyp) {
                    case AD_ELEC:
                        Strcpy(blast, " in a shower of sparks");
                        break;
                    case AD_COLD:
                        Strcpy(blast, " in a blast of frost");
                        break;
                    }
                } else {
                    Strcpy(blast, " with a squelch");
                }
                You("get expelled from %s%s!", mon_nam(mtmp), blast);
            }
        }
    }
    unstuck(mtmp); /* ball&chain returned in unstuck() */
    mnexto(mtmp, RLOC_NOMSG);
    newsym(u.ux, u.uy);
    /* to cover for a case where mtmp is not in a next square */
    if (um_dist(mtmp->mx, mtmp->my, 1))
        pline("Brrooaa...  You land hard at some distance.");
    spoteffects(TRUE);
}

/* select a monster's next attack, possibly substituting for its usual one */
struct attack *