--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/srogue/rgdata.c	Thu Nov 25 12:21:41 2010 +0000
@@ -0,0 +1,229 @@
+/*
+ * Super-Rogue
+ * Copyright (C) 1984 Robert D. Kindelberger
+ * All rights reserved.
+ *
+ * See the file LICENSE.TXT for full copyright and licensing information.
+ */
+
+#include "global.c"
+
+main(argc,argv)
+char **argv;
+int argc;
+{
+	char *ptr;
+	int i, j, k;
+	struct magic_item *mi;
+	struct init_weps *wp;
+	struct init_armor *ar;
+	struct monster *mo;
+	FILE *fo;
+
+	/*
+	 * write to desired output file
+	 */
+	if (argc > 1) {
+		fo = fopen(argv[1], "w");
+		if (fo == NULL) {
+		printf("%s: %s not writable\n",argv[0],argv[1]);
+		exit(1);
+		}
+	}
+	else
+		fo = stdout;
+
+	/*
+	 * print total chances for armor, weapons, food, scrolls, etc
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t	ITEM GENERAL INFO\n\n\n");
+	fprintf(fo,"NAME\t\tCHANCE\t\tWEIGHT\n\n");
+	for (mi = &things[0]; mi < &things[NUMTHINGS]; mi++) {
+		fprintf(fo,"%s\t\t",mi->mi_name);
+		i = mi->mi_prob / 10;
+		j = mi->mi_prob % 10;
+		fprintf(fo,"%2d.%1d %%\t\t",i,j);
+		i = mi->mi_wght / 10;
+		j = mi->mi_wght % 10;
+		if (i == 0 && j == 0)
+			fprintf(fo,"%3s\n","*");
+		else
+			fprintf(fo,"%3d.%1d lbs\n",i,j);
+	}
+	fprintf(fo,"\n\n\n\n\n\n\nNOTES - * means that weight depends on which one of that item type\n");
+	fprintf(fo,"	  - All items weigh 20%% more when cursed\n");
+
+	/*
+	 * print stuff about potions
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t  POTION INFO\n\n\n");
+	fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n");
+	for (mi = &p_magic[0]; mi < &p_magic[MAXPOTIONS]; mi++) {
+		fprintf(fo,"%s\t",mi->mi_name);
+		k = strlen(mi->mi_name);
+		if (k < 8)
+			ptr = "\t\t\t";
+		else if (k >= 16)
+			ptr = "\t";
+		else
+			ptr = "\t\t";
+		fprintf(fo,"%s", ptr);
+		i = mi->mi_prob / 10;
+		j = mi->mi_prob % 10;
+		fprintf(fo,"%2d.%1d %%\t\t",i,j);
+		fprintf(fo,"%3d\n",mi->mi_worth);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTE - All potions weigh 0.5 lbs\n");
+	
+
+	/*
+	 * print stuff about scrolls
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t  SCROLL INFO\n\n\n");
+	fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n");
+	for (mi = &s_magic[0]; mi < &s_magic[MAXSCROLLS]; mi++) {
+		fprintf(fo,"%s\t",mi->mi_name);
+		k = strlen(mi->mi_name);
+		if (k < 8)
+			ptr = "\t\t\t";
+		else if (k >= 16)
+			ptr = "\t";
+		else
+			ptr = "\t\t";
+		fprintf(fo,"%s", ptr);
+		i = mi->mi_prob / 10;
+		j = mi->mi_prob % 10;
+		fprintf(fo,"%2d.%1d %%\t\t",i,j);
+		fprintf(fo,"%3d\n",mi->mi_worth);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTE - All scrolls weigh 3.0 lbs\n");
+
+
+	/*
+	 * print stuff about rings
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t  RING INFO\n\n\n");
+	fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n");
+	for (mi = &r_magic[0]; mi < &r_magic[MAXRINGS]; mi++) {
+		fprintf(fo,"%s\t",mi->mi_name);
+		k = strlen(mi->mi_name);
+		if (k < 8)
+			ptr = "\t\t\t";
+		else if (k >= 16)
+			ptr = "\t";
+		else
+			ptr = "\t\t";
+		fprintf(fo,"%s", ptr);
+		i = mi->mi_prob / 10;
+		j = mi->mi_prob % 10;
+		fprintf(fo,"%2d.%1d %%\t\t",i,j);
+		fprintf(fo,"%3d\n",mi->mi_worth);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTE - All rings weigh 0.5 lbs\n");
+
+
+	/*
+	 * print stuff about sticks
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t  STAFF/WAND INFO\n\n\n");
+	fprintf(fo,"NAME\t\t\t\tCHANCE\t\tWORTH\n\n");
+	for (mi = &ws_magic[0]; mi < &ws_magic[MAXSTICKS]; mi++) {
+		fprintf(fo,"%s\t",mi->mi_name);
+		k = strlen(mi->mi_name);
+		if (k < 8)
+			ptr = "\t\t\t";
+		else if (k >= 16)
+			ptr = "\t";
+		else
+			ptr = "\t\t";
+		fprintf(fo,"%s", ptr);
+		i = mi->mi_prob / 10;
+		j = mi->mi_prob % 10;
+		fprintf(fo,"%2d.%1d %%\t\t",i,j);
+		fprintf(fo,"%3d\n",mi->mi_worth);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTES - All wands weigh 6.0 lbs\n");
+	fprintf(fo,"	  - All staffs weigh 10.0 lbs\n");
+	fprintf(fo,"	  - Wands contain from 4 to 8 charges\n");
+	fprintf(fo,"	  - Staffs contain from 5 to 12 charges\n");
+	fprintf(fo,"	  - Sticks of light have an additional 7 to 15 charges\n");
+
+
+	/*
+	 * print armor info
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t\t\tARMOR INFO\n\n\n");
+	fprintf(fo,"NAME\t\t\t\tAC\tCHANCE\t\tWORTH\t\tWEIGHT\n\n");
+	for (ar = &armors[0]; ar < &armors[MAXARMORS]; ar++) {
+		fprintf(fo,"%s\t",ar->a_name);
+		k = strlen(ar->a_name);
+		if (k < 8)
+			ptr = "\t\t\t";
+		else if (k >= 16)
+			ptr = "\t";
+		else
+			ptr = "\t\t";
+		fprintf(fo,"%s", ptr);
+		fprintf(fo,"%2d\t",ar->a_class);
+		fprintf(fo,"%2d %%\t\t",ar->a_prob);
+		fprintf(fo,"%3d\t\t",ar->a_worth);
+		fprintf(fo,"%2d lbs\n",ar->a_wght / 10);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTE - All armor becomes 50%% lighter when blessed\n");
+
+
+	/*
+	 * print stuff about weapons
+	 */
+	fprintf(fo,"\n\n\n\n\n\n");
+	fprintf(fo,"\t\t\t\t\tWEAPON INFO\n\n\n");
+	fprintf(fo,
+	   "NAME\t\t\tHIT DAMAGE\tHURL DAMAGE\tWORTH\t\tWEIGHT\n\n");
+	for (wp = &weaps[0]; wp < &weaps[MAXWEAPONS]; wp++) {
+		fprintf(fo,"%s\t",wp->w_name);
+		k = strlen(wp->w_name);
+		if (k < 8)
+			ptr = "\t\t";
+		else if (k >= 16)
+			ptr = "";
+		else
+			ptr = "\t";
+		fprintf(fo,"%s", ptr);
+		ptr = wp->w_dam;
+		i = *ptr - '0';
+		j = 0;
+		ptr += 2;
+		while (*ptr != NULL) {
+			j = j * 10 + (*ptr - '0');
+			++ptr;
+		}
+		j *= i;
+		fprintf(fo,"  %d to %d\t",i,j);
+		ptr = wp->w_hrl;
+		i = *ptr - '0';
+		j = 0;
+		ptr += 2;
+		while (*ptr != NULL) {
+			j = j * 10 + (*ptr - '0');
+			++ptr;
+		}
+		j *= i;
+		fprintf(fo,"  %d to %d\t",i,j);
+		fprintf(fo,"%4d\t\t",wp->w_worth);
+		i = wp->w_wght / 10;
+		j = wp->w_wght % 10;
+		fprintf(fo,"%2d.%1d lbs\n",i,j);
+	}
+	fprintf(fo,"\n\n\n\n\nNOTE - All weapons become 50%% lighter when blessed\n");
+
+
+	/*
+	 * print stuff about the monsters
+	 */
+}