--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rogue5/scedit.c	Mon May 24 20:10:59 2010 +0000
@@ -0,0 +1,298 @@
+/*
+ * score editor
+ *
+ * @(#)score.c	4.6 (Berkeley) 02/05/99
+ *
+ * Rogue: Exploring the Dungeons of Doom
+ * Copyright (C) 1980-1983, 1985, 1999 Michael Toy, Ken Arnold and Glenn Wichman
+ * All rights reserved.
+ *
+ * See the file LICENSE.TXT for full copyright and licensing information.
+ */
+
+# include   <curses.h>
+# include	<stdio.h>
+# include	<signal.h>
+# include	<ctype.h>
+
+#ifndef TRUE
+# define	TRUE	1
+#endif
+# define	FALSE	0
+# define	RN	(((seed = seed*11109+13849) >> 16) & 0xffff)
+
+# define	MAXSTR	80
+
+# include	"score.h"
+
+SCORE	top_ten[10];
+
+char	buf[BUFSIZ],
+	*reason[] = {
+		"killed",
+		"quit",
+		"A total winner",
+		"killed with amulet",
+	};
+
+int	seed;
+FILE	*inf;
+
+struct passwd	*getpwnam();
+int do_comm();
+int pr_score(SCORE *, int);
+
+int
+main(int ac, char *av[])
+{
+	char	*scorefile;
+	FILE	*outf;
+
+	if (ac == 1)
+		scorefile = "rogue54.scr";
+	else
+		scorefile = av[1];
+	seed = md_getpid();
+
+	if ((inf = fopen(scorefile, "r+")) < 0) {
+		perror(scorefile);
+		exit(1);
+	}
+	s_encread((char *) top_ten, sizeof top_ten, inf);
+
+	while (do_comm())
+		continue;
+
+	exit(0);
+}
+
+/*
+ * do_comm:
+ *	Get and execute a command
+ */
+int
+do_comm(void)
+{
+	char		*sp;
+	SCORE		*scp;
+	struct passwd	*pp;
+	static FILE	*outf = NULL;
+	static int written = TRUE;
+
+	printf("\nCommand: ");
+	while (isspace(buf[0] = getchar()) || buf[0] == '\n')
+		continue;
+	(void) fget(s&buf[1], BUFSIZ, stdin);
+	buf[strlen(buf) - 1] = '\0';
+	switch (buf[0]) {
+	  case 'w':
+		if (strncmp(buf, "write", strlen(buf)))
+			goto def;
+		lseek(inf, 0L, 0);
+		if (outf == NULL && (outf = fdopen(inf, "w")) == NULL) {
+			perror("fdopen");
+			exit(1);
+		}
+		fseek(outf, 0L, 0);
+		if (s_lock_sc())
+		{
+			void (*fp)(int);
+
+			fp = signal(SIGINT, SIG_IGN);
+			s_encwrite((char *) top_ten, sizeof top_ten, outf);
+			s_unlock_sc();
+			signal(SIGINT, fp);
+			written = TRUE;
+		}
+		break;
+
+	  case 'a':
+		if (strncmp(buf, "add", strlen(buf)))
+			goto def;
+		add_score();
+		written = FALSE;
+		break;
+
+	  case 'd':
+		if (strncmp(buf, "delete", strlen(buf)))
+			goto def;
+		del_score();
+		written = FALSE;
+		break;
+
+	  case 'p':
+		if (strncmp(buf, "print", strlen(buf)))
+			goto def;
+		printf("\nTop Ten Rogueists:\nRank\tScore\tName\n");
+		for (scp = top_ten; scp < &top_ten[10]; scp++)
+			if (!pr_score(scp, TRUE))
+				break;
+		break;
+
+	  case 'q':
+		if (strncmp(buf, "quit", strlen(buf)))
+			goto def;
+		if (!written) {
+			printf("No write\n");
+			written = TRUE;
+		}
+		else
+			return FALSE;
+		break;
+
+	  default:
+def:
+		printf("Unkown command: \"%s\"\n", buf);
+	}
+	return TRUE;
+}
+
+/*
+ * add_score:
+ *	Add a score to the score file
+ */
+
+void
+add_score(void)
+{
+	SCORE		*scp;
+	uid_t id = 0;
+	int		i;
+	SCORE	new;
+
+	printf("Name: ");
+	(void) fgets(new.sc_name, MAXSTR, stdin);
+	new.sc_name[strlen(new.sc_name) - 1] = '\0';
+	do {
+		printf("reason: ");
+		if ((new.sc_flags = getchar()) < '0' || new.sc_flags > '2') {
+			for (i = 0; i < 3; i++)
+				printf("%d: %s\n", i, reason[i]);
+			ungetc(new.sc_flags, stdin);
+		}
+		while (getchar() != '\n')
+			continue;
+	} while (new.sc_flags < '0' || new.sc_flags > '2');
+	new.sc_flags -= '0';
+	do {
+		printf("User Id: ");
+		(void) fgets(buf, BUFSIZ, stdin);
+		buf[strlen(buf) - 1] = '\0';
+        id = atoi(buf);
+	} while (id == -1);
+	new.sc_uid = id;
+	do {
+		printf("Monster: ");
+		if (!isalpha(new.sc_monster = getchar())) {
+			printf("type A-Za-z [%s]\n", unctrl(new.sc_monster));
+			ungetc(new.sc_monster, stdin);
+		}
+		while (getchar() != '\n')
+			continue;
+	} while (!isalpha(new.sc_monster));
+	printf("Score: ");
+	scanf("%d", &new.sc_score);
+	printf("level: ");
+	scanf("%d", &new.sc_level);
+	while (getchar() != '\n')
+		continue;
+	pr_score(&new, FALSE);
+	printf("Really add it? ");
+	if (getchar() != 'y')
+		return;
+	while (getchar() != '\n')
+		continue;
+	insert_score(&new);
+}
+
+/*
+ * pr_score:
+ *	Print out a score entry.  Return FALSE if last entry.
+ */
+
+pr_score(SCORE *scp, int num)
+{
+	if (scp->sc_score) {
+		if (num)
+			printf("%d", scp - top_ten + 1);
+		printf("\t%d\t%s: %s on level %d", scp->sc_score, scp->sc_name,
+		    reason[scp->sc_flags], scp->sc_level);
+		if (scp->sc_flags == 0)
+		    printf(" by %s", s_killname(scp->sc_monster, TRUE));
+		
+        printf(" (%s)", md_getrealname(scp->sc_uid));
+		putchar('\n');
+	}
+	return scp->sc_score;
+}
+
+/*
+ * insert_score:
+ *	Insert a score into the top ten list
+ */
+
+insert_score(SCORE *new)
+{
+	SCORE	*scp, *sc2;
+	int	flags, amount;
+	uid_t uid;
+
+	flags = new->sc_flags;
+	uid = new->sc_uid;
+	amount = new->sc_score;
+
+	for (scp = top_ten; scp < &top_ten[10]; scp++)
+		if (amount > scp->sc_score)
+			break;
+		else if (flags != 2 && scp->sc_uid == uid && scp->sc_flags != 2)
+			scp = &top_ten[10];
+	if (scp < &top_ten[10]) {
+		if (flags != 2)
+			for (sc2 = scp; sc2 < &top_ten[10]; sc2++) {
+			    if (sc2->sc_uid == uid && sc2->sc_flags != 2)
+				break;
+			}
+		else
+			sc2 = &top_ten[9];
+		while (sc2 > scp) {
+			*sc2 = sc2[-1];
+			sc2--;
+		}
+		*scp = *new;
+		sc2 = scp;
+	}
+}
+
+/*
+ * del_score:
+ *	Delete a score from the score list.
+ */
+void
+del_score(void)
+{
+	SCORE	*scp;
+	int	i;
+	int	num;
+
+	for (;;) {
+		printf("Which score? ");
+		(void) fgets(buf, BUFSIZ, stdin);
+		if (buf[0] == '\n')
+			return;
+		sscanf(buf, "%d", &num);
+		if (num < 1 || num > 10)
+			printf("range is 1-10\n");
+		else
+			break;
+	}
+	num--;
+	for (scp = &top_ten[num]; scp < &top_ten[9]; scp++)
+		*scp = scp[1];
+	top_ten[9].sc_score = 0;
+	for (i = 0; i < MAXSTR; i++)
+	    top_ten[9].sc_name[i] = RN;
+	top_ten[9].sc_flags = RN;
+	top_ten[9].sc_level = RN;
+	top_ten[9].sc_monster = RN;
+	top_ten[9].sc_uid = RN;
+}