void generate_random_blood_spatter_on_level();

                     if (i == 0 && j == 0) // current square
                         continue;

                    if (i == 0 && j == 0) // current square
                        continue;

                     // Spattering onto walls etc. less likely.
                     if (grd[x+i][y+j] < DNGN_MINMOVE && !one_chance_in(3))
                         continue;

                    // Spattering onto walls etc. less likely.
                    if (grd[x+i][y+j] < DNGN_MINMOVE && !one_chance_in(3))
                        continue;

                     maybe_bloodify_square(x+i, y+j, amount/15);

                    maybe_bloodify_square(x+i, y+j, amount/15);

static void _spatter_neighbours(int cx, int cy, int chance)
{
    int posx, posy;
    for (int x = -1; x <= 1; x++)
        for (int y = -1; y <= 1; y++)
        {
            posx = cx + x;
            posy = cy + y;
            if (!in_bounds(posx, posy))
                continue;

            if (!allow_bleeding_on_square(posx, posy))
                continue;
            if (grd[posx][posy] < DNGN_MINMOVE && !one_chance_in(3))
                continue;
            if (one_chance_in(chance))
            {
                env.map[posx][posy].property = FPROP_BLOODY;
                _spatter_neighbours(posx, posy, chance+1);
            }
        }
}
void generate_random_blood_spatter_on_level()
{
    int cx, cy;
    int startprob;
    int max_cluster = 7 + random2(9);
    for (int i = 0; i < max_cluster; i++)
    {
        cx = 10 + random2(GXM - 10);
        cy = 10 + random2(GYM - 10);
        startprob = 1 + random2(4);
        if (allow_bleeding_on_square(cx, cy))
            env.map[cx][cy].property = FPROP_BLOODY;
        _spatter_neighbours(cx, cy, startprob);
    }
}

            generate_random_blood_spatter_on_level();

            // make sure old file is gone

            // Make sure old file is gone.

            // save the information for later deletion -- DML 6/11/99

            // Save the information for later deletion -- DML 6/11/99

        generate_abyss();

        generate_abyss(true);

    _compile_time_asserts();     // just to quiet "unused static function" warning

    _compile_time_asserts();  // just to quiet "unused static function" warning

    // parse command line args -- look only for initfile & crawl_dir entries

    // Parse command line args -- look only for initfile & crawl_dir entries.

    // now parse the args again, looking for everything else.

    // Now parse the args again, looking for everything else.

// note that in some actions, you don't want to clear afterwards.
//  e.g. list_jewellery, etc.

// Note that in some actions, you don't want to clear afterwards.
// e.g. list_jewellery, etc.

    // init item array:

    // Init item array.

    // empty messaging string

    // Empty messaging string.

    // system initialisation stuff:

    // System initialisation stuff.

    // sets up a new game:

    // Sets up a new game.

    // Debug compiles display a lot of "hidden" information, so we auto-wiz

    // Debug compiles display a lot of "hidden" information, so we auto-wiz.

void generate_abyss(void);

void generate_abyss(bool spatter = false);

#include "misc.h"

// public for abyss generation
void generate_abyss(void)

// Public for abyss generation.
void generate_abyss(bool spatter)

static void generate_area(int gx1, int gy1, int gx2, int gy2)

static void generate_area(int gx1, int gy1, int gx2, int gy2,
                          bool spatter = false)

    // nuke map

    // Nuke map.

    // generate level composition vector

    // Generate level composition vector.

        for ( int rooms_done = 0; rooms_done < rooms_to_do; ++rooms_done )

        for (int rooms_done = 0; rooms_done < rooms_to_do; ++rooms_done)

            // Don't place exit under items

            // Don't place exit under items.

            if (one_chance_in(10000)) // place an altar

            if (one_chance_in(10000)) // Place an altar.

                // Lugonu has a flat 50% chance of corrupting the altar

                // Lugonu has a flat 50% chance of corrupting the altar.

    generate_random_blood_spatter_on_level();

        // remove non-nearby monsters

        // Remove non-nearby monsters.

            // don't modify terrain by player

            // Don't modify terrain by player.

            // nuke terrain otherwise

            // Nuke terrain otherwise.

            // nuke items

            // Nuke items.

    // shift all monsters & items to new area

    // Shift all monsters & items to new area.

            // move terrain

            // Move terrain.

            // move item

            // Move item.

            // move monster

            // Move monster.

            // move cloud

            // Move cloud,

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER);

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER, true);

        // try to find a good spot within the shift zone:

        // Try to find a good spot within the shift zone.

    // teleport to a new area of the abyss:

    // Teleport to a new area of the abyss.

    init_pandemonium();          // get new monsters
    dgn_set_colours_from_monsters(); // and new colours

    init_pandemonium();              // Get new monsters
    dgn_set_colours_from_monsters(); // ...and new colours.

    // Orbs and fixed artefacts are marked as "lost in the abyss"

    // Orbs and fixed artefacts are marked as "lost in the abyss".

            grd[i][j]       = DNGN_UNSEEN;  // so generate_area will pick it up

            grd[i][j]       = DNGN_UNSEEN;  // So generate_area will pick it up.

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER);

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER, true);

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER);

                  GXM - MAPGEN_BORDER, GYM - MAPGEN_BORDER, false);