Function deferred_goto

src/do.c:2074–2104

handle something like portal ejection */

/* handle something like portal ejection */
void
deferred_goto(void)
{
    if (!on_level(&u.uz, &u.utolev)) {
        d_level dest, oldlev;
        int typmask = u.utotype; /* save it; goto_level zeroes u.utotype */

        assign_level(&dest, &u.utolev);
        assign_level(&oldlev, &u.uz);
        if (gd.dfr_pre_msg)
            pline1(gd.dfr_pre_msg);
        goto_level(&dest, !!(typmask & UTOTYPE_ATSTAIRS),
                   !!(typmask & UTOTYPE_FALLING),
                   !!(typmask & UTOTYPE_PORTAL));
        if (typmask & UTOTYPE_RMPORTAL) { /* remove portal */
            struct trap *t = t_at(u.ux, u.uy);

            if (t) {
                deltrap(t);
                newsym(u.ux, u.uy);
            }
        }
        if (gd.dfr_post_msg && !on_level(&u.uz, &oldlev))
            pline1(gd.dfr_post_msg);
    }
    u.utotype = UTOTYPE_NONE; /* our caller keys off of this */
    if (gd.dfr_pre_msg)
        free((genericptr_t) gd.dfr_pre_msg), gd.dfr_pre_msg = 0;
    if (gd.dfr_post_msg)
        free((genericptr_t) gd.dfr_post_msg), gd.dfr_post_msg = 0;
}

/*
 * Return TRUE if we created a monster for the corpse.  If successful, the