// Convert demonic weapons into non-demonic weapons, not allowing
    // blessed weapons, since the holy wrath brand is the blessing.

    // Convert demonic weapons into non-demonic weapons.

        demonic2nondemonic(wpn, false);

        normal2good(wpn, false);

        if ( is_good_god(god) )
            normal2good(you.inv[wpn]);

        {
            if (_bless_weapon(GOD_SHINING_ONE, SPWPN_HOLY_WRATH, YELLOW))
            {
                // convert demonic weapons into non-demonic weapons
                if (is_demonic(you.inv[wpn]))
                    demonic2nondemonic(you.inv[wpn]);
            }
        }

            _bless_weapon(GOD_SHINING_ONE, SPWPN_HOLY_WRATH, YELLOW);

bool  demonic2nondemonic( item_def &item, bool allow_blessed = true );

bool  is_blessed( const item_def &item );
bool  normal2good( item_def &item, bool allow_blessed = true );

bool demonic2nondemonic( item_def &item, bool allow_blessed )

bool is_blessed( const item_def &item )
{
    if (item.base_type == OBJ_WEAPONS)
    {
        switch (item.sub_type)
        {
        case WPN_BLESSED_BLADE:
            return (true);
        default:
            break;
        }
    }
    return (false);
}                               // end is_demonic()
bool normal2good( item_def &item, bool allow_blessed )

        item.sub_type = (allow_blessed) ? WPN_BLESSED_BLADE : WPN_SCIMITAR;

        if (!allow_blessed)
            item.sub_type = WPN_SCIMITAR;
        else
            item.sub_type = WPN_BLESSED_BLADE;

}                               // end demonic2nondemonic()

}                               // end normal2good()

                && item.sub_type == WPN_BLESSED_BLADE)

                && is_blessed(item))

                         && weapon->sub_type == WPN_BLESSED_BLADE))))

                         && is_blessed(*weapon)))))