beam.beam_source  = NON_MONSTER;

    beam.flavour      = BEAM_ELECTRICITY;

    beam.flavour      = BEAM_ELECTRICITY;

    beam.beam_source  = NON_MONSTER;

        if (!zapping(ZAP_CLEANSING_FLAME, powc, beam, true))
            return (SPRET_ABORT);

        cleansing_flame(powc, CLEANSING_FLAME_SPELL);

        bolt beam;
        beam.beam_source  = NON_MONSTER;
        beam.type         = dchar_glyph(DCHAR_FIRED_BURST);
        beam.damage       = calc_dice(2, 20 + (you.experience_level * 7) / 3);
        beam.flavour      = BEAM_HOLY;
        beam.target       = you.pos();
        beam.name         = "golden flame";
        beam.colour       = YELLOW;
        beam.thrower      = KILL_MISC;
        beam.aux_source   = "the Shining One's cleansing flame";
        beam.ex_size      = 2;
        beam.is_tracer    = false;
        beam.is_explosion = true;
        beam.explode();

        cleansing_flame(20 + (you.experience_level * 7) / 3,
                        CLEANSING_FLAME_TSO);

            holy_word(100, HOLY_WORD_SHINING_ONE, you.pos(), true);

            holy_word(100, HOLY_WORD_TSO, you.pos(), true);

} // _place_delayed_monsters()

}

    CSET_UNICODE,       // Unicode.

    CSET_UNICODE,       // Unicode

enum cleansing_flame_source_type
{
    CLEANSING_FLAME_GENERIC    = -1,
    CLEANSING_FLAME_SPELL      = -2, // SPELL_FLAME_OF_CLEANSING
    CLEANSING_FLAME_INVOCATION = -3, // ABIL_TSO_CLEANSING_FLAME
    CLEANSING_FLAME_TSO        = -4  // TSO effect
};

    HOLY_WORD_SHINING_ONE = -5   // TSO effect

    HOLY_WORD_TSO         = -5   // TSO effect

    IMMOLATION_SPELL   = -3

    IMMOLATION_SPELL   = -3  // effect when fixing fire brand

    ZAP_CLEANSING_FLAME,

void cleansing_flame(int pow, int caster);

        case HOLY_WORD_SHINING_ONE:
            aux = "The Shining One's holy word";

        case HOLY_WORD_TSO:
            aux = "the Shining One's holy word";

        caster = HOLY_WORD_GENERIC;

        caster = TORMENT_GENERIC;

    // The scroll of immolation doesn't affect items.
    beam.affects_items = (caster != IMMOLATION_SCROLL);

    }

        caster = IMMOLATION_GENERIC;

    beam.flavour       = BEAM_FIRE;
    beam.type          = dchar_glyph(DCHAR_FIRED_BURST);
    beam.damage        = dice_def(3, 10);
    beam.target        = you.pos();
    beam.name          = "fiery explosion";
    beam.colour        = RED;
    beam.beam_source   = NON_MONSTER;
    beam.thrower       = (caster == IMMOLATION_GENERIC) ? KILL_MISC : KILL_YOU;
    beam.aux_source    = aux;
    beam.ex_size       = 2;
    beam.is_tracer     = false;
    beam.is_explosion  = true;
    beam.effect_known  = known;
    beam.affects_items = (caster != IMMOLATION_SCROLL);
    beam.explode();
}
void cleansing_flame(int pow, int caster)
{
    ASSERT(!crawl_state.arena);
    const char *aux = "cleansing flame";
    bolt beam;
    if (caster < 0)
    {
        switch (caster)
        {
        case CLEANSING_FLAME_TSO:
            aux = "the Shining One's cleansing flame";
            break;
        }

    beam.flavour      = BEAM_FIRE;

    beam.flavour      = BEAM_HOLY;

    beam.damage       = dice_def(3, 10);

    beam.damage       = dice_def(2, pow);

    beam.name         = "fiery explosion";
    beam.colour       = RED;
    beam.thrower      = (caster == IMMOLATION_GENERIC) ? KILL_MISC : KILL_YOU;

    beam.name         = "golden flame";
    beam.colour       = YELLOW;
    beam.thrower      = (caster == CLEANSING_FLAME_GENERIC
                            || caster == CLEANSING_FLAME_TSO) ? KILL_MISC
                                                              : KILL_YOU;
    beam.beam_source  = NON_MONSTER;

    beam.effect_known = known;

        ZAP_CLEANSING_FLAME,
        "golden flame",
        200,
        new calcdice_calculator<2, 20, 2, 3>,
        new tohit_calculator<150>,
        YELLOW,
        false,
        BEAM_HOLY,
        DCHAR_FIRED_ZAP,
        true,
        true,
        true
    },
    {

    mprf( "The %s %s you!",
          name.c_str(), (engulfs) ? "engulfs" : "hits" );

    mprf("The %s %s you!",
         name.c_str(), engulfs ? "engulfs" : "hits");

        int blood = hurted/2; // assumes DVORP_PIERCING, factor: 0.5

        int blood = hurted / 2; // assumes DVORP_PIERCING, factor: 0.5

    hurted = check_your_resists( hurted, flavour );

    hurted = check_your_resists(hurted, flavour);

             engulfs? "engulfs" : "hits",

             engulfs ? "engulfs" : "hits",

    }
    if (name == "golden flame")
    {
        seeMsg  = "The flame explodes!";
        hearMsg = "You feel a deep, resonant explosion.";
        type    = dchar_glyph(DCHAR_FIRED_BURST);
        flavour = BEAM_HOLY;
        ex_size = 2;

        beam.range = 8;
        if (!spell_direction(spd, beam, DIR_NONE, TARG_ENEMY, beam.range))
            return (false);
        if (!zapping(ZAP_CLEANSING_FLAME, 20 + you.skills[SK_INVOCATIONS] * 6,
                     beam, true))
        {
            return (false);
        }

        cleansing_flame(10 + (you.skills[SK_INVOCATIONS] * 7) / 6,
                        CLEANSING_FLAME_INVOCATION);