Blindfold removal fix

[slashemextended.git] / src / botl.c

/*      SCCS Id: @(#)botl.c     3.4     1996/07/15      */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed.  See license for details. */

#include "hack.h"
#include "wintty.h"

#ifdef OVL0
extern const char *hu_stat[];   /* defined in eat.c */

const char *hu_abbrev_stat[] = {        /* must be kept consistent with eat.c */
        "Sat",
        "",
        "Hun",
        "Wea",
        "Ftg",
        "Ftd",
        "Sta"
};

const char * const enc_stat[] = {
        "",
        "Burdened",
        "Stressed",
        "Strained",
        "Overtaxed",
        "Overloaded"
};

const char *enc_abbrev_stat[] = {
        "",
        "Brd",
        "Ssd",
        "Snd",
        "Otd",
        "Old"
};

int uhp();
int uhpmax();

STATIC_DCL void bot1(void);
STATIC_DCL void bot2(void);
#ifdef ALLEG_FX
STATIC_DCL void set_botl_warn(int);
#endif
#endif /* OVL0 */

/* MAXCO must hold longest uncompressed status line, and must be larger
 * than COLNO
 *
 * longest practical second status line at the moment is
 *      Astral Plane $:12345 HP:700(700) Pw:111(111) AC:-127 Xp:30/123456789
 *      Wt:5000/1000 T:123456 Satiated Lev Conf FoodPois Ill Blind Stun Hallu
 *      Slime Held Overloaded
 * -- or somewhat over 160 characters
 */
#if COLNO <= 170
#define MAXCO 320
#else
#define MAXCO (COLNO+150)
#endif

#if defined(STATUS_COLORS) && defined(TEXTCOLOR)

extern const struct percent_color_option *hp_colors;
extern const struct percent_color_option *pw_colors;
extern const struct text_color_option *text_colors;

struct color_option
text_color_of(text, color_options)
const char *text;
const struct text_color_option *color_options;
{
        if (color_options == NULL) {
                struct color_option result = {NO_COLOR, 0};
                return result;
        }
        if (strstri(color_options->text, text)
         || strstri(text, color_options->text))
                return color_options->color_option;
        return text_color_of(text, color_options->next);
}

struct color_option
percentage_color_of(value, max, color_options)
int value, max;
const struct percent_color_option *color_options;
{
        if (color_options == NULL) {
                struct color_option result = {NO_COLOR, 0};
                return result;
        }
        if (100 * value <= color_options->percentage * max)
                return color_options->color_option;
        return percentage_color_of(value, max, color_options->next);
}

void
start_color_option(color_option)
struct color_option color_option;
{
#if defined(UNIX) || !defined(CURSES_GRAPHICS)
        int i;
        if (color_option.color != NO_COLOR)
                term_start_color(color_option.color);
        for (i = 0; (1 << i) <= color_option.attr_bits; ++i)
                if (i != ATR_NONE && color_option.attr_bits & (1 << i))
                        term_start_attr(i);
#endif
}

void
end_color_option(color_option)
struct color_option color_option;
{
#if defined(UNIX) || !defined(CURSES_GRAPHICS)
        int i;
        if (color_option.color != NO_COLOR)
                term_end_color();
        for (i = 0; (1 << i) <= color_option.attr_bits; ++i)
                if (i != ATR_NONE && color_option.attr_bits & (1 << i))
                        term_end_attr(i);
#endif
}

/*static*/
void
apply_color_option(color_option, newbot2, statusline)
struct color_option color_option;
const char *newbot2;
int statusline; /* apply color on this statusline: 1 or 2 */
{
        if (!iflags.use_status_colors) return;
        curs(WIN_STATUS, 1, statusline-1);
        start_color_option(color_option);
        putstr(WIN_STATUS, 0, newbot2);
        end_color_option(color_option);
}

void
add_colored_text(text, newbot2)
const char *text;
char *newbot2;
{
        register char *nb;
        struct color_option color_option;

        if (*text == '\0') return;

        if (!iflags.use_status_colors) {
                sprintf(nb = eos(newbot2), " %s", text);
                return;
        }

        strcat(nb = eos(newbot2), " ");
        curs(WIN_STATUS, 1, 1);
        putstr(WIN_STATUS, 0, newbot2);

        strcat(nb = eos(nb), text);
        curs(WIN_STATUS, 1, 1);
        color_option = text_color_of(text, text_colors);
        start_color_option(color_option);
        putstr(WIN_STATUS, 0, newbot2);
        end_color_option(color_option);
}

void
add_flicker_text(text, newbot2)
const char *text;
char *newbot2;
{
        register char *nb;

        int flickercolor = rn2(CLR_MAX);
        while (flickercolor == NO_COLOR) flickercolor = rn2(CLR_MAX);


        if (*text == '\0') return;

        strcat(nb = eos(newbot2), " ");
        curs(WIN_STATUS, 1, 1);
        putstr(WIN_STATUS, 0, newbot2);

        strcat(nb = eos(nb), text);
        curs(WIN_STATUS, 1, 1);
        {
                struct color_option color_option = {flickercolor, 0};
                start_color_option(color_option);
                putstr(WIN_STATUS, 0, newbot2);
                end_color_option(color_option);
        }
}

void
add_flicker_textA(text, newbot1)
const char *text;
char *newbot1;
{
        register char *nb;
        int flickercolor = rn2(CLR_MAX);

        if (*text == '\0') return;

        strcat(nb = eos(newbot1), " ");
        curs(WIN_STATUS, 1, 0);
        putstr(WIN_STATUS, 0, newbot1);

        strcat(nb = eos(nb), text);
        curs(WIN_STATUS, 1, 0);
        {
                struct color_option color_option = {flickercolor, 0};
                start_color_option(color_option);
                putstr(WIN_STATUS, 0, newbot1);
                end_color_option(color_option);
        }
}

#endif

#ifndef OVLB
STATIC_DCL int mrank_sz;
#else /* OVLB */
STATIC_OVL NEARDATA int mrank_sz = 0; /* loaded by max_rank_sz (from u_init) */
#endif /* OVLB */

#ifdef OVL1

#ifdef ALLEG_FX
static int botl_warn = 0;

static void
set_botl_warn(level)
int level;
{
        botl_warn = level;
        flags.botl = 1;
}
#endif

/* convert experience level (1..30) to rank index (0..8) */
int
xlev_to_rank(xlev)
int xlev;
{
        return (xlev <= 2) ? 0 : (xlev <= 30) ? ((xlev + 2) / 4) : 8;
}

#if 0   /* not currently needed */
/* convert rank index (0..8) to experience level (1..30) */
int
rank_to_xlev(rank)
int rank;
{
        return (rank <= 0) ? 1 : (rank <= 8) ? ((rank * 4) - 2) : 30;
}
#endif

const char *
rank_of(lev, monnum, female)
int lev;
int monnum;
boolean female;
{
        register struct Role *role;
        register int i;


        /* Find the role */
        for (role = (struct Role *) roles; role->name.m; role++)
            if (monnum == role->malenum || monnum == role->femalenum)
                break;
        if (!role->name.m)
            role = &urole;

        /* Find the rank */
        for (i = xlev_to_rank((int)lev); i >= 0; i--) {
            if (female && role->rank[i].f) return (role->rank[i].f);
            if (role->rank[i].m) return (role->rank[i].m);
        }

        /* Try the role name, instead */
        if (female && role->name.f) return (role->name.f);
        else if (role->name.m) return (role->name.m);
        return ("Player");
}


const char *
rank()
{
        return(rank_of(u.ulevel, Role_switch, flags.female));
}

int
title_to_mon(str, rank_indx, title_length)
const char *str;
int *rank_indx, *title_length;
{
        register int i, j;


        /* Loop through each of the roles */
        for (i = 0; roles[i].name.m; i++)
            for (j = 0; j < 9; j++) {
                if (roles[i].rank[j].m && !strncmpi(str,
                                roles[i].rank[j].m, strlen(roles[i].rank[j].m))) {
                    if (rank_indx) *rank_indx = j;
                    if (title_length) *title_length = strlen(roles[i].rank[j].m);
                    return roles[i].malenum;
                }
                if (roles[i].rank[j].f && !strncmpi(str,
                                roles[i].rank[j].f, strlen(roles[i].rank[j].f))) {
                    if (rank_indx) *rank_indx = j;
                    if (title_length) *title_length = strlen(roles[i].rank[j].f);
                    return ((roles[i].femalenum != NON_PM) ?
                                roles[i].femalenum : roles[i].malenum);
                }
            }
        return NON_PM;
}

#endif /* OVL1 */
#ifdef OVLB

void
max_rank_sz()
{
        register int i, r, maxr = 0;


        for (i = 0; i < 9; i++) {
            if (urole.rank[i].m && (r = strlen(urole.rank[i].m)) > maxr) maxr = r;
            if (urole.rank[i].f && (r = strlen(urole.rank[i].f)) > maxr) maxr = r;
        }
        mrank_sz = maxr;
        return;
}

#endif /* OVLB */
#ifdef OVL0

long
botl_score()
{
    int deepest = deepest_lev_reached(FALSE);
#ifndef GOLDOBJ
    long ugold = u.ugold + hidden_gold();

    if ((ugold -= u.ugold0) < 0L) ugold = 0L;
    return ugold + u.urexp + (long)(50 * (deepest - 1))
#else
    long umoney = money_cnt(invent) + hidden_gold();

    if ((umoney -= u.umoney0) < 0L) umoney = 0L;
    return umoney + u.urexp + (long)(50 * (deepest - 1))
#endif
    ;
}

static char *
botl_player()
{
    static char player[MAXCO];
    char *nb;
    int i=0,k=0;
    char mbot[MAXCO - 15];

    strcpy(player, "");
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
    if (flags.hitpointbar) {
        flags.botlx = 0;
        curs(WIN_STATUS, 1, 0);
        putstr(WIN_STATUS, 0, player);
        strcat(player, "[");
        i = 1; /* don't overwrite the string in front */
        curs(WIN_STATUS, 1, 0);
        putstr(WIN_STATUS, 0, player);
    }
#endif
       strcat(player, playeraliasname);
       if('a' <= player[i] && player[i] <= 'z') player[i] += 'A'-'a';
       player[10] = '\0';
    sprintf(nb = eos(player)," the ");

        if (Upolyd && !missingnoprotect) {

        (void) strncpy(mbot, mons[u.umonnum].mname, SIZE(mbot) - 1);

        mbot[/*SIZE(mbot) - 1*/80] = 0;
                while(mbot[k] != 0) {
                    if ((k == 0 || (k > 0 && mbot[k-1] == ' ')) &&
                                        'a' <= mbot[k] && mbot[k] <= 'z')
                        mbot[k] += 'A' - 'a';
                    k++;
                }

        sprintf(eos(nb), "%s", mbot);
        } else
        sprintf(eos(nb), "%s", rank());
    return player;
}

static char *
botl_strength()
{
    static char strength[6];
        if (ACURR(A_STR) > 18) {
                if (ACURR(A_STR) > STR18(100))
            sprintf(strength, "%2d", ACURR(A_STR)-100);
                else if (ACURR(A_STR) < STR18(100))
            sprintf(strength, "18/%02d", ACURR(A_STR)-18);
                else
            sprintf(strength, "18/**");
        } else
        sprintf(strength, "%-1d", ACURR(A_STR));
    return strength;
}

#ifdef DUMP_LOG
void bot1str(char *newbot1)
#else
STATIC_OVL void
bot1()
#endif
{
#ifndef DUMP_LOG
        char newbot1[MAXCO];
#endif
        register char *nb;
        register int i,j;

        if (FlimmeringStrips) {

                strcpy(newbot1, " ");

                if (FunnyHallu) {
                        int funnyhallucnt = rnd(37);
                        if (!rn2(2)) funnyhallucnt += rnd(12);

                        while (funnyhallucnt > 0) {
                                funnyhallucnt--;
                                add_flicker_textA(generate_garbage_char(), newbot1);
                        }

                } else {

                        add_flicker_textA(generate_garbage_string(), newbot1);
                        add_flicker_textA(generate_garbage_string(), newbot1);
                        add_flicker_textA(generate_garbage_string(), newbot1);
                        if (!rn2(2)) add_flicker_textA(generate_garbage_string(), newbot1);
                }

                goto flicker1;
        }

        strcpy(newbot1, botl_player());

#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
        if (flags.hitpointbar) {
            int bar_length = strlen(newbot1)-1;
            char tmp[MAXCO];
            char *p = tmp;
            /* filledbar >= 0 and < MAXCO */
            int hp = (uhp() < 0) ? 0 : uhp();
            int filledbar = (uhpmax() > 0) ? (hp * bar_length / uhpmax()) : 0;
            if (filledbar >= MAXCO) { filledbar = MAXCO-1; }
            strcpy(tmp, newbot1);
            p++;

            /* draw hp bar */
#if defined(UNIX) || !defined(CURSES_GRAPHICS)
            if (iflags.use_inverse) term_start_attr(ATR_INVERSE);
            p[filledbar] = '\0';
            apply_color_option(percentage_color_of(uhp(), uhpmax(), hp_colors), tmp, 1);
            term_end_color();
            if (iflags.use_inverse) term_end_attr(ATR_INVERSE);
#endif

            strcat(newbot1, "]");
    }
#endif

        sprintf(nb = eos(newbot1),"  ");
        i = mrank_sz + 15;
        j = (nb + 2) - newbot1; /* aka strlen(newbot1) but less computation */
        /*if((i - j) > 0)
                sprintf(nb = eos(nb),"%*s", i-j, " ");   pad with spaces */
        
        sprintf(nb = eos(nb), "St%s ", botl_strength());
        sprintf(nb = eos(nb),
                "Dx%-1d Co%-1d In%-1d Wi%-1d Ch%-1d ",
                ACURR(A_DEX), ACURR(A_CON), ACURR(A_INT), ACURR(A_WIS), ACURR(A_CHA));
        if (!TheInfoIsFucked) sprintf(nb = eos(nb), "%s", urole.filecode); /* fully disclosing what character you're playing */
        if (!TheInfoIsFucked) sprintf(nb = eos(nb), "%s",  urace.filecode); /* abbreviated so the line doesn't roll over --Amy */
        if (!TheInfoIsFucked) sprintf(nb = eos(nb), flags.female ? "Fem" : "Mal"); /* allowing you to always know what you are */
        if (!TheInfoIsFucked) sprintf(nb = eos(nb), (u.ualign.type == A_CHAOTIC) ? "Cha" :
                        (u.ualign.type == A_NEUTRAL) ? "Neu" : "Law");

        /* abbreviate hybridizations since we don't have infinite space on the status line --Amy */
        if (flags.hybridization && !TheInfoIsFucked) {sprintf(nb = eos(nb), "+");
                if (flags.hybridcurser) sprintf(nb = eos(nb), "C");
                if (flags.hybridhaxor) sprintf(nb = eos(nb), "H");
                if (flags.hybridangbander) sprintf(nb = eos(nb), "A");
                if (flags.hybridhomicider) sprintf(nb = eos(nb), "O");
                if (flags.hybridsuxxor) sprintf(nb = eos(nb), "S");
                /* sorry but I just couldn't resist allowing the "CHAOS" string. :D */
                if (flags.hybridaquarian) sprintf(nb = eos(nb), "Q");
                if (flags.hybridwarper) sprintf(nb = eos(nb), "W");
                if (flags.hybridrandomizer) sprintf(nb = eos(nb), "R");
                if (flags.hybridnullrace) sprintf(nb = eos(nb), "N");
                if (flags.hybridmazewalker) sprintf(nb = eos(nb), "M");
                if (flags.hybridsoviet) sprintf(nb = eos(nb), "V");
                if (flags.hybridxrace) sprintf(nb = eos(nb), "X");
                if (flags.hybridspecialist) sprintf(nb = eos(nb), "P");
                if (flags.hybridminimalist) sprintf(nb = eos(nb), "L");
                if (flags.hybridamerican) sprintf(nb = eos(nb), "I");
                if (flags.hybridsokosolver) sprintf(nb = eos(nb), "K");
                if (flags.hybridheretic) sprintf(nb = eos(nb), "E");
                if (flags.hybridnastinator) sprintf(nb = eos(nb), "Y");
                if (flags.hybridrougelike) sprintf(nb = eos(nb), "U");
                if (flags.hybridsegfaulter) sprintf(nb = eos(nb), "F");
                if (flags.hybridironman) sprintf(nb = eos(nb), "J");
                if (flags.hybridamnesiac) sprintf(nb = eos(nb), "Z");
                if (flags.hybridproblematic) sprintf(nb = eos(nb), "B");
                if (flags.hybridwindinhabitant) sprintf(nb = eos(nb), "D");
                if (flags.hybridaggravator) sprintf(nb = eos(nb), "G");
                if (flags.hybridevilvariant) sprintf(nb = eos(nb), "T");
                if (flags.hybridlevelscaler) sprintf(nb = eos(nb), "s");
                if (flags.hybriderosator) sprintf(nb = eos(nb), "e");
                if (flags.hybridroommate) sprintf(nb = eos(nb), "r");
                if (flags.hybridextravator) sprintf(nb = eos(nb), "g");
                if (flags.hybridhallucinator) sprintf(nb = eos(nb), "h");
                if (flags.hybridbossrusher) sprintf(nb = eos(nb), "b");
                if (flags.hybriddorian) sprintf(nb = eos(nb), "d");
                if (flags.hybridtechless) sprintf(nb = eos(nb), "t");
                if (flags.hybridblait) sprintf(nb = eos(nb), "l");
                if (flags.hybridgrouper) sprintf(nb = eos(nb), "o");
                if (flags.hybridscriptor) sprintf(nb = eos(nb), "c");
                if (flags.hybridunbalancor) sprintf(nb = eos(nb), "u");
                if (flags.hybridbeacher) sprintf(nb = eos(nb), "a");
                if (flags.hybridstairseeker) sprintf(nb = eos(nb), "i");
                if (flags.hybridmatrayser) sprintf(nb = eos(nb), "m");
                if (flags.hybridfeminizer) sprintf(nb = eos(nb), "f");
                if (flags.hybridchallenger) sprintf(nb = eos(nb), "n");
                if (flags.hybridhardmoder) sprintf(nb = eos(nb), "x");
                if (flags.hybridstunfish) sprintf(nb = eos(nb), "q");
                if (flags.hybridkillfiller) sprintf(nb = eos(nb), "k");
                if (flags.hybridbadstatter) sprintf(nb = eos(nb), "y");
                if (flags.hybriddroughter) sprintf(nb = eos(nb), "w");
                if (flags.hybridvanillaoid) sprintf(nb = eos(nb), "j");
        }

        if (flags.showscore)
            sprintf(nb = eos(nb), " S%ld", botl_score());

flicker1:
        ;

#ifdef DUMP_LOG
}
STATIC_OVL void
bot1()
{
        char newbot1[MAXCO];
        int save_botlx = flags.botlx;

        bot1str(newbot1);
#endif
        curs(WIN_STATUS, 1, 0);
        putstr(WIN_STATUS, 0, newbot1);
        flags.botlx = save_botlx;
}

/* provide the name of the current level for display by various ports */
int
describe_level(buf, verbose)
char *buf;
int verbose;
{
        int ret = 1;

        /* TODO:        Add in dungeon name */
        /* done by Amy */
        /* It was INCREDIBLY stOOpid that Ludios still did not display its depth. */
        /*if (Is_knox(&u.uz))
                sprintf(buf, "%s ", dungeons[u.uz.dnum].dname);
        else*/ if (In_quest(&u.uz))
                sprintf(buf, flags.showlongstats ? "Quest %d " : "Ques %d ", dunlev(&u.uz)); /* used to be called home --Amy */
        else if (Is_astralevel(&u.uz)) /* why the heck is there a "l" missing in "astra_l_level"? */
                sprintf(buf, flags.showlongstats ? "Astral Plane " : "Astral ");
        else if (Is_earthlevel(&u.uz))
                sprintf(buf, flags.showlongstats ? "Earth Plane " : "Earth ");
        else if (Is_firelevel(&u.uz))
                sprintf(buf, flags.showlongstats ? "Fire Plane " : "Fire ");
        else if (Is_waterlevel(&u.uz))
                sprintf(buf, flags.showlongstats ? "Water Plane " : "Water ");
        else if (Is_airlevel(&u.uz))
                sprintf(buf, flags.showlongstats ? "Air Plane " : "Air ");
        else if (!strcmp(dungeons[u.uz.dnum].dname, "One-eyed Sam's Market"))
                sprintf(buf, flags.showlongstats ? "Blackmarket:%d " : "Blk:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Sokoban"))
                sprintf(buf, flags.showlongstats ? "Sokoban:%d " : "Sok:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Gehennom"))
                sprintf(buf, flags.showlongstats ? "Gehennom:%d " : "Geh:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Gnomish Mines"))
                sprintf(buf, flags.showlongstats ? "Mines:%d " : "Min:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Town"))
                sprintf(buf, flags.showlongstats ? "Town:%d " : "Tow:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Grund's Stronghold"))
                sprintf(buf, flags.showlongstats ? "Stronghold:%d " : "Str:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Ice Queen's Realm"))
                sprintf(buf, flags.showlongstats ? "Icequeen:%d " : "Ice:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Lawful Quest"))
                sprintf(buf, flags.showlongstats ? "Nightmare:%d " : "Nig:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Neutral Quest"))
                sprintf(buf, flags.showlongstats ? "Beholder:%d " : "Beh:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Chaotic Quest"))
                sprintf(buf, flags.showlongstats ? "Vecna:%d " : "Vec:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Temple of Moloch"))
                sprintf(buf, flags.showlongstats ? "Temple:%d " : "Tem:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Giant Caverns"))
                sprintf(buf, flags.showlongstats ? "Giants:%d " : "Gia:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Sunless Sea"))
                sprintf(buf, "Sea:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Spider Caves"))
                sprintf(buf, flags.showlongstats ? "Spider:%d " : "Spi:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Lost Tomb"))
                sprintf(buf, flags.showlongstats ? "Lost Tomb:%d " : "Los:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Wyrm Caves"))
                sprintf(buf, flags.showlongstats ? "Wyrm Caves:%d " : "Wyr:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Fort Ludios"))
                sprintf(buf, flags.showlongstats ? "Ludios:%d " : "Lud:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Vlad's Tower"))
                sprintf(buf, flags.showlongstats ? "Vlad's Tower:%d " : "Vla:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Frankenstein's Lab"))
                sprintf(buf, "Lab:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Sheol"))
                sprintf(buf, flags.showlongstats ? "Sheol:%d " : "She:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Yendorian Tower"))
                sprintf(buf, flags.showlongstats ? "Yendor:%d " : "Yen:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Forging Chamber"))
                sprintf(buf, flags.showlongstats ? "Forging:%d " : "For:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Ordered Chaos"))
                sprintf(buf, flags.showlongstats ? "Ordered:%d " : "Ord:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Dead Grounds"))
                sprintf(buf, flags.showlongstats ? "Deadground:%d " : "Ded:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "The Subquest"))
                sprintf(buf, flags.showlongstats ? "Subquest:%d " : "Sub:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Rival Quest"))
                sprintf(buf, flags.showlongstats ? "Rival Quest:%d " : "Riv:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Bell Caves"))
                sprintf(buf, flags.showlongstats ? "Bell Caves:%d " : "Bel:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Illusory Castle"))
                sprintf(buf, flags.showlongstats ? "Illusory:%d " : "Ill:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Deep Mines"))
                sprintf(buf, flags.showlongstats ? "Deep Mines:%d " : "Dee:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Space Base"))
                sprintf(buf, flags.showlongstats ? "Space Base:%d " : "Spa:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Sewer Plant"))
                sprintf(buf, flags.showlongstats ? "Sewer Plant:%d " : "Sew:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Gamma Caves"))
                sprintf(buf, flags.showlongstats ? "Gamma Caves:%d " : "Gam:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Mainframe"))
                sprintf(buf, flags.showlongstats ? "Mainframe:%d " : "Mai:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Pool Challenge"))
                sprintf(buf, flags.showlongstats ? "Pool:%d " : "Poo:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Digdug Challenge"))
                sprintf(buf, flags.showlongstats ? "Digdug:%d " : "Dig:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Pacman Challenge"))
                sprintf(buf, flags.showlongstats ? "Pacman:%d " : "Pac:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Joust Challenge"))
                sprintf(buf, flags.showlongstats ? "Joust:%d " : "Jou:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Grue Challenge"))
                sprintf(buf, flags.showlongstats ? "Grue:%d " : "Gre:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Void"))
                sprintf(buf, flags.showlongstats ? "The Void:%d " : "Voi:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Nether Realm"))
                sprintf(buf, flags.showlongstats ? "Nether Realm:%d " : "Net:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Angmar"))
                sprintf(buf, flags.showlongstats ? "Angmar:%d " : "Ang:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Green Cross"))
                sprintf(buf, flags.showlongstats ? "Green Cross:%d " : "Grc:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Emyn Luin"))
                sprintf(buf, flags.showlongstats ? "Emyn Luin:%d " : "Emy:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Minotaur Maze"))
                sprintf(buf, flags.showlongstats ? "Minotaur:%d " : "Mit:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Swimming Pool"))
                sprintf(buf, flags.showlongstats ? "Swimming Pool:%d " : "Swi:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Hell's Bathroom"))
                sprintf(buf, flags.showlongstats ? "Hell's Bathroom:%d " : "Bat:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Minus World"))
                sprintf(buf, flags.showlongstats ? "Minus World:%d " : "Miw:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GA"))
                sprintf(buf, flags.showlongstats ? "Resting Zone GA:%d " : "RGA:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GB"))
                sprintf(buf, flags.showlongstats ? "Resting Zone GB:%d " : "RGB:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GC"))
                sprintf(buf, flags.showlongstats ? "Resting Zone GC:%d " : "RGC:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GD"))
                sprintf(buf, flags.showlongstats ? "Resting Zone GD:%d " : "RGD:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone GE"))
                sprintf(buf, flags.showlongstats ? "Resting Zone GE:%d " : "RGE:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TA"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TA:%d " : "RTA:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TB"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TB:%d " : "RTB:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TC"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TC:%d " : "RTC:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TD"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TD:%d " : "RTD:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TE"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TE:%d " : "RTE:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TF"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TF:%d " : "RTF:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TG"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TG:%d " : "RTG:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TH"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TH:%d " : "RTH:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TI"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TI:%d " : "RTI:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone TJ"))
                sprintf(buf, flags.showlongstats ? "Resting Zone TJ:%d " : "RTJ:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone A"))
                sprintf(buf, flags.showlongstats ? "Resting Zone A:%d " : "RZA:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone S"))
                sprintf(buf, flags.showlongstats ? "Resting Zone S:%d " : "RZS:%d ", depth(&u.uz));
        else if (!strcmp(dungeons[u.uz.dnum].dname, "Resting Zone E"))
                sprintf(buf, flags.showlongstats ? "Resting Zone E:%d " : "RZE:%d ", depth(&u.uz));
        else {
                if (verbose)
                        sprintf(buf, "%s, level %d ",
                                dungeons[u.uz.dnum].dname, depth(&u.uz));
                else
                sprintf(buf, "Dlvl:%d ", depth(&u.uz));
                ret = 0;
        }
        return ret;
}

/* [ALI] Line 2 abbreviation levels:
 *      0 - No abbreviation
 *      1 - Omit gold
 *      2 - Abbreviated status tags
 *      3 - Disable show options
 *      4 - Omit dungeon level
 *
 * We omit gold first since the '$' command is always available.
 *
 * While the abbreviated status tags are very difficult to interpret, we use
 * these before disabling the show options on the basis that the user always
 * has the choice of turning the show options off if that would be preferable.
 *
 * Last to go is the dungeon level on the basis that there is no way of
 * finding this information other than via the status line.
 */

static int bot2_abbrev = 0;     /* Line 2 abbreviation level (max 4) */

/* armor that sufficiently covers the body might be able to block magic */
int
magic_negationX(mon)
struct monst *mon;
{
        if (program_state.bonesdo) return 0; /* should prevent stupid crashes */

        return magic_negation(mon);
}


#ifdef DUMP_LOG
void
#else
STATIC_OVL void
#endif
bot2str(char *newbot2)
{
        register char *nb;
        int hp, hpmax;
        int cap = near_capacity();
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
        struct color_option color_option;
        int save_botlx = flags.botlx;
#endif
#ifdef ALLEG_FX
        int w;
#endif

        hp = Upolyd ? u.mh : u.uhp;
        hpmax = Upolyd ? u.mhmax : u.uhpmax;

        if (FlimmeringStrips) {
                nb = newbot2;
                strcpy(newbot2, " ");

                if (FunnyHallu) {
                        int funnyhallucnt = rnd(12);
                        if (rn2(3)) funnyhallucnt += rnd(12);

                        while (funnyhallucnt > 0) {
                                funnyhallucnt--;
                                add_flicker_text(generate_garbage_char(), newbot2);
                        }

                        sprintf(nb = eos(nb), "%d", hp);
                        sprintf(nb = eos(nb), "(");
                        sprintf(nb = eos(nb), "%d", hpmax);
                        sprintf(nb = eos(nb), ")");

                        funnyhallucnt = rnd(12);
                        if (rn2(3)) funnyhallucnt += rnd(12);

                        while (funnyhallucnt > 0) {
                                funnyhallucnt--;
                                add_flicker_text(generate_garbage_char(), newbot2);
                        }

                        sprintf(nb = eos(nb), "%d", u.uen);
                        sprintf(nb = eos(nb), "(");
                        sprintf(nb = eos(nb), "%d", u.uenmax);
                        sprintf(nb = eos(nb), ")");

                        funnyhallucnt = rnd(12);
                        if (rn2(3)) funnyhallucnt += rnd(12);
                        if (!rn2(2)) funnyhallucnt += rnd(12);
                        if (!rn2(3)) funnyhallucnt += rnd(12);

                        while (funnyhallucnt > 0) {
                                funnyhallucnt--;
                                add_flicker_text(generate_garbage_char(), newbot2);
                        }


                } else {

                        add_flicker_text(generate_garbage_string(), newbot2);
                        if (rn2(3)) add_flicker_text(generate_garbage_string(), newbot2);
                        sprintf(nb = eos(nb), "%d(%d)", hp, hpmax);
                    add_flicker_text(generate_garbage_string(), newbot2);
                        if (rn2(3)) add_flicker_text(generate_garbage_string(), newbot2);
                        sprintf(nb = eos(nb), "%d(%d)", u.uen, u.uenmax);
                    add_flicker_text(generate_garbage_string(), newbot2);
                        if (rn2(3)) add_flicker_text(generate_garbage_string(), newbot2);
                    if (!rn2(2)) add_flicker_text(generate_garbage_string(), newbot2);
                        if (!rn2(3)) add_flicker_text(generate_garbage_string(), newbot2);
                }

                goto flicker2;
        }

        /*if(hp < 0) hp = 0;*/ /* show by how much you have been overkilled --Amy */
        if (bot2_abbrev < 4)
                (void) describe_level(newbot2, FALSE);
        else
                newbot2[0] = '\0';
        if (bot2_abbrev < 1)
                sprintf(nb = eos(newbot2), "%c%ld ",
#ifdef GMMODE
                  flags.supergmmode ? monsyms[S_SNAKE] : flags.gmmode ? monsyms[S_GNOME] : 
#endif
                  oc_syms[COIN_CLASS],
#ifndef GOLDOBJ
                u.ugold
#else
                money_cnt(invent)
#endif
                  );
        else
                nb = newbot2;

#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
        strcat(nb = eos(newbot2), "HP");
        curs(WIN_STATUS, 1, 1);
        putstr(WIN_STATUS, 0, newbot2);
        flags.botlx = 0;

        sprintf(nb = eos(nb), "%d(%d)", hp, hpmax);
        apply_color_option(percentage_color_of(hp, hpmax, hp_colors), newbot2, 2);
#else
        sprintf(nb = eos(nb), "HP%d(%d)", hp, hpmax);
#endif
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
        strcat(nb = eos(nb), " Pw");
        curs(WIN_STATUS, 1, 1);
        putstr(WIN_STATUS, 0, newbot2);

        sprintf(nb = eos(nb), "%d(%d)", u.uen, u.uenmax);
        apply_color_option(percentage_color_of(u.uen, u.uenmax, pw_colors), newbot2, 2);
#else
        sprintf(nb = eos(nb), " Pw%d(%d)", u.uen, u.uenmax);
#endif
        sprintf(nb = eos(nb), " AC%d", u.uac);

        if (flags.showmc)
                sprintf(nb = eos(nb), " MC%d", magic_negationX(&youmonst));

        if (flags.showmovement)
                sprintf(nb = eos(nb), " Mov%d", youmonst.data->mmove);

        if (flags.showsanity)
                sprintf(nb = eos(nb), " Sn%d", u.usanity);

        if (Upolyd)
                sprintf(nb = eos(nb), " HD%d", ((u.ulycn == u.umonnum) ? 
                                                u.ulevel : mons[u.umonnum].mlevel));
        /*else*/ if(flags.showexp && bot2_abbrev < 3) /* show this when polymorphed, too --Amy */
                sprintf(nb = eos(nb), " Xp%u/%-1ld", u.ulevel,u.uexp);
        else
                sprintf(nb = eos(nb), " Exp%u", u.ulevel);

        if (flags.showsymbiotehp && uinsymbiosis) {
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                strcat(nb = eos(nb), " SH");
                curs(WIN_STATUS, 1, 1);
                putstr(WIN_STATUS, 0, newbot2);

                sprintf(nb = eos(nb), "%d(%d)", u.usymbiote.mhp, u.usymbiote.mhpmax);
                apply_color_option(percentage_color_of(u.usymbiote.mhp, u.usymbiote.mhpmax, hp_colors), newbot2, 2);
#else
                sprintf(nb = eos(nb), " SH%d(%d)", u.usymbiote.mhp, u.usymbiote.mhpmax);
#endif
                if (u.usymbiote.cursed) {
                        sprintf(nb = eos(nb), "%s", u.usymbiote.stckcurse ? "S" : "C");
                        sprintf(nb = eos(nb), "%s", (u.usymbiote.evilcurse || u.usymbiote.bbcurse || u.usymbiote.morgcurse) ? "XXX" : u.usymbiote.prmcurse ? "XX" : u.usymbiote.hvycurse ? "X" : "");
                }
                if (symbiote_is_shut_down()) sprintf(nb = eos(nb), "sd");
        }

#ifdef SHOW_WEIGHT
        if (flags.showweight && !WeightDisplayIsArbitrary && bot2_abbrev < 3)
                sprintf(nb = eos(nb), " Wt%ld/%ld", (long)(inv_weight()+weight_cap()),
                                (long)weight_cap());
#endif

        if(flags.time && bot2_abbrev < 3)
                sprintf(nb = eos(nb), " T%ld", moves);

#ifdef REALTIME_ON_BOTL
  if(iflags.showrealtime) {
        /* somehow, without the gameover check, the displayed amount would be doubled upon getting a game over --Amy
         * this used to have no real effect but now we want to display the realtime amount in the dumplog */

        if (program_state.gameover) {

                time_t currenttime = (long)realtime_data.realtime;

                sprintf(nb = eos(nb), " %ld:%2.2ld", currenttime / 3600, (currenttime % 3600) / 60);

        } else {

                time_t currenttime = get_realtime();
                sprintf(nb = eos(nb), " %ld:%2.2ld", currenttime / 3600, (currenttime % 3600) / 60);

        }

  }
#endif

#ifdef ALLEG_FX
        if(iflags.usealleg && botl_warn && !Hallucination)
        {
            sprintf(nb = eos(nb), " ");
            for(w = 0; w < botl_warn; w++)
                sprintf(nb = eos(nb), "!");
        }
#endif
                
/*        if (bot2_abbrev >= 2) {
                if (hu_abbrev_stat[u.uhs][0]!='\0') {
                        sprintf(nb = eos(nb), " ");
                        strcat(newbot2, hu_abbrev_stat[u.uhs]);
                }
        }
        else if(strcmp(hu_stat[u.uhs], "        ")) {
                sprintf(nb = eos(nb), " ");
                strcat(newbot2, hu_stat[u.uhs]);
        }
*/

        if (!YouAreThirsty && u.urealedibility && u.uhunger >= 4500) 
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Oversatiated" : "Ovs", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Oversatiated" : " Ovs");
#endif

        else if(!YouAreThirsty && strcmp(hu_stat[u.uhs], "        "))
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? hu_stat[u.uhs] : hu_abbrev_stat[u.uhs], newbot2);
#else
                sprintf(nb = eos(nb), " %s", flags.showlongstats ? hu_stat[u.uhs] : hu_abbrev_stat[u.uhs]);
#endif

/* WAC further Up
        if (flags.showscore)
                sprintf(nb,"%c%d Score%ld", oc_syms[COIN_CLASS],
                   u.ugold, botl_score());
*/

        if (isok(u.ux, u.uy) && invocation_pos(u.ux, u.uy))
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Vibration" : "Vib", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Vibration" : " Vib");
#endif

        if(Slimed)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Slime" : "Sli", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Slime" : " Sli");
#endif
        if(Stoned)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Stone" : "Sto", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Stone" : " Sto");
#endif
        if(Sick) {
                if (u.usick_type & SICK_VOMITABLE)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                        add_colored_text(flags.showlongstats ? "FoodPois" : "FPo", newbot2);
#else
                        strcat(nb = eos(nb), flags.showlongstats ? " FoodPois" : " FPo");
#endif
                if (u.usick_type & SICK_NONVOMITABLE)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                        add_colored_text("Ill", newbot2);
#else
                        strcat(nb = eos(nb), " Ill");
#endif
        }

        if (multi < 0)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Paralyzed" : "Par", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Paralyzed" : " Par");
#endif

        /* KMH -- changed to Lev */
        if (Levitation)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text("Lev", newbot2);
#else
                strcat(nb = eos(nb), " Lev");
#endif
        if (IsGlib)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Glib" : "Glb", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Glib" : " Glb");
#endif
        if (Wounded_legs)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Legs" : "Leg", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Legs" : " Leg");
#endif
        if (Strangled)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Choke" : "Chk", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Choke" : " Chk");
#endif
        if (PlayerBleeds)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Bleed" : "Bld", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Bleed" : " Bld");
#endif
        if (Vomiting)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Vomit" : "Vmt", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Vomit" : " Vmt");
#endif
        if(Confusion && !HeavyConfusion)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Conf" : "Cnf", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Conf" : " Cnf");
#endif
        if(Confusion && HeavyConfusion)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XConf" : "XCnf", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XConf" : " XCnf");
#endif

        if(Blind && !HeavyBlind)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Blind" : "Bli", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Blind" : " Bli");
#endif
        if(Blind && HeavyBlind)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XBlind" : "XBli", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XBlind" : " XBli");
#endif
        if(sengr_at("Elbereth", u.ux, u.uy))
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Elbereth" : "Elb", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Elbereth" : " Elb");
#endif
        /* Yes I know, this should have a "is the player blind?" check. But I'm lenient. --Amy */

        if(Feared && !HeavyFeared)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text((Race_if(PM_TUMBLRER) || Role_if(PM_SOCIAL_JUSTICE_WARRIOR)) ? (flags.showlongstats ? "Triggered" : "Trg") : (flags.showlongstats ? "Fear" : "Fea"), newbot2);
#else
                strcat(nb = eos(nb), (Race_if(PM_TUMBLRER) || Role_if(PM_SOCIAL_JUSTICE_WARRIOR)) ? (flags.showlongstats ? " Triggered" : " Trg") : (flags.showlongstats ? " Fear" : " Fea") );
#endif
        if(Feared && HeavyFeared)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text((Race_if(PM_TUMBLRER) || Role_if(PM_SOCIAL_JUSTICE_WARRIOR)) ? (flags.showlongstats ? "XTriggered" : "XTrg") : (flags.showlongstats ? "XFear" : "XFea"), newbot2);
#else
                strcat(nb = eos(nb), (Race_if(PM_TUMBLRER) || Role_if(PM_SOCIAL_JUSTICE_WARRIOR)) ? (flags.showlongstats ? " XTriggered" : " XTrg") : (flags.showlongstats ? " XFear" : " XFea"));
#endif
        if(Numbed && !HeavyNumbed)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Numb" : "Nmb", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Numb" : " Nmb");
#endif
        if(Numbed && HeavyNumbed)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XNumb" : "XNmb", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XNumb" : " XNmb");
#endif
        if(Frozen && !HeavyFrozen)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Freeze" : "Frz", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Freeze" : " Frz");
#endif
        if(Frozen && HeavyFrozen)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XFreeze" : "XFrz", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XFreeze" : " XFrz");
#endif
        if(Burned && !HeavyBurned)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Burn" : "Brn", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Burn" : " Brn");
#endif
        if(Burned && HeavyBurned)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XBurn" : "XBrn", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XBurn" : " XBrn");
#endif
        if(Dimmed && !HeavyDimmed)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text("Dim", newbot2);
#else
                strcat(nb = eos(nb), " Dim");
#endif
        if(Dimmed && HeavyDimmed)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text("XDim", newbot2);
#else
                strcat(nb = eos(nb), " XDim");
#endif
        if(Stunned && !HeavyStunned)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Stun" : "Stn", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Stun" : " Stn");
#endif
        if(Stunned && HeavyStunned)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XStun" : "XStn", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XStun" : " XStn");
#endif
        if(Hallucination && !HeavyHallu)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Hallu" : "Hal", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Hallu" : " Hal");
#endif
        if(Hallucination && HeavyHallu)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "XHallu" : "XHal", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " XHallu" : " XHal");
#endif
        if(u.ustuck && !u.uswallow && !sticks(youmonst.data))
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? "Held" : "Hld", newbot2);
#else
                strcat(nb = eos(nb), flags.showlongstats ? " Held" : " Hld");
#endif
        if(cap > UNENCUMBERED)
#if defined(STATUS_COLORS) && defined(TEXTCOLOR)
                add_colored_text(flags.showlongstats ? enc_stat[cap] : enc_abbrev_stat[cap], newbot2);
#else
                sprintf(nb = eos(nb), " %s", enc_stat[cap]);
#endif

flicker2:
        ;

}

STATIC_OVL void
bot2()

{
        char  newbot2[MAXCO];

        bot2str(newbot2);
        curs(WIN_STATUS, 1, 1);

        putstr(WIN_STATUS, 0, newbot2);
        return;
}

/* WAC -- Shorten bot1 to fit in len spaces.
 * Not currently used
 * Longest string past Str: is
 * ". Str:18/99 Dx:11 Co:13 In:12 Wi:14 Ch:14 Neutral" or 49 Chars long.
 */
#if 0
const char*
shorten_bot1(str, len)
const char *str;
int len;
{
    static char cbuf[BUFSZ];

    register const char *bp0 = str;
    register char *bp1 = cbuf;
    int k = 0;

    do {
            *bp1++ = *bp0;
            k++;
    } while(*bp0++ && k < (len - 49));
    
    cbuf[k] = '.';
    bp1++;
    
    bp0 = index(str, ':') - 3;
    do {
            *bp1++ = *bp0;
    } while(*bp0++);
    return cbuf;
}
#endif /* 0 */

/* ALI -- Shorten bot2 to fit in len spaces.
 * Currently only used by tty port
 * After the forth attempt the longest practical bot2 becomes:
 *      HP:700(700) Pw:111(111) AC:-127 Exp:30
 *      Sat Lev Cnf FPs Ill Bnd Stn Hal Slm Old
 * -- or just under 80 characters
 */
#ifdef TTY_GRAPHICS
const char*
shorten_bot2(str, len)
const char *str;
unsigned int len;
{
    static char cbuf[MAXCO];
    /*for(bot2_abbrev = 1; bot2_abbrev <= 4; bot2_abbrev++) {
        bot2str(cbuf);
        if (strlen(cbuf) <= len)
            break;
    }*/
    bot2_abbrev = 5;
    /*if (bot2_abbrev > 4)
        cbuf[len] = '\0';*/     /* If all else fails, truncate the line */
    bot2_abbrev = 0;
    return cbuf;
}
#endif /* TTY_GRAPHICS */

static void (*raw_handler)();

static void bot_raw(reconfig)
boolean reconfig;
{
    const char *botl_raw_values[24], **rv = botl_raw_values;
    char dex[3], con[3], itl[3], wis[3], cha[3], score[21];
    int uhp;
    char dlevel[BUFSZ];
    char hp[21], hpmax[21], pw[21], pwmax[21], gold[21], ac[21], elevel[21];
    char expr[21], iweight[21], capacity[21], flgs[21], tim[21];
    *rv++ = reconfig ? "player" : botl_player();
    *rv++ = reconfig ? "strength" : botl_strength();
    *rv++ = reconfig ? "dexterity" : (sprintf(dex, "%d", ACURR(A_DEX)), dex);
    *rv++ = reconfig ? "constitution" : (sprintf(con, "%d", ACURR(A_CON)), con);
    *rv++ = reconfig ? "intelligence" : (sprintf(itl, "%d", ACURR(A_INT)), itl);
    *rv++ = reconfig ? "wisdom" : (sprintf(wis, "%d", ACURR(A_WIS)), wis);
    *rv++ = reconfig ? "charisma" : (sprintf(cha, "%d", ACURR(A_CHA)), cha);
    *rv++ = reconfig ? "alignment" : u.ualign.type == A_CHAOTIC ? "Chaotic" :
            u.ualign.type == A_NEUTRAL ? "Neutral" : "Lawful";
    if (flags.showscore)
        *rv++ = reconfig ? "score" :
                (sprintf(score, "%ld", botl_score()), score);
    uhp = Upolyd ? u.mh : u.uhp;
    if (uhp < 0) uhp = 0;
    (void) describe_level(dlevel, TRUE);
    eos(dlevel)[-1] = 0;
    *rv++ = reconfig ? "dlevel" : dlevel;
    *rv++ = reconfig ? "gold" : (sprintf(gold, "%ld",
#ifndef GOLDOBJ
    u.ugold
#else
        money_cnt(invent)
#endif
    ), gold);
    *rv++ = reconfig ? "hp" : (sprintf(hp, "%d", uhp), hp);
    *rv++ = reconfig ? "hpmax" :
            (sprintf(hpmax, "%d", Upolyd ? u.mhmax : u.uhpmax), hpmax);
    *rv++ = reconfig ? "pw" : (sprintf(pw, "%d", u.uen), pw);
    *rv++ = reconfig ? "pwmax" : (sprintf(pwmax, "%d", u.uenmax), pwmax);
    *rv++ = reconfig ? "ac" : (sprintf(ac, "%d", u.uac), ac);
    sprintf(elevel, "%u",
            Upolyd && u.ulycn != u.umonnum ? mons[u.umonnum].mlevel : u.ulevel);
    *rv++ = reconfig ? (Upolyd ? "hitdice" : "elevel") : elevel;
    if (flags.showexp)
        *rv++ = reconfig ? "experience" : (sprintf(expr, "%ld", u.uexp), expr);
#ifdef SHOW_WEIGHT
    if (flags.showweight && !WeightDisplayIsArbitrary) {
        *rv++ = reconfig ? "weight" : (sprintf(iweight,
                "%ld", (long)(inv_weight() + weight_cap())), iweight);
        *rv++ = reconfig ? "capacity" : (sprintf(capacity,
                "%ld", (long)weight_cap()), capacity);
    }
#endif
    if (flags.time)
        *rv++ = reconfig ? "time" : (sprintf(tim, "%ld", moves), tim);
    if (!YouAreThirsty) *rv++ = reconfig ? "hunger" : strcmp(hu_stat[u.uhs], "        ") ?
            hu_stat[u.uhs] : "";
    *rv++ = reconfig ? "encumberance" : enc_stat[near_capacity()];
    *rv++ = reconfig ? "flags" : (sprintf(flgs, "%d",
        (Levitation ? RAW_STAT_LEVITATION : 0) |
        (Confusion ? RAW_STAT_CONFUSION : 0) |
        (Sick && (u.usick_type & SICK_VOMITABLE) ? RAW_STAT_FOODPOIS : 0) |
        (Sick && (u.usick_type & SICK_NONVOMITABLE) ? RAW_STAT_ILL : 0) |
        (Blind ? RAW_STAT_BLIND : 0) |
        (Stunned ? RAW_STAT_STUNNED : 0) |
        (Numbed ? RAW_STAT_NUMBED : 0) |
        (Feared ? RAW_STAT_FEARED : 0) |
        (Frozen ? RAW_STAT_FROZEN : 0) |
        (Burned ? RAW_STAT_BURNED : 0) |
        (Dimmed ? RAW_STAT_DIMMED : 0) |
        (Hallucination ? RAW_STAT_HALLUCINATION : 0) |
        (Slimed ? RAW_STAT_SLIMED : 0)), flgs);
    (*raw_handler)(reconfig, rv - botl_raw_values, botl_raw_values);
}

void bot_reconfig()
{
    if (raw_handler)
        bot_raw(TRUE);
    flags.botl = 1;
}

void
bot_set_handler(handler)
void (*handler)();
{
    raw_handler = handler;
    bot_reconfig();
}

void
bot()
{

        /*
         * ALI: Cope with the fact that u_init may not have been
         * called yet. This happens if the player selection menus
         * are long enough to overwite the status line. In this
         * case we will be called when the menu is removed while
         * youmonst.data is still NULL.
         */
        if (!youmonst.data)
                return;

        if (raw_handler)
                bot_raw(FALSE);
        else {
        if (StuckAnnouncement || u.uprops[STUCK_ANNOUNCEMENT_BUG].extrinsic || have_stuckannouncementstone()) return;

        if (!DisplayDoesNotGo) bot1();
        if (!DisplayDoesNotGo) bot2();
        }
        flags.botl = flags.botlx = 0;
}

void
botreal()
{

        /*
         * ALI: Cope with the fact that u_init may not have been
         * called yet. This happens if the player selection menus
         * are long enough to overwite the status line. In this
         * case we will be called when the menu is removed while
         * youmonst.data is still NULL.
         */
        if (!youmonst.data)
                return;
        if (raw_handler)
                bot_raw(FALSE);
        else {
        if (!DisplayDoesNotGo) bot1();
        if (!DisplayDoesNotGo) bot2();
        }
        flags.botl = flags.botlx = 0;
}

#endif /* OVL0 */

/*botl.c*/