Function tele_trap

src/teleport.c:1491–1535

}

void
tele_trap(struct trap *trap)
{
    /* a fixed-destination teleport trap could theoretically place hero onto a
     * second teleport trap; prevent the recursive call from spoteffects() from
     * triggering the trap at the destination */
    static boolean in_tele_trap = FALSE;
    if (in_tele_trap)
        return;

    in_tele_trap = TRUE;
    if (In_endgame(&u.uz) || Antimagic || noteleport_level(&gy.youmonst)) {
        if (Antimagic)
            shieldeff(u.ux, u.uy);
        You_feel("a wrenching sensation.");
    } else if (!next_to_u()) {
        You1(shudder_for_moment);
    } else if (trap->once) {
        deltrap(trap);
        newsym(u.ux, u.uy); /* get rid of trap symbol */
        vault_tele();
    } else if (isok(trap->teledest.x, trap->teledest.y)) {
        coord cc;
        struct monst *mtmp = m_at(trap->teledest.x, trap->teledest.y);

        settrack();
        if (mtmp) {
            if (!enexto(&cc, mtmp->mx, mtmp->my, mtmp->data)) {
                /* could not find some other place to put mtmp; the level must
                 * be nearly or completely full */
                You1(shudder_for_moment);
            }
            else {
                rloc_to(mtmp, cc.x, cc.y);
                mtmp = (struct monst *) 0; /* no longer a monster at dest */
            }
        }
        if (!mtmp) {
            teleds(trap->teledest.x, trap->teledest.y, TELEDS_TELEPORT);
        }
    } else
        tele();

    in_tele_trap = FALSE;
}

void
level_tele_trap(struct trap *trap, unsigned int trflags)