Function place_wsegs

src/worm.c:614–635

* place_wsegs() * * Place the segments of the given worm. Called from restore.c * and from replmon() in mon.c. * If oldworm is not NULL, assumes the oldworm segments are on map * in the same location as worm segments */

 *  in the same location as worm segments
 */
void
place_wsegs(struct monst *worm, struct monst *oldworm)
{
    struct wseg *curr = wtails[worm->wormno];

    while (curr != wheads[worm->wormno]) {
        coordxy x = curr->wx, y = curr->wy;
        struct monst *mtmp = m_at(x, y);

        if (oldworm && mtmp == oldworm)
            remove_monster(x, y);
        else if (mtmp)
            impossible("placing worm seg <%d,%d> over another mon", x, y);
        else if (oldworm)
            impossible("replacing worm seg <%d,%d> on empty spot", x, y);

        place_worm_seg(worm, x, y);
        curr = curr->nseg;
    }
    /* head segment is co-located with worm itself so not placed on the map */
    curr->wx = worm->mx, curr->wy = worm->my;
}

/* called from mon_sanity_check(mon.c) */
void