/*
 * stats.c
 */
#include "copyright.h"

#include <stdio.h>
#include "netrek.h"

#define	MIN(a,b)	(((a) < (b)) ? (a) : (b))

#define	BX_OFF()	((textWidth + 1) * W_Textwidth + S_IBORDER)
#define	BY_OFF(line)	((line) * (W_Textheight + S_IBORDER) + S_IBORDER)
#define	TX_OFF(len)	((textWidth - len) * W_Textwidth + S_IBORDER)
#define	TY_OFF(line)	BY_OFF(line)

#define STAT_WIDTH		160
#define STAT_HEIGHT		BY_OFF(NUM_SLIDERS)
#define STAT_BORDER		2
#define S_IBORDER		5
#define STAT_X			422
#define STAT_Y			13

#define SL_WID			\
	(STAT_WIDTH - 2 * S_IBORDER - (textWidth + 1) * W_Textwidth)
#define SL_HEI			(W_Textheight)

#define NUM_ELS(a)		(sizeof (a) / sizeof (*(a)))
#define NUM_SLIDERS		NUM_ELS(sliders)

typedef struct slider {
   char           *label;
   int             min, max;
   int             low_red, high_red;
   int             label_length;
   int             diff;
   int            *var;
   int             lastVal;
}               Slider;

typedef struct record {
   int            *data;
   int             last_value;
}               Record;

static Slider   sliders[] =
{
   {"Shields", 0, 100, 20, 100},
   {"Damage", 0, 100, 0, 0},
   {"Fuel", 0, 10000, 2000, 10000},
   {"Warp", 0, 9, 0, 9},
   {"Weapon Temp", 0, 1200, 0, 800},
   {"Engine Temp", 0, 1200, 0, 800},
#ifdef ARMY_SLIDER
   {"Armies", 0, 10, 0, 10},
#endif				/* ARMY_SLIDER */
};

static int      textWidth = 0;
static int      initialized = 0;

void
initStats()
{
   int             i;

   if (initialized)
      return;
   initialized = 1;
   sliders[0].var = &(me->p_shield);
   sliders[1].var = &(me->p_damage);
   sliders[2].var = &(me->p_fuel);
   sliders[3].var = &(me->p_speed);
   sliders[4].var = &(me->p_wtemp);
   sliders[5].var = &(me->p_etemp);
#ifdef ARMY_SLIDER
   sliders[6].var = &(me->p_armies);	/* note -- changed p_armies to int */
#endif				/* ARMY_SLIDER */
   for (i = 0; i < NUM_SLIDERS; i++) {
      sliders[i].label_length = strlen(sliders[i].label);
      textWidth = MAX(textWidth, sliders[i].label_length);
      sliders[i].diff = sliders[i].max - sliders[i].min;
      sliders[i].lastVal = 0;
   }
}

void
redrawStats()
{
   int             i;

   W_ClearWindow(statwin);
   initStats();
   for (i = 0; i < NUM_SLIDERS; i++) {
      sliders[i].lastVal = 0;
   }
   for (i = 0; i < NUM_SLIDERS; i++) {
      W_WriteText(statwin, TX_OFF(sliders[i].label_length), TY_OFF(i),
		  textColor, sliders[i].label, sliders[i].label_length,
		  W_RegularFont);
      box(0, BX_OFF() - 1, BY_OFF(i) - 1, SL_WID + 2, SL_HEI + 2, borderColor);
      sliders[i].lastVal = 0;
   }
}

void
updateStats()
{
   int             i, value, diff, old_x, new_x;
   W_Color         color;
   Slider         *s;

   initStats();
   for (i = 0; i < NUM_SLIDERS; i++) {
      s = &sliders[i];
      value = *(s->var);
      if (value < s->min)
	 value = s->min;
      else if (value > s->max)
	 value = s->max;
      if (value == s->lastVal)
	 continue;
      diff = value - s->lastVal;
      if (diff < 0) {
	 old_x = s->lastVal * SL_WID / s->diff;
	 new_x = value * SL_WID / s->diff;
	 box(1, BX_OFF() + new_x, BY_OFF(i), old_x - new_x, SL_HEI, backColor);

	 if (s->lastVal >= s->low_red && value < s->low_red)
	    box(1, BX_OFF(), BY_OFF(i), new_x, SL_HEI, warningColor);
	 else if (s->lastVal > s->high_red && value <= s->high_red)
	    box(1, BX_OFF(), BY_OFF(i), new_x, SL_HEI, myColor);
      } else {
	 if (value < s->low_red)
	    color = warningColor;
	 else if (value > s->high_red) {
	    color = warningColor;
	    if (s->lastVal <= s->high_red)
	       s->lastVal = 0;
	 } else {
	    color = myColor;
	    if (s->lastVal < s->low_red)
	       s->lastVal = 0;
	 }
	 old_x = s->lastVal * SL_WID / s->diff;
	 new_x = value * SL_WID / s->diff;
	 box(1, BX_OFF() + old_x, BY_OFF(i), new_x - old_x, SL_HEI, color);
      }
      s->lastVal = value;
   }
}

void
box(filled, x, y, wid, hei, color)
    int             filled, x, y, wid, hei;
    W_Color         color;
{
   if (wid == 0)
      return;

   if (filled) {
      /* XFIX */
      W_FillArea(statwin, x, y, wid + 1, hei + 1, color);
      return;
   }
   W_MakeLine(statwin, x, y, x + wid, y, color);
   W_MakeLine(statwin, x + wid, y, x + wid, y + hei, color);
   W_MakeLine(statwin, x + wid, y + hei, x, y + hei, color);
   W_MakeLine(statwin, x, y + hei, x, y, color);
}


void
calibrate_stats()
{
   register int    i;

   sliders[0].max = me->p_ship.s_maxshield;
   sliders[0].low_red = .20 * ((double) sliders[0].max);
   sliders[0].high_red = sliders[0].max;

   sliders[1].max = me->p_ship.s_maxdamage;

   sliders[2].max = me->p_ship.s_maxfuel;
   sliders[2].low_red = .20 * ((double) sliders[2].max);
   sliders[2].high_red = sliders[2].max;

   sliders[3].max = me->p_ship.s_maxspeed;
   sliders[3].high_red = sliders[3].max;

   /* was multiplied times 1.2, now no excess: a limited poll seems to
      indicate that no one likes the misleading behavior */
   sliders[4].max = 1.0 * ((double) me->p_ship.s_maxwpntemp);
   sliders[4].high_red = .667 * ((double) sliders[4].max);

   sliders[5].max = 1.0 * ((double) me->p_ship.s_maxegntemp);
   sliders[5].high_red = .667 * ((double) sliders[5].max);

#ifdef ARMY_SLIDER
   sliders[6].max = troop_capacity();
#endif				/* ARMY_SLIDER */

   for (i = 0; i < NUM_SLIDERS; i++)
      sliders[i].diff = sliders[i].max - sliders[i].min;

}