mgen_data(mon, BEH_GOD_GIFT, 3,
                              you.pos(), you.pet_target));

                    mgen_data(mon, BEH_FRIENDLY, 3,
                              you.pos(), you.pet_target, MF_GOD_GIFT));

        beh_type beha = BEH_GOD_GIFT;

        beh_type beha = BEH_FRIENDLY;

                          you.pos(), hitting)) != -1)

                          you.pos(), hitting, MF_GOD_GIFT)) != -1)

        beh_type beha = BEH_GOD_GIFT;

        beh_type beha = BEH_FRIENDLY;

                mgen_data(xom_random_demon(sever, one_chance_in(8)), beha, 0,
                          you.pos(), hitting)) != -1)

                mgen_data(xom_random_demon(sever, one_chance_in(8)),
                          beha, 0,
                          you.pos(), hitting, MF_GOD_GIFT)) != -1)

                                      BEH_HOSTILE, 4, you.pos())) != -1)

                                      BEH_HOSTILE, 4,
                                      you.pos(), MHITYOU, MF_GOD_GIFT)) != -1)

        summon_swarm( powc, false, false );

        summon_swarm(powc, BEH_FRIENDLY, false);

        summon_ice_beast_etc(powc, MONS_ICE_BEAST);

        summon_ice_beast_etc(powc, MONS_ICE_BEAST, BEH_FRIENDLY, false);

        if (one_chance_in(3))
            summon_ice_beast_etc(powc, MONS_WHITE_IMP);
        else if (one_chance_in(7))
            summon_ice_beast_etc(powc, MONS_SHADOW_IMP);
        else
            summon_ice_beast_etc(powc, MONS_IMP);

    {
        monster_type mon = (one_chance_in(3)) ? MONS_WHITE_IMP :
                           (one_chance_in(7)) ? MONS_SHADOW_IMP
                                              : MONS_IMP;
        summon_ice_beast_etc(powc, mon, BEH_FRIENDLY, false);

    }

        summon_ice_beast_etc(powc, MONS_ANGEL);

        summon_ice_beast_etc(powc, MONS_ANGEL, BEH_FRIENDLY, false);

        summon_ice_beast_etc(powc, MONS_DAEVA);

        summon_ice_beast_etc(powc, MONS_DAEVA, BEH_FRIENDLY, false);

        summon_ice_beast_etc(powc, summon_any_demon(DEMON_COMMON));

        summon_ice_beast_etc(powc, summon_any_demon(DEMON_COMMON),
                             BEH_FRIENDLY, false);

                summon_ice_beast_etc(powc, summon_any_demon(DEMON_LESSER));

            {
                summon_ice_beast_etc(powc, summon_any_demon(DEMON_LESSER),
                                     BEH_FRIENDLY, false);
            }

            const beh_type dem_beh = ((random2(powc) > 5) ? BEH_CHARMED :
                                                            BEH_HOSTILE);

            const beh_type beha = ((random2(powc) > 5) ? BEH_CHARMED :
                                                         BEH_HOSTILE);

            if (dem_beh == BEH_CHARMED)

            if (beha == BEH_CHARMED)

                mgen_data( summon_any_demon(DEMON_GREATER), dem_beh, 5,
                           you.pos(), MHITYOU ));

                mgen_data(summon_any_demon(DEMON_GREATER), beha, 5,
                          you.pos(), MHITYOU));

void summon_ice_beast_etc(int pow, monster_type ibc, bool divine_gift = false);

bool summon_ice_beast_etc(int pow, monster_type mon, beh_type beha,
                          bool god_gift);

bool summon_berserker(int pow, bool god_gift);

bool summon_berserker(int pow, beh_type beha, bool god_gift);

bool summon_swarm( int pow, bool unfriendly, bool god_gift );

bool summon_swarm(int pow, beh_type beha, bool god_gift);

        // Use menv[mon].number instead (set in create_monster)

        // Use menv[mon].number instead (set in create_monster()).

    monster_type type_summoned = MONS_PROGRAM_BUG;

    monster_type mon = MONS_PROGRAM_BUG;

            if ( player_monster_visible(&menv[mgrd[targ_x][targ_y]]) )

            if (player_monster_visible(&menv[mgrd[targ_x][targ_y]]))

        type_summoned = MONS_EARTH_ELEMENTAL;

        mon = MONS_EARTH_ELEMENTAL;

        type_summoned = MONS_FIRE_ELEMENTAL;

        mon = MONS_FIRE_ELEMENTAL;

        type_summoned = MONS_FIRE_ELEMENTAL;

        mon = MONS_FIRE_ELEMENTAL;

        type_summoned = MONS_WATER_ELEMENTAL;

        mon = MONS_WATER_ELEMENTAL;

        type_summoned = MONS_AIR_ELEMENTAL;

        mon = MONS_AIR_ELEMENTAL;

    if (type_summoned == MONS_PROGRAM_BUG)

    if (mon == MONS_PROGRAM_BUG)

    bool friendly = ((type_summoned != MONS_FIRE_ELEMENTAL

    bool friendly = ((mon != MONS_FIRE_ELEMENTAL

                     && (type_summoned != MONS_WATER_ELEMENTAL

                     && (mon != MONS_WATER_ELEMENTAL

                     && (type_summoned != MONS_AIR_ELEMENTAL

                     && (mon != MONS_AIR_ELEMENTAL

                     && (type_summoned != MONS_EARTH_ELEMENTAL

                     && (mon != MONS_EARTH_ELEMENTAL

            mgen_data( type_summoned,
                       friendly ? BEH_FRIENDLY : BEH_HOSTILE,
                       numsc,
                       coord_def(targ_x, targ_y),
                       friendly ? you.pet_target : MHITYOU )) != -1)

            mgen_data(mon,
                      friendly ? BEH_FRIENDLY : BEH_HOSTILE,
                      numsc, coord_def(targ_x, targ_y),
                      friendly ? you.pet_target : MHITYOU )) != -1)

    monster_type thing_called = MONS_PROGRAM_BUG; // error trapping{dlb}

    monster_type mon = MONS_PROGRAM_BUG; // error trapping{dlb}

                thing_called = MONS_ORANGE_RAT;

                mon = MONS_ORANGE_RAT;

            thing_called = MONS_GREEN_RAT;

            mon = MONS_GREEN_RAT;

            thing_called = coinflip() ? MONS_QUOKKA : MONS_GREY_RAT;

            mon = coinflip() ? MONS_QUOKKA : MONS_GREY_RAT;

            thing_called = coinflip() ? MONS_GIANT_BAT : MONS_RAT;

            mon = coinflip() ? MONS_GIANT_BAT : MONS_RAT;

            mgen_data( thing_called, BEH_FRIENDLY, 3,
                       you.pos(), you.pet_target ));

            mgen_data(mon, BEH_FRIENDLY, 3,
                      you.pos(), you.pet_target));

    monster_type mon_chosen = MONS_PROGRAM_BUG;

    monster_type mon = MONS_PROGRAM_BUG;

    while ( power_left >= 0 && num_so_far < 8 )

    while (power_left >= 0 && num_so_far < 8)

        // pick a random monster and subtract its cost
        if ( varied || num_so_far == 0 )
            mon_chosen = RANDOM_ELEMENT(animals);

        // Pick a random monster and subtract its cost.
        if (varied || num_so_far == 0)
            mon = RANDOM_ELEMENT(animals);

        const int power_cost = mons_power(mon_chosen) * 3;

        const int power_cost = mons_power(mon) * 3;

        if ( power_cost >= power_left * 2 && num_so_far >= 2 )

        if (power_cost >= power_left * 2 && num_so_far >= 2)

            mgen_data( mon_chosen,
                       friendly ? BEH_FRIENDLY : BEH_HOSTILE, 4,
                       you.pos(),
                       friendly ? you.pet_target : MHITYOU ));

            mgen_data(mon,
                      friendly ? BEH_FRIENDLY : BEH_HOSTILE,
                      4, you.pos(),
                      friendly ? you.pet_target : MHITYOU));

    for (int scount = 0; scount < numsc; scount++)

    for (int scount = 0; scount < numsc; ++scount)

                          3,
                          you.pos(),

                          3, you.pos(),

                      numsc,
                      you.pos(),

                      numsc, you.pos(),

void summon_ice_beast_etc(int pow, monster_type ibc, bool divine_gift)

bool summon_ice_beast_etc(int pow, monster_type mon, beh_type beha,
                          bool god_gift)

    beh_type beha = divine_gift ? BEH_GOD_GIFT : BEH_FRIENDLY;
    unsigned short hitting = you.pet_target;

    unsigned short hitting = (beha == BEH_FRIENDLY) ? you.pet_target : MHITYOU;
    bool success = false;

    switch (ibc)

    switch (mon)

            mgen_data(ibc, beha, numsc,
                      you.pos(), hitting));

            mgen_data(mon, beha, numsc,
                      you.pos(), hitting,
                      god_gift ? MF_GOD_GIFT : 0));

        if (ibc == MONS_DAEVA)
        {
            monsters *mon = &menv[monster];

        success = true;
        monsters *summon = &menv[monster];

            mon->flags |= MF_ATT_CHANGE_ATTEMPT;
        }

        if (mon == MONS_DAEVA)
            summon->flags |= MF_ATT_CHANGE_ATTEMPT;

}                               // end summon_ice_beast_etc()

    return (success);
}

// Trog sends some fighting buddies for his followers (or enemies if
// god_gift is false).
bool summon_berserker(int pow, bool god_gift)

// Trog sends some fighting buddies (or enemies) for his followers.
bool summon_berserker(int pow, beh_type beha, bool god_gift)

    beh_type beha = (god_gift) ? BEH_GOD_GIFT : BEH_HOSTILE;

    monster_type mon = MONS_PROGRAM_BUG;

    unsigned short hitting = (beha == BEH_FRIENDLY) ? you.pet_target : MHITYOU;

    monster_type mon = MONS_TROLL;

    int mons =

    int monster =

            mgen_data( mon, beha, numsc,
                       you.pos(),
                       god_gift ? you.pet_target : MHITYOU ));

            mgen_data(mon, beha, numsc,
                      you.pos(), hitting,
                      god_gift ? MF_GOD_GIFT : 0));

    if (mons != -1)

    if (monster != -1)

        monsters *summon = &menv[mons];

        monsters *summon = &menv[monster];

    return success;

    return (success);

bool summon_swarm( int pow, bool unfriendly, bool god_gift )

bool summon_swarm(int pow, beh_type beha, bool god_gift)

    monster_type thing_called = MONS_PROGRAM_BUG;

    monster_type mon = MONS_PROGRAM_BUG;

    bool summoned = false;

    unsigned short hitting = (beha == BEH_FRIENDLY) ? you.pet_target : MHITYOU;
    bool success = false;

    numsc = stepdown_value( numsc, 2, 2, 6, 8 );

    numsc = stepdown_value(numsc, 2, 2, 6, 8);

    for (int scount = 0; scount < numsc; scount++)

    for (int scount = 0; scount < numsc; ++scount)

            thing_called = MONS_KILLER_BEE;

            mon = MONS_KILLER_BEE;

            thing_called = MONS_SCORPION;

            mon = MONS_SCORPION;

            thing_called = MONS_WORM;

            mon = MONS_WORM;

            thing_called = MONS_GIANT_MOSQUITO;

            mon = MONS_GIANT_MOSQUITO;

            thing_called = MONS_GIANT_BEETLE;

            mon = MONS_GIANT_BEETLE;

            thing_called = MONS_GIANT_BLOWFLY;

            mon = MONS_GIANT_BLOWFLY;

            thing_called = MONS_WOLF_SPIDER;    //jmf: spiders aren't insects

            mon = MONS_WOLF_SPIDER;    //jmf: spiders aren't insects

            thing_called = MONS_BUTTERFLY;      // comic relief? {dlb}

            mon = MONS_BUTTERFLY;      // comic relief? {dlb}

            thing_called = MONS_YELLOW_WASP;    // do wasps swarm? {dlb}

            mon = MONS_YELLOW_WASP;    // do wasps swarm? {dlb}

            thing_called = MONS_GIANT_ANT;

            mon = MONS_GIANT_ANT;

        beh_type behaviour = BEH_HOSTILE;  // default to unfriendly

        // Note: friendly, non-god_gift means spell.
        if (god_gift)
            behaviour = BEH_GOD_GIFT;
        else if (!unfriendly && random2(pow) > 7)
            behaviour = BEH_FRIENDLY;

        // If it's not a god gift, it's from a spell.
        if (!god_gift && random2(pow) > 7)
        {
            beha = BEH_FRIENDLY;
            hitting = you.pet_target;
        }

                mgen_data( thing_called, behaviour, 3,
                           you.pos(),
                           !unfriendly ? you.pet_target : MHITYOU )) != -1)

                mgen_data(mon, beha, numsc,
                          you.pos(), hitting,
                          god_gift ? MF_GOD_GIFT : 0)) != -1)

            summoned = true;

            success = true;

    return (summoned);
}                               // end summon_swarm()

    return (success);
}

    monster_type thing_called = MONS_PROGRAM_BUG;

    monster_type mon = MONS_PROGRAM_BUG;

    for (int scount = 0; scount < numsc; scount++)

    for (int scount = 0; scount < numsc; ++scount)

        thing_called = ((temp_rand > 8) ? MONS_WRAITH :           // 64%
                        (temp_rand > 3) ? MONS_FREEZING_WRAITH    // 20%
                                        : MONS_SPECTRAL_WARRIOR); // 16%

        mon = ((temp_rand > 8) ? MONS_WRAITH :           // 64%
               (temp_rand > 3) ? MONS_FREEZING_WRAITH    // 20%
                               : MONS_SPECTRAL_WARRIOR); // 16%

                mgen_data(thing_called,

                mgen_data(mon,

    }                           // end for loop

    }

                          you.pos(), you.pet_target ));

                          you.pos(), you.pet_target));

             (numsc + big_things > 1) ? "s" : "" );

             (numsc + big_things > 1) ? "s" : "");

            && (mon->flags & MF_GOD_GIFT));

            && testbits(mon->flags, MF_GOD_GIFT));

                mgen_data(follower_type, BEH_GOD_GIFT, 0,
                          you.pos(), you.pet_target));

                mgen_data(follower_type, BEH_FRIENDLY, 0,
                          you.pos(), you.pet_target, MF_GOD_GIFT));

                monster_type thing_called =
                    _random_servant(GOD_YREDELEMNUL);

                monster_type mon = _random_servant(GOD_YREDELEMNUL);

                        mgen_data(thing_called, BEH_FRIENDLY, 0,
                                  you.pos(), you.pet_target)) != -1)

                        mgen_data(mon, BEH_FRIENDLY, 0,
                                  you.pos(), you.pet_target,
                                  MF_GOD_GIFT)) != -1)

        for (int i = 0; i < how_many; i++)

        for (int i = 0; i < how_many; ++i)
        {

                    mgen_data(MONS_DAEVA, BEH_HOSTILE, 0,
                              you.pos(), MHITYOU )) != -1)

                    mgen_data::alert_hostile_at(MONS_DAEVA,
                        you.pos(), MF_GOD_GIFT)) != -1)

        }

        simple_god_message( success ?
                            " sends the divine host to punish you "
                            "for your evil ways!" :
                            "'s divine host fails to appear.",
                            god );

        simple_god_message(success ?
                           " sends the divine host to punish you "
                           "for your evil ways!" :
                           "'s divine host fails to appear.",
                           god );

            for (int i = 0; i < how_many; i++)

            for (int i = 0; i < how_many; ++i)
            {

                        mgen_data(MONS_ANGEL, BEH_HOSTILE, 0,
                                  you.pos(), MHITYOU)) != -1)

                        mgen_data::alert_hostile_at(MONS_ANGEL,
                            you.pos(), MF_GOD_GIFT)) != -1)

            }

            simple_god_message( success ?
                                " sends the divine host to punish you "
                                "for your evil ways!" :
                                "'s divine host fails to appear.",
                                god);

            simple_god_message(success ?
                               " sends the divine host to punish you "
                               "for your evil ways!" :
                               "'s divine host fails to appear.",
                               god);

            // god_gift == false gives unfriendly
            bool success = summon_swarm( you.experience_level * 20, true,
                                         false );

            bool success = summon_swarm(you.experience_level * 20,
                                        BEH_HOSTILE, true);

        const bool success =
            create_monster(
                mgen_data(

        bool success = false;
        if (create_monster(
                mgen_data::alert_hostile_at(

                    BEH_HOSTILE, 0,
                    you.pos(), MHITYOU)) != -1;
        simple_god_message(success ?
                           " sends a greater servant after you!" :
                           "'s greater servant is unavoidably detained.",
                           god);

                    you.pos(), MF_GOD_GIFT)) != -1)
        {
            success = true;
            simple_god_message(success ?
                               " sends a greater servant after you!" :
                               "'s greater servant is unavoidably detained.",
                               god);
        }

        bool success = false;

        int count = 0;

        for (int i = 0; i < how_many; i++)

        for (int i = 0; i < how_many; ++i)
        {

                    mgen_data(

                    mgen_data::alert_hostile_at(

                        BEH_HOSTILE, 0,
                        you.pos(), MHITYOU)) != -1)
                success = true;

                        you.pos(), MF_GOD_GIFT)) != -1)
            {
                count++;
            }
        }

        simple_god_message(success ?
                           " sends minions to punish you." :
                           "'s minions fail to arrive.",
                           god);

        simple_god_message(count > 1 ? " sends minions to punish you." :
                           count > 0 ? " sends a minion to punish you." :
                                       "'s minions fail to arrive.", god);

        for (int i = 0; i < how_many; i++)

        for (int i = 0; i < how_many; ++i)
        {

                    mgen_data(MONS_REAPER, BEH_HOSTILE, 0, you.pos(),
                              MHITYOU)) != -1)

                    mgen_data::alert_hostile_at(MONS_REAPER,
                        you.pos(), MF_GOD_GIFT)) != -1)
            {

            }
        }

                    mgen_data(punisher, BEH_HOSTILE, 0,
                              you.pos(), MHITYOU)) != -1)

                    mgen_data::alert_hostile_at(punisher,
                        you.pos(), MF_GOD_GIFT)) != -1)
            {

            }

        simple_god_message(count > 1? " sends servants to punish you." :
                           count > 0? " sends a servant to punish you." :
                                      "'s servants fail to arrive.", god);

        simple_god_message(count > 1 ? " sends servants to punish you." :
                           count > 0 ? " sends a servant to punish you." :
                                       "'s servants fail to arrive.", god);

                if (summon_berserker(cost * 20, false))

                if (summon_berserker(cost * 20, BEH_HOSTILE, true))

                    mgen_data::alert_hostile_at(
                        MONS_DANCING_WEAPON,
                        you.pos() ));

                    mgen_data::alert_hostile_at(MONS_DANCING_WEAPON,
                        you.pos(), MF_GOD_GIFT));

                       mgen_data::alert_hostile_at( punisher, you.pos(), 0,
                                                    MG_PERMIT_BANDS) );

                       mgen_data::alert_hostile_at(punisher,
                           you.pos(), MF_GOD_GIFT, MG_PERMIT_BANDS));

                mgen_data::alert_hostile_at(
                    punisher, you.pos())) != -1)

                mgen_data::alert_hostile_at(punisher,
                    you.pos(), MF_GOD_GIFT)) != -1)

                    you.pos())) != -1)

                    you.pos(), MF_GOD_GIFT)) != -1)

                        you.pos())) != -1)

                        you.pos(), MF_GOD_GIFT)) != -1)

            && (monster->flags & MF_GOD_GIFT))

            && testbits(monster->flags, MF_GOD_GIFT))

            && (monster->flags & MF_GOD_GIFT))

            && testbits(monster->flags, MF_GOD_GIFT))

            && (monster->flags & MF_GOD_GIFT))

            && testbits(monster->flags, MF_GOD_GIFT))

        if (mg.behaviour == BEH_FRIENDLY || mg.behaviour == BEH_GOD_GIFT)

        if (mg.behaviour == BEH_FRIENDLY)

        if (mg.behaviour == BEH_GOOD_NEUTRAL)
            menv[id].attitude = ATT_GOOD_NEUTRAL;

    else if (behaviour == BEH_FRIENDLY || behaviour == BEH_GOD_GIFT)

    else if (behaviour == BEH_FRIENDLY)

    // Look at special cases: CHARMED, FRIENDLY, HOSTILE, GOD_GIFT.
    // Alert summoned being to player's presence.

    // Look at special cases: CHARMED, FRIENDLY, NEUTRAL, GOOD_NEUTRAL,
    // HOSTILE.

        if (mg.behaviour == BEH_FRIENDLY || mg.behaviour == BEH_GOD_GIFT)

        if (mg.behaviour == BEH_FRIENDLY)

        if (mg.behaviour == BEH_GOD_GIFT)
            creation->flags |= MF_GOD_GIFT;

        if (mg.behaviour == BEH_NEUTRAL || mg.behaviour == BEH_GOOD_NEUTRAL)
            creation->flags |= MF_WAS_NEUTRAL;

        add_ench( mon_enchant(ENCH_ABJ) );

        add_ench(mon_enchant(ENCH_ABJ));

        if ((this->flags & MF_GOD_GIFT) && this->has_ench(ENCH_BERSERK))

        if (testbits(this->flags, MF_GOD_GIFT) && this->has_ench(ENCH_BERSERK))

                                       //  enemy closeby

                                       //  enemy close by

    BEH_CHARMED,                       //  hostile-but-charmed; create only

    BEH_CHARMED,                       //  hostile-but-charmed; creation only

    BEH_GOOD_NEUTRAL,                  //  creation only

    BEH_GOD_GIFT,                      //  creation only

        summon_ice_beast_etc( you.experience_level * 4,
                                     summon_any_demon(DEMON_LESSER) );

        summon_ice_beast_etc(you.experience_level * 4,
                             summon_any_demon(DEMON_LESSER),
                             BEH_FRIENDLY, false);

        summon_ice_beast_etc( you.experience_level * 4,
                                     summon_any_demon(DEMON_COMMON) );

        summon_ice_beast_etc(you.experience_level * 4,
                             summon_any_demon(DEMON_COMMON),
                             BEH_FRIENDLY, false);

        summon_ice_beast_etc(you.skills[SK_INVOCATIONS] * 4, MONS_DAEVA, true);

        summon_ice_beast_etc(you.skills[SK_INVOCATIONS] * 4, MONS_DAEVA,
                             BEH_FRIENDLY, true);

                20 + you.skills[SK_INVOCATIONS] * 3, MONS_REAPER, true);

                20 + you.skills[SK_INVOCATIONS] * 3, MONS_REAPER,
                BEH_FRIENDLY, true);

        summon_ice_beast_etc( 20 + you.skills[SK_INVOCATIONS] * 3,
                              static_cast<monster_type>(
                                  MONS_NEQOXEC + random2(5)),
                              true );

        summon_ice_beast_etc(20 + you.skills[SK_INVOCATIONS] * 3,
                             static_cast<monster_type>(
                                 MONS_NEQOXEC + random2(5)),
                             BEH_FRIENDLY, true);

        summon_ice_beast_etc( 20 + you.skills[SK_INVOCATIONS] * 3,
                              static_cast<monster_type>(
                                  MONS_EXECUTIONER + random2(5)),
                              true );

        summon_ice_beast_etc(20 + you.skills[SK_INVOCATIONS] * 3,
                             static_cast<monster_type>(
                                 MONS_EXECUTIONER + random2(5)),
                             BEH_FRIENDLY, true);

                         true);

                         BEH_FRIENDLY, true);