god_speaks(GOD_XOM, random_choose_string(
                       "\"Go forth and destroy!\"",
                       "\"Go forth and cause havoc, mortal!\"",
                       "Xom grants you a minor favour.",
                       "Xom smiles on you.", NULL));

        {
            if (!you.can_go_berserk(false)) // no message
                goto try_again;

        }
        
        god_speaks(GOD_XOM, random_choose_string(
                       "\"Go forth and destroy!\"",
                       "\"Go forth and cause havoc, mortal!\"",
                       "Xom grants you a minor favour.",
                       "Xom smiles on you.", NULL));

        const int radius = random2avg(sever/2, 3);

        const int radius = random2avg(sever/2, 3) + 1;
        if (!vitrify_area(radius)) // can fail with radius 1 or in open areas
            goto try_again;
            

                       // XXX need some more creative flavor text

                       "You feel watched.",
                       "Everything around seems to assume a strange transparency.",
                       "All the walls suddenly lose part of their structure.",

        vitrify_area(radius);

        if (! there_are_monsters_nearby())

        if (!there_are_monsters_nearby())

void vitrify_area(int radius);

bool vitrify_area(int radius);

void vitrify_area(int radius)

// returns true if there was a visible change
bool vitrify_area(int radius)

    if (radius < 2)
        return (false);
        

    // this hinges on clear wall types having the same order as non-clear ones
    const int clear_plus = DNGN_CLEAR_ROCK_WALL - DNGN_ROCK_WALL;
    bool something_happened = false;

                if ( grd[x][y] == DNGN_ROCK_WALL )
                    grd[x][y] = DNGN_CLEAR_ROCK_WALL;
                else if ( grd[x][y] == DNGN_STONE_WALL )
                    grd[x][y] = DNGN_CLEAR_STONE_WALL;
                else if ( grd[x][y] == DNGN_PERMAROCK_WALL )
                    grd[x][y] = DNGN_CLEAR_PERMAROCK_WALL;

                dungeon_feature_type grid = grd[x][y];
                
                if (grid == DNGN_ROCK_WALL
                    || grid == DNGN_STONE_WALL
                    || grid == DNGN_PERMAROCK_WALL )
                {
                    grd[x][y]
                        = static_cast<dungeon_feature_type>(grid + clear_plus);
                    something_happened = true;
                }

    
    return (something_happened);