if (one_chance_in(3) && !lose_stat( STAT_INTELLIGENCE, 1, true ))

    if (one_chance_in(5) && !lose_stat( STAT_INTELLIGENCE, 1, true ))

        while (numsc > 2)

        // No more than 2 tentacled monstrosities
        while (numsc > 2 && big_things < 2 && one_chance_in(3))

            if (one_chance_in(4))
                break;

            big_things++;

            ++big_things;

            create_monster( MONS_TENTACLED_MONSTROSITY, 0, BEH_FRIENDLY,

            create_monster( MONS_TENTACLED_MONSTROSITY, ENCH_ABJ_VI,
                            BEH_FRIENDLY,

            create_monster( MONS_ABOMINATION_LARGE, 0, BEH_FRIENDLY,

            create_monster( MONS_ABOMINATION_LARGE, ENCH_ABJ_VI, BEH_FRIENDLY,

        abjLevel -= 1 + (random2(pow) / 3);

        abjLevel -= 1 + (random2(pow / 3) / 3);

        if (!(pow /= 2))
            break;

#ifdef DEBUG_DIAGNOSTICS
    char mname[ITEMNAME_SIZE];
    moname(mon->type, true, DESC_PLAIN, mname);
    mprf(MSGCH_DIAGNOSTICS,
        "Swap: %s (%d,%d)->(%d,%d) (%d;%d)", 
            mname, mon->x, mon->y, nx, ny, mon->speed_increment, mon->speed);
#endif

#ifdef DEBUG_DIAGNOSTICS
    moname(m2->type, true, DESC_PLAIN, mname);
    mprf(MSGCH_DIAGNOSTICS,
        "Swap: %s (%d,%d)->(%d,%d) (%d;%d)",
            mname, m2->x, m2->y, cx, cy, mon->speed_increment, mon->speed);
#endif