--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/inform.c	Sat Dec 06 05:41:29 1997 +0000
@@ -0,0 +1,561 @@
+/* $Id: inform.c,v 1.1.1.1 1997/12/06 05:41:29 darius Exp $ */
+
+/*
+ * inform.c
+ */
+#include "copyright.h"
+
+#include <stdio.h>
+#include <math.h>
+#include <signal.h>
+#include <string.h>
+#include "Wlib.h"
+#include "defs.h"
+#include "struct.h"
+#include "data.h"
+#include "proto.h"
+#include "gameconf.h"
+#ifdef SOUND
+#include "slib.h"
+#endif
+
+/* Display information about the nearest objext to mouse */
+
+/*
+** When the player asks for info, this routine finds the object
+** nearest the mouse, either player or planet, and pop up a window
+** with the desired information in it.
+**
+** We intentionally provide less information than is actually
+** available.  Keeps the fog of war up.
+**
+** There is a different sized window for each type player/planet
+** and we take care to keep it from extending beyond the main
+** window boundaries.
+*/
+
+/* Prototypes */
+static void inform_planet_paradise P((struct planet * k));
+static void Info_list_normal P((struct player * j));
+static void Info_list_paradise P((struct player * j));
+static void Info_list_small P((struct player * j));
+static void inform_planet_normal P((struct planet * k));
+
+int     last_key = 0;
+
+void
+inform(ww, x, y, key)
+    W_Window ww;
+    int     x, y;
+    char    key;
+{
+    char    buf[BUFSIZ];
+    int     line = 0;
+    register struct player *j;
+    register struct planet *k;
+    int     mx, my;
+    struct obtype *gettarget(), *target;
+    int     windowWidth, windowHeight;
+
+#ifdef SOUND
+    S_PlaySound(S_SENSORS);
+#endif
+    mx = x;
+    my = y;
+    last_key = key;
+    if (key == 'i') {
+	target = gettarget(ww, x, y, TARG_PLAYER | TARG_SELF | TARG_ASTRAL);
+    } else if (key == 'I') {
+	target = gettarget(ww, x, y, TARG_PLAYER | TARG_SELF);
+    } else {			/* control 'i' */
+	target = gettarget(ww, x, y, TARG_ASTRAL);
+	key = 'i';
+    }
+    if (target == NULL)
+	return;			/* NULL returned from gettarget indicates no
+				   target found. [BDyess] */
+    infomapped = 1;
+    if (keepInfo > 0 &&
+	key != 'I')		/* don't blast the long window */
+	infowin_up = keepInfo;
+
+    /*
+       This is pretty lame.  We make a graphics window for the info window so
+       we can accurately space the thing to barely fit into the galactic map
+       or whatever.
+    */
+
+    windowWidth = W_WindowWidth(ww);
+    windowHeight = W_WindowHeight(ww);
+    if (ww == playerw) {
+	windowWidth *= W_Textwidth;
+	windowHeight *= W_Textheight;
+    }
+    infotype = target->o_type;
+    if (target->o_type == PLAYERTYPE) {
+	/* Too close to the edge? */
+	if (mx + 23 * W_Textwidth + 2 > windowWidth)
+	    mx = windowWidth - 23 * W_Textwidth - 2;
+	if (my + 8 * W_Textheight + 2 > windowHeight)
+	    my = windowHeight - 8 * W_Textheight - 2;
+	if (key == 'i') {
+	    infow = W_MakeWindow("info", mx, my, 23 * W_Textwidth, 8 * W_Textheight,
+				 ww, (char *) 0, 2, foreColor);
+	    W_MapWindow(infow);
+	    j = &players[target->o_num];
+	    infothing = (void *) j;
+	    Info_list_small(j);
+	} else {		/* New information window! */
+	    if (!paradise) {	/* if a normal server then */
+		infow = W_MakeWindow("info", mx, my, 23 * W_Textwidth,
+			    8 * W_Textheight, ww, (char *) 0, 2, foreColor);
+		W_MapWindow(infow);
+		j = &players[target->o_num];
+		infothing = (void *) j;
+		(void) sprintf(buf, "%s (%c%c):", j->p_name,
+			     teaminfo[j->p_teami].letter, shipnos[j->p_no]);
+		W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+			    playerColor(j), buf, strlen(buf), shipFont(j));
+		Info_list_normal(j);
+	    } else {		/* else if a paradise server */
+		if (mx + 50 * W_Textwidth + 2 > windowWidth)
+		    mx = windowWidth - 50 * W_Textwidth - 2;
+		if (my + 25 * W_Textheight + 2 > windowHeight)
+		    my = windowHeight - 22 * W_Textheight - 2;
+		infow = W_MakeWindow("info", mx, my, 50 * W_Textwidth,
+			   22 * W_Textheight, ww, (char *) 0, 2, foreColor);
+		W_MapWindow(infow);
+		j = &players[target->o_num];
+		infothing = (void *) j;
+		(void) sprintf(buf, "%s (%c%c):", j->p_name,
+			     teaminfo[j->p_teami].letter, shipnos[j->p_no]);
+		W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+			    playerColor(j), buf, strlen(buf), shipFont(j));
+		Info_list_paradise(j);
+	    }
+	}
+    } else {			/* Planet */
+	if (paradise) {
+	    /* Too close to the edge? */
+	    if (mx + 25 * W_Textwidth + 2 > windowWidth)
+		mx = windowWidth - 25 * W_Textwidth - 2;
+	    if (my + 5 * W_Textheight + 2 > windowHeight)
+		my = windowHeight - 5 * W_Textheight - 2;
+
+	    infow = W_MakeWindow("info", mx, my, W_Textwidth * 25, W_Textheight * 5, ww,
+				 (char *) 0, 2, foreColor);
+	} else {
+	    /* Too close to the edge? */
+	    if (mx + 25 * W_Textwidth + 2 > windowWidth)
+		mx = windowWidth - 25 * W_Textwidth - 2;
+	    if (my + 3 * W_Textheight + 2 > windowHeight)
+		my = windowHeight - 5 * W_Textheight - 2;
+
+	    infow = W_MakeWindow("info", mx, my, W_Textwidth * 25, W_Textheight * 3, ww,
+				 (char *) 0, 2, foreColor);
+	}
+	W_MapWindow(infow);
+	k = &planets[target->o_num];
+	infothing = (void *) k;
+	/*
+	   dist = hypot((double) (me->p_x - k->pl_x), (double) (me->p_y -
+	   k->pl_y));
+	*/
+
+	if (!paradise) {	/* if not a paradise server */
+	    inform_planet_normal(k);
+	} else {		/* else must be a paradise server */
+	    inform_planet_paradise(k);	/* go display paradise info */
+	}
+    }
+}
+
+
+void
+destroyInfo()
+{
+    W_DestroyWindow(infow);
+    infow = 0;
+    infomapped = 0;
+    infotype = 0;
+    infoupdate = 0;
+}
+
+
+static void
+Info_list_small(j)
+    struct player *j;
+{
+    char    buf[100];
+    int     line = 0;
+    double  dist;
+
+    (void) sprintf(buf, "%s (%c%c):", j->p_name, teaminfo[j->p_teami].letter,
+		   shipnos[j->p_no]);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), shipFont(j));
+    (void) sprintf(buf, "Login   %-s", j->p_login);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+    (void) sprintf(buf, "Display %-s", j->p_monitor);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+    (void) sprintf(buf, "Speed   %-d", j->p_speed);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+    (void) sprintf(buf, "kills   %-4.2f", j->p_kills);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+    dist = hypot((double) (me->p_x - j->p_x),
+		 (double) (me->p_y - j->p_y)) / (double) GRIDSIZE;
+    (void) sprintf(buf, "dist    %-1.2f sectors", dist);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+    (void) sprintf(buf, "S-Class %-2.2s", j->p_ship->s_desig);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf),
+		W_RegularFont);
+
+    if (j->p_swar & idx_to_mask(me->p_teami))
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		    "WAR", 3,
+		    W_RegularFont);
+    else if (j->p_hostile & idx_to_mask(me->p_teami))
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		    "HOSTILE", 7,
+		    W_RegularFont);
+    else
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		    "PEACEFUL", 8,
+		    W_RegularFont);
+}
+
+static void
+inform_planet_normal(k)
+    struct planet *k;
+{
+    char    buf[100];
+    int     line = 0;
+
+    if (k->pl_info & idx_to_mask(me->p_teami)) {
+	(void) sprintf(buf, "%s (%c)", k->pl_name,
+		       teaminfo[mask_to_idx(k->pl_owner)].letter);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), planetFont(k));
+	(void) sprintf(buf, "Armies %d", k->pl_armies);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "%s %s %s   %s",
+		       (k->pl_flags & PLREPAIR ? "RPR" : "      "),
+		       (k->pl_flags & PLFUEL ? "FUEL" : "    "),
+		       (k->pl_flags & PLAGRI ? "AGRI" : "    "),
+		       team_bit_string(k->pl_info));
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+    } else {			/* else player has no info on planet */
+	(void) sprintf(buf, "%s", k->pl_name);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "No other info");
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), W_RegularFont);
+    }
+}
+
+
+/*  This function provides info about planets for a paradise version 2.0
+server.  */
+
+static void
+inform_planet_paradise(k)
+    struct planet *k;		/* the planet */
+{
+    char    buf[100];
+    int     line = 0;
+
+    if (k->pl_flags & PLSTAR) {	/* test if planet is a star */
+	(void) sprintf(buf, "%s", k->pl_name);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, textColor,
+		    buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "STAR  ");
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    textColor, buf, strlen(buf), W_RegularFont);
+    } else if (!(k->pl_info & idx_to_mask(me->p_teami))) {	/* else if no info */
+	(void) sprintf(buf, "%s", k->pl_name);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "No other info");
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), W_RegularFont);
+    } else {			/* else we have info */
+	(void) sprintf(buf, "%s (%c)", k->pl_name,
+		       teaminfo[mask_to_idx(k->pl_owner)].letter);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++, planetColor(k),
+		    buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "Armies %d", k->pl_armies);
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "%s %s %s %s",
+		       (k->pl_flags & PLREPAIR ? "RPR" : "      "),
+		       (k->pl_flags & PLFUEL ? "FUEL" : "    "),
+		       (k->pl_flags & PLAGRI ? "AGRI" : "    "),
+		       (k->pl_flags & PLSHIPYARD ? "SHPYD" : "     "));
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+	(void) sprintf(buf, "atmos: ");
+	switch (k->pl_flags & PLATMASK) {
+	case PLPOISON:
+	    strcat(buf, "TOXC  surfc: ");
+	    break;
+	case PLATYPE3:
+	    strcat(buf, "TNTD  surfc: ");
+	    break;
+	case PLATYPE2:
+	    strcat(buf, "THIN  surfc: ");
+	    break;
+	case PLATYPE1:
+	    strcat(buf, "STND  surfc: ");
+	    break;
+	default:
+	    strcat(buf, "      surfc: ");
+	    break;
+	};
+	if (k->pl_flags & PLDILYTH)
+	    strcat(buf, "D");
+	else
+	    strcat(buf, " ");
+	if (k->pl_flags & PLMETAL)
+	    strcat(buf, "M");
+	else
+	    strcat(buf, " ");
+	if (k->pl_flags & PLARABLE)
+	    strcat(buf, "A");
+	else
+	    strcat(buf, " ");
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+	sprintf(buf, "Time: %-5d Visit: %s",
+		((idx_to_mask(me->p_teami) == k->pl_owner) ? 0
+		 : (int) (status2->clock - k->pl_timestamp)),
+		team_bit_string(k->pl_info));
+	W_WriteText(infow, W_Textwidth, W_Textheight * line++,
+		    planetColor(k), buf, strlen(buf), W_RegularFont);
+    }
+}
+
+
+
+static void
+Info_list_normal(j)
+    struct player *j;		/* player to do info on */
+{
+    char    buf[80];
+    int     line = 0;
+    struct ratings r;
+
+    get_ratings(j, &r);
+    sprintf(buf, "%s (%c%c):", j->p_name, teaminfo[j->p_teami].letter,
+	    shipnos[j->p_no]);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    strcpy(buf, "        Rating Total");
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Bombing: %5.2f  %5d", r.r_bombrat, r.r_armies);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Planets: %5.2f  %5d", r.r_planetrat, r.r_planets);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Offense: %5.2f  %5d", r.r_offrat, r.r_kills);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Defense: %5.2f  %5d", r.r_defrat, r.r_losses);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "  Maxkills: %6.2f", r.r_maxkills);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "  Hours:    %6.2f", (float) j->p_stats.st_tticks / 36000.0);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+}
+
+static void
+Info_list_paradise(j)
+    struct player *j;		/* player to do info on */
+{
+    char    buf[80];
+    int     line = 0;
+    struct ratings r;
+
+    get_ratings(j, &r);
+
+    sprintf(buf, "Name: %s", j->p_name);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Rank: %s", ranks2[j->p_stats2.st_rank].name);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Royalty: %s", royal[j->p_stats2.st_royal].name);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Genocides: %4d", r.r_genocides);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "DI:     %7.2f", r.r_di);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Maxkills:%6.2f", j->p_stats2.st_tmaxkills);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Kills:     %4d", j->p_stats2.st_tkills);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Losses:    %4d", j->p_stats2.st_tlosses);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "T-hours: %6.2f", (float) j->p_stats2.st_tticks / 36000.0);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "   ");
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    strcpy(buf, "            Rating Total");
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Bombing:   %5.2f  %6d", r.r_bombrat, r.r_armies);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Planets:   %5.2f  %6d", r.r_planetrat, r.r_planets);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Resources: %5.2f  %6d", r.r_resrat, r.r_resources);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Dooshes:   %5.2f  %6d", r.r_dooshrat, r.r_dooshes);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Ratio:     %5.2f", j->p_stats2.st_tkills /
+	    ((j->p_stats2.st_tlosses) ? j->p_stats2.st_tlosses : 1.0));
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Offense:   %5.2f", r.r_offrat);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "   ");
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "RATINGS");
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Special ships: %7.2f", r.r_specrat);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Battle:        %7.2f", r.r_batrat);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Strategy:      %7.2f", r.r_stratrat);
+    W_WriteText(infow, W_Textwidth, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+
+    line = 1;
+    sprintf(buf, "   ");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "JUMPSHIP STATS");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Planets:    %7d", j->p_stats2.st_jsplanets);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Hours:      %7.2f", (float) j->p_stats2.st_jsticks / 36000.0);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "JS rating:  %7.2f", r.r_jsrat);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+
+    sprintf(buf, "   ");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "STARBASE STATS");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Kills:        %4d", j->p_stats2.st_sbkills);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Losses:       %4d", j->p_stats2.st_sblosses);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Hours:     %7.2f", (float) j->p_stats2.st_sbticks / 36000.0);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Maxkills:  %7.2f", j->p_stats2.st_sbmaxkills);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "SB rating: %7.2f", r.r_sbrat);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+
+    sprintf(buf, "   ");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "WARBASE STATS");
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Kills:        %4d", j->p_stats2.st_wbkills);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Losses:       %4d", j->p_stats2.st_wblosses);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Hours:     %7.2f", (float) j->p_stats2.st_wbticks / 36000.0);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "Maxkills:  %7.2f", j->p_stats2.st_wbmaxkills);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+    sprintf(buf, "WB rating: %7.2f", r.r_wbrat);
+    W_WriteText(infow, W_Textwidth * 28, W_Textheight * line++, playerColor(j),
+		buf, strlen(buf), W_RegularFont);
+}
+
+/*
+   constantly updating info window code [BDyess]
+*/
+void
+updateInform()
+{
+    if (!infomapped || !paradise)
+	return;			/* disabled for Bronco servers */
+    if (infotype == PLAYERTYPE && last_key == 'i' && (redrawPlayer[me->p_no] ||
+			 redrawPlayer[((struct player *) infothing)->p_no]))
+	infoupdate = 1;
+    if (infoupdate) {
+	infoupdate = 0;
+	W_ClearWindow(infow);
+	if (infotype == PLAYERTYPE) {
+	    /* if(isAlive((struct player*)infothing)) { */
+	    if (last_key == 'i')/* use small info */
+		Info_list_small((struct player *) infothing);
+	    else if (!paradise)
+		Info_list_normal((struct player *) infothing);
+	    else
+		Info_list_paradise((struct player *) infothing);
+	    /*
+	       } else { destroyInfo(); }
+	    */
+	} else {		/* planet */
+	    if (!paradise)
+		inform_planet_normal((struct planet *) infothing);
+	    else
+		inform_planet_paradise((struct planet *) infothing);
+	}
+    }
+}