readable.c

Go to the documentation of this file.

/*
 * static char *rcsid_readable_c =
 *   "$Id: readable.c 11578 2009-02-23 22:02:27Z lalo $";
 */

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2002 Mark Wedel & Crossfire Development Team
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The authors can be reached via e-mail at crossfire-devel@real-time.com
*/

/* laid down initial file - dec 1995. -b.t. thomas@astro.psu.edu */

#include <stdio.h>
#include <global.h>
#include <book.h>
#include <living.h>
#include <spells.h>

/* Define this if you want to archive book titles by contents.
 * This option should enforce UNIQUE combinations of titles,authors and
 * msg contents during and *between *game sessions.
 * Note: a slight degeneracy exists since books are archived based on an integer
 * index value calculated from the message text (similar to alchemy formulae).
 * Sometimes two widely different messages have the same index value (rare). In
 * this case,  it is possible to occasionally generate 2 books with same title and
 * different message content. Not really a bug, but rather a feature. This action
 * should  keeps player on their toes ;).
 * Also, note that there is *finite *space available for archiving message and titles.
 * Once this space is used, books will stop being archived. Not a serious problem
 * under the current regime, since there are generally fewer possible (random)
 * messages than space available on the titlelists.
 * One exception (for sure) are the monster messages. But no worries, you should
 * see all of the monster info in some order (but not all possble combinations)
 * before the monster titlelist space is run out. You can increase titlelist
 * space by increasing the array sizes for the monster book_authours and book_names
 * (see  max_titles[] array and include/read.h). Since the unique_book algorthm is
 * kinda stupid, this program *may *slow down program execution if defined (but I don't
 * think its a significant problem, at least, I have no problems running this option
 * on a Sparc 10! Also, once archive title lists are filled and/or all possible msg
 * combinations have been generated, unique_book isnt called anymore. It takes 5-10
 * sessions for this to happen).
 * Final note: the game remembers book/title/msg combinations from reading the
 * file lib/bookarch. If you REMOVE this file, you will lose your archive. So
 * be sure to copy it over to the new lib directory when you change versions.
 * -b.t.
 */

/* This flag is useful to see what kind of output messages are created */
/* #define BOOK_MSG_DEBUG */

/* This flag is useful for debugging archiving action */
/* #define ARCHIVE_DEBUG */

#define MAX_TITLE_CHECK 20

#define MSGTYPE_LIB 0
#define MSGTYPE_MONSTER 1
#define MSGTYPE_ARTIFACT 2
#define MSGTYPE_SPELLPATH 3
#define MSGTYPE_ALCHEMY 4
#define MSGTYPE_GODS 5
#define MSGTYPE_MSGFILE 6

#define arraysize(arrayname) (sizeof(arrayname)/sizeof(*(arrayname)))

/* Moved these structures from struct.h to this file in 0.94.3 - they
 * are not needed anyplace else, so why have them globally declared?
 */

typedef struct titlestruct {
    const char *name;      
    const char *authour;   
    const char *archname;  
    int level;             
    size_t size;           
    int msg_index;         
    struct titlestruct *next;
} title;

typedef struct titleliststruct {
    int number;       
    struct titlestruct *first_book;     
    struct titleliststruct *next;  
} titlelist;

typedef struct namebytype {
    const char *name;  
    int type;          
} arttypename;

static void add_book(title *book, int type, const char *fname, int lineno);

static titlelist *booklist = NULL;

static objectlink *first_mon_info = NULL;

static int nrofmon = 0, need_to_write_bookarchive = 0;

static int nrofmsg = 0;

static linked_char *first_msg = NULL;

static const uint32 spellpathdef[NRSPELLPATHS] = {
    PATH_PROT,
    PATH_FIRE,
    PATH_FROST,
    PATH_ELEC,
    PATH_MISSILE,
    PATH_SELF,
    PATH_SUMMON,
    PATH_ABJURE,
    PATH_RESTORE,
    PATH_DETONATE,
    PATH_MIND,
    PATH_CREATE,
    PATH_TELE,
    PATH_INFO,
    PATH_TRANSMUTE,
    PATH_TRANSFER,
    PATH_TURNING,
    PATH_WOUNDING,
    PATH_DEATH,
    PATH_LIGHT
};

static const char *const path_book_name[] = {
    "codex",
    "compendium",
    "exposition",
    "tables",
    "treatise"
};

static const char *const path_author[] = {
    "aether",
    "astral byways",
    "connections",
    "the Grey Council",
    "deep pathways",
    "knowledge",
    "magic",
    "mystic ways",
    "pathways",
    "power",
    "spells",
    "transforms",
    "the mystic veil",
    "unknown spells"
};

static const arttypename art_name_array[] = {
    { "Helmet", HELMET },
    { "Amulet", AMULET },
    { "Shield", SHIELD },
    { "Bracers", BRACERS },
    { "Boots", BOOTS },
    { "Cloak", CLOAK },
    { "Gloves", GLOVES },
    { "Gridle", GIRDLE },
    { "Ring", RING },
    { "Horn", HORN },
    { "Missile Weapon", BOW },
    { "Missile", ARROW },
    { "Hand Weapon", WEAPON },
    { "Artifact", SKILL },
    { "Food", FOOD },
    { "Body Armour", ARMOUR }
};

static const char *const art_book_name[] = {
    "collection",
    "file",
    "files",
    "guide",
    "handbook",
    "index",
    "inventory",
    "list",
    "listing",
    "record",
    "record book"
};

static const char *const art_author[] = {
    "ancient things",
    "artifacts",
    "Havlor",   /* ancient warrior scribe :) */
    "items",
    "lost artifacts",
    "the ancients",
    "useful things"
};

static const char *const mon_book_name[] = {
    "beastuary",
    "catalog",
    "compilation",
    "collection",
    "encyclopedia",
    "guide",
    "handbook",
    "list",
    "manual",
    "notes",
    "record",
    "register",
    "volume"
};

static const char *const mon_author[] = {
    "beasts",
    "creatures",
    "dezidens",
    "dwellers",
    "evil nature",
    "life",
    "monsters",
    "nature",
    "new life",
    "residents",
    "the spawn",
    "the living",
    "things"
};

static const char *const gods_book_name[] = {
    "devotional",
    "devout notes",
    "divine text",
    "divine work",
    "holy book",
    "holy record",
    "moral text",
    "sacred guide",
    "testament",
    "transcript"
};

static const char *const gods_author[] = {
    "cults",
    "joy",
    "lasting curse",
    "madness",
    "religions",
    "the dead",
    "the gods",
    "the heirophant",
    "the poor priest",
    "the priestess",
    "pain",
    "white"
};

static const char *const formula_book_name[] = {
    "cookbook",
    "formulary",
    "lab book",
    "lab notes",
    "recipe book",
    "experiment record",
    "work plan",
    "design notes"
};

static const char *const formula_author[] = {
    "Albertus Magnus",
    "alchemy",
    "balms",
    "creation",
    "dusts",
    "magical manufacture",
    "making",
    "philosophical items",
    "potions",
    "powders",
    "the cauldron",
    "the lamp black",
    "transmutation",
    "waters"
};

static const char *const light_book_name[] = {
    "calendar",
    "datebook",
    "diary",
    "guidebook",
    "handbook",
    "ledger",
    "notes",
    "notebook",
    "octavo",
    "pamphlet",
    "practicum",
    "script",
    "transcript"
};

static const char *const heavy_book_name[] = {
    "catalog",
    "compendium",
    "guide",
    "manual",
    "opus",
    "tome",
    "treatise",
    "volume",
    "work"
};

static const char *const book_author[] = {
    "Abdulah",
    "Al'hezred",
    "Alywn",
    "Arundel",
    "Arvind",
    "Aerlingas",
    "Bacon",
    "Baliqendii",
    "Bosworth",
    "Beathis",
    "Bertil",
    "Cauchy",
    "Chakrabarti",
    "der Waalis",
    "Dirk",
    "Djwimii",
    "Eisenstaadt",
    "Fendris",
    "Frank",
    "Habbi",
    "Harlod",
    "Ichibod",
    "Janus",
    "June",
    "Magnuson",
    "Nandii",
    "Nitfeder",
    "Norris",
    "Parael",
    "Penhew",
    "Sophia",
    "Skilly",
    "Tahir",
    "Thockmorton",
    "Thomas",
    "van Helsing",
    "van Pelt",
    "Voormis",
    "Xavier",
    "Xeno",
    "Zardoz",
    "Zagy"
};

static const char *const book_descrpt[] = {
    "ancient",
    "cryptic",
    "cryptical",
    "dusty",
    "hiearchical",
    "grizzled",
    "gold-guilt",
    "great",
    "lost",
    "magnificent",
    "musty",
    "mythical",
    "mystical",
    "rustic",
    "stained",
    "silvered",
    "transcendental",
    "weathered"
};

static const readable_message_type readable_message_types[] = {
    /*subtype 0  */ { 0, 0 },
                    /* book messages subtypes */
    /*subtype 1  */ { MSG_TYPE_BOOK, MSG_TYPE_BOOK_CLASP_1 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_CLASP_2 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_ELEGANT_1 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_ELEGANT_2 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_QUARTO_1 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_QUARTO_2 },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_SPELL_EVOKER },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_SPELL_PRAYER },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_SPELL_PYRO },
    /*subtype 10 */ { MSG_TYPE_BOOK, MSG_TYPE_BOOK_SPELL_SORCERER },
                    { MSG_TYPE_BOOK, MSG_TYPE_BOOK_SPELL_SUMMONER },
                    /* card messages subtypes*/
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_SIMPLE_1 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_SIMPLE_2 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_SIMPLE_3 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_ELEGANT_1 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_ELEGANT_2 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_ELEGANT_3 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_STRANGE_1 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_STRANGE_2 },
    /*subtype 20 */ { MSG_TYPE_CARD, MSG_TYPE_CARD_STRANGE_3 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_MONEY_1 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_MONEY_2 },
                    { MSG_TYPE_CARD, MSG_TYPE_CARD_MONEY_3 },

                    /* Paper messages subtypes */
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_NOTE_1 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_NOTE_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_NOTE_3 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_LETTER_OLD_1 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_LETTER_OLD_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_LETTER_NEW_1 },
    /*subtype 30 */ { MSG_TYPE_PAPER, MSG_TYPE_PAPER_LETTER_NEW_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_ENVELOPE_1 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_ENVELOPE_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_SCROLL_OLD_1 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_SCROLL_OLD_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_SCROLL_NEW_1 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_SCROLL_NEW_2 },
                    { MSG_TYPE_PAPER, MSG_TYPE_PAPER_SCROLL_MAGIC },

                    /* road signs messages subtypes */
                    { MSG_TYPE_SIGN, MSG_TYPE_SIGN_BASIC },
                    { MSG_TYPE_SIGN, MSG_TYPE_SIGN_DIR_LEFT },
    /*subtype 40 */ { MSG_TYPE_SIGN, MSG_TYPE_SIGN_DIR_RIGHT },
                    { MSG_TYPE_SIGN, MSG_TYPE_SIGN_DIR_BOTH },

                    /* stones and monument messages */
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STONE_1 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STONE_2 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STONE_3 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STATUE_1 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STATUE_2 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_STATUE_3 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_GRAVESTONE_1 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_GRAVESTONE_2 },
    /*subtype 50 */ { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_GRAVESTONE_3 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_WALL_1 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_WALL_2 },
                    { MSG_TYPE_MONUMENT, MSG_TYPE_MONUMENT_WALL_3 }
};

static const int last_readable_subtype = arraysize(readable_message_types);

static const int max_titles[6] = {
    (arraysize(light_book_name)+arraysize(heavy_book_name))*arraysize(book_author), /* MSGTYPE_LIB */
    arraysize(mon_book_name)*arraysize(mon_author), /* MSGTYPE_MONSTER */
    arraysize(art_book_name)*arraysize(art_author), /* MSGTYPE_ARTIFACT */
    arraysize(path_book_name)*arraysize(path_author), /* MSGTYPE_SPELLPATH */
    arraysize(formula_book_name)*arraysize(formula_author), /* MSGTYPE_ALCHEMY */
    arraysize(gods_book_name)*arraysize(gods_author), /* MSGTYPE_GODS */
};

/******************************************************************************
 *
 * Start of misc. readable functions used by others functions in this file
 *
 *****************************************************************************/

static titlelist *get_empty_booklist(void) {
    titlelist *bl = (titlelist *)malloc(sizeof(titlelist));

    if (bl == NULL)
        fatal(OUT_OF_MEMORY);
    bl->number = 0;
    bl->first_book = NULL;
    bl->next = NULL;
    return bl;
}

static title *get_empty_book(void) {
    title *t = (title *)malloc(sizeof(title));

    if (t == NULL)
        fatal(OUT_OF_MEMORY);
    t->name = NULL;
    t->archname = NULL;
    t->authour = NULL;
    t->level = 0;
    t->size = 0;
    t->msg_index = 0;
    t->next = NULL;
    return t;
}

static titlelist *get_titlelist(int i) {
    titlelist *tl;
    int number;

    if (i < 0 || i >= (int)arraysize(max_titles)) {
        LOG(llevInfo, "Warning: invalid book index %d, using 0 instead\n", i);
        return booklist;
    }

    for (tl = booklist, number = i; tl && number; tl = tl->next, number--) {
        if (!tl->next)
            tl->next = get_empty_booklist();
    }

    return tl;
}

/* HANDMADE STRING FUNCTIONS.., perhaps these belong in another file
 * (shstr.c ?), but the quantity BOOK_BUF will need to be defined. */

static int nstrtok(const char *buf1, const char *buf2) {
    char *tbuf, buf[MAX_BUF];
    int number = 0;

    if (!buf1 || !buf2)
        return 0;

    snprintf(buf, sizeof(buf), "%s", buf1);
    for (tbuf = strtok(buf, buf2); tbuf; tbuf = strtok(NULL, buf2)) {
        number++;
    }
    return number;
}

static char *strtoktolin(const char *buf1, const char *buf2, char *retbuf, size_t size) {
    int maxi, i = nstrtok(buf1, buf2);
    char *tbuf, buf[MAX_BUF];

    maxi = i;
    snprintf(buf, sizeof(buf), "%s", buf1);
    snprintf(retbuf, size, " ");
    for (tbuf = strtok(buf, buf2); tbuf && i > 0; tbuf = strtok(NULL, buf2)) {
        snprintf(retbuf+strlen(retbuf), size-strlen(retbuf), "%s", tbuf);
        i--;
        if (i == 1 && maxi > 1)
            snprintf(retbuf+strlen(retbuf), size-strlen(retbuf), " and ");
        else if (i > 0 && maxi > 1)
            snprintf(retbuf+strlen(retbuf), size-strlen(retbuf), ", ");
        else
            snprintf(retbuf+strlen(retbuf), size-strlen(retbuf), ".");
    }
    return retbuf;
}

int book_overflow(const char *buf1, const char *buf2, size_t booksize) {
    if (buf_overflow(buf1, buf2, BOOK_BUF-2)   /* 2 less so always room for trailing \n */
    || buf_overflow(buf1, buf2, booksize))
        return 1;
    return 0;
}

/*****************************************************************************
 *
 * Start of initialization related functions.
 *
 ****************************************************************************/

static void init_msgfile(void) {
    FILE *fp;
    char buf[MAX_BUF], msgbuf[HUGE_BUF], fname[MAX_BUF], *cp;
    int comp;
    static int did_init_msgfile = 0;

    if (did_init_msgfile)
        return;
    did_init_msgfile = 1;

    snprintf(fname, sizeof(fname), "%s/messages", settings.datadir);
    LOG(llevDebug, "Reading messages from %s...\n", fname);

    fp = open_and_uncompress(fname, 0, &comp);
    if (fp != NULL) {
        linked_char *tmp = NULL;
        int lineno;
        int error_lineno;

        error_lineno = 0;
        for (lineno = 1; fgets(buf, MAX_BUF, fp) != NULL; lineno++) {
            if (*buf == '#')
                continue;
            cp = strchr(buf, '\n');
            if (cp != NULL) {
                while (cp > buf && (cp[-1] == ' ' || cp[-1] == '\t'))
                    cp--;
                *cp = '\0';
            }
            if (tmp != NULL) {
                if (strcmp(buf, "ENDMSG") == 0) {
                    if (strlen(msgbuf) > BOOK_BUF) {
                        LOG(llevDebug, "Warning: this string exceeded max book buf size:\n");
                        LOG(llevDebug, "  %s\n", msgbuf);
                    }
                    tmp->name = add_string(msgbuf);
                    tmp->next = first_msg;
                    first_msg = tmp;
                    nrofmsg++;
                    tmp = NULL;
                } else if (!buf_overflow(msgbuf, buf, HUGE_BUF-1)) {
                    strcat(msgbuf, buf);
                    strcat(msgbuf, "\n");
                } else if (error_lineno != 0) {
                    LOG(llevInfo, "Warning: truncating book at %s, line %d\n", fname, error_lineno);
                    error_lineno = 0;
                }
            } else if (strcmp(buf, "MSG") == 0) {
                error_lineno = lineno;
                tmp = (linked_char *)malloc(sizeof(linked_char));
                strcpy(msgbuf, " ");  /* reset msgbuf for new message */
            } else {
                LOG(llevInfo, "Warning: syntax error at %s, line %d\n", fname, lineno);
            }
        }
        close_and_delete(fp, comp);
    }

#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "init_info_listfile() got %d messages.\n", nrofmsg);
#endif
    LOG(llevDebug, "done messages.\n");
}

static void init_book_archive(void) {
    FILE *fp;
    int comp, nroftitle = 0;
    char buf[MAX_BUF], fname[MAX_BUF], *cp;
    static int did_init_barch = 0;

    if (did_init_barch)
        return;
    did_init_barch = 1;

    if (!booklist)
        booklist = get_empty_booklist();

    snprintf(fname, sizeof(fname), "%s/bookarch", settings.localdir);
    LOG(llevDebug, " Reading bookarch from %s...\n", fname);

    fp = open_and_uncompress(fname, 0, &comp);
    if (fp != NULL) {
        int type;
        size_t i;
        titlelist *bl;
        int lineno;
        title *book;
        int skipping;

        skipping = 0;
        book = NULL;
        type = -1;
        for (lineno = 1; fgets(buf, MAX_BUF, fp) != NULL; lineno++) {
            int len;
            int value;

            if (*buf == '#')
                continue;
            cp = strchr(buf, '\n');
            if (cp != NULL) {
                while (cp > buf && (cp[-1] == ' ' || cp[-1] == '\t'))
                    cp--;
                *cp = '\0';
            }
            cp = buf;
            if (strncmp(buf, "title ", 6) == 0) {
                skipping = 0;
                cp = buf+6;
                while (*cp == ' ' || *cp == '\t')
                    cp++;
                if (*cp == '\0') {
                    LOG(llevInfo, "Warning: missing book title at %s, line %d\n", fname, lineno);
                    book = NULL;
                } else {
                    book = get_empty_book();   /* init new book entry */
                    book->name = add_string(cp);
                    type = -1;
                    nroftitle++;
                }
            } else if (book == NULL) {
                if (!skipping) {
                    skipping = 1;
                    LOG(llevInfo, "Warning: expecting 'title' at %s, line %d\n", fname, lineno);
                }
            } else if (strncmp(buf, "authour ", 8) == 0) {
                cp = buf+8;
                while (*cp == ' ' || *cp == '\t')
                    cp++;
                if (*cp == '\0') {
                    LOG(llevInfo, "Warning: missing book authour at %s, line %d\n", fname, lineno);
                } else {
                    book->authour = add_string(cp);
                }
            } else if (strncmp(buf, "arch ", 5) == 0) {
                cp = buf+5;
                while (*cp == ' ' || *cp == '\t')
                    cp++;
                if (*cp == '\0') {
                    LOG(llevInfo, "Warning: missing book arch at %s, line %d\n", fname, lineno);
                } else {
                    book->archname = add_string(cp);
                }
            } else if (sscanf(buf, "level %d%n", &value, &len) == 1 && len == (int)strlen(buf)) {
                book->level = value;
            } else if (sscanf(buf, "type %d%n", &value, &len) == 1 && len == (int)strlen(buf)) {
                type = value;
            } else if (sscanf(buf, "size %d%n", &value, &len) == 1 && len == (int)strlen(buf)) {
                book->size = value;
            } else if (sscanf(buf, "index %d%n", &value, &len) == 1 && len == (int)strlen(buf)) {
                book->msg_index = value;
            } else if (strcmp(buf, "end") == 0) { /* link it */
                add_book(book, type, fname, lineno);
                book = NULL;
                type = -1;
            } else {
                LOG(llevInfo, "Warning: syntax error at %s, line %d\n", fname, lineno);
            }
        }
        if (book != NULL) {
            LOG(llevInfo, "Warning: missing 'end' at %s, line %d\n", fname, lineno);
            add_book(book, type, fname, lineno);
        }
        LOG(llevDebug, " book archives(used/avail):\n");
        for (bl = booklist, i = 0; bl != NULL && i < arraysize(max_titles); bl = bl->next, i++) {
            LOG(llevDebug, "(%d/%d)\n", bl->number, max_titles[i]);
        }
        close_and_delete(fp, comp);
    }

#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "\n init_book_archive() got %d titles.\n", nroftitle);
#endif
    LOG(llevDebug, " done.\n");
}

static void add_book(title *book, int type, const char *fname, int lineno) {
    titlelist *bl;

    if (type == -1) {
        LOG(llevInfo, "Warning: book with no type at %s, line %d; using type 0\n", fname, lineno);
        type = 0;
    }

    bl = get_titlelist(type);
    book->next = bl->first_book;
    bl->first_book = book;
    bl->number++;
}

static void init_mon_info(void) {
    archetype *at;
    static int did_init_mon_info = 0;

    if (did_init_mon_info)
        return;
    did_init_mon_info = 1;

    for (at = first_archetype; at != NULL; at = at->next) {
        if (QUERY_FLAG(&at->clone, FLAG_MONSTER)
        && (!QUERY_FLAG(&at->clone, FLAG_CHANGING) || QUERY_FLAG(&at->clone, FLAG_UNAGGRESSIVE))) {
            objectlink *mon = (objectlink *)malloc(sizeof(objectlink));
            if (!mon) {
                LOG(llevError, "init_mon_info: malloc failed!\n");
                abort();
            }
            mon->ob = &at->clone;
            mon->id = nrofmon;
            mon->next = first_mon_info;
            first_mon_info = mon;
            nrofmon++;
        }
    }
    LOG(llevDebug, "init_mon_info() got %d monsters\n", nrofmon);
}

void init_readable(void) {
    static int did_this = 0;

    if (did_this)
        return;
    did_this = 1;

    LOG(llevDebug, "Initializing reading data...\n");
    init_msgfile();
    init_book_archive();
    init_mon_info();
    LOG(llevDebug, " done reading data\n");
}

/*****************************************************************************
 *
 * This is the start of the administrative functions when creating
 * new books (ie, updating title and the like)
 *
 *****************************************************************************/

static title *find_title(const object *book, int msgtype) {
    title *t;
    titlelist *tl;
    size_t length;
    int index;

    if (msgtype < 0)
        return (title *)NULL;

    tl = get_titlelist(msgtype);
    if (!tl)
        return (title *)NULL;

    length = strlen(book->msg);
    index = strtoint(book->msg);
    for (t = tl->first_book; t; t = t->next)
        if (t->size == length && t->msg_index == index) {
#ifdef ARCHIVE_DEBUG
            LOG(llevDebug, "Found title match (list %d): %s %s (%d)\n", msgtype, t->name, t->authour, t->msg_index);
#endif
            return t;
        }

    return (title *)NULL;
}

static void new_text_name(object *book, int msgtype) {
    const char *name;

    if (book->type != BOOK)
        return;

    switch (msgtype) {
    case MSGTYPE_MONSTER:
        name = mon_book_name[RANDOM()%arraysize(mon_book_name)];
        break;

    case MSGTYPE_ARTIFACT:
        name = art_book_name[RANDOM()%arraysize(art_book_name)];
        break;

    case MSGTYPE_SPELLPATH:
        name = path_book_name[RANDOM()%arraysize(path_book_name)];
        break;

    case MSGTYPE_ALCHEMY:
        name = formula_book_name[RANDOM()%arraysize(formula_book_name)];
        break;

    case MSGTYPE_GODS:
        name = gods_book_name[RANDOM()%arraysize(gods_book_name)];
        break;

    case MSGTYPE_MSGFILE:
    default:
        if (book->weight > 2000) {  /* based on weight */
            name = heavy_book_name[RANDOM()%arraysize(heavy_book_name)];
        } else {
            name = light_book_name[RANDOM()%arraysize(light_book_name)];
        }
        break;
    }
    free_string(book->name);
    book->name = add_string(name);
}

static void add_author(object *op, int msgtype) {
    char title[MAX_BUF];
    const char *name;

    if (msgtype < 0 || strlen(op->msg) < 5)
        return;

    switch (msgtype) {
    case MSGTYPE_MONSTER:
        name = mon_author[RANDOM()%arraysize(mon_author)];
        break;

    case MSGTYPE_ARTIFACT:
        name = art_author[RANDOM()%arraysize(art_author)];
        break;

    case MSGTYPE_SPELLPATH:
        name = path_author[RANDOM()%arraysize(path_author)];
        break;

    case MSGTYPE_ALCHEMY:
        name = formula_author[RANDOM()%arraysize(formula_author)];
        break;

    case MSGTYPE_GODS:
        name = gods_author[RANDOM()%arraysize(gods_author)];
        break;

    case MSGTYPE_MSGFILE:
    default:
        name = book_author[RANDOM()%arraysize(book_author)];
    }

    snprintf(title, sizeof(title), "of %s", name);
    op->title = add_string(title);
}

static int unique_book(const object *book, int msgtype) {
    title *test;

    if (!booklist)
        return 1;  /* No archival entries! Must be unique! */

    /* Go through the booklist.  If the author and name match, not unique so
     * return 0.
     */
    for (test = get_titlelist(msgtype)->first_book; test; test = test->next) {
        if (!strcmp(test->name, book->name) && !strcmp(book->title, test->authour))
            return 0;
    }
    return 1;
}

static void add_book_to_list(const object *book, int msgtype) {
    titlelist *tl = get_titlelist(msgtype);
    title *t;

    if (!tl) {
        LOG(llevError, "add_book_to_list can't get booklist!\n");
        return;
    }

    t = get_empty_book();
    t->name = add_string(book->name);
    t->authour = add_string(book->title);
    t->size = strlen(book->msg);
    t->msg_index = strtoint(book->msg);
    t->archname = add_string(book->arch->name);
    t->level = book->level;

    t->next = tl->first_book;
    tl->first_book = t;
    tl->number++;

    /* We have stuff we need to write now */
    need_to_write_bookarchive = 1;

#ifdef ARCHIVE_DEBUG
    LOG(llevDebug, "Archiving new title: %s %s (%d)\n", book->name, book->title, msgtype);
#endif
}

static void change_book(object *book, int msgtype) {
    titlelist *tl;
    title *t;
    int tries;

    if (book->type != BOOK) {
        LOG(llevError, "change_book_name() called w/ illegal obj type.\n");
        return;
    }

    tl = get_titlelist(msgtype);
    t = NULL;
    tries = 0;

    /* look to see if our msg already been archived. If so, alter
     * the book to match the archival text. If we fail to match,
     * then we archive the new title/name/msg combo if there is
     * room on the titlelist.
     */

    if (strlen(book->msg) > 5 && (t = find_title(book, msgtype))) {
        object *tmpbook;

        /* alter book properties */
        tmpbook = create_archetype(t->archname);
        if (tmpbook->msg)
            free_string(tmpbook->msg);
        tmpbook->msg = add_string(book->msg);
        copy_object(tmpbook, book);
        free_object(tmpbook);

        book->title = add_string(t->authour);
        free_string(book->name);
        book->name = add_string(t->name);
        book->level = t->level;
    } else { /* Don't have any default title, so lets make up a new one */
        int numb, maxnames = max_titles[msgtype];
        const char *old_title;
        const char *old_name;

        old_title = book->title ? add_string(book->title) : NULL;
        old_name = add_string(book->name);

        /* some pre-generated books have title already set (from
         * maps), also don't bother looking for unique title if
         * we already used up all the available names! */

        if (!tl) {
            LOG(llevError, "change_book_name(): can't find title list\n");
            numb = 0;
        } else
            numb = tl->number;

        if (numb == maxnames) {
#ifdef ARCHIVE_DEBUG
            LOG(llevDebug, "titles for list %d full (%d possible).\n", msgtype, maxnames);
#endif
            if (old_title != NULL)
                free_string(old_title);
            free_string(old_name);
            return;
        }
        /* shouldnt change map-maker books */
        if (!book->title)
            do {
                /* random book name */
                new_text_name(book, msgtype);
                add_author(book, msgtype);  /* random author */
                tries++;
            } while (!unique_book(book, msgtype) && tries < MAX_TITLE_CHECK);

        /* Now deal with 2 cases.
         * 1) If no space for a new title exists lets just restore
         * the old book properties. Remember, if the book had
         * matchd an older entry on the titlelist, we shouldnt
         * have called this routine in the first place!
         * 2) If we got a unique title, we need to add it to
         * the list.
         */

        if (tries == MAX_TITLE_CHECK) {
#ifdef ARCHIVE_DEBUG
            LOG(llevDebug, "Failed to obtain unique title for %s %s (names:%d/%d)\n", book->name, book->title, numb, maxnames);
#endif
            /* restore old book properties here */
            free_string(book->name);
            free_string(book->title);
            book->title = old_title != NULL ? add_string(old_title) : NULL;

            if (RANDOM()%4) {
                /* Lets give the book a description to individualize it some */
                char new_name[MAX_BUF];

                snprintf(new_name, MAX_BUF, "%s %s", book_descrpt[RANDOM()%arraysize(book_descrpt)], old_name);
                book->name = add_string(new_name);
            } else {
                book->name = add_string(old_name);
            }
        } else if (book->title && strlen(book->msg) > 5) { /* archive if long msg texts */
            add_book_to_list(book, msgtype);
        }

        if (old_title != NULL)
            free_string(old_title);
        free_string(old_name);
    }
}

/*****************************************************************************
 *
 * This is the start of the area that generates the actual contents
 * of the book.
 *
 *****************************************************************************/

/*****************************************************************************
 * Monster msg generation code.
 ****************************************************************************/

object *get_random_mon(int level) {
    objectlink *mon;
    int i, monnr;

    /* safety check.  Problem w/ init_mon_info list? */
    if (!nrofmon || !first_mon_info)
        return (object *)NULL;

    if (!level) {
        /* lets get a random monster from the mon_info linked list */
        monnr = RANDOM()%nrofmon;

        for (mon = first_mon_info, i = 0; mon; mon = mon->next, i++)
            if (i == monnr)
                break;

        if (!mon) {
            LOG(llevError, "get_random_mon: Didn't find a monster when we should have\n");
            return NULL;
        }
        return mon->ob;
    }

    /* Case where we are searching by level.  Redone 971225 to be clearer
     * and more random.  Before, it looks like it took a random monster from
     * the list, and then returned the first monster after that which was
     * appropriate level.  This wasn't very random because if you had a
     * bunch of low level monsters and then a high level one, if the random
     * determine took one of the low level ones, it would just forward to the
     * high level one and return that.  Thus, monsters that immediately followed
     * a bunch of low level monsters would be more heavily returned.  It also
     * means some of the dragons would be poorly represented, since they
     * are a group of high level monsters all around each other.
     */

    /* First count number of monsters meeting level criteria */
    for (mon = first_mon_info, i = 0; mon; mon = mon->next)
        if (mon->ob->level >= level)
            i++;

    if (i == 0) {
        LOG(llevError, "get_random_mon() couldn't return monster for level %d\n", level);
        return NULL;
    }

    monnr = RANDOM()%i;
    for (mon = first_mon_info; mon; mon = mon->next)
        if (mon->ob->level >= level && monnr-- == 0)
            return mon->ob;

    LOG(llevError, "get_random_mon(): didn't find a monster when we should have\n");
    return NULL;
}

static char *mon_desc(const object *mon, char *buf, size_t size) {
    snprintf(buf, size, " *** %s ***\n", mon->name);
    describe_item(mon, NULL, buf+strlen(buf), size-strlen(buf));
    return buf;
}

static object *get_next_mon(const object *tmp) {
    objectlink *mon;

    for (mon = first_mon_info; mon; mon = mon->next)
        if (mon->ob == tmp)
            break;

    /* didn't find a match */
    if (!mon)
        return NULL;
    if (mon->next)
        return mon->next->ob;
    else
        return first_mon_info->ob;
}

static char *mon_info_msg(int level, char *buf, size_t booksize) {
    char tmpbuf[HUGE_BUF], desc[MAX_BUF];
    object *tmp;

    /*preamble */
    snprintf(buf, booksize, "This beastiary contains:");

    /* lets print info on as many monsters as will fit in our
     * document.
     * 8-96 Had to change this a bit, otherwise there would
     * have been an impossibly large number of combinations
     * of text! (and flood out the available number of titles
     * in the archive in a snap!) -b.t.
     */
    for (tmp = get_random_mon(level*3); tmp; tmp = get_next_mon(tmp)) {
        /* monster description */
        snprintf(tmpbuf, sizeof(tmpbuf), "\n---\n%s", mon_desc(tmp, desc, sizeof(desc)));

        if (book_overflow(buf, tmpbuf, booksize))
            break;
        snprintf(buf+strlen(buf), booksize-strlen(buf), "%s", tmpbuf);
    }

#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "\n mon_info_msg() created strng: %d\n", strlen(retbuf));
    fprintf(logfile, " MADE THIS:\n%s\n", retbuf);
#endif

    return buf;
}

/*****************************************************************************
 * Artifact msg generation code.
 ****************************************************************************/

static char *artifact_msg(int level, char *retbuf, size_t booksize) {
    artifactlist *al;
    artifact *art;
    int chance, i, type, index;
    int book_entries = level > 5 ? RANDOM()%3+RANDOM()%3+2 : RANDOM()%level+1;
    char buf[BOOK_BUF], sbuf[MAX_BUF];
    object *tmp;

    /* values greater than 5 create msg buffers that are too big! */
    if (book_entries > 5)
        book_entries = 5;

    /* lets determine what kind of artifact type randomly.
     * Right now legal artifacts only come from those listed
     * in art_name_array. Also, we check to be sure an artifactlist
     * for that type exists!
     */
    i = 0;
    do {
        index = RANDOM()%arraysize(art_name_array);
        type = art_name_array[index].type;
        al = find_artifactlist(type);
        i++;
    } while (al == NULL && i < 10);

    if (i == 10) { /* Unable to find a message */
        snprintf(retbuf, booksize, "None");
        return retbuf;
    }

    /* There is no reason to start on the artifact list at the beginning. Lets
     * take our starting position randomly... */
    art = al->items;
    for (i = RANDOM()%level+RANDOM()%2+1; i > 0; i--) {
        if (art == NULL)
            art = al->items; /* hmm, out of stuff, loop back around */
        art = art->next;
    }

    /* Ok, lets print out the contents */
    snprintf(retbuf, booksize, "Herein %s detailed %s...\n", book_entries > 1 ? "are" : "is", book_entries > 1 ? "some artifacts" : "an artifact");

    /* artifact msg attributes loop. Lets keep adding entries to the 'book'
     * as long as we have space up to the allowed max # (book_entires)
     */
    while (book_entries > 0) {
        if (art == NULL)
            art = al->items;

        /* separator of items */
        snprintf(buf, sizeof(buf), "---\n");

        /* Name */
        if (art->allowed != NULL && strcmp(art->allowed->name, "All")) {
            linked_char *temp, *next = art->allowed;

            do {
                temp = next;
                next = next->next;
            } while (next != (linked_char *)NULL && RANDOM()%2);
            snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " A %s of %s", temp->name, art->item->name);
        } else {  /* default name is used */
            /* use the base 'generic' name for our artifact */
            snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " The %s of %s", art_name_array[index].name, art->item->name);
        }

        /* chance of finding */
        chance = 100*((float)art->chance/al->total_chance);
        if (chance >= 20)
            snprintf(sbuf, sizeof(sbuf), "an uncommon");
        else if (chance >= 10)
            snprintf(sbuf, sizeof(sbuf), "an unusual");
        else if (chance >= 5)
            snprintf(sbuf, sizeof(sbuf), "a rare");
        else
            snprintf(sbuf, sizeof(sbuf), "a very rare");
        snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " is %s\n", sbuf);

        /* value of artifact */
        snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " item with a value that is %d times normal.\n",
            art->item->value);

        /* include the message about the artifact, if exists, and book
        * level is kinda high */
        if (art->item->msg && RANDOM()%4+1 < level
        && !(strlen(art->item->msg)+strlen(buf) > BOOK_BUF))
            snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), "%s", art->item->msg);

        /* properties of the artifact */
        tmp = get_object();
        add_abilities(tmp, art->item);
        tmp->type = type;
        SET_FLAG(tmp, FLAG_IDENTIFIED);
        describe_item(tmp, NULL, sbuf, sizeof(sbuf));
        if (strlen(sbuf) > 1)
            snprintf(buf+strlen(buf), sizeof(buf)-strlen(buf), " Properties of this artifact include:\n %s\n", sbuf);
        free_object(tmp);
        /* add the buf if it will fit */
        if (book_overflow(retbuf, buf, booksize))
            break;
        snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), "%s", buf);

        art = art->next;
        book_entries--;
    }

#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "artifact_msg() created strng: %d\n", strlen(retbuf));
    fprintf(logfile, " MADE THIS:\n%s", retbuf);
#endif
    return retbuf;
}

/*****************************************************************************
 * Spellpath message generation
 *****************************************************************************/

static char *spellpath_msg(int level, char *retbuf, size_t booksize) {
    int path = RANDOM()%NRSPELLPATHS, prayers = RANDOM()%2;
    int did_first_sp = 0;
    uint32 pnum = spellpathdef[path];
    archetype *at;

    /* Preamble */
    snprintf(retbuf, booksize, "Herein are detailed the names of %s\n", prayers ? "prayers" : "incantations");

    snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), "belonging to the path of %s:\n", spellpathnames[path]);

    for (at = first_archetype; at != NULL; at = at->next) {
        /* Determine if this is an appropriate spell.  Must
         * be of matching path, must be of appropriate type (prayer
         * or not), and must be within the valid level range.
         */
        if (at->clone.type == SPELL
        && at->clone.path_attuned&pnum
        && ((at->clone.stats.grace && prayers) || (at->clone.stats.sp && !prayers))
        && at->clone.level < level*8) {
            if (book_overflow(retbuf, at->clone.name, booksize))
                break;

            if (did_first_sp)
                snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), ",\n");
            did_first_sp = 1;
            snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), "%s", at->clone.name);
        }
    }
    /* Geez, no spells were generated. */
    if (!did_first_sp) {
        if (RANDOM()%4)  /* usually, lets make a recursive call... */
            return spellpath_msg(level, retbuf, booksize);
        /* give up, cause knowing no spells exist for path is info too. */
        snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), "\n - no known spells exist -\n");
    } else {
        snprintf(retbuf+strlen(retbuf), booksize-strlen(retbuf), "\n");
    }
    return retbuf;
}

static void make_formula_book(object *book, int level) {
    char retbuf[BOOK_BUF], title[MAX_BUF];
    recipelist *fl;
    recipe *formula;
    int chance;
    const char *op_name;
    archetype *at;

    /* the higher the book level, the more complex (ie number of
     * ingredients) the formula can be.
     */
    fl = get_formulalist((RANDOM()%level)/3+1);
    if (!fl)
        fl = get_formulalist(1);  /* safety */

    if (fl->total_chance == 0) {
        book->msg = add_string(" <indecipherable text>\n");
        new_text_name(book, MSGTYPE_ALCHEMY);
        add_author(book, MSGTYPE_ALCHEMY);
        return;
    }

    /* get a random formula, weighted by its bookchance */
    chance = RANDOM()%fl->total_chance;
    for (formula = fl->items; formula != NULL; formula = formula->next) {
        chance -= formula->chance;
        if (chance <= 0)
            break;
    }

    if (!formula || formula->arch_names <= 0) {
        book->msg = add_string(" <indecipherable text>\n");
        new_text_name(book, MSGTYPE_ALCHEMY);
        add_author(book, MSGTYPE_ALCHEMY);
        return;
    }

    /* looks like a formula was found. Base the amount
     * of information on the booklevel and the spellevel
     * of the formula. */

    /* preamble */
    snprintf(retbuf, sizeof(retbuf), "Herein is described a project using %s:\n", formula->skill ? formula->skill : "an unknown skill");

    op_name = formula->arch_name[RANDOM()%formula->arch_names];
    at = find_archetype(op_name);
    if (at == (archetype *)NULL) {
        LOG(llevError, "formula_msg() can't find arch %s for formula.\n", op_name);
        book->msg = add_string(" <indecipherable text>\n");
        new_text_name(book, MSGTYPE_ALCHEMY);
        add_author(book, MSGTYPE_ALCHEMY);
        return;
    }
    op_name = at->clone.name;

    /* item name */
    if (strcmp(formula->title, "NONE")) {
        snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf), "The %s of %s", op_name, formula->title);
        /* This results in things like pile of philo. sulfur.
        * while philo. sulfur may look better, without this,
        * you get things like 'the wise' because its missing the
        * water of section.
        */
        snprintf(title, sizeof(title), "%s: %s of %s", formula_book_name[RANDOM()%arraysize(formula_book_name)], op_name, formula->title);
    } else {
        snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf), "The %s", op_name);
        snprintf(title, sizeof(title), "%s: %s", formula_book_name[RANDOM()%arraysize(formula_book_name)], op_name);
        if (at->clone.title) {
            snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf), " %s", at->clone.title);
            snprintf(title+strlen(title), sizeof(title)-strlen(title), " %s", at->clone.title);
        }
    }
    /* Lets name the book something meaningful ! */
    if (book->name)
        free_string(book->name);
    book->name = add_string(title);
    if (book->title) {
        free_string(book->title);
        book->title = NULL;
    }

    /* ingredients to make it */
    if (formula->ingred != NULL) {
        linked_char *next;
        archetype *at;
        char name[MAX_BUF];

        at = find_archetype(formula->cauldron);
        if (at)
            query_name(&at->clone, name, MAX_BUF);
        else
            snprintf(name, sizeof(name), "an unknown place");

        snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf),
            " may be made at %s using the following ingredients:\n", name);

        for (next = formula->ingred; next != NULL; next = next->next) {
            snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf), "%s\n", next->name);
        }
    } else
        LOG(llevError, "formula_msg() no ingredient list for object %s of %s\n", op_name, formula->title);
    if (retbuf[strlen(retbuf)-1] != '\n')
        snprintf(retbuf+strlen(retbuf), sizeof(retbuf)-strlen(retbuf), "\n");
    if (book->msg)
        free_string(book->msg);
    book->msg = add_string(retbuf);
}

static char *msgfile_msg(int level, size_t booksize) {
    static char retbuf[BOOK_BUF];
    int i, msgnum;
    linked_char *msg = NULL;

    /* get a random message for the 'book' from linked list */
    if (nrofmsg > 1) {
        msg = first_msg;
        msgnum = RANDOM()%nrofmsg;
        for (i = 0; msg && i < nrofmsg && i != msgnum; i++)
            msg = msg->next;
    }

    if (msg && !book_overflow(retbuf, msg->name, booksize))
        snprintf(retbuf, sizeof(retbuf), "%s", msg->name);
    else
        snprintf(retbuf, sizeof(retbuf), "\n <undecipherable text>");

#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "\n info_list_msg() created strng: %d\n", strlen(retbuf));
    LOG(llevDebug, " MADE THIS:\n%s\n", retbuf);
#endif

    return retbuf;
}

static char *god_info_msg(int level, char *retbuf, size_t booksize) {
    const char *name;
    char buf[BOOK_BUF];
    int i;
    size_t retlen, buflen;
    size_t introlen;
    const object *god = pntr_to_god_obj(get_rand_god());
    char en[BOOK_BUF];

    if (booksize > BOOK_BUF) {
        LOG(llevError, "common/readable.c:god_info_msg() - passed in booksize (%lu) is larger than book buffer (%d)\n", (unsigned long)booksize, BOOK_BUF);
        booksize = BOOK_BUF;
    }

    if (!god)
        return (char *)NULL; /* oops, problems... */
    name = god->name;

    /* preamble.. */
    snprintf(retbuf, BOOK_BUF, "This document contains knowledge concerning the diety %s", name);

    retlen = strlen(retbuf);

    /* Always have as default information the god's descriptive terms. */
    if (nstrtok(god->msg, ",") > 0) {
        safe_strcat(retbuf, ", known as", &retlen, BOOK_BUF);
        safe_strcat(retbuf, strtoktolin(god->msg, ",", buf, sizeof(buf)), &retlen, BOOK_BUF);
    } else
        safe_strcat(retbuf, "...", &retlen, BOOK_BUF);

    safe_strcat(retbuf, "\n ---\n", &retlen, BOOK_BUF);

    introlen = retlen; /* so we will know if no new info is added later */

    /* Information about the god is random, and based on the level of the
     * 'book'. This goes through this loop 'level' times, reducing level by
     * 1 each time.  If the info provided is filled up, we exit the loop.
     * otherwise, buf is appended to the existing book buffer.
     */

    while (level > 0) {
        buf[0]=' ';
        buf[1]='\0';
        if (level == 2 && RANDOM()%2) {
            /* enemy god */

            if (god->title)
                snprintf(buf, BOOK_BUF, "The gods %s and %s are enemies.\n ---\n", name, god->title);
        }
        if (level == 3 && RANDOM()%2) {
            /* enemy race, what the god's holy word effects */
            const char *enemy = god->slaying;

            if (enemy && !(god->path_denied&PATH_TURNING)
            && (i = nstrtok(enemy, ",")) > 0) {
                char tmpbuf[MAX_BUF];

                snprintf(buf, BOOK_BUF, "The holy words of %s have the power to slay creatures belonging to the ", name);
                if (i > 1)
                    snprintf(tmpbuf, MAX_BUF, "following races:%s\n ---\n", strtoktolin(enemy, ",", en, sizeof(en)));
                else
                    snprintf(tmpbuf, MAX_BUF, "race of%s\n ---\n", strtoktolin(enemy, ",", en, sizeof(en)));

                buflen = strlen(buf);
                safe_strcat(buf, tmpbuf, &buflen, BOOK_BUF);
            }
        }
        if (level == 4 && RANDOM()%2) {
            /* Priest of god gets these protect,vulnerable... */

            char cp[BOOK_BUF];
            describe_resistance(god, 1, cp, BOOK_BUF);

            if (*cp) {  /* This god does have protections */
                snprintf(buf, BOOK_BUF, "%s has a potent aura which is extended to faithful priests. The effects of this aura include:\n%s\n ---\n", name, cp);
            }
        }
        if (level == 5 && RANDOM()%2) {
            /* aligned race, summoning */
            const char *race = god->race; /* aligned race */

            if (race && !(god->path_denied&PATH_SUMMON)) {
                i = nstrtok(race, ",");
                if (i > 0) {
                    char tmpbuf[MAX_BUF];

                    snprintf(buf, BOOK_BUF, "Creatures sacred to %s include the\n", name);

                    if (i > 1)
                        snprintf(tmpbuf, MAX_BUF, "following races:%s\n ---\n", strtoktolin(race, ",", en, sizeof(en)));
                    else
                        snprintf(tmpbuf, MAX_BUF, "race of %s\n ---\n", strtoktolin(race, ",", en, sizeof(en)));

                    buflen = strlen(buf);
                    safe_strcat(buf, tmpbuf, &buflen, BOOK_BUF);
                }
            }
        }
        if (level == 6 && RANDOM()%2) {
            /* blessing,curse properties of the god */

            char cp[MAX_BUF];
            describe_resistance(god, 1, cp, MAX_BUF);

            if (*cp) {  /* This god does have protections */
                snprintf(buf, MAX_BUF, "\nThe priests of %s are known to be able to bestow a blessing which makes the recipient %s\n ---\n", name, cp);
            }
        }
        if (level == 8 && RANDOM()%2) {
            /* immunity, holy possession */
            int has_effect = 0, tmpvar;
            char tmpbuf[MAX_BUF];

            snprintf(buf, MAX_BUF, "\nThe priests of %s are known to make cast a mighty prayer of possession which gives the recipient", name);

            for (tmpvar = 0; tmpvar < NROFATTACKS; tmpvar++) {
                if (god->resist[tmpvar] == 100) {
                    has_effect = 1;
                    snprintf(tmpbuf, MAX_BUF, "Immunity to %s", attacktype_desc[tmpvar]);
                }
            }
            if (has_effect) {
                buflen = strlen(buf);
                safe_strcat(buf, tmpbuf, &buflen, BOOK_BUF);
                safe_strcat(buf, "\n ---\n", &buflen, BOOK_BUF);
            } else {
                buf[0]=' ';
                buf[1]='\0';
            }
        }
        if (level == 12 && RANDOM()%2) {
            /* spell paths */
            int has_effect = 0;

            snprintf(buf, MAX_BUF, "It is rarely known fact that the priests of %s are mystically transformed. Effects of this include:\n", name);
            buflen = strlen(buf);

            if (god->path_attuned) {
                has_effect = 1;
                DESCRIBE_PATH_SAFE(buf, god->path_attuned, "Attuned", &buflen, BOOK_BUF);
            }
            if (god->path_repelled) {
                has_effect = 1;
                DESCRIBE_PATH_SAFE(buf, god->path_repelled, "Repelled", &buflen, BOOK_BUF);
            }
            if (god->path_denied) {
                has_effect = 1;
                DESCRIBE_PATH_SAFE(buf, god->path_denied, "Denied", &buflen, BOOK_BUF);
            }
            if (has_effect) {
                safe_strcat(buf, "\n ---\n", &buflen, BOOK_BUF);
            } else {
                buf[0]=' ';
                buf[1]='\0';
            }
        }

        /* check to be sure new buffer size dont exceed either
        * the maximum buffer size, or the 'natural' size of the
        * book...
        */
        if (book_overflow(retbuf, buf, booksize))
            break;
        if (strlen(buf) > 1)
            safe_strcat(retbuf, buf, &retlen, BOOK_BUF);

        level--;
    }
    if (retlen == introlen) {
        /* we got no information beyond the preamble! */
        safe_strcat(retbuf, " Unfortunately the rest of the information is hopelessly garbled!\n ---\n", &retlen, BOOK_BUF);
    }
#ifdef BOOK_MSG_DEBUG
    LOG(llevDebug, "\n god_info_msg() created strng: %d\n", strlen(retbuf));
    fprintf(logfile, " MADE THIS:\n%s", retbuf);
#endif
    return retbuf;
}

void tailor_readable_ob(object *book, int msg_type) {
    char msgbuf[BOOK_BUF];
    int level = book->level ? RANDOM()%book->level+1 : 1;
    size_t book_buf_size;

    /* safety */
    if (book->type != BOOK)
        return;

    if (level <= 0)
        return;   /* if no level no point in doing any more... */

    /* Max text length this book can have. */
    book_buf_size = BOOKSIZE(book);
    book_buf_size -= strlen("\n"); /* Keep enough for final \n. */

    /* &&& The message switch &&& */
    /* Below all of the possible types of messages in the "book"s.
     */
    /*
     * IF you add a new type of book msg, you will have to do several things.
     * 1) make sure there is an entry in the msg switch below!
     * 2) make sure there is an entry in max_titles[] array.
     * 3) make sure there are entries for your case in new_text_title()
     *    and add_authour().
     * 4) you may want separate authour/book name arrays in read.h
     */

    msg_type = msg_type > 0 ? msg_type : RANDOM()%6;
    switch (msg_type) {
    case MSGTYPE_MONSTER:
        mon_info_msg(level, msgbuf, book_buf_size);
        break;

    case MSGTYPE_ARTIFACT:
        artifact_msg(level, msgbuf, book_buf_size);
        break;

    case MSGTYPE_SPELLPATH: /* grouping incantations/prayers by path */
        spellpath_msg(level, msgbuf, book_buf_size);
        break;

    case MSGTYPE_ALCHEMY: /* describe an alchemy formula */
        make_formula_book(book, level);
        /* make_formula_book already gives title */
        return;
        break;

    case MSGTYPE_GODS: /* bits of information about a god */
        god_info_msg(level, msgbuf, book_buf_size);
        break;

    case MSGTYPE_LIB: /* use info list in lib/ */
    default:
        strcpy(msgbuf, msgfile_msg(level, book_buf_size));
        break;
    }

    strcat(msgbuf, "\n");  /* safety -- we get ugly map saves/crashes w/o this */
    if (strlen(msgbuf) > strlen("\n")) {
        if (book->msg)
            free_string(book->msg);
        book->msg = add_string(msgbuf);
        /* lets give the "book" a new name, which may be a compound word */
        change_book(book, msg_type);
    }
}

/*****************************************************************************
 *
 * Cleanup routine for readable stuff.
 *
 *****************************************************************************/

void free_all_readable(void) {
    titlelist *tlist, *tnext;
    title *title1, *titlenext;
    linked_char *lmsg, *nextmsg;
    objectlink *monlink, *nextmon;

    LOG(llevDebug, "freeing all book information\n");

    for (tlist = booklist; tlist != NULL; tlist = tnext) {
        tnext = tlist->next;
        for (title1 = tlist->first_book; title1; title1 = titlenext) {
            titlenext = title1->next;
            if (title1->name)
                free_string(title1->name);
            if (title1->authour)
                free_string(title1->authour);
            if (title1->archname)
                free_string(title1->archname);
            free(title1);
        }
        free(tlist);
    }
    for (lmsg = first_msg; lmsg; lmsg = nextmsg) {
        nextmsg = lmsg->next;
        if (lmsg->name)
            free_string(lmsg->name);
        free(lmsg);
    }
    for (monlink = first_mon_info; monlink; monlink = nextmon) {
        nextmon = monlink->next;
        free(monlink);
    }
}

/*****************************************************************************
 *
 * Writeback routine for updating the bookarchive.
 *
 ****************************************************************************/

void write_book_archive(void) {
    FILE *fp;
    int index;
    char fname[MAX_BUF];
    title *book;
    titlelist *bl;

    /* If nothing changed, don't write anything */
    if (!need_to_write_bookarchive)
        return;

    snprintf(fname, sizeof(fname), "%s/bookarch", settings.localdir);
    LOG(llevDebug, "Updating book archive: %s...\n", fname);

    fp = fopen(fname, "w");
    if (fp == NULL) {
        LOG(llevDebug, "Can't open book archive file %s\n", fname);
        return;
    }

    for (bl = get_titlelist(0), index = 0; bl; bl = bl->next, index++) {
        for (book = bl->first_book; book; book = book->next)
            if (book && book->authour) {
                fprintf(fp, "title %s\n", book->name);
                fprintf(fp, "authour %s\n", book->authour);
                fprintf(fp, "arch %s\n", book->archname);
                fprintf(fp, "level %d\n", book->level);
                fprintf(fp, "type %d\n", index);
                /* C89 doesn't have %zu... */
                fprintf(fp, "size %lu\n", (unsigned long)book->size);
                fprintf(fp, "index %d\n", book->msg_index);
                fprintf(fp, "end\n");
            }
    }
    if (ferror(fp)) {
        LOG(llevError, "Error during book archive save.\n");
        fclose(fp);
        return;
    }
    if (fclose(fp) != 0) {
        LOG(llevError, "Error during book archive save.\n");
        return;
    }
    chmod(fname, SAVE_MODE);
    need_to_write_bookarchive = 0;
}

const readable_message_type *get_readable_message_type(object *readable) {
    uint8 subtype = readable->subtype;

    if (subtype > last_readable_subtype)
        return &readable_message_types[0];
    return &readable_message_types[subtype];
}