/*
* Hack -- Dump a character description file
*
* XXX XXX XXX Allow the "full" flag to dump additional info,
* and trigger its usage from various places in the code.
*/
errr file_character(const char *path, bool full)
{
int i, x, y;
int a;
wchar_t c;
ang_file *fp;
struct store *st_ptr = &stores[STORE_HOME];
char o_name[80];
char buf[1024];
char *p;
/* Unused parameter */
(void)full;
/* Open the file for writing */
fp = file_open(path, MODE_WRITE, FTYPE_TEXT);
if (!fp) return (-1);
/* Begin dump */
file_putf(fp, " [%s Character Dump]\n\n", buildid);
/* Display player */
display_player(0);
/* Dump part of the screen */
for (y = 1; y < 23; y++)
{
p = buf;
/* Dump each row */
for (x = 0; x < 79; x++)
{
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
x_file_putf(fp, "%s\n", buf);
}
/* Skip a line */
file_putf(fp, "\n");
/* Display player */
display_player(1);
/* Dump part of the screen */
for (y = 11; y < 20; y++)
{
p = buf;
/* Dump each row */
for (x = 0; x < 39; x++)
{
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
x_file_putf(fp, "%s\n", buf);
}
/* Skip a line */
file_putf(fp, "\n");
/* Dump part of the screen */
for (y = 11; y < 20; y++)
{
p = buf;
/* Dump each row */
for (x = 0; x < 39; x++)
{
/* Get the attr/char */
(void)(Term_what(x + 40, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
x_file_putf(fp, "%s\n", buf);
}
/* Skip some lines */
file_putf(fp, "\n\n");
/* If dead, dump last messages -- Prfnoff */
if (p_ptr->is_dead)
{
i = messages_num();
if (i > 15) i = 15;
file_putf(fp, " [Last Messages]\n\n");
while (i-- > 0)
{
x_file_putf(fp, "> %s\n", message_str((s16b)i));
}
x_file_putf(fp, "\nKilled by %s.\n\n", p_ptr->died_from);
}
/* Dump the equipment */
file_putf(fp, " [Character Equipment]\n\n");
for (i = INVEN_WIELD; i < ALL_INVEN_TOTAL; i++)
{
if (i == INVEN_TOTAL)
{
file_putf(fp, "\n\n [Character Quiver]\n\n");
continue;
}
object_desc(o_name, sizeof(o_name), &p_ptr->inventory[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, "%c) %s\n", index_to_label(i), o_name);
if (p_ptr->inventory[i].kind)
object_info_chardump(fp, &p_ptr->inventory[i], 5, 72);
}
/* Dump the inventory */
file_putf(fp, "\n\n [Character Inventory]\n\n");
for (i = 0; i < INVEN_PACK; i++)
{
if (!p_ptr->inventory[i].kind) break;
object_desc(o_name, sizeof(o_name), &p_ptr->inventory[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, "%c) %s\n", index_to_label(i), o_name);
object_info_chardump(fp, &p_ptr->inventory[i], 5, 72);
}
file_putf(fp, "\n\n");
/* Dump the Home -- if anything there */
if (st_ptr->stock_num)
{
/* Header */
file_putf(fp, " [Home Inventory]\n\n");
/* Dump all available items */
for (i = 0; i < st_ptr->stock_num; i++)
{
object_desc(o_name, sizeof(o_name), &st_ptr->stock[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, "%c) %s\n", I2A(i), o_name);
object_info_chardump(fp, &st_ptr->stock[i], 5, 72);
}
/* Add an empty line */
file_putf(fp, "\n\n");
}
/* Dump character history */
dump_history(fp);
file_putf(fp, "\n\n");
/* Dump options */
file_putf(fp, " [Options]\n\n");
/* Dump options */
for (i = 0; i < OPT_PAGE_MAX - 1; i++) {
int j;
const char *title = "";
switch (i) {
case 0: title = "Interface"; break;
case 1: title = "Warning"; break;
case 2: title = "Birth"; break;
}
file_putf(fp, " [%s]\n\n", title);
for (j = 0; j < OPT_PAGE_PER; j++) {
int opt = option_page[i][j];
if (!option_name(opt)) continue;
file_putf(fp, "%-45s: %s (%s)\n",
option_desc(opt),
op_ptr->opt[opt] ? "yes" : "no ",
option_name(opt));
}
/* Skip some lines */
file_putf(fp, "\n");
}
file_close(fp);
/* Success */
return (0);
}
/**
* Write a character dump
*/
void write_character_dump(ang_file *fff)
{
int i, x, y;
int a;
wchar_t c;
struct store *home = &stores[STORE_HOME];
struct object **home_list = mem_zalloc(sizeof(struct object *) *
z_info->store_inven_max);
char o_name[80];
char buf[1024];
char *p;
/* Begin dump */
file_putf(fff, " [%s Character Dump]\n\n", buildid);
/* Display player */
display_player(0);
/* Dump part of the screen */
for (y = 1; y < 23; y++) {
p = buf;
/* Dump each row */
for (x = 0; x < 79; x++) {
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
file_putf(fff, "%s\n", buf);
}
/* Skip a line */
file_putf(fff, "\n");
/* Display player */
display_player(1);
/* Dump part of the screen */
for (y = 11; y < 20; y++) {
p = buf;
/* Dump each row */
for (x = 0; x < 39; x++) {
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
file_putf(fff, "%s\n", buf);
}
/* Skip a line */
file_putf(fff, "\n");
/* Dump part of the screen */
for (y = 11; y < 20; y++) {
p = buf;
/* Dump each row */
for (x = 0; x < 39; x++) {
/* Get the attr/char */
(void)(Term_what(x + 40, y, &a, &c));
/* Dump it */
p += wctomb(p, c);
}
/* Back up over spaces */
while ((p > buf) && (p[-1] == ' ')) --p;
/* Terminate */
*p = '\0';
/* End the row */
file_putf(fff, "%s\n", buf);
}
/* Skip some lines */
file_putf(fff, "\n\n");
/* If dead, dump last messages -- Prfnoff */
if (player->is_dead) {
i = messages_num();
if (i > 15) i = 15;
file_putf(fff, " [Last Messages]\n\n");
while (i-- > 0)
{
file_putf(fff, "> %s\n", message_str((s16b)i));
}
file_putf(fff, "\nKilled by %s.\n\n", player->died_from);
}
/* Dump the equipment */
file_putf(fff, " [Character Equipment]\n\n");
for (i = 0; i < player->body.count; i++) {
struct object *obj = slot_object(player, i);
if (!obj) continue;
object_desc(o_name, sizeof(o_name), obj, ODESC_PREFIX | ODESC_FULL);
file_putf(fff, "%c) %s\n", gear_to_label(obj), o_name);
object_info_chardump(fff, obj, 5, 72);
}
file_putf(fff, "\n\n");
/* Dump the inventory */
file_putf(fff, "\n\n [Character Inventory]\n\n");
for (i = 0; i < z_info->pack_size; i++) {
struct object *obj = player->upkeep->inven[i];
if (!obj) break;
object_desc(o_name, sizeof(o_name), obj, ODESC_PREFIX | ODESC_FULL);
file_putf(fff, "%c) %s\n", gear_to_label(obj), o_name);
object_info_chardump(fff, obj, 5, 72);
}
file_putf(fff, "\n\n");
/* Dump the quiver */
file_putf(fff, "\n\n [Character Quiver]\n\n");
for (i = 0; i < z_info->quiver_size; i++) {
struct object *obj = player->upkeep->quiver[i];
if (!obj) continue;
object_desc(o_name, sizeof(o_name), obj, ODESC_PREFIX | ODESC_FULL);
file_putf(fff, "%c) %s\n", gear_to_label(obj), o_name);
object_info_chardump(fff, obj, 5, 72);
}
file_putf(fff, "\n\n");
/* Dump the Home -- if anything there */
store_stock_list(home, home_list, z_info->store_inven_max);
if (home->stock_num) {
/* Header */
file_putf(fff, " [Home Inventory]\n\n");
/* Dump all available items */
for (i = 0; i < z_info->store_inven_max; i++) {
struct object *obj = home_list[i];
if (!obj) break;
object_desc(o_name, sizeof(o_name), obj, ODESC_PREFIX | ODESC_FULL);
file_putf(fff, "%c) %s\n", I2A(i), o_name);
object_info_chardump(fff, obj, 5, 72);
}
/* Add an empty line */
file_putf(fff, "\n\n");
}
/* Dump character history */
dump_history(fff);
file_putf(fff, "\n\n");
/* Dump options */
file_putf(fff, " [Options]\n\n");
/* Dump options */
for (i = 0; i < OP_MAX; i++) {
int opt;
const char *title = "";
switch (i) {
case OP_INTERFACE: title = "User interface"; break;
case OP_BIRTH: title = "Birth"; break;
default: continue;
}
file_putf(fff, " [%s]\n\n", title);
for (opt = 0; opt < OPT_MAX; opt++) {
if (option_type(opt) != i) continue;
file_putf(fff, "%-45s: %s (%s)\n",
option_desc(opt),
player->opts.opt[opt] ? "yes" : "no ",
option_name(opt));
}
/* Skip some lines */
file_putf(fff, "\n");
}
mem_free(home_list);
}
/*
* Hack -- Dump a character description file
*
* XXX XXX XXX Allow the "full" flag to dump additional info,
* and trigger its usage from various places in the code.
*/
errr file_character(const char *path, bool full)
{
int i, x, y;
byte a;
char c;
ang_file *fp;
struct store *st_ptr = &stores[STORE_HOME];
char o_name[80];
byte (*old_xchar_hook)(byte c) = Term.xchar_hook;
char buf[1024];
/* We use either ascii or system-specific encoding */
int encoding = OPT(xchars_to_file) ? SYSTEM_SPECIFIC : ASCII;
/* Unused parameter */
(void)full;
/* Open the file for writing */
fp = file_open(path, MODE_WRITE, FTYPE_TEXT);
if (!fp) return (-1);
/* Display the requested encoding -- ASCII or system-specific */
if (!OPT(xchars_to_file)) Term.xchar_hook = null;
/* Begin dump */
file_putf(fp, " [%s Character Dump]\n\n", buildid);
/* Display player */
display_player(0);
/* Dump part of the screen */
for (y = 1; y < 23; y++)
{
/* Dump each row */
for (x = 0; x < 79; x++)
{
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
buf[x] = c;
}
/* Back up over spaces */
while ((x > 0) && (buf[x-1] == ' ')) --x;
/* Terminate */
buf[x] = '\0';
/* End the row */
x_file_putf(fp, encoding, "%s\n", buf);
}
/* Skip a line */
file_putf(fp, "\n");
/* Display player */
display_player(1);
/* Dump part of the screen */
for (y = 11; y < 20; y++)
{
/* Dump each row */
for (x = 0; x < 39; x++)
{
/* Get the attr/char */
(void)(Term_what(x, y, &a, &c));
/* Dump it */
buf[x] = c;
}
/* Back up over spaces */
while ((x > 0) && (buf[x-1] == ' ')) --x;
/* Terminate */
buf[x] = '\0';
/* End the row */
x_file_putf(fp, encoding, "%s\n", buf);
}
/* Skip a line */
file_putf(fp, "\n");
/* Dump part of the screen */
for (y = 11; y < 20; y++)
{
/* Dump each row */
for (x = 0; x < 39; x++)
{
/* Get the attr/char */
(void)(Term_what(x + 40, y, &a, &c));
/* Dump it */
buf[x] = c;
}
/* Back up over spaces */
while ((x > 0) && (buf[x-1] == ' ')) --x;
/* Terminate */
buf[x] = '\0';
/* End the row */
x_file_putf(fp, encoding, "%s\n", buf);
}
/* Skip some lines */
file_putf(fp, "\n\n");
/* If dead, dump last messages -- Prfnoff */
if (p_ptr.is_dead)
{
i = messages_num();
if (i > 15) i = 15;
file_putf(fp, " [Last Messages]\n\n");
while (i-- > 0)
{
x_file_putf(fp, encoding, "> %s\n", message_str((s16b)i));
}
x_file_putf(fp, encoding, "\nKilled by %s.\n\n", p_ptr.died_from);
}
/* Dump the equipment */
file_putf(fp, " [Character Equipment]\n\n");
for (i = INVEN_WIELD; i < ALL_INVEN_TOTAL; i++)
{
if (i == INVEN_TOTAL)
{
file_putf(fp, "\n\n [Character Quiver]\n\n");
continue;
}
object_desc(o_name, sizeof(o_name), &p_ptr.inventory[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, encoding, "%c) %s\n", index_to_label(i), o_name);
if (p_ptr.inventory[i].kind)
object_info_chardump(fp, &p_ptr.inventory[i], 5, 72);
}
/* Dump the inventory */
file_putf(fp, "\n\n [Character Inventory]\n\n");
for (i = 0; i < INVEN_PACK; i++)
{
if (!p_ptr.inventory[i].kind) break;
object_desc(o_name, sizeof(o_name), &p_ptr.inventory[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, encoding, "%c) %s\n", index_to_label(i), o_name);
object_info_chardump(fp, &p_ptr.inventory[i], 5, 72);
}
file_putf(fp, "\n\n");
/* Dump the Home -- if anything there */
if (st_ptr.stock_num)
{
/* Header */
file_putf(fp, " [Home Inventory]\n\n");
/* Dump all available items */
for (i = 0; i < st_ptr.stock_num; i++)
{
object_desc(o_name, sizeof(o_name), &st_ptr.stock[i],
ODESC_PREFIX | ODESC_FULL);
x_file_putf(fp, encoding, "%c) %s\n", I2A(i), o_name);
object_info_chardump(fp, &st_ptr.stock[i], 5, 72);
}
/* Add an empty line */
file_putf(fp, "\n\n");
}
/* Dump character history */
dump_history(fp);
file_putf(fp, "\n\n");
/* Dump options */
file_putf(fp, " [Options]\n\n");
/* Dump options */
for (i = OPT_BIRTH; i < OPT_BIRTH + N_OPTS_BIRTH; i++)
{
if (option_name(i))
{
file_putf(fp, "%-45s: %s (%s)\n",
option_desc(i),
op_ptr.opt[i] ? "yes" : "no ",
option_name(i));
}
}
/* Skip some lines */
file_putf(fp, "\n\n");
/* Return to standard display */
Term.xchar_hook = old_xchar_hook;
file_close(fp);
/* Success */
return (0);
}
