void init_player_doll();

#include "files.h"

// static void _load_doll_data(const char *fn, dolls_data *dolls, int max,
//                             int *mode, int *cur)
static void _load_doll_data(const char *fn, dolls_data *doll)
{
    char fbuf[1024];
    FILE *fp  = NULL;
    std::string dollsTxtString = datafile_path(fn, false, true);
    const char *dollsTxt = (dollsTxtString.c_str()[0] == 0) ?
                            "dolls.txt" : dollsTxtString.c_str();
    if ( (fp = fopen(dollsTxt, "r")) == NULL )
    {
        mpr("File not found.");
        // File doesn't exist.  By default, use equipment defaults.
        // This will be saved out (if possible).
        // Don't take gender too seriously.  -- Enne
        tilep_race_default(you.species, coinflip() ? 1 : 0,
                           you.experience_level, doll->parts);

void DungeonRegion::pack_player(int x, int y)

        doll->parts[TILEP_PART_SHADOW] = TILEP_SHADOW_SHADOW;
#if 0
        // For some reason I can't reset this although it's used identically
        // elsewhere. (jpeg)
        for (unsigned int j = 0; j < TILEP_PART_MAX; ++j)
            doll->parts[j] = TILEP_SHOW_EQUIP;
#endif
    }
    else
    {
        memset(fbuf, 0, sizeof(fbuf));
        int cur = 0;
        if (fscanf(fp, "%s", fbuf) != EOF)
        {
#if 0
            mpr("Read MODE.");
            if (strcmp(fbuf, "MODE=LOADING") == 0)
                mode0 = TILEP_M_LOADING;
#endif
        }
        if (fscanf(fp, "%s", fbuf) != EOF)
        {
            if (strncmp(fbuf, "NUM=", 4) == 0)
            {
                sscanf(fbuf, "NUM=%d", &cur);
                if (cur < 0 || cur > 10)
                    cur = 0;
            }
        }
        int count = 0;
        while (fscanf(fp, "%s", fbuf) != EOF)
        {
            if (cur == count++)
            {
                tilep_scan_parts(fbuf, doll->parts);
                break;
            }
        }
        if (cur >= count)
        {
            mprf(MSGCH_WARN, "Doll %d could not be found in '%s'.",
                             cur, dollsTxt);
        }
        fclose(fp);
    }
}
static dolls_data player_doll;
void init_player_doll()

    dolls_data player_doll;
    dolls_data result;

    for (int i = 0; i < TILEP_PART_MAX; i++)

    for (unsigned int i = 0; i < TILEP_PART_MAX; ++i)

    int gender = you.your_name[0] % 2;

    int gender = coinflip();

    result = default_doll;

    _load_doll_data("dolls.txt", &default_doll);
    player_doll = default_doll;
}

    result.parts[TILEP_PART_BASE]    = default_doll.parts[TILEP_PART_BASE];
    result.parts[TILEP_PART_DRCHEAD] = default_doll.parts[TILEP_PART_DRCHEAD];
    result.parts[TILEP_PART_DRCWING] = default_doll.parts[TILEP_PART_DRCWING];

void DungeonRegion::pack_player(int x, int y)
{
    dolls_data result = player_doll;

    {

    }

    int i;
    for (i = 0; i < TILEP_PART_MAX; i++)

    for (unsigned i = 0; i < TILEP_PART_MAX; i++)

        {
            const int colour_offset = _draconian_colour(race, level);
            result = TILEP_BASE_DRACONIAN + colour_offset * 2;

            int st = tile_player_part_start[TILEP_PART_DRCHEAD];
            parts[TILEP_PART_DRCHEAD] = st + colour_offset;

                int st = tile_player_part_start[TILEP_PART_DRCWING];
                parts[TILEP_PART_DRCWING] = st + _draconian_colour(race, level);

                st = tile_player_part_start[TILEP_PART_DRCWING];
                parts[TILEP_PART_DRCWING] = st + colour_offset;

            result = TILEP_BASE_DRACONIAN + _draconian_colour(race, level) * 2;

        }

        int idx;

        idx = tilep_str_to_part(ibuf);

        int idx = tilep_str_to_part(ibuf);
        if (p == TILEP_PART_BASE)
            parts[p] += idx % 2;
        else if (idx == 0)
            parts[p] = 0;
        else if (idx == TILEP_SHOW_EQUIP)
            continue;
        else if (idx > tile_player_part_count[p])
            parts[p] = tile_player_part_start[p];
        else
        {
            int idx2 = tile_player_part_start[p] + idx - 1;
            if (idx2 < TILE_MAIN_MAX || idx2 >= TILEP_PLAYER_MAX)
                parts[p] = TILEP_SHOW_EQUIP;
            else
                parts[p] = idx2;
        }
/*

        else
            parts[p] = 0;
*/
/*
        else if (idx < TILE_MAIN_MAX)
            parts[p] = TILE_MAIN_MAX;
        else if (idx >= TILEP_PLAYER_MAX)
            parts[p] = TILEP_PLAYER_MAX - 1;

        else if (idx > tile_player_part_count[p])
            parts[p] = tile_player_part_count[p];

        else if (idx >= tile_player_part_count[p])
            parts[p] = tile_player_part_count[p] - 1;
//          else if (idx > tilep_parts_total[p]) // bound it
//              parts[p] = tilep_parts_total[p];

*/

                // lowered because of HD raise -- bwr
                // if (you.experience_level < 14)
                //     hp_adjust++;

                // lower because of HD raise -- bwr
                // if (you.experience_level < 14)
                //     hp_adjust++;

#ifdef USE_TILE
                    init_player_doll();
#endif

                        mpr("Your scales start taking on a golden yellow colour.", MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start taking on a golden yellow colour.",
                            MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start turning black.", MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start turning black.",
                            MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start taking on a rich purple colour.", MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start taking on a rich purple colour.",
                            MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start taking on a weird mottled pattern.", MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start taking on a weird mottled pattern.",
                            MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start fading to a pale grey colour.", MSGCH_INTRINSIC_GAIN);

                        mpr("Your scales start fading to a pale grey colour.",
                            MSGCH_INTRINSIC_GAIN);

#ifdef USE_TILE
                    init_player_doll();
#endif

    init_player_doll();