Function makemon

src/makemon.c:1146–1510

* called with [x,y] = coordinates; * [0,0] means anyplace * [u.ux,u.uy] means: near player (if !gi.in_mklev) * * In case we make a monster group, only return the one at [x,y]. */

 *      In case we make a monster group, only return the one at [x,y].
 */
struct monst *
makemon(
    struct permonst *ptr,
    coordxy x, coordxy y,
    mmflags_nht mmflags)
{
    struct monst *mtmp;
    struct monst fakemon;
    coord cc;
    int mndx, mcham, ct, mitem;
    boolean femaleok, maleok,
            anymon = !ptr,
            byyou = u_at(x, y),
            allow_minvent = ((mmflags & NO_MINVENT) == 0),
            countbirth = ((mmflags & MM_NOCOUNTBIRTH) == 0),
            allowtail = ((mmflags & MM_NOTAIL) == 0);
    mmflags_nht gpflags = (((mmflags & MM_IGNOREWATER) ? MM_IGNOREWATER : 0)
                           | GP_CHECKSCARY | GP_AVOID_MONPOS);

    fakemon = cg.zeromonst;
    cc.x = cc.y = 0;

    if (iflags.debug_mongen || (!svl.level.flags.rndmongen && !ptr))
        return (struct monst *) 0;

    /* if caller wants random location, do it here */
    if (x == 0 && y == 0) {
        fakemon.data = ptr; /* set up for goodpos */
        if (!makemon_rnd_goodpos(ptr ? &fakemon : (struct monst *) 0,
                                 gpflags, &cc))
            return (struct monst *) 0;
        x = cc.x;
        y = cc.y;
    } else if (byyou && !gi.in_mklev) {
        if (!enexto_core(&cc, u.ux, u.uy, ptr, gpflags)
            && !enexto_core(&cc, u.ux, u.uy, ptr, gpflags & ~GP_CHECKSCARY))
            return (struct monst *) 0;
        x = cc.x;
        y = cc.y;
    }

    /* sanity check */
    if (!isok(x, y)) {
        impossible("makemon trying to create a monster at <%d,%d>?", x, y);
        return (struct monst *) 0;
    }

    /* Does monster already exist at the position? */
    if (MON_AT(x, y)) {
        if (!(mmflags & MM_ADJACENTOK)
            || !enexto_core(&cc, x, y, ptr, gpflags))
            return (struct monst *) 0;
        x = cc.x;
        y = cc.y;
    }

    if (ptr) {
        mndx = monsndx(ptr);