void cast_snake_charm(int pow);

}
static int _snake_charm_monsters(coord_def where, int pow, int, actor *)
{
    monsters* monster = monster_at(where);
    if (monster == NULL
        || one_chance_in(4)
        || mons_friendly(monster)
        || mons_char(monster->type) != 'S'
        || check_mons_resist_magic(monster, pow))
    {
        return 0;
    }
    monster->attitude = ATT_FRIENDLY;
    mprf("%s sways back and forth.", monster->name(DESC_CAP_THE).c_str());
    return 1;
}
void cast_snake_charm(int pow)
{
    apply_one_neighbouring_square(_snake_charm_monsters, pow);

    ABIL_BREATHE_HELLFIRE,             //   25
    ABIL_FLY_II,

    ABIL_FLY_II,                       //   25

    ABIL_EVOKE_TELEPORTATION,          //   30
    ABIL_EVOKE_BLINK,
    ABIL_RECHARGING,                   //   32
    // 33 - 50 unused

    ABIL_EVOKE_TELEPORTATION,
    ABIL_EVOKE_BLINK,                  //   30
    ABIL_RECHARGING,                   //   31
    // 32 - 50 unused

    ABIL_CHARM_SNAKE,                       //  237
    ABIL_TORMENT_II,

    ABIL_HARM_PROTECTION,                   //  240
    ABIL_HARM_PROTECTION_II,

    ABIL_HARM_PROTECTION,
    ABIL_HARM_PROTECTION_II,                //  239

    { ABIL_LUGONU_ABYSS_EXIT,  "Depart the Abyss", 1, 0, 150, 10, ABFLAG_NONE },
    { ABIL_LUGONU_BEND_SPACE,  "Bend Space", 1, 0, 50, 0, ABFLAG_PAIN },
    { ABIL_LUGONU_BANISH,      "Banish",

    { ABIL_LUGONU_ABYSS_EXIT, "Depart the Abyss", 1, 0, 150, 10, ABFLAG_NONE },
    { ABIL_LUGONU_BEND_SPACE, "Bend Space", 1, 0, 50, 0, ABFLAG_PAIN },
    { ABIL_LUGONU_BANISH, "Banish",

    { ABIL_LUGONU_CORRUPT,     "Corrupt",

    { ABIL_LUGONU_CORRUPT, "Corrupt",

    // These six are unused "evil" god abilities:
    { ABIL_CHARM_SNAKE, "Charm Snake", 6, 0, 200, 5, ABFLAG_NONE },
    { ABIL_BREATHE_HELLFIRE, "Breathe Hellfire", 0, 8, 200, 0, ABFLAG_BREATH },
    { ABIL_TORMENT_II, "Call Torment", 9, 0, 0, 3, ABFLAG_PAIN },

        // end transformation abilities {dlb}

    case ABIL_BREATHE_HELLFIRE:
        failure = 32 - you.experience_level;
        break;
        // end transformation abilities {dlb}
        //

        break;
        //jmf: following for to-be-created gods
    case ABIL_CHARM_SNAKE:
        invoc = true;
        failure = 40 - (you.piety / 20) - (3 * you.skills[SK_INVOCATIONS]);
        break;
    case ABIL_TORMENT_II:
        invoc = true;
        failure = 70 - (you.piety / 25) - (you.skills[SK_INVOCATIONS] * 4);

    //jmf: intended as invocations from evil god(s):
    case ABIL_CHARM_SNAKE:
        cast_snake_charm( you.experience_level * 2
                            + you.skills[SK_INVOCATIONS] * 3 );
        exercise(SK_INVOCATIONS, 2 + random2(4));
        break;
    case ABIL_BREATHE_HELLFIRE:
        if (you.duration[DUR_BREATH_WEAPON])
        {
            canned_msg(MSG_CANNOT_DO_YET);
            return (false);
        }
        if (your_spells(SPELL_HELLFIRE,
                        20 + you.experience_level, false ) == SPRET_ABORT)
            return (false);
        you.duration[DUR_BREATH_WEAPON] +=
                        3 + random2(5) + random2(30 - you.experience_level);
        break;
    case ABIL_TORMENT_II:
        if (you.is_undead)
        {
            mpr("The unliving cannot use this ability.");
            return (false);
        }
        torment(TORMENT_GENERIC, you.pos());
        exercise(SK_INVOCATIONS, 2 + random2(4));
        break;