--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ranklist.c	Sat Dec 06 05:41:29 1997 +0000
@@ -0,0 +1,95 @@
+/* $Id: ranklist.c,v 1.1.1.1 1997/12/06 05:41:30 darius Exp $ */
+
+/*
+ * ranklist.c
+ *
+ * Kevin P. Smith 12/5/88
+ *
+ */
+#include "copyright2.h"
+
+#include <stdio.h>
+#include "Wlib.h"
+#include "defs.h"
+#include "struct.h"
+#include "data.h"
+#include "proto.h"
+
+/* Prototypes */
+static void print_ranks_paradise P((void));
+
+
+void
+ranklist()
+{
+    register int i;
+    char    buf[80];
+
+    /*
+       W_ClearWindow(rankw);
+    */
+    if (!paradise) {
+	(void) strcpy(buf, "  Rank       Hours  Defense  Ratings      DI");
+	W_WriteText(rankw, 1, 1, textColor, buf, strlen(buf), W_BoldFont);
+	for (i = 0; i < NUMRANKS; i++) {
+	    sprintf(buf, "%-11.11s %5.0f %8.2f %8.2f   %7.2f",
+		    ranks[i].name,
+		    ranks[i].hours,
+		    ranks[i].defense,
+		    ranks[i].ratings,
+		    ranks[i].ratings * ranks[i].hours);
+	    if (mystats->st_rank == i) {
+		W_WriteText(rankw, 1, i + 2, W_Cyan, buf, strlen(buf), W_BoldFont);
+	    } else {
+		W_WriteText(rankw, 1, i + 2, textColor, buf, strlen(buf),
+			    W_RegularFont);
+	    }
+	}
+	strcpy(buf, "To achieve a rank, you need a high enough defense, and");
+	W_WriteText(rankw, 1, i + 3, textColor, buf, strlen(buf), W_RegularFont);
+	strcpy(buf, "either enough hours, and bombing + planet + offense ratings");
+	W_WriteText(rankw, 1, i + 4, textColor, buf, strlen(buf), W_RegularFont);
+	strcpy(buf, "above shown ratings, or too few hours, and a DI rating above");
+	W_WriteText(rankw, 1, i + 5, textColor, buf, strlen(buf), W_RegularFont);
+	strcpy(buf, "the shown DI rating.");
+	W_WriteText(rankw, 1, i + 6, textColor, buf, strlen(buf), W_RegularFont);
+    } else {			/* else we are in a paradise server */
+	print_ranks_paradise();
+    }
+}
+
+
+
+static void
+print_ranks_paradise()
+{
+    register int i;
+    char    buf[80];
+
+    W_ResizeText(rankw, 65, nranks2 + 8);
+
+    (void) strcpy(buf, "  Rank       genocides  DI    battle strategy  special ships");
+    W_WriteText(rankw, 1, 1, textColor, buf, strlen(buf), W_BoldFont);
+    for (i = 0; i < nranks2; i++) {
+	sprintf(buf, "%-11.11s %5d %8.2f %8.2f %8.2f   %7.2f",
+		ranks2[i].name,
+		ranks2[i].genocides,
+		ranks2[i].di,
+		ranks2[i].battle,
+		ranks2[i].strategy,
+		ranks2[i].specship);
+	if (mystats->st_rank == i) {
+	    W_WriteText(rankw, 1, i + 2, W_Cyan, buf, strlen(buf), W_BoldFont);
+	} else {
+	    W_WriteText(rankw, 1, i + 2, textColor, buf, strlen(buf), W_RegularFont);
+	}
+    }
+    strcpy(buf, "To achieve a rank, you need a high enough number of");
+    W_WriteText(rankw, 1, i + 3, textColor, buf, strlen(buf), W_RegularFont);
+    strcpy(buf, "genocides, a high enough DI, a high enough battle");
+    W_WriteText(rankw, 1, i + 4, textColor, buf, strlen(buf), W_RegularFont);
+    strcpy(buf, "rating, a high enough strategy rating, and a high");
+    W_WriteText(rankw, 1, i + 5, textColor, buf, strlen(buf), W_RegularFont);
+    strcpy(buf, "enough special ship rating");
+    W_WriteText(rankw, 1, i + 6, textColor, buf, strlen(buf), W_RegularFont);
+}