/* $Id: dashboard.c,v 1.1.1.1 1997/12/06 05:41:28 darius Exp $ */

/*
 * dashboard.c - graphic tstatw - 6/2/93
 *
 * copyright 1993 Lars Bernhardsson (lab@mtek.chalmers.se)
 * Free to use as long as this notice is left here.
 *
 * Color by Nick Trown.
 * Paradise shoehorning by Bill Dyess.
 * Rainbow dashboard by Bill Dyess
 */

#include "copyright.h"

#include <stdio.h>
#include <time.h>
#include "Wlib.h"
#include "defs.h"
#include "struct.h"
#include "data.h"
#include "proto.h"
#include "sound.h"

#define DB_NOFILL 0
#define DB_LINE 1
#define DB_FILL 2

#define DB_3DIGITS 0
#define DB_5DIGITS 1

/*
#define BAR_LENGTH 56
#define BAR_LENGTH_THIRD 18
*/
#define TSTATW_BASEX 32

#define SPACING 4

int     BAR_LENGTH = 56;
int     BAR_LENGTH_THIRD = 18;

int     column[4];

#ifdef PACKET_LIGHTS
/* code to draw and erase packet lights 2/5/94 [BDyess] */

#define SENDX 		7
#define SENDY		1
#define RECEIVEX	3
#define RECEIVEY	1

int     send_lit = 0, receive_lit = 0;

void
light_send()
{
    if (packetLights == 0 || send_lit)
	return;
    send_lit = 1;
    W_DrawPoint(tstatw, SENDX, SENDY, W_Green);
    W_DrawPoint(tstatw, SENDX + 1, SENDY, W_Green);
    W_DrawPoint(tstatw, SENDX, SENDY + 1, W_Green);
    W_DrawPoint(tstatw, SENDX + 1, SENDY + 1, W_Green);
}

void
light_receive()
{
    if (packetLights == 0 || receive_lit)
	return;
    receive_lit = 2;
    W_DrawPoint(tstatw, RECEIVEX, RECEIVEY, W_Yellow);
    W_DrawPoint(tstatw, RECEIVEX + 1, RECEIVEY, W_Yellow);
    W_DrawPoint(tstatw, RECEIVEX, RECEIVEY + 1, W_Yellow);
    W_DrawPoint(tstatw, RECEIVEX + 1, RECEIVEY + 1, W_Yellow);
}

void
light_erase()
{
    if (receive_lit == 1) {
	W_DrawPoint(tstatw, RECEIVEX, RECEIVEY, backColor);
	W_DrawPoint(tstatw, RECEIVEX + 1, RECEIVEY, backColor);
	W_DrawPoint(tstatw, RECEIVEX, RECEIVEY + 1, backColor);
	W_DrawPoint(tstatw, RECEIVEX + 1, RECEIVEY + 1, backColor);
    }
    if (receive_lit)
	receive_lit--;
    if (send_lit == 1) {
	W_DrawPoint(tstatw, SENDX, SENDY, backColor);
	W_DrawPoint(tstatw, SENDX + 1, SENDY, backColor);
	W_DrawPoint(tstatw, SENDX, SENDY + 1, backColor);
	W_DrawPoint(tstatw, SENDX + 1, SENDY + 1, backColor);
    }
    if (send_lit)
	send_lit--;
}
#endif				/* PACKET_LIGHTS */

void
db_box(x, y, w, h, f, color)
    int     x, y, w, h, f, color;
{
    int     border = W_White;

    if (color == W_Red)
	border = color;

    if (w == 0 || h == 0)
	return;

    switch (f) {
    case DB_FILL:
	W_FillArea(tstatw, x, y, w + 1, h + 1, color);
	break;
    case DB_LINE:
	W_MakeLine(tstatw, x + w, y, x + w, y + h, border);
	W_MakeLine(tstatw, x + w, y + 4, x + BAR_LENGTH, y + 4, border);
	break;
    case DB_NOFILL:
	W_MakeLine(tstatw, x, y, x + w, y, border);
	W_MakeLine(tstatw, x + w, y, x + w, y + h, border);
	W_MakeLine(tstatw, x + w, y + h, x, y + h, border);
	W_MakeLine(tstatw, x, y + h, x, y, border);
	break;
    }
}

void
db_bar(lab, x, y, value, tmpmax, max, digits, color)
    char   *lab;
    int     x, y, value, tmpmax, max, digits, color;
{
    register int wt, wv, tw, tc;
    char    valstr[32];

    switch (digits) {
    case DB_3DIGITS:
	tc = 11;
	tw = W_Textwidth * tc;
	sprintf(valstr, "%2.2s[%3d/%3d]", lab, value, tmpmax);
	W_ClearArea(tstatw, x, y, tw + BAR_LENGTH, W_Textheight);
	break;
    case DB_5DIGITS:
    default:
	tc = 15;
	tw = W_Textwidth * tc;
	sprintf(valstr, "%2.2s[%5d/%5d]", lab, value, tmpmax);
	W_ClearArea(tstatw, x, y, tw + BAR_LENGTH, W_Textheight);
	break;
    }

    if (max) {
	wt = (BAR_LENGTH * tmpmax) / max;
	wv = (BAR_LENGTH * value) / max;
    } else {
	wt = 0;
	wv = 0;
    }
    if (wt > BAR_LENGTH)
	wt = BAR_LENGTH;
    if (wv > BAR_LENGTH)
	wv = BAR_LENGTH;

    W_WriteText(tstatw, x, y, textColor, valstr, tc, W_RegularFont);

    db_box(x + tw, y, BAR_LENGTH, W_Textheight - 1, DB_NOFILL, color);
    if (wt >= wv && wt > 0)
	db_box(x + tw, y, wt, W_Textheight - 1, DB_LINE, color);

    if (wv > 0)
	db_box(x + tw, y, wv, W_Textheight - 1, DB_FILL, color);
}

void
db_color_bar(lab, x, y, barvalue, numvalue, tmpmax, max, digits)
    char   *lab;
    int     x, y, barvalue, numvalue, tmpmax, max, digits;
{
    register int wt, wv, tw, tc;
    char    valstr[32];
    int     color = W_White;

    switch (digits) {
    case DB_3DIGITS:
	tc = 11;
	tw = W_Textwidth * tc;
	sprintf(valstr, "%2.2s[%3d/%3d]", lab, numvalue, tmpmax);
	W_ClearArea(tstatw, x, y, tw + BAR_LENGTH, W_Textheight);
	break;
    case DB_5DIGITS:
    default:
	tc = 15;
	tw = W_Textwidth * tc;
	sprintf(valstr, "%2.2s[%5d/%5d]", lab, numvalue, tmpmax);
	W_ClearArea(tstatw, x, y, tw + BAR_LENGTH, W_Textheight);
	break;
    }

    if (max) {
	wt = (int) ((float) BAR_LENGTH * ((float) tmpmax / (float) max));
	wv = (int) ((float) BAR_LENGTH * ((float) barvalue / (float) max));
    } else {
	wt = 0;
	wv = 0;
    }
#if 0				/* this code turns the color to red when it
				   exceeds the bar length */
    if (wv > wt)
	color = W_Red;
#endif				/* 0 */
    if (wt > BAR_LENGTH)
	wt = BAR_LENGTH;
    if (wv > BAR_LENGTH)
	wv = BAR_LENGTH;

    W_WriteText(tstatw, x, y, color, valstr, tc, W_RegularFont);

    db_box(x + tw, y, BAR_LENGTH, W_Textheight - 1, DB_NOFILL, color);
    if (wt >= wv && wt > 0)
	db_box(x + tw, y, wt, W_Textheight - 1, DB_LINE, color);

    /* draw rainbow bars */
    if (wv > 0)
	db_box(x + tw, y, wv > BAR_LENGTH_THIRD ? BAR_LENGTH_THIRD : wv, W_Textheight - 1, DB_FILL, W_Green);
    if (wv > BAR_LENGTH_THIRD)
	db_box(x + tw + BAR_LENGTH_THIRD, y, wv > 2 * BAR_LENGTH_THIRD ? BAR_LENGTH_THIRD
	       : wv - BAR_LENGTH_THIRD, W_Textheight - 1, DB_FILL, W_Yellow);
    if (wv > 2 * BAR_LENGTH_THIRD)
	db_box(x + tw + 2 * BAR_LENGTH_THIRD, y, (wv > BAR_LENGTH ? BAR_LENGTH : wv) -
	       2 * BAR_LENGTH_THIRD, W_Textheight - 1, DB_FILL, W_Red);

#if 0
    /* draw rainbow bars */
    if (wv > 0)
	db_box((x += 1) + tw, y += 1, wv > BAR_LENGTH_THIRD ? BAR_LENGTH_THIRD : wv, 7, DB_FILL, W_Green);
    if (wv > BAR_LENGTH_THIRD)
	db_box(x + tw + BAR_LENGTH_THIRD, y, wv > 2 * BAR_LENGTH_THIRD ? BAR_LENGTH_THIRD
	       : wv - BAR_LENGTH_THIRD, 7, DB_FILL, W_Yellow);
    if (wv > 2 * BAR_LENGTH_THIRD)
	db_box(x + tw + 2 * BAR_LENGTH_THIRD, y, (wv > BAR_LENGTH ? BAR_LENGTH : wv) -
	       2 * BAR_LENGTH_THIRD - 2, 7, DB_FILL, W_Red);
#endif				/* 0 */
}

#ifdef TIMER
void
db_timer(fr, xloc, yloc)
    int     fr, xloc, yloc;
/* handles the dashboard timer [BDyess] 10/29/93 */
{
    static time_t oldtime = -1;
    static int lastTimerType = -1;
    time_t  now = 0;
    static char lasttimer[TIMESTRLEN], *timer;
    int     left, right, x, pos;

#ifdef RECORDER
    if(playback) {
	pb_framectr(xloc, yloc);
	return;
    }
#endif
    if (timerType != lastTimerType || fr) {
	fr = 1;
	lastTimerType = timerType;
	switch (timerType) {
	case T_NONE:
	    W_ClearArea(tstatw, xloc, yloc, (TIMESTRLEN+3) * W_Textwidth,
			W_Textheight);
	    memset(lasttimer, ' ', TIMESTRLEN);
	    strcpy(lasttimer, "        ");
	    oldtime = now;
	    break;
	case T_DAY:
	    W_WriteText(tstatw, xloc, yloc, textColor, "NOW", 3, W_RegularFont);
	    break;
	case T_SERVER:
	    W_WriteText(tstatw, xloc, yloc, textColor, "SRV", 3, W_RegularFont);
	    break;
	case T_SHIP:
	    W_WriteText(tstatw, xloc, yloc, textColor, "SHP", 3, W_RegularFont);
	    break;
	case T_USR:
	    W_WriteText(tstatw, xloc, yloc, textColor, "TMR", 3, W_RegularFont);
	    break;
	}
    }
    if (!timerType)
	return;
    now = time(NULL);
    if (now != oldtime || fr) {
	/*
	   get the timer string and start comparing it with the old one. Only
	   print the differences
	*/
	timer = timeString(now - timeBank[timerType]);
	x = xloc + 4 * W_Textwidth;
	left = 0;
	right = -1;
	pos = 0;

	/*
	   run through the string to find any differences.  Print any
	   continuous differences with one W_WriteText call.
	*/
	if (fr) {
	    W_WriteText(tstatw, x, yloc, textColor, timer,
			TIMESTRLEN, W_RegularFont);
	} else {
	    while (pos < TIMESTRLEN) {
		if (timer[pos] == lasttimer[pos]) {
		    if (left <= right)
			 W_WriteText(tstatw, x + left * W_Textwidth,
				     yloc, textColor, timer + left,
				     right - left + 1, W_RegularFont);
		    left = pos + 1;
		    right = pos;
		} else
		    right++;
		pos++;
	    }
	    if (left <= right)
		W_WriteText(tstatw, x + left * W_Textwidth, yloc, textColor,
			    timer + left, right - left + 1, W_RegularFont);
	}
	oldtime = now;
	strcpy(lasttimer, timer);
    }
    return;
}
#endif				/* TIMER */

void
db_flags(fr)
     int	fr;
{
    static float old_kills = -1.0;
    static int old_torp = -1;
    static int old_drone = 0;
    static int old_totmissiles = 0;
    static unsigned int old_flags = ~(unsigned int) 0;
    static int old_tourn = -1;
    static int old_spd = -1;
    unsigned char current_tourn;
    int     i;
    char    buf[26];

#ifdef UNIX_SOUND
    if ((me->p_etemp > me->p_ship->s_maxegntemp) && (me->p_flags & PFENG))
          maybe_play_sound (SND_THERMAL); /* Engines Over Thermal Limit, play ONLY once */
    else  sound_completed  (SND_THERMAL);  /* Done with Etmp, Replay Sound if we Etmp Again */
#endif

    if (fr || me->p_flags != old_flags) {
	buf[0] = (me->p_flags & PFSHIELD ? 'S' : ' ');

	if (me->p_flags & PFGREEN)
	    buf[1] = 'G';
	else if (me->p_flags & PFYELLOW)
	    buf[1] = 'Y';
	else
	    buf[1] = 'R';
	buf[2] = (me->p_flags & (PFPLLOCK | PFPLOCK) ? 'L' : ' ');
	buf[3] = (me->p_flags & PFREPAIR ? 'R' : ' ');
	buf[4] = (me->p_flags & PFBOMB ? 'B' : ' ');
	buf[5] = (me->p_flags & PFORBIT ? 'O' : ' ');
	buf[6] = (me->p_flags & (PFDOCK | PFDOCKOK)) ? 'D' : ' ';
	buf[7] = (me->p_flags & PFCLOAK ? 'C' : ' ');
	buf[8] = (me->p_flags & PFWEP ? 'W' : ' ');
	buf[9] = (me->p_flags & PFENG ? 'E' : ' ');
	if (me->p_flags & PFPRESS)
	    buf[10] = 'P';
	else if (me->p_flags & PFTRACT)
	    buf[10] = 'T';
	else
	    buf[10] = ' ';
	if (me->p_flags & PFBEAMUP)
	    buf[11] = 'u';
	else if (me->p_flags & PFBEAMDOWN)
	    buf[11] = 'd';
	else
	    buf[11] = ' ';

	/* Flags turn red with etemped/wtemped [BDyess] */
	if (me->p_flags & (PFWEP | PFENG))
	    W_WriteText(tstatw, 2, 3, W_Red, "Flags", 5, W_RegularFont);
	else
	    W_WriteText(tstatw, 2, 3, textColor, "Flags", 5, W_RegularFont);
	/* blue 'Warp' text [BDyess] */
	if (me->p_flags & PFWARP)
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Cyan, "    Warp", 8,
			W_BoldFont);
	/* red 'Afterbrn' text [BDyess] */
	else if (me->p_flags & PFAFTER)
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Red, "Afterbrn", 8,
			W_RegularFont);
	/* yellow 'WarpPrep' or 'WrpPause' text [BDyess] */
	else if (me->p_flags & PFWARPPREP)
	    if (me->p_flags & PFWPSUSPENDED)
		W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Yellow, "WrpPause",
			    8, W_RegularFont);
	    else
		W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Yellow, "WarpPrep",
			    8, W_RegularFont);
	/* green 'Impulse' text [BDyess] */
	else if (me->p_speed > 0)
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Green, " Impulse", 8,
			W_RegularFont);
	/* white 'Stopped' text [BDyess] */
	else
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, textColor, " Stopped", 8,
			W_RegularFont);
	W_WriteText(tstatw, 2, 3 + (W_Textheight + SPACING), textColor, buf, 12, W_RegularFont);
#if 0				/* colored G/Y/R status flags.  Looked stupid */
	if (me->p_flags & PFGREEN)
	    W_WriteText(tstatw, 2 + W_Textwidth, 3 + W_Textheight + SPACING, W_Green, "G", 1, W_RegularFont);
	else if (me->p_flags & PFYELLOW)
	    W_WriteText(tstatw, 2 + W_Textwidth, 3 + W_Textheight + SPACING, W_Yellow, "Y", 1, W_RegularFont);
	else
	    W_WriteText(tstatw, 2 + W_Textwidth, 3 + W_Textheight + SPACING, W_Red, "R", 1, W_RegularFont);
#endif				/* 0 */
	old_flags = me->p_flags;
	old_spd = me->p_speed;
    } else if ( (me->p_speed == 0 && old_spd) ||
	        (me->p_speed && old_spd == 0) ) {
	if (me->p_speed > 0)
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, W_Yellow, " Impulse", 8,
			W_RegularFont);
	else
	    W_WriteText(tstatw, 2 + 6 * W_Textwidth, 3, textColor, " Stopped", 8,
			W_RegularFont);
	old_spd = me->p_speed;
    }
    current_tourn = paradise ? status2->tourn : status->tourn;

    if (fr || current_tourn != old_tourn) {
	if (current_tourn)
	    W_WriteText(tstatw, 74, 3 + W_Textheight + SPACING, textColor, "T", 1, W_BoldFont);
	else
	    W_WriteText(tstatw, 74, 3 + W_Textheight + SPACING, textColor, " ", 1, W_BoldFont);

	old_tourn = current_tourn;
    }
    if (fr || me->p_kills != old_kills) {
	if (me->p_kills > 0.0) {
/*	  W_WriteText (tstatw, column[3], 3+W_Textheight + SPACING, textColor, "Kills:", 6, W_RegularFont);*/
	    sprintf(buf, "Kills: %5.2f", me->p_kills);
	    W_WriteText(tstatw, column[3], 3 + W_Textheight + SPACING, textColor, buf, strlen(buf), W_RegularFont);
	} else {
	    W_ClearArea(tstatw, column[3], 3 + W_Textheight + SPACING, 12 * W_Textwidth, W_Textheight);
	}
	old_kills = me->p_kills;
    }
    if (fr || me->p_ntorp != old_torp) {
	if (me->p_ntorp > 0) {
/*	  W_WriteText (tstatw, column[3]+17*W_Textwidth, 3+W_Textheight + SPACING, textColor, "Torps:",
		       6, W_RegularFont);
*/
	    sprintf(buf, "Torps: %d", me->p_ntorp);
	    W_WriteText(tstatw, column[3] + 17 * W_Textwidth, 3 + W_Textheight + SPACING, textColor, buf,
			strlen(buf), W_RegularFont);
	} else {
	    W_ClearArea(tstatw, column[3] + 17 * W_Textwidth, 3 + W_Textheight + SPACING, 8 * W_Textwidth, 10);
	}
	old_torp = me->p_ntorp;
    }
    /* code to show the number of drones out */
    strcpy(buf, "Missiles ");
    if (fr || me->p_totmissiles != old_totmissiles || me->p_ndrone != old_drone) {
	if (me->p_totmissiles > 0)
	    sprintf(buf + strlen(buf), "Left: %d ", me->p_totmissiles);
	old_totmissiles = me->p_totmissiles;
	if (me->p_ndrone > 0)
	    sprintf(buf + strlen(buf), "Out: %d ", me->p_ndrone);
	old_drone = me->p_ndrone;
	if (!me->p_totmissiles && !me->p_ndrone) {	/* clear missile text */
	    W_ClearArea(tstatw, column[3], 3 + 2 * (W_Textheight + SPACING), 24 * W_Textwidth, W_Textheight);
	} else {
	    for (i = strlen(buf); i < 24; i++)
		buf[i] = ' ';
	    buf[24] = 0;
	    W_WriteText(tstatw, column[3], 3 + 2 * (W_Textheight + SPACING), textColor, buf, 24, W_RegularFont);
	}
    }
#if 0
    if (fr || me->p_ndrone != old_drone) {
	if (me->p_ndrone > 0) {
	    if (!missile_text) {
		W_WriteText(tstatw, column[3], 30, textColor,
			    "Missiles", 8, W_RegularFont);
	    }
	    sprintf(buf, "Out: %d", me->p_ndrone);
	    W_WriteText(tstatw, column[3] + W_Textwidth * 18, 30, textColor, buf, strlen(buf), W_RegularFont);
	} else {
	    W_ClearArea(tstatw, column[3] + W_Textwidth * 18, 30, 7 * W_Textwidth, W_Textheight);
	}
	old_drone = me->p_ndrone;
    }
    if (fr || me->p_totmissiles != old_totmissiles) {
	if (me->p_totmissiles > 0) {
	    if (!missile_text) {
		W_WriteText(tstatw, column[3], 30, textColor,
			    "Missiles", 8, W_RegularFont);
	    }
	    sprintf(buf, "Left: %d", me->p_totmissiles);
	    W_WriteText(tstatw, column[3] + W_Textwidth * 9, 3 + 2 * (W_Textheight + SPACING),
			textColor, buf, strlen(buf), W_RegularFont);
	} else {
	    W_ClearArea(tstatw, column[3], 3 + 2 * (W_Textheight + SPACING), 8 * W_Textwidth, W_Textheight);
	}
	old_totmissiles = me->p_totmissiles;
    }
    if (missile_text && !me->p_totmissiles && !me->p_ndrone)	/* clear missile text */
	W_ClearArea(tstatw, column[3], 30, 9 * W_Textwidth, 10);
#endif				/* 0 */
}

void
db_redraw_krp(fr)
    int     fr;
{
    static int old_spd = -1, old_cur_spd = -1;
    static int old_shl = -1, old_dam = -1;
    static int old_arm = -1, old_cur_arm = -1;
    static int old_wpn = -1, old_egn = -1;
    static int old_ful = -1;
    register int cur_max;
    register int value;
    int     color;
    int     index = 0;
    register int mid;

    if (me->p_ship->s_type == STARBASE)	/* SB */
	index = 1;

    if (fr)
	W_ClearWindow(tstatw);

    db_flags(fr);

#ifdef TIMER
    db_timer(fr, 1, 3 + 2 * (W_Textheight + SPACING));
#endif				/* TIMER */

#ifdef PACKET_LIGHTS
    light_erase();
#endif				/* PACKET_LIGHTS */

    if (paradise)
	cur_max = me->p_ship->s_maxspeed - (int) ((float) me->p_ship->s_maxspeed
		  * (float) me->p_damage / (float) me->p_ship->s_maxdamage);
    else
	cur_max = (me->p_ship->s_maxspeed + 1) - ((me->p_ship->s_maxspeed + 1) * me->p_damage)
	    / me->p_ship->s_maxdamage;
    if (cur_max > me->p_ship->s_maxspeed)
	cur_max = me->p_ship->s_maxspeed;
    if (cur_max < 0)
	cur_max = 0;

    if (fr || me->p_speed != old_spd || cur_max != old_cur_spd) {
	if (me->p_speed >= me->p_ship->s_maxspeed - 2)
	    color = W_Red;
	else
	    color = W_Green;
	db_bar("Sp", column[1], 3,
	   me->p_speed, cur_max, me->p_ship->s_maxspeed, DB_3DIGITS, color);
	old_spd = me->p_speed;
	old_cur_spd = cur_max;
    }
    if (fr || me->p_shield != old_shl) {
	value = (100 * me->p_shield) / me->p_ship->s_maxshield;
	if (value <= 16)
	    color = W_Red;
	else if (value <= 66)
	    color = W_Yellow;
	else
	    color = W_Green;
	db_bar("Sh", column[1], 3 + W_Textheight + SPACING,
	     me->p_shield, me->p_ship->s_maxshield, me->p_ship->s_maxshield,
	       DB_3DIGITS, color);
	old_shl = me->p_shield;
    }
    if (fr || me->p_damage != old_dam) {
	value = (100 * (me->p_ship->s_maxdamage - me->p_damage)) / me->p_ship->s_maxdamage;
	if (value <= 16)
	    color = W_Red;
	else if (value <= 66)
	    color = W_Yellow;
	else
	    color = W_Green;
	db_bar("Hu", column[1], 3 + 2 * (W_Textheight + SPACING),
	       (me->p_ship->s_maxdamage - me->p_damage),
	       me->p_ship->s_maxdamage, me->p_ship->s_maxdamage,
	       DB_3DIGITS, color);
	old_dam = me->p_damage;
    }
    if (me->p_ship->s_type == ASSAULT)
	cur_max = (((me->p_kills * 3) > me->p_ship->s_maxarmies) ?
		   me->p_ship->s_maxarmies : (int) (me->p_kills * 3));
    else if (me->p_ship->s_type == STARBASE)
	cur_max = me->p_ship->s_maxarmies;
    else
	cur_max = (((me->p_kills * 2) > me->p_ship->s_maxarmies) ?
		   me->p_ship->s_maxarmies : (int) (me->p_kills * 2));

    if (fr || me->p_armies != old_arm || cur_max != old_cur_arm) {
	value = me->p_armies;
	mid = me->p_ship->s_maxarmies / 3;
	if (value <= mid)
	    color = W_Green;
	else if (value > mid * 2)
	    color = W_Red;
	else
	    color = W_Yellow;
	db_bar("Ar", column[2], 3,
	 me->p_armies, cur_max, me->p_ship->s_maxarmies, DB_3DIGITS, color);
	old_arm = me->p_armies;
	old_cur_arm = cur_max;
    }
    if (fr || me->p_wtemp != old_wpn) {
	value = (100 * me->p_wtemp) / me->p_ship->s_maxwpntemp;
	if (value <= 16)
	    color = W_Green;
	else if (value <= 66)
	    color = W_Yellow;
	else
	    color = W_Red;
	db_bar("Wt", column[2], 3 + W_Textheight + SPACING,
	       me->p_wtemp / 10, me->p_ship->s_maxwpntemp / 10, me->p_ship->s_maxwpntemp / 10, DB_3DIGITS
	       ,color);
	old_wpn = me->p_wtemp;
    }
    if (fr || me->p_etemp != old_egn) {
	value = (100 * me->p_etemp) / me->p_ship->s_maxegntemp;
	if (value <= 16)
	    color = W_Green;
	else if (value <= 66)
	    color = W_Yellow;
	else
	    color = W_Red;
	db_bar("Et", column[2], 3 + 2 * (W_Textheight + SPACING),
	       me->p_etemp / 10, me->p_ship->s_maxegntemp / 10, me->p_ship->s_maxegntemp / 10, DB_3DIGITS
	       ,color);
	old_egn = me->p_etemp;
    }
    if (fr || me->p_fuel != old_ful) {
	value = ((100 * me->p_fuel) / me->p_ship->s_maxfuel);
	if (value <= 16)
	    color = W_Red;
	else if (value <= 66)
	    color = W_Yellow;
	else
	    color = W_Green;
	db_bar("Fu", column[3], 3,
	       me->p_fuel, me->p_ship->s_maxfuel, me->p_ship->s_maxfuel, DB_5DIGITS, color);
	old_ful = me->p_fuel;
    }
}


void
db_redraw_BRM(fr)
    int     fr;
{
    static int old_spd = -1, old_cur_spd = -1;
    static int old_shl = -1, old_dam = -1;
    static int old_arm = -1, old_cur_arm = -1;
    static int old_wpn = -1, old_egn = -1;
    static int old_ful = -1;
    register int cur_max;
    register int value;
    int     color;
    int     index = 0;
    register int mid;
    register int tmp;

    if (me->p_ship->s_type == STARBASE)	/* SB */
	index = 1;

    if (fr)
	W_ClearWindow(tstatw);

    db_flags(fr);

#ifdef TIMER
    db_timer(fr, 1, 3 + 2 * (W_Textheight + SPACING));
#endif				/* TIMER */
#ifdef PACKET_LIGHTS
    light_erase();
#endif				/* PACKET_LIGHTS */

    cur_max = (me->p_ship->s_maxspeed + 1) - ((me->p_ship->s_maxspeed + 1) * me->p_damage)
	/ me->p_ship->s_maxdamage;
    if (cur_max > me->p_ship->s_maxspeed)
	cur_max = me->p_ship->s_maxspeed;
    if (cur_max < 0)
	cur_max = 0;

    if (fr || me->p_speed != old_spd || cur_max != old_cur_spd) {
	if (Dashboard == 3) {
	    db_color_bar("Sp", column[1], 3, me->p_speed, me->p_speed, cur_max,
			 me->p_ship->s_maxspeed, DB_3DIGITS);
	} else {
	    if (me->p_speed >= me->p_ship->s_maxspeed - 2)
		color = W_Yellow;
	    else
		color = W_White;
	    db_bar("Sp", column[1], 3,
	    me->p_speed, cur_max, me->p_ship->s_maxspeed, DB_3DIGITS, color);
	}
	old_spd = me->p_speed;
	old_cur_spd = cur_max;
    }
    if (fr || me->p_shield != old_shl) {
	if (Dashboard == 3) {
	    tmp = me->p_ship->s_maxshield - me->p_shield;
	    db_color_bar("Sh", column[1], 3 + W_Textheight + SPACING, tmp, tmp,
			 me->p_ship->s_maxshield, me->p_ship->s_maxshield,
			 DB_3DIGITS);
	} else {
	    value = (100 * me->p_shield) / me->p_ship->s_maxshield;
	    /*
	       mid = (distress[index].max_shld - distress[index].min_shld) /
	       2;
	    */
	    mid = 33;
	    if (value <= mid)
		color = W_Red;
	    /* else if (value < distress[index].max_shld) */
	    else if (value < mid * 2)
		color = W_Yellow;
	    else
		color = W_White;
	    db_bar("Sh", column[1], 3 + W_Textheight + SPACING, me->p_ship->s_maxshield - me->p_shield,
		   me->p_ship->s_maxshield, me->p_ship->s_maxshield, DB_3DIGITS, color);
	}
	old_shl = me->p_shield;
    }
    if (fr || me->p_damage != old_dam) {
	if (Dashboard == 3) {
	    db_color_bar("Hu", column[1], 3 + 2 * (W_Textheight + SPACING),
			 me->p_damage, me->p_damage, me->p_ship->s_maxdamage,
			 me->p_ship->s_maxdamage, DB_3DIGITS);
	} else {
	    value = (100 * me->p_damage) / me->p_ship->s_maxdamage;
	    /* mid = (distress[index].max_dam - distress[index].min_dam) / 2; */
	    mid = 33;
	    /* if (value <= distress[index].min_dam) */
	    if (value <= mid)
		color = W_White;
	    else if (value > mid * 2)
		color = W_Red;
	    else
		color = W_Yellow;
	    db_bar("Hu", column[1], 3 + 2 * (W_Textheight + SPACING),
		   me->p_damage, me->p_ship->s_maxdamage, me->p_ship->s_maxdamage, DB_3DIGITS, color);
	}
	old_dam = me->p_damage;
    }
    if (me->p_ship->s_type == ASSAULT)
	cur_max = (((me->p_kills * 3) > me->p_ship->s_maxarmies) ?
		   me->p_ship->s_maxarmies : (int) (me->p_kills * 3));
    else if (me->p_ship->s_type == STARBASE)
	cur_max = me->p_ship->s_maxarmies;
    else
	cur_max = (((me->p_kills * 2) > me->p_ship->s_maxarmies) ?
		   me->p_ship->s_maxarmies : (int) (me->p_kills * 2));

    /* doing rainbow colors for armies makes little since, so I don't */
    if (fr || me->p_armies != old_arm || cur_max != old_cur_arm) {
	if (Dashboard == 3) {
	    db_bar("Ar", column[2], 3,
		   me->p_armies, cur_max, me->p_ship->s_maxarmies, DB_3DIGITS, W_White);
	} else {
	    value = me->p_armies;
	    /*
	       mid = (distress[index].max_arms - distress[index].min_arms) /
	       2;
	    */
	    mid = me->p_ship->s_maxarmies / 3;
	    /* if (value <= distress[index].min_arms) */
	    if (value <= mid)
		color = W_White;
	    else if (value > mid * 2)
		color = W_Red;
	    else
		color = W_Yellow;
	    db_bar("Ar", column[2], 3,
		   me->p_armies, cur_max, me->p_ship->s_maxarmies, DB_3DIGITS, color);
	}
	old_arm = me->p_armies;
	old_cur_arm = cur_max;
    }
    if (fr || me->p_wtemp != old_wpn) {
	if (Dashboard == 3) {
	    tmp = me->p_wtemp / 10;
	    db_color_bar("Wt", column[2], 3 + W_Textheight + SPACING, tmp, tmp,
			 me->p_ship->s_maxwpntemp / 10,
			 me->p_ship->s_maxwpntemp / 10, DB_3DIGITS);
	} else {
	    value = (100 * me->p_wtemp) / me->p_ship->s_maxwpntemp;
	    /*
	       mid = (distress[index].max_wtmp - distress[index].min_wtmp) /
	       2;
	    */
	    mid = 67;
	    if (value > mid)
		color = W_Red;
	    /* else if (value <= distress[index].min_wtmp) */
	    else if (value <= mid / 2)
		color = W_White;
	    else
		color = W_Yellow;
	    db_bar("Wt", column[2], 3 + W_Textheight + SPACING, me->p_wtemp / 10, me->p_ship->s_maxwpntemp / 10,
		   me->p_ship->s_maxwpntemp / 10, DB_3DIGITS, color);
	}
	old_wpn = me->p_wtemp;
    }
    if (fr || me->p_etemp != old_egn) {
	if (Dashboard == 3) {
	    tmp = me->p_etemp / 10;
	    db_color_bar("Et", column[2], 3 + 2 * (W_Textheight + SPACING), tmp, tmp,
			 me->p_ship->s_maxegntemp / 10,
			 me->p_ship->s_maxegntemp / 10, DB_3DIGITS);
	} else {
	    value = (100 * me->p_etemp) / me->p_ship->s_maxegntemp;
	    /*
	       mid = (distress[index].max_etmp - distress[index].min_etmp) /
	       2;
	    */
	    mid = 67;
	    if (value <= mid / 2)
		color = W_White;
	    /* else if (value < mid / 2 + mid) */
	    else if (value < mid)
		color = W_Yellow;
	    else
		color = W_Red;
	    db_bar("Et", column[2], 3 + 2 * (W_Textheight + SPACING), me->p_etemp / 10, me->p_ship->s_maxegntemp / 10,
		   me->p_ship->s_maxegntemp / 10, DB_3DIGITS, color);
	}
	old_egn = me->p_etemp;
    }
    if (fr || me->p_fuel != old_ful) {
	if (Dashboard == 3) {
	    db_color_bar("Fu", column[3], 3, me->p_ship->s_maxfuel - me->p_fuel,
		   me->p_fuel, me->p_ship->s_maxfuel, me->p_ship->s_maxfuel,
			 DB_5DIGITS);
	} else {
	    value = ((100 * me->p_fuel) / me->p_ship->s_maxfuel);
	    /*
	       mid = (distress[index].max_fuel - distress[index].min_fuel) /
	       2;
	    */
	    mid = 33;
	    if (value <= mid)
		color = W_Red;
	    /* else if (value > distress[index].max_fuel) */
	    else if (value > mid * 2)
		color = W_White;
	    else
		color = W_Yellow;
	    db_bar("Fu", column[3], 3,
		   me->p_fuel, me->p_ship->s_maxfuel, me->p_ship->s_maxfuel, DB_5DIGITS, color);
	}
	old_ful = me->p_fuel;
    }
}

void
db_redraw(fr)
    int     fr;
{
    static int oldDashboard = -1;

    if (oldDashboard < 0) {	/* 1st time only? */
	BAR_LENGTH = ((W_WindowWidth(tstatw) - 90 - 4 * W_Textwidth) / 3) - W_Textwidth * 12;
	BAR_LENGTH_THIRD = BAR_LENGTH / 3;
	column[0] = 2;		/* not used */
	column[1] = 90;
	column[2] = 90 + 11 * W_Textwidth + BAR_LENGTH + 6;
	column[3] = column[2] + 11 * W_Textwidth + BAR_LENGTH + 6;
    }
    if (Dashboard != oldDashboard) {
	oldDashboard = Dashboard;
	fr = 1;
    }
    if (Dashboard == 2)
	db_redraw_krp(fr);
    else
	db_redraw_BRM(fr);
}

void
stline(flag)
    int     flag;
{
    static char buf1[80];
    static char buf2[80];
    static char whichbuf = 0;
    static int lastDashboard;

    register char *buf, *oldbuf;
    register char *s;
    register int i, j;
    int     k;

/* if you don't do something like this, then switching in the options menu
   is 'entertaining'  */
    if (Dashboard != lastDashboard) {
	lastDashboard = Dashboard;
	redrawTstats();
	return;
    }
/* use the new dashboard if we can */
    if (Dashboard) {
	db_redraw(flag);
	return;
    }
#ifdef TIMER
    /* Do da clock */
    db_timer(flag, W_WindowWidth(tstatw) - (12 * W_Textwidth + 5), 27);
#endif				/* TIMER */
#ifdef PACKET_LIGHTS
    light_erase();
#endif				/* PACKET_LIGHTS */


    /* Instead of one sprintf, we do all this by hand for optimization */

    if (flag)
	whichbuf = 0;		/* We must completely refresh */

    if (whichbuf != 2) {
	buf = buf1;
	oldbuf = buf2;
    } else {
	buf = buf2;
	oldbuf = buf1;
    }
    buf[0] = (me->p_flags & PFSHIELD ? 'S' : ' ');
    if (me->p_flags & PFGREEN)
	buf[1] = 'G';
    else if (me->p_flags & PFYELLOW)
	buf[1] = 'Y';
    else if (me->p_flags & PFRED)
	buf[1] = 'R';
    buf[2] = (me->p_flags & (PFPLLOCK | PFPLOCK) ? 'L' : ' ');
    buf[3] = (me->p_flags & PFREPAIR ? 'R' : ' ');
    buf[4] = (me->p_flags & PFBOMB ? 'B' : ' ');
    buf[5] = (me->p_flags & PFORBIT ? 'O' : ' ');
    buf[6] = (me->p_flags & PFDOCKOK ? 'D' : ' ');
/*      buf[6] = (me->p_flags & PFDOCK ? 'D' : ' ');*/
    buf[7] = (me->p_flags & PFCLOAK ? 'C' : ' ');
    buf[8] = (me->p_flags & PFWEP ? 'W' : ' ');
    buf[9] = (me->p_flags & PFENG ? 'E' : ' ');
    if (me->p_flags & PFPRESS)
	buf[10] = 'P';
    else if (me->p_flags & PFTRACT)
	buf[10] = 'T';
    else
	buf[10] = ' ';
    if (me->p_flags & PFBEAMUP)
	buf[11] = 'u';
    else if (me->p_flags & PFBEAMDOWN)
	buf[11] = 'd';
    else
	buf[11] = ' ';
    if (!paradise)
	buf[12] = (status->tourn) ? 't' : ' ';
    else
	buf[12] = (status2->tourn) ? 't' : ' ';

    buf[13] = ' ';

#if 1
/* w/i indicator is a kludge - it just guesses based on the speed of
   the ship */
    sprintf(buf + 14, "%2d%c   %3d %3d  %1d  %6.2f %3d %6d  %4d %4d  ",
	    me->p_speed,	/* (me->p_speed > me->p_ship->s_maxspeed+2) */
	    me->p_flags & PFWARP ? 'w' : me->p_flags & PFAFTER ? 'a' : 'i',
	    me->p_damage, me->p_shield, me->p_ntorp, me->p_kills,
	    me->p_armies, me->p_fuel, me->p_wtemp / 10, me->p_etemp / 10);
#else
#if 0
    TWODIGIT_L(&buf[14], me->p_speed);
    buf[16] = 'i';
    buf[17] = ' ';
    buf[18] = ' ';
    buf[19] = ' ';
    THREEDIGIT_R(&buf[20], me->p_damage);
    buf[23] = ' ';
    THREEDIGIT_R(&buf[24], me->p_shield);
    buf[27] = ' ';
    TWODIGIT_R(&buf[28], me->p_ntorp);
    buf[30] = ' ';
    buf[31] = ' ';
    SIXnTWOf_R(&buf[32], me->p_kills);
    buf[38] = ' ';
    THREEDIGIT_C(&buf[39], me->p_armies);
    buf[42] = ' ';
    SIXDIGIT_R(&buf[43], me->p_fuel);
    buf[49] = ' ';
    buf[50] = ' ';
    FOURDIGIT_R(&buf[51], me->p_wtemp);
    buf[55] = ' ';
    FOURDIGIT_R(&buf[56], me->p_wtemp);
    buf[60] = ' ';
    buf[61] = ' ';
#else				/* 0 */
    buf[14] = '0' + ((me->p_speed % 100) / 10);
    if (buf[14] == '0')
	buf[14] = ' ';
    buf[15] = '0' + (me->p_speed % 10);	/* speed */
    buf[16] = ' ';
    buf[17] = ' ';
    buf[18] = '0' + (me->p_damage / 100);
    if (buf[18] == '0')
	buf[18] = ' ';
    buf[19] = '0' + ((me->p_damage % 100) / 10);
    if ((buf[19] == '0') && (me->p_damage < 100))
	buf[19] = ' ';
    buf[20] = '0' + (me->p_damage % 10);
    buf[21] = ' ';
    buf[22] = '0' + (me->p_shield / 100);
    if (buf[22] == '0')
	buf[22] = ' ';
    buf[23] = '0' + ((me->p_shield % 100) / 10);
    if ((buf[23] == '0') && (me->p_shield < 100))
	buf[23] = ' ';
    buf[24] = '0' + (me->p_shield % 10);
    buf[25] = ' ';
    buf[26] = ' ';
    buf[27] = '0' + ((me->p_ntorp % 100) / 10);
    if (buf[27] == '0')
	buf[27] = ' ';
    buf[28] = '0' + (me->p_ntorp % 10);
    buf[29] = ' ';
    buf[30] = ' ';
    buf[31] = ' ';
    buf[32] = ' ';
    buf[33] = '0' + ((int) (me->p_kills / 10));
    if (buf[33] == '0')
	buf[33] = ' ';
    buf[34] = '0' + (((int) me->p_kills) % 10);
    buf[35] = '.';
    buf[36] = '0' + (((int) (me->p_kills * 10)) % 10);
    buf[37] = '0' + (((int) (me->p_kills * 100)) % 10);
    buf[38] = ' ';
    buf[39] = ' ';
    buf[40] = ' ';
    buf[41] = '0' + ((me->p_armies % 100) / 10);
    if (buf[41] == '0')
	buf[41] = ' ';
    buf[42] = '0' + (me->p_armies % 10);
    buf[43] = ' ';
    buf[44] = ' ';
    buf[45] = ' ';

    buf[46] = '0' + (me->p_fuel / 100000);
    if (buf[46] == '0')
	buf[46] = ' ';
    buf[47] = '0' + ((me->p_fuel % 100000) / 10000);
    if ((buf[47] == '0') && (me->p_fuel < 100000))
	buf[47] = ' ';
    buf[48] = '0' + ((me->p_fuel % 10000) / 1000);
    if ((buf[48] == '0') && (me->p_fuel < 10000))
	buf[48] = ' ';
    buf[49] = '0' + ((me->p_fuel % 1000) / 100);
    if ((buf[49] == '0') && (me->p_fuel < 1000))
	buf[49] = ' ';
    buf[50] = '0' + ((me->p_fuel % 100) / 10);
    if ((buf[50] == '0') && (me->p_fuel < 100))
	buf[50] = ' ';
    buf[51] = '0' + (me->p_fuel % 10);
    buf[52] = ' ';
    buf[53] = ' ';
    buf[54] = ' ';

    buf[55] = '0' + ((me->p_wtemp / 10) / 100);
    if (buf[55] == '0')
	buf[55] = ' ';
    buf[56] = '0' + (((me->p_wtemp / 10) % 100) / 10);
    if ((buf[56] == '0') && (me->p_wtemp < 1000))
	buf[56] = ' ';
    buf[57] = '0' + ((me->p_wtemp / 10) % 10);

    buf[58] = ' ';
    buf[59] = ' ';
    buf[60] = ' ';
    buf[61] = '0' + ((me->p_etemp / 10) / 1000);
    if (buf[61] == '0')
	buf[61] = ' ';
    buf[62] = '0' + (((me->p_etemp / 10) % 1000) / 100);
    if (buf[62] == '0' && me->p_etemp < 1000)
	buf[62] = ' ';
    buf[63] = '0' + (((me->p_etemp / 10) % 100) / 10);
    if ((buf[63] == '0') && (me->p_etemp < 1000))
	buf[63] = ' ';
    buf[64] = '0' + ((me->p_etemp / 10) % 10);
    buf[65] = ' ';
#endif				/* 0 */
#endif

    if (whichbuf == 0) {
	/* Draw status line */
	W_WriteText(tstatw, TSTATW_BASEX, 16, textColor, buf, 66, W_RegularFont);
	whichbuf = 1;
    } else {			/* Hacks to make it print only what is
				   necessary */
	whichbuf = 3 - whichbuf;
	j = -1;
	for (i = 0; i < 66; i++) {
	    if (*(buf++) != *(oldbuf++)) {
		/* Different string */
		if (j == -1) {
		    k = i;
		    s = buf - 1;
		}
		j = 0;
	    } else {
		/* Same string */
		if (j == -1)
		    continue;
		j++;
		if (j == 20) {	/* Random number */
		    W_WriteText(tstatw, TSTATW_BASEX + W_Textwidth * k, 16, textColor,
				s, i - k - 19, W_RegularFont);
		    j = -1;
		}
	    }
	}
	if (j != -1) {
	    W_WriteText(tstatw, TSTATW_BASEX + W_Textwidth * k, 16, textColor, s, i - k - j,
			W_RegularFont);
	}
    }
}

void
redrawTstats()
{
    char    buf[100];

    W_ClearWindow(tstatw);
    /* use new dashboard if possible */
    if (Dashboard) {
	db_redraw(1);
	return;
    }
    stline(1);			/* This is for refresh.  We redraw player
				   stats too */
    strcpy(buf, "Flags        Speed  Dam Shd Trp  Kills Ams   Fuel  Wtmp Etmp  Special"	/* "Flags        Warp
											   Dam Shd Torps  Kills
											   Armies   Fuel  Wtemp
	       Etemp" */ );
    W_WriteText(tstatw, TSTATW_BASEX, 5, textColor, buf, strlen(buf), W_RegularFont);
    sprintf(buf,
	    "Maximum:      %2d    %3d %3d  8         %3d %6d  %4d %4d ",
	    me->p_ship->s_maxspeed, me->p_ship->s_maxdamage,
	    me->p_ship->s_maxshield, me->p_ship->s_maxarmies,
	    me->p_ship->s_maxfuel, me->p_ship->s_maxwpntemp / 10,
	    me->p_ship->s_maxegntemp / 10);
    W_WriteText(tstatw, TSTATW_BASEX, 27, textColor, buf, strlen(buf), W_RegularFont);
}