case SPELL_SUMMON_WRAITHS:           return TILEG_SUMMON_WRAITHS;

    case SPELL_HAUNT:                    return TILEG_HAUNT;

    // Transformation

    // Transmutation

// usage: cast_summon_swarm() cast_summon_wraiths() cast_summon_scorpions()

// usage: cast_summon_swarm() cast_haunt() cast_summon_scorpions()

    SPELL_SUMMON_WRAITHS, "Haunt",

    SPELL_HAUNT, "Haunt",

        const spret_type cast_result = your_spells( spell );

        const spret_type cast_result = your_spells(spell);

    // XXX: This handles only some of the cases where spells need targetting...
    // there are others that do their own that will be missed by this
    // (and thus will not properly ESC without cost because of it).
    // Hopefully, those will eventually be fixed. -- bwr

    // XXX: This handles only some of the cases where spells need
    // targetting.  There are others that do their own that will be
    // missed by this (and thus will not properly ESC without cost
    // because of it).  Hopefully, those will eventually be fixed. - bwr

            ( (spell == SPELL_APPORTATION)   ? DIR_TARGET_OBJECT :
              testbits(flags, SPFLAG_TARGET) ? DIR_TARGET        :
              testbits(flags, SPFLAG_GRID)   ? DIR_TARGET        :
              testbits(flags, SPFLAG_DIR)    ? DIR_DIR           :
                                               DIR_NONE          );

            ((spell == SPELL_APPORTATION)   ? DIR_TARGET_OBJECT :
             testbits(flags, SPFLAG_TARGET) ? DIR_TARGET        :
             testbits(flags, SPFLAG_GRID)   ? DIR_TARGET        :
             testbits(flags, SPFLAG_DIR)    ? DIR_DIR           :
                                              DIR_NONE          );

    // Added this so that the passed in powc can have meaning -- bwr

    // Added this so that the passed in powc can have meaning. - bwr

        powc = calc_spell_power( spell, true );

        powc = calc_spell_power(spell, true);

        noisy( spell_noise(spell), you.pos() );

        noisy(spell_noise(spell), you.pos());

            // is a player controllable act.  -- bwr

            // is a player controllable act. - bwr

            mpr( "You miscast the spell." );
            flush_input_buffer( FLUSH_ON_FAILURE );
            learned_something_new( TUT_SPELL_MISCAST );

            mpr("You miscast the spell.");
            flush_input_buffer(FLUSH_ON_FAILURE);
            learned_something_new(TUT_SPELL_MISCAST);

            // all spell failures give a bit of magical radiation..
            // failure is a function of power squared multiplied
            // by how badly you missed the spell.  High power
            // spells can be quite nasty: 9 * 9 * 90 / 500 = 15
            // points of contamination!

            // All spell failures give a bit of magical radiation.
            // Failure is a function of power squared multiplied by how
            // badly you missed the spell.  High power spells can be
            // quite nasty: 9 * 9 * 90 / 500 = 15 points of
            // contamination!

            contaminate_player( cont_points );

            contaminate_player(cont_points);

            MiscastEffect( &you, NON_MONSTER, spell, spell_mana(spell),
                           spfail_chance - spfl );

            MiscastEffect(&you, NON_MONSTER, spell, spell_mana(spell),
                          spfail_chance - spfl);

        // Should only be available from
        // staff of Dispater & Sceptre of Asmodeus

        // Should only be available from Staff of Dispater and Sceptre
        // of Asmodeus.

        //     get a less powerful ball when its released. -- bwr

        //     get a less powerful ball when it's released. - bwr

        if (!you.attribute[ ATTR_DELAYED_FIREBALL ])

        if (!you.attribute[ATTR_DELAYED_FIREBALL])

            // okay, this message is weak but functional -- bwr
            mpr( "You feel magically charged." );
            you.attribute[ ATTR_DELAYED_FIREBALL ] = 1;

            // Okay, this message is weak but functional. - bwr
            mpr("You feel magically charged.");
            you.attribute[ATTR_DELAYED_FIREBALL] = 1;

            canned_msg( MSG_NOTHING_HAPPENS );

            canned_msg(MSG_NOTHING_HAPPENS);

    case SPELL_SUMMON_WRAITHS:
        cast_summon_wraiths(powc, beam.target, god);

    case SPELL_HAUNT:
        cast_haunt(powc, beam.target, god);

     SPELL_SUMMON_WRAITHS,

     SPELL_SUMMON_WRAITHS,

     SPELL_HAUNT,

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

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

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

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

        mpr("An evil force gathers but it quickly dissipates.");

        mpr("An evil force gathers, but it quickly dissipates.");

    ASSERT(!(invalid_monster_index(mi)));

    ASSERT(!invalid_monster_index(mi));

        return false;

        return (false);

    while(to_summon--)

    while (to_summon--)

        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%

        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%

            mon = MONS_SHADOW_WRAITH;				   //  0%/8%

            mon = MONS_SHADOW_WRAITH;				    //  0%/8%

                          5, SPELL_SUMMON_WRAITHS,

                          5, SPELL_HAUNT,

transmigration SPELL_TRANSMIGRATION

transmutation SPELL_TRANSMUTATION

haunt HAUNT

summon_wraiths SUMMON_WRAITHS

%sdir spells/transmigration

%sdir spells/transmutation

        || spell_cast == SPELL_SUMMON_WRAITHS

        || spell_cast == SPELL_HAUNT

    _do_high_level_summon(monster, mons_near(monster), SPELL_SUMMON_WRAITHS,

    _do_high_level_summon(monster, mons_near(monster), SPELL_HAUNT,

    case SPELL_SUMMON_WRAITHS:

    case SPELL_HAUNT:

                    // (ignoring Summon Wraith here)... at least we're
                    // being nice and putting the natural creature
                    // summons together with the demonic ones.  Note
                    // that Vehumet gets a free pass here since those

                    // (ignoring Haunt here)... at least we're being
                    // nice and putting the natural creature summons
                    // together with the demonic ones.  Note that
                    // Vehumet gets a free pass here since those

            case SPELL_SUMMON_WRAITHS:

            case SPELL_HAUNT:

    // True, the tentacles _are_ summoned but they are restricted to water
    // just like the kraken is, so it makes more sense not to count them here.

    // True, the tentacles _are_ summoned, but they are restricted to
    // water just like the kraken is, so it makes more sense not to
    // count them here.

    if (monspell == SPELL_SMITING || monspell == SPELL_AIRSTRIKE
        || monspell == SPELL_SUMMON_WRAITHS

    if (monspell == SPELL_SMITING
        || monspell == SPELL_AIRSTRIKE
        || monspell == SPELL_HAUNT

    SPELL_SUMMON_WRAITHS,

    SPELL_HAUNT,

    SPELL_SUMMON_WRAITHS,              //   60

    SPELL_HAUNT,                       //   60

    case SPELL_SUMMON_WRAITHS:

    case SPELL_HAUNT:

%%%%
Haunt
This spell calls on the powers of the undead to aid the caster.

%%%%
Summon Wraiths
This spell calls on the powers of the undead to aid the caster.