#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include <cstdlib>
#include <cstdio>
#include <cstring>
#include <cstdarg>
#include <set>

#if DEBUG_DIAGNOSTICS
#include <stdio.h>
#endif

static std::set<std::string> beam_message_cache;

}
static void beam_mpr(int channel, const char *s, ...)
{
    va_list args;
    va_start(args, s);
    char buf[500];
    vsnprintf(buf, sizeof buf, s, args);
    va_end(args);
    std::string message = buf;
    if (beam_message_cache.find(message) == beam_message_cache.end())
        mpr(message.c_str(), channel);
    beam_message_cache.insert( message );

    beam_message_cache.clear();

static bool affectsWall(const bolt &beam, int wall)

static bool is_fiery(const bolt &beam)

    // don't know of any explosion that affects walls.  But change it here
    // if there is.
    if (beam.is_explosion)

    return (beam.flavour == BEAM_FIRE || beam.flavour == BEAM_HELLFIRE
            || beam.flavour == BEAM_LAVA);
}
static bool is_superhot(const bolt &beam)
{
    if (!is_fiery(beam))

    return beam.name == "bolt of fire"
        || beam.name == "bolt of magma"
        || (beam.name.find("hellfire") != std::string::npos
                && beam.in_explosion_phase);
}
static bool affectsWall(const bolt &beam, int wall)
{

    if (beam.flavour == BEAM_FIRE
            && wall == DNGN_WAX_WALL
            && beam.name == "bolt of fire")

    if (is_fiery(beam) && wall == DNGN_WAX_WALL)

    if (beam.flavour == BEAM_FIRE && beam.name == "bolt of fire")

    if (is_fiery(beam))

        if (!is_superhot(beam))
        {
            if (beam.flavour != BEAM_HELLFIRE)
            {
                if (see_grid(x, y))
                    beam_mpr(MSGCH_PLAIN, 
                            "The wax appears to soften slightly.");
                else if (player_can_smell())
                    beam_mpr(MSGCH_PLAIN, "You smell warm wax.");
            }

            return (BEAM_STOP);
        }

            mprf("The wax bubbles and burns!");

            beam_mpr(MSGCH_PLAIN, "The wax bubbles and burns!");

            mprf("You smell burning wax.");

            beam_mpr(MSGCH_PLAIN, "You smell burning wax.");

        beam.obvious_effect = true;

    {

        if (affectsWall(beam, grd[realx][realy]))
            affect_wall(beam, realx, realy);
    }

        if (!(x==0 && y==0))

        if (!(x==0 && y==0) && !affectsWall(beam, dngn_feat))