--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/wide_plist.c	Sat Dec 06 05:41:29 1997 +0000
@@ -0,0 +1,730 @@
+/* $Id: wide_plist.c,v 1.1.1.1 1997/12/06 05:41:31 darius Exp $ */
+
+
+#ifdef WIDE_PLIST
+#define PLIST1
+#define PLIST2
+#define PLIST
+/*
+ * playerlist.c
+ *
+ *   Fairly substantial re-write to do variable player lists: Sept 93 DRG
+ *   Paradise shoehorning:  2/13/94  [BDyess]
+ */
+#include "copyright.h"
+
+#include <stdio.h>
+#include "Wlib.h"
+#include "defs.h"
+#include "struct.h"
+#include "data.h"
+#include "gameconf.h"
+#include "proto.h"
+
+static char header[BUFSIZ];
+int     header_len=0;
+char   *old_playerList=NULL;
+char  **slottext=NULL;		/* array of strings shown in each slot
+				   [BDyess] */
+W_Color *slotcolors=NULL;		/* array of colors, one per slot [BDyess] */
+int     slottext_size=0;		/* keep track of the size in case nplayers
+				   changes */
+
+/*===========================================================================*/
+
+int
+playerlistnum()
+{
+    int     num = 0;
+    char   *ptr;
+    int     i;
+
+    ptr = playerList;
+    header[0] = '\0';
+    while (ptr[0] != '\0' && ptr[0] != ',') {
+	switch (ptr[0]) {
+	case 'n':		/* Ship Number */
+	    strcat(header, " No");
+	    num += 3;
+	    break;
+	case 'T':		/* Ship Type */
+	    strcat(header, " Ty");
+	    num += 3;
+	    break;
+	case 'R':		/* Rank */
+	    strcat(header, " Rank      ");
+	    num += 11;
+	    break;
+	case 'N':		/* Name */
+	    strcat(header, " Name            ");
+	    num += 17;
+	    break;
+	case 'K':		/* Kills */
+	    strcat(header, " Kills");
+	    num += 6;
+	    break;
+	case 'l':		/* Login Name */
+	    strcat(header, " Login           ");
+	    num += 17;
+	    break;
+	case 'O':		/* Offense */
+	    strcat(header, " Offse");
+	    num += 6;
+	    break;
+	case 'W':		/* Wins */
+	    strcat(header, "  Wins");
+	    num += 6;
+	    break;
+	case 'D':		/* Defense */
+	    strcat(header, " Defse");
+	    num += 6;
+	    break;
+	case 'L':		/* Losses */
+	    strcat(header, "  Loss");
+	    num += 6;
+	    break;
+	case 'S':		/* Total Rating (stats) */
+	    strcat(header, " Stats");
+	    num += 6;
+	    break;
+	case 'r':		/* Ratio */
+	    strcat(header, " Ratio");
+	    num += 6;
+	    break;
+	case 'd':		/* Damage Inflicted (DI) */
+	    strcat(header, "      DI");
+	    num += 8;
+	    break;
+	case ' ':		/* White Space */
+	    strcat(header, " ");
+	    num += 1;
+	    break;
+#ifdef PLIST1
+	case 'B':		/* Bombing */
+	    strcat(header, " Bmbng");
+	    num += 6;
+	    break;
+	case 'b':		/* Armies Bombed */
+	    strcat(header, " Bmbed");
+	    num += 6;
+	    break;
+	case 'P':		/* Planets */
+	    strcat(header, " Plnts");
+	    num += 6;
+	    break;
+	case 'p':		/* Planets Taken */
+	    strcat(header, " Plnts");
+	    num += 6;
+	    break;
+	case 'G':		/* Doosh rating ('oGGing') [BDyess] */
+	    strcat(header, " Dshng");
+	    num += 6;
+	    break;
+	case 'g':		/* number of dooshes [BDyess] */
+	    strcat(header, " Dshed");
+	    num += 6;
+	    break;
+	case 'F':		/* Resource rating [BDyess] */
+	    /* 'F' is from Farming...I'm out of good letters */
+	    strcat(header, " Resrc");
+	    num += 6;
+	    break;
+	case 'f':		/* number of Resources bombed [BDyess] */
+	    strcat(header, " Rsrcs");
+	    num += 6;
+	    break;
+	case 'Z':		/* SB rating [BDyess] */
+	    /* 'Z' is the last letter - a SB is the team anchor. :) */
+	    strcat(header, " SBrat");
+	    num += 6;
+	    break;
+	case 'z':		/* WB rating (small SB) [BDyess] */
+	    strcat(header, " WBrat");
+	    num += 6;
+	    break;
+	case 'J':		/* JS rating - good letter [BDyess] */
+	    strcat(header, " JSrat");
+	    num += 6;
+	    break;
+	case 'j':		/* JS planets [BDyess] */
+	    strcat(header, " JSpls");
+	    num += 6;
+	    break;
+	case 'C':		/* SpeCial ships rating [BDyess] */
+	    strcat(header, " Specl");
+	    num += 6;
+	    break;
+	case 'E':		/* genocides (Endings) [BDyess] */
+	    strcat(header, " Genos");
+	    num += 6;
+	    break;
+	case 'M':		/* Display, Host Machine */
+	    strcat(header, " Host Machine    ");
+	    num += 17;
+	    break;
+	case 'H':		/* Hours Played */
+	    strcat(header, "  Hours");
+	    num += 7;
+	    break;
+	case 'k':		/* Max Kills */
+	    strcat(header, " Max K");
+	    num += 6;
+	    break;
+	case 'V':		/* Kills per hour */
+	    strcat(header, "   KPH");
+	    num += 6;
+	    break;
+	case 'v':		/* Deaths per hour */
+	    strcat(header, "   DPH");
+	    num += 6;
+	    break;
+#endif
+#ifdef PLIST2
+	case 'w':		/* War staus */
+	    strcat(header, " War Stat");
+	    num += 9;
+	    break;
+	case 's':		/* Speed */
+	    strcat(header, " Sp");
+	    num += 3;
+	    break;
+#endif
+	default:
+	    fprintf(stderr, "%c is not an option for the playerlist\n", ptr[0]);
+	    break;
+	}
+	ptr++;
+    }
+
+    old_playerList = playerList;
+    header_len = num;
+    return (num);
+}
+
+/*===========================================================================*/
+
+void
+wideplayerlist()
+{
+    int     i;
+    int     old_len=header_len;
+    if (old_playerList != playerList) {
+	playerlistnum();
+        if(resizePlayerList)
+            W_ResizeText(playerw,header_len,W_WindowHeight(playerw));
+	/* init slottext [BDyess] */
+    }
+    for (i = 0; i < nplayers; i++)
+	slot[i] = -1;
+
+    W_ClearWindow(playerw);
+    
+    if (slottext && ((old_len != header_len) || (slottext_size != nplayers))) {
+	/* free the old one */
+	for (i = 0; i < slottext_size; i++) {
+	    free(slottext[i]);
+	}
+	free(slottext);
+	free(slotcolors);
+	slottext=0;
+    }
+    if(!slottext) {
+	slottext_size = nplayers;
+	slottext = (char **) malloc(sizeof(char *) * nplayers);
+	slotcolors = (W_Color *) malloc(sizeof(W_Color) * nplayers);
+	for (i = 0; i < nplayers; i++) {
+	    /* malloc extra room in case a line runs off the end */
+	    slottext[i] = (char *) malloc(sizeof(char) * header_len + 30);
+	    slottext[i][0] = 0;
+	    slotcolors[i] = -1;
+	}
+    }
+    W_WriteText(playerw, 0, 1, textColor, header, header_len, W_RegularFont);
+
+    for (i = 0; i < nplayers; i++) {
+	updatePlayer[i] = 1;
+    }
+
+    wideplayerlist2();
+}
+
+/*===========================================================================*/
+
+void
+writeDiffText(window, x, y, color, orig, new, font)
+    W_Window window;
+    int     x, y;
+    W_Color color;
+    char   *orig, *new;
+    W_Font  font;
+{
+/* little routine to print just the chars that are different between orig and
+   new.  [BDyess] */
+    int     i;
+    char   *start;
+
+    for (start = new, i = 0; new[i] && orig[i]; i++) {
+	if (orig[i] != new[i])
+	    continue;
+	if (start == new + i) {
+	    start++;
+	    continue;
+	} else {
+	    W_WriteText(window, x + start - new, y, color, start, new + i - start, font);
+	    start = new + i + 1;
+	}
+    }
+    if (start != new + i) {
+	/* finish up any remaining digits */
+	W_WriteText(window, x + start - new, y, color, start, new + i - start, font);
+    }
+    if (new[i]) {
+	/* write any text that extends past the old one */
+	W_WriteText(window, x + i, y, color, new + i, strlen(new + i), font);
+    } else if (orig[i]) {
+	/* print spaces to clear to EOL */
+	char   *freeme;
+	int     len;
+
+	len = strlen(orig + i);
+	freeme = (char *) malloc(len);
+	memset(freeme, ' ', len);
+	W_WriteText(window, x + i, y, color, freeme, len, font);
+    }
+}
+
+/*===========================================================================*/
+
+void
+plist_line(j, pos)
+    struct player *j;
+    int     pos;
+{
+    char    buf[BUFSIZ];
+    char   *ptr;
+    char    tmp[30];
+    int     my_ticks;
+    struct ratings r;
+    W_Color color;
+
+    get_ratings(j, &r);
+
+    if (pos < 2) {
+	printf("bad line position in playerlist\n");
+	pos = 2;
+    }
+    if (paradise)
+	my_ticks = j->p_stats2.st_tticks;
+    else
+	my_ticks = j->p_stats.st_tticks;
+
+    ptr = playerList;
+    buf[0] = '\0';
+    while (ptr[0] != '\0' && ptr[0] != ',') {
+	tmp[0] = '\0';
+	switch (ptr[0]) {
+	case 'n':		/* Ship Number */
+		tmp[0] = ' ';
+	    if (j->p_status != PALIVE) {
+		tmp[1] = ' ';
+	    } else {
+		tmp[1] = teaminfo[j->p_teami].letter;
+	    }
+		tmp[2] = shipnos[j->p_no];
+		tmp[3] = '\0';
+	    strcat(buf, tmp);
+	    break;
+	case 'T':		/* Ship Type */
+		tmp[0] = ' ';
+	    switch (j->p_status) {
+	    case PALIVE:
+		tmp[1] = j->p_ship->s_desig[0];
+		tmp[2] = j->p_ship->s_desig[1];
+		break;
+	    case PTQUEUE:
+		tmp[1] = 't';
+		tmp[2] = 'q';
+		break;
+	    case POUTFIT:
+		tmp[1] = '-';
+		tmp[2] = '-';
+		break;
+	    case PEXPLODE:
+	    case PDEAD:
+		tmp[1] = '*';
+		tmp[2] = '*';
+		break;
+	    case POBSERVE:
+		tmp[1] = 'o';
+		tmp[2] = 'b';
+		break;
+	    default:
+		tmp[1] = ' ';
+		tmp[2] = ' ';
+	    }
+	    tmp[3] = '\0';
+	    strcat(buf, tmp);
+	    break;
+	case 'R':		/* Rank */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%-10.10s", get_players_rank_name(j));
+	    strcat(buf, tmp);
+	    break;
+	case 'N':		/* Name */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%-16.16s", j->p_name);
+	    strcat(buf, tmp);
+	    break;
+	case 'K':		/* Kills */
+	    tmp[0] = ' ';
+	    if ((j->p_kills <= 0 &&
+		 (paradise || RSA_Client <= 0) && hideNoKills)
+		|| (j->p_status & ~PALIVE))
+		strcpy(tmp + 1, "     ");
+	    else
+		sprintf(tmp + 1, "%5.2f", j->p_kills);
+	    strcat(buf, tmp);
+	    break;
+	case 'l':		/* Login Name */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%-16.16s", j->p_login);
+	    strcat(buf, tmp);
+	    break;
+	case 'O':		/* Offense */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_offrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'W':		/* Wins */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_kills);
+	    strcat(buf, tmp);
+	    break;
+	case 'D':		/* Defense */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_defrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'L':		/* Losses */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_losses);
+	    strcat(buf, tmp);
+	    break;
+	case 'S':		/* Total Rating (stats) */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_ratings);
+	    strcat(buf, tmp);
+	    break;
+	case 'r':		/* Ratio */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_ratio);
+	    strcat(buf, tmp);
+	    break;
+	case 'd':		/* Damage Inflicted (DI) */
+	    tmp[0] = ' ';
+	    /*
+	       ftoa (Ratings * (j->p_stats.st_tticks / 36000.0), tmp+1, 0, 4,
+	       2);
+	    */
+	    sprintf(tmp + 1, "%7.2f", r.r_di);
+	    strcat(buf, tmp);
+	    break;
+	case ' ':		/* White Space */
+	    strcat(buf, " ");
+	    break;
+#ifdef PLIST1
+	case 'B':		/* Bombing */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_bombrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'b':		/* Armies Bombed */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_armies);
+	    strcat(buf, tmp);
+	    break;
+	case 'P':		/* Planets */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_planetrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'p':		/* Planets Taken */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_planets);
+	    strcat(buf, tmp);
+	    break;
+	case 'G':		/* Doosh rating ('oGGing') [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_dooshrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'g':		/* Dooshes [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_dooshes);
+	    strcat(buf, tmp);
+	    break;
+	case 'F':		/* Resource rating [BDyess] */
+	    /* 'F' is from Farming...I'm out of good letters */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_resrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'f':		/* number of Resources bombed [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_resources);
+	    strcat(buf, tmp);
+	    break;
+	case 'Z':		/* SB rating [BDyess] */
+	    /* 'Z' is the last letter - a SB is the team anchor. :) */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_sbrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'z':		/* WB rating (small SB) [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_wbrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'J':		/* JS rating - good letter [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_jsrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'j':		/* JS planets [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_jsplanets);
+	    strcat(buf, tmp);
+	    break;
+	case 'C':		/* SpeCial ships rating [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_specrat);
+	    strcat(buf, tmp);
+	    break;
+	case 'E':		/* genocides (Endings) [BDyess] */
+	    *tmp = ' ';
+	    sprintf(tmp + 1, "%5d", r.r_genocides);
+	    strcat(buf, tmp);
+	    break;
+	case 'M':		/* Display, Host Machine */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%-16.16s", j->p_monitor);
+	    strcat(buf, tmp);
+	    break;
+	case 'H':		/* Hours Played */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%6.2f", my_ticks / 36000.0);
+	    strcat(buf, tmp);
+	    break;
+	case 'k':		/* Max Kills  */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.2f", r.r_maxkills);
+	    strcat(buf, tmp);
+	    break;
+	case 'V':		/* Kills Per Hour  */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.1f", r.r_killsPerHour);
+	    strcat(buf, tmp);
+	    break;
+	case 'v':		/* Deaths Per Hour  */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%5.1f", r.r_lossesPerHour);
+	    strcat(buf, tmp);
+	    break;
+	case 'w':		/* War staus */
+	    if (j->p_swar & idx_to_mask(me->p_teami))
+		strcat(buf, " WAR     ");
+	    else if (j->p_hostile & idx_to_mask(me->p_teami))
+		strcat(buf, " HOSTILE ");
+	    else
+		strcat(buf, " PEACEFUL");
+	    break;
+#endif
+#ifdef PLIST2
+	case 's':		/* Speed */
+	    tmp[0] = ' ';
+	    sprintf(tmp + 1, "%2d", j->p_speed);
+	    strcat(buf, tmp);
+	    break;
+#endif
+	default:
+	    break;
+	}
+	ptr++;
+    }
+
+    color = playerColor(j);
+    if (slot[pos - 2] == j->p_no && slotcolors[pos - 2] == color) {
+	/* write the line, skipping chars that haven't changed [BDyess] */
+	writeDiffText(playerw, 0, pos, color, slottext[pos - 2], buf,
+		      shipFont(j));
+    } else {
+	W_WriteText(playerw, 0, pos, color, buf, strlen(buf),
+		    shipFont(j));
+    }
+    strcpy(slottext[pos - 2], buf);
+    slotcolors[pos - 2] = color;
+    slot[pos - 2] = j->p_no;
+}
+
+/*===========================================================================*/
+
+void
+Sorted_playerlist2()
+{
+    register int i, h, pos = 1, last, boolflag = 0;
+    register struct player *j;
+    static int num;
+    int     numplayers;
+
+  /* 20, not 16, is the max for non-paradise! Mostly the extra 4 are */
+  /* robots, but might as well show them and be safe... -JR*/
+  numplayers = (paradise) ? nplayers : 20;
+
+    /*
+       if (++num % 21 == 0) { boolflag = 1; num = 0; }
+    */
+    /* go through the teams in order */
+    for (h = 0; h < number_of_teams; h++) {
+	/* skip my team, I'll come back to it later */
+	if (me->p_teami == h)
+	    continue;
+
+	/* go through all the players looking for those on team h */
+	for (i = 0, j = &players[0]; i < numplayers; i++, j++) {
+	    if (j->p_teami != h)
+		continue;
+
+	    if (j->p_status == PFREE)
+		continue;
+
+          if(j->p_status == POUTFIT && !showDead) /* already know team */
+                                                  /* is valid.. */
+              continue;
+
+	    pos++;		/* put this AFTER checking for free slots to
+				   get a */
+                 /* nice compact list... */
+
+	    if (!updatePlayer[i] && slot[pos - 2] == i)
+		continue;
+
+	    updatePlayer[i] = 0;
+	    plist_line(j, pos);
+	}
+    }
+
+    /* now go through and do my team.  Note: ind players haven't been done */
+    if (me->p_teami >= 0 && me->p_teami < number_of_teams) {
+    for (i = 0, j = &players[i]; i < numplayers; i++, j++) {
+	if (j->p_teami != me->p_teami)
+	    continue;
+
+	    if (j->p_status == PFREE)
+	    continue;
+
+      if(j->p_status == POUTFIT && !showDead) /* already know team */
+                                                  /* is valid.. */
+          continue;
+
+      pos++;
+	    if (!updatePlayer[i] && slot[pos - 2] == i)
+	    continue;
+
+	updatePlayer[i] = 0;
+	plist_line(j, pos);
+    }
+    }
+#if 0				/* this code displays the ind players from
+				   the bottom up. */
+    /* not everyone has a 32 line playerlist, so this tends to */
+    /* make iggy invisible */
+    last = numplayers + 2;
+
+    for (i = numplayers - 1, j = &players[i]; i >= 0; i--, j--) {
+	if (j->p_teami >=0 && j->p_teami<number_of_teams)
+	    continue;
+
+	if (j->p_status == PFREE)
+	    continue;
+
+	last--;
+
+	if (!updatePlayer[i] && (!boolflag))
+	    continue;
+
+	updatePlayer[i] = 0;
+	plist_line(j, last);
+    }
+#endif				/* 0 */
+
+    for (i = 0, j = &players[0]; i < numplayers; i++, j++) {
+	if (j->p_teami >= 0 && j->p_teami < number_of_teams)
+	    continue;
+
+	if (j->p_status == PFREE)
+	    continue;
+
+	pos++;
+
+	if (!updatePlayer[i] && slot[pos - 2] == i)
+	    continue;
+
+	updatePlayer[i] = 0;
+	plist_line(j, pos);
+    }
+    /* now continue clearing lines until we get to an empty one */
+    pos++;
+    while ((pos - 2) < numplayers && slot[pos - 2] != -1 && slottext[pos - 2][0]) {
+	W_ClearArea(playerw, 0, pos, header_len, 1);
+	slot[pos - 2] = -1;
+	slottext[pos - 2][0] = 0;
+	pos++;
+    }
+
+#if 0
+    if (boolflag && (last > (pos + 1))) {
+	W_ClearArea(playerw, 0, pos + 1, header_len, last - (pos + 1));
+	slot[pos - 2] = -1;
+    }
+#endif				/* 0 */
+}
+
+/*===========================================================================*/
+
+void
+wideplayerlist2()
+{
+    register int i;
+    register struct player *j;
+    int     numplayers;
+
+    /* 20, not 16, is the max for non-paradise! Mostly the extra 4 are */
+    /* robots, but might as well show them and be safe... -JR */
+    numplayers = (paradise) ? nplayers : 20;
+
+    if (old_playerList != playerList) {
+	wideplayerlist();	/* refresh if playerList changed */
+	return;
+    }
+    if (!W_IsMapped(playerw))
+	return;
+
+    if (sortPlayers) {
+	Sorted_playerlist2();
+	return;
+    }
+    for (i = 0, j = &players[i]; i < numplayers; i++, j++) {
+	if (!updatePlayer[i])
+	    continue;
+
+	updatePlayer[i] = 0;
+
+	if (j->p_status == PFREE) {
+	    W_ClearArea(playerw, 0, i + 2, header_len, 1);
+	    continue;
+	}
+	plist_line(j, i + 2);
+    }
+}
+
+#endif				/* WIDE_PLIST */