Function findgd

src/vault.c:203–234

}

struct monst *
findgd(void)
{
    struct monst *mtmp, **mprev;

    /* this might find a guard parked at <0,0> since it'll be on fmon list */
    for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
        if (mtmp->isgd && on_level(&EGD(mtmp)->gdlevel, &u.uz)) {
            if (!mtmp->mx && !EGD(mtmp)->gddone)
                mtmp->mhp = mtmp->mhpmax;
            return mtmp;
        }
    }
    /* if not on fmon, look for a guard waiting to migrate to this level */
    for (mprev = &gm.migrating_mons; (mtmp = *mprev) != 0;
         mprev = &mtmp->nmon) {
        if (mtmp->isgd && on_level(&EGD(mtmp)->gdlevel, &u.uz)) {
            /* take out of migrating_mons and place at <0,0>;
               simplified mon_arrive(); avoid that because it would
               send mtmp into limbo if no regular map spot is available */
            *mprev = mtmp->nmon;
            mtmp->nmon = fmon;
            fmon = mtmp;
            mon_track_clear(mtmp);
            mtmp->mux = u.ux, mtmp->muy = u.uy;
            mtmp->mx = mtmp->my = 0; /* not on map (note: mx is already 0) */
            parkguard(mtmp);
            return mtmp;
        }
    }
    return (struct monst *) 0;
}

void
vault_summon_gd(void)