const dungeon_feature_type preferred_habitat =

    const dungeon_feature_type grid_preferred =

    const dungeon_feature_type nonpreferred_habitat =

    const dungeon_feature_type grid_nonpreferred =

    if (grid_compatible(preferred_habitat, actual_grid)
        || (nonpreferred_habitat != preferred_habitat
            && grid_compatible(nonpreferred_habitat, actual_grid)))

    if (grid_compatible(grid_preferred, actual_grid)
        || (grid_nonpreferred != grid_preferred
            && grid_compatible(grid_nonpreferred, actual_grid)))

    // Zombies of watery critters can not submerge.

static dungeon_feature_type _monster_habitat_feature(int mtype)

static dungeon_feature_type _monster_primary_habitat_feature(int mc)

    if (mtype == RANDOM_MONSTER)
        return DNGN_FLOOR;
    return habitat2grid(mons_class_primary_habitat(mtype));

    if (mc == RANDOM_MONSTER)
        return (DNGN_FLOOR);
    return (habitat2grid(mons_class_primary_habitat(mc)));

static dungeon_feature_type _monster_secondary_habitat_feature(int mc)
{
    if (mc == RANDOM_MONSTER)
        return (DNGN_FLOOR);
    return (habitat2grid(mons_class_secondary_habitat(mc)));
}

    newmons_square_find nmfind(_monster_habitat_feature(mons_class),
                               start, distance);
    const coord_def p = nmfind.pathfind();
    return (in_bounds(p)? p : coord_def(-1, -1));

    coord_def p;
    const dungeon_feature_type grid_preferred =
        _monster_primary_habitat_feature(mons_class);
    const dungeon_feature_type grid_nonpreferred =
        _monster_secondary_habitat_feature(mons_class);
    newmons_square_find nmpfind(grid_preferred, start, distance);
    const coord_def pp = nmpfind.pathfind();
    p = pp;
    if (grid_nonpreferred != grid_preferred && !in_bounds(pp))
    {
        newmons_square_find nmsfind(grid_nonpreferred, start, distance);
        const coord_def ps = nmsfind.pathfind();
        p = ps;
    }
    return (in_bounds(p) ? p : coord_def(-1, -1));

    const dungeon_feature_type spcw = _monster_habitat_feature(mons_class);

    const dungeon_feature_type grid_preferred =
        _monster_primary_habitat_feature(mons_class);
    const dungeon_feature_type grid_nonpreferred =
        _monster_secondary_habitat_feature(mons_class);

    if (empty_surrounds( p, spcw, 2, true, empty ))

    if (empty_surrounds(p, grid_preferred, 2, true, empty))
        pos = empty;
    if (grid_nonpreferred != grid_preferred && !in_bounds(pos)
        && empty_surrounds(p, grid_nonpreferred, 2, true, empty))
    {

    }

int create_monster( mgen_data mg, bool fail_msg )

int create_monster(mgen_data mg, bool fail_msg)

        summd = mons_place( mg );

        summd = mons_place(mg);