SPELL_SUMMON_WRAITHS, "Summon Wraiths",
     SPTYP_NECROMANCY | SPTYP_SUMMONING,
     SPFLAG_BATTLE,

    SPELL_SUMMON_WRAITHS, "Haunt",
     SPTYP_NECROMANCY,
     SPFLAG_TARGET | SPFLAG_NOT_SELF,

     -1, -1,

     LOS_RADIUS, LOS_RADIUS,

        cast_summon_wraiths(powc, god);

        cast_summon_wraiths(powc, beam.target, god);

bool cast_summon_wraiths(int pow, god_type god = GOD_NO_GOD);

bool cast_summon_wraiths(int pow, const coord_def& where, god_type god = GOD_NO_GOD);

bool cast_summon_wraiths(int pow, god_type god)

bool cast_summon_wraiths(int pow, const coord_def& where, god_type god)

    bool success = false;

    monsters *m = monster_at(where);

    const int chance = random2(25);
    monster_type mon = ((chance > 8) ? MONS_WRAITH :           // 64%
                        (chance > 3) ? MONS_FREEZING_WRAITH    // 20%
                                     : MONS_SPECTRAL_WARRIOR); // 16%

    if (m == NULL)
    {
        mpr("An evil force gathers but it quickly dissipates.");
        return (true);
    }
    int mi = monster_index(m);
    ASSERT(!(invalid_monster_index(mi)));

    bool friendly = (random2(pow) > 5);

    if (stop_attack_prompt(m, false, you.pos()))
        return false;

    const int monster =
        create_monster(
            mgen_data(mon,
                      friendly ? BEH_FRIENDLY : BEH_HOSTILE,
                      5, SPELL_SUMMON_WRAITHS,
                      you.pos(), MHITYOU, MG_FORCE_BEH, god));

    bool friendly = true;
    int success = 0;
    int to_summon = stepdown_value(2 + (random2(pow) / 10) + (random2(pow) / 10),
                                   2, 2, 6, -1);

    if (monster != -1)

    while(to_summon--)

        success = true;

        const int chance = random2(25);
        monster_type mon = ((chance > 22) ? MONS_PHANTOM :         //  8%
                            (chance > 20) ? MONS_HUNGRY_GHOST :    //  8%
                            (chance > 18) ? MONS_FLAYED_GHOST :    //  8%
                            (chance > 7) ? MONS_WRAITH :           // 44%/40%
                            (chance > 2) ? MONS_FREEZING_WRAITH    // 20%/16%
                                         : MONS_SPECTRAL_WARRIOR); // 12%
        if ((chance == 3 || chance == 8) && player_see_invis())
            mon = MONS_SHADOW_WRAITH;				   //  0%/8%
        const int monster =
            create_monster(
                mgen_data(mon,
                          BEH_FRIENDLY,
                          5, SPELL_SUMMON_WRAITHS,
                          where, mi, MG_FORCE_BEH, god));

        if (player_angers_monster(&menv[monster]))
            friendly = false;

        if (monster != -1)
        {
            success++;
            if (player_angers_monster(&menv[monster]))
                friendly = false;
        }
    }

    if (success > 1)
        mpr(friendly ? "Insubstantial figures form in the air."
                     : "You sense hostile presences.");
    else if (success)

    }

void mons_cast_haunt(monsters *monster);

        MONS_SPECTRAL_WARRIOR

        MONS_SPECTRAL_WARRIOR, MONS_PHANTOM, MONS_HUNGRY_GHOST,
        MONS_FLAYED_GHOST

                                  god_type god)

                                  god_type god, coord_def *target = NULL)

                      duration, spell_cast, monster->pos(), monster->foe, 0,
                      god));

                      duration, spell_cast, target ? *target : monster->pos(),
                      monster->foe, 0, god));

        || spell_cast == SPELL_SUMMON_WRAITHS

}
void mons_cast_haunt(monsters *monster)
{
    coord_def fpos;
    switch (monster->foe)
    {
    case MHITNOT:
        return;
    case MHITYOU:
        fpos = you.pos();
        break;
    default:
        fpos = menv[monster->foe].pos();
    }
    _do_high_level_summon(monster, mons_near(monster), SPELL_SUMMON_WRAITHS,
                          _pick_random_wraith, random_range(3, 6), GOD_NO_GOD, &fpos);

        return;
    case SPELL_SUMMON_WRAITHS:
        _do_high_level_summon(monster, monsterNearby, spell_cast,
                              _pick_random_wraith, random_range(3, 6), god);

            case SPELL_SUMMON_WRAITHS:

        || monspell == SPELL_SUMMON_WRAITHS

#include "mstuff2.h"

    case SPELL_SUMMON_WRAITHS:
        if (!def)
            mpr("You feel haunted.");
        else
            mpr("You sense an evil presence.");
        mons_cast_haunt(source);
        break;