initial import of 386bsd-0.1 sources

1 files changed, 642 insertions, 0 deletions

diff --git a/hack/hack.end.c b/hack/hack.end.c
new file mode 100644
index 00000000..0ddd2bd0
--- /dev/null
+++ b/hack/hack.end.c
@@ -0,0 +1,642 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.end.c - version 1.0.3 */
+
+#include "hack.h"
+#include <stdio.h>
+#include <signal.h>
+#define	Sprintf	(void) sprintf
+extern char plname[], pl_character[];
+extern char *itoa(), *ordin(), *eos();
+
+xchar maxdlevel = 1;
+
+void
+done1()
+{
+	(void) signal(SIGINT,SIG_IGN);
+	pline("Really quit?");
+	if(readchar() != 'y') {
+		(void) signal(SIGINT,done1);
+		clrlin();
+		(void) fflush(stdout);
+		if(multi > 0) nomul(0);
+		return;
+	}
+	done("quit");
+	/* NOTREACHED */
+}
+
+int done_stopprint;
+int done_hup;
+
+void
+done_intr(){
+	done_stopprint++;
+	(void) signal(SIGINT, SIG_IGN);
+	(void) signal(SIGQUIT, SIG_IGN);
+}
+
+void
+done_hangup(){
+	done_hup++;
+	(void) signal(SIGHUP, SIG_IGN);
+	done_intr();
+}
+
+done_in_by(mtmp) register struct monst *mtmp; {
+static char buf[BUFSZ];
+	pline("You die ...");
+	if(mtmp->data->mlet == ' '){
+		Sprintf(buf, "the ghost of %s", (char *) mtmp->mextra);
+		killer = buf;
+	} else if(mtmp->mnamelth) {
+		Sprintf(buf, "%s called %s",
+			mtmp->data->mname, NAME(mtmp));
+		killer = buf;
+	} else if(mtmp->minvis) {
+		Sprintf(buf, "invisible %s", mtmp->data->mname);
+		killer = buf;
+	} else killer = mtmp->data->mname;
+	done("died");
+}
+
+/* called with arg "died", "drowned", "escaped", "quit", "choked", "panicked",
+   "burned", "starved" or "tricked" */
+/* Be careful not to call panic from here! */
+done(st1)
+register char *st1;
+{
+
+#ifdef WIZARD
+	if(wizard && *st1 == 'd'){
+		u.uswldtim = 0;
+		if(u.uhpmax < 0) u.uhpmax = 100;	/* arbitrary */
+		u.uhp = u.uhpmax;
+		pline("For some reason you are still alive.");
+		flags.move = 0;
+		if(multi > 0) multi = 0; else multi = -1;
+		flags.botl = 1;
+		return;
+	}
+#endif WIZARD
+	(void) signal(SIGINT, done_intr);
+	(void) signal(SIGQUIT, done_intr);
+	(void) signal(SIGHUP, done_hangup);
+	if(*st1 == 'q' && u.uhp < 1){
+		st1 = "died";
+		killer = "quit while already on Charon's boat";
+	}
+	if(*st1 == 's') killer = "starvation"; else
+	if(*st1 == 'd' && st1[1] == 'r') killer = "drowning"; else
+	if(*st1 == 'p') killer = "panic"; else
+	if(*st1 == 't') killer = "trickery"; else
+	if(!index("bcd", *st1)) killer = st1;
+	paybill();
+	clearlocks();
+	if(flags.toplin == 1) more();
+	if(index("bcds", *st1)){
+#ifdef WIZARD
+	    if(!wizard)
+#endif WIZARD
+		savebones();
+		if(!flags.notombstone)
+			outrip();
+	}
+	if(*st1 == 'c') killer = st1;		/* after outrip() */
+	settty((char *) 0);	/* does a clear_screen() */
+	if(!done_stopprint)
+		printf("Goodbye %s %s...\n\n", pl_character, plname);
+	{ long int tmp;
+	  tmp = u.ugold - u.ugold0;
+	  if(tmp < 0)
+		tmp = 0;
+	  if(*st1 == 'd' || *st1 == 'b')
+		tmp -= tmp/10;
+	  u.urexp += tmp;
+	  u.urexp += 50 * maxdlevel;
+	  if(maxdlevel > 20)
+		u.urexp += 1000*((maxdlevel > 30) ? 10 : maxdlevel - 20);
+	}
+	if(*st1 == 'e') {
+		extern struct monst *mydogs;
+		register struct monst *mtmp;
+		register struct obj *otmp;
+		register int i;
+		register unsigned worthlessct = 0;
+		boolean has_amulet = FALSE;
+
+		killer = st1;
+		keepdogs();
+		mtmp = mydogs;
+		if(mtmp) {
+			if(!done_stopprint) printf("You");
+			while(mtmp) {
+				if(!done_stopprint)
+					printf(" and %s", monnam(mtmp));
+				if(mtmp->mtame)
+					u.urexp += mtmp->mhp;
+				mtmp = mtmp->nmon;
+			}
+			if(!done_stopprint)
+		    printf("\nescaped from the dungeon with %ld points,\n",
+			u.urexp);
+		} else
+		if(!done_stopprint)
+		  printf("You escaped from the dungeon with %ld points,\n",
+		    u.urexp);
+		for(otmp = invent; otmp; otmp = otmp->nobj) {
+			if(otmp->olet == GEM_SYM){
+				objects[otmp->otyp].oc_name_known = 1;
+				i = otmp->quan*objects[otmp->otyp].g_val;
+				if(i == 0) {
+					worthlessct += otmp->quan;
+					continue;
+				}
+				u.urexp += i;
+				if(!done_stopprint)
+				  printf("\t%s (worth %d Zorkmids),\n",
+				    doname(otmp), i);
+			} else if(otmp->olet == AMULET_SYM) {
+				otmp->known = 1;
+				i = (otmp->spe < 0) ? 2 : 5000;
+				u.urexp += i;
+				if(!done_stopprint)
+				  printf("\t%s (worth %d Zorkmids),\n",
+				    doname(otmp), i);
+				if(otmp->spe >= 0) {
+					has_amulet = TRUE;
+					killer = "escaped (with amulet)";
+				}
+			}
+		}
+		if(worthlessct) if(!done_stopprint)
+		  printf("\t%u worthless piece%s of coloured glass,\n",
+		  worthlessct, plur(worthlessct));
+		if(has_amulet) u.urexp *= 2;
+	} else
+		if(!done_stopprint)
+		  printf("You %s on dungeon level %d with %ld points,\n",
+		    st1, dlevel, u.urexp);
+	if(!done_stopprint)
+	  printf("and %ld piece%s of gold, after %ld move%s.\n",
+	    u.ugold, plur(u.ugold), moves, plur(moves));
+	if(!done_stopprint)
+  printf("You were level %u with a maximum of %d hit points when you %s.\n",
+	    u.ulevel, u.uhpmax, st1);
+	if(*st1 == 'e' && !done_stopprint){
+		getret();	/* all those pieces of coloured glass ... */
+		cls();
+	}
+#ifdef WIZARD
+	if(!wizard)
+#endif WIZARD
+		topten();
+	if(done_stopprint) printf("\n\n");
+	exit(0);
+}
+
+#define newttentry() (struct toptenentry *) alloc(sizeof(struct toptenentry))
+#define	NAMSZ	8
+#define	DTHSZ	40
+#define	PERSMAX	1
+#define	POINTSMIN	1	/* must be > 0 */
+#define	ENTRYMAX	100	/* must be >= 10 */
+#define	PERS_IS_UID		/* delete for PERSMAX per name; now per uid */
+struct toptenentry {
+	struct toptenentry *tt_next;
+	long int points;
+	int level,maxlvl,hp,maxhp;
+	int uid;
+	char plchar;
+	char sex;
+	char name[NAMSZ+1];
+	char death[DTHSZ+1];
+	char date[7];		/* yymmdd */
+} *tt_head;
+
+topten(){
+	int uid = getuid();
+	int rank, rank0 = -1, rank1 = 0;
+	int occ_cnt = PERSMAX;
+	register struct toptenentry *t0, *t1, *tprev;
+	char *recfile = RECORD;
+	char *reclock = "record_lock";
+	int sleepct = 300;
+	FILE *rfile;
+	register flg = 0;
+	extern char *getdate();
+#define	HUP	if(!done_hup)
+	while(link(recfile, reclock) == -1) {
+		HUP perror(reclock);
+		if(!sleepct--) {
+			HUP puts("I give up. Sorry.");
+			HUP puts("Perhaps there is an old record_lock around?");
+			return;
+		}
+		HUP printf("Waiting for access to record file. (%d)\n",
+			sleepct);
+		HUP (void) fflush(stdout);
+		sleep(1);
+	}
+	if(!(rfile = fopen(recfile,"r"))){
+		HUP puts("Cannot open record file!");
+		goto unlock;
+	}
+	HUP (void) putchar('\n');
+
+	/* create a new 'topten' entry */
+	t0 = newttentry();
+	t0->level = dlevel;
+	t0->maxlvl = maxdlevel;
+	t0->hp = u.uhp;
+	t0->maxhp = u.uhpmax;
+	t0->points = u.urexp;
+	t0->plchar = pl_character[0];
+	t0->sex = (flags.female ? 'F' : 'M');
+	t0->uid = uid;
+	(void) strncpy(t0->name, plname, NAMSZ);
+	(t0->name)[NAMSZ] = 0;
+	(void) strncpy(t0->death, killer, DTHSZ);
+	(t0->death)[DTHSZ] = 0;
+	(void) strcpy(t0->date, getdate());
+
+	/* assure minimum number of points */
+	if(t0->points < POINTSMIN)
+		t0->points = 0;
+
+	t1 = tt_head = newttentry();
+	tprev = 0;
+	/* rank0: -1 undefined, 0 not_on_list, n n_th on list */
+	for(rank = 1; ; ) {
+	  if(fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
+		t1->date, &t1->uid,
+		&t1->level, &t1->maxlvl,
+		&t1->hp, &t1->maxhp, &t1->points,
+		&t1->plchar, &t1->sex, t1->name, t1->death) != 11
+	  || t1->points < POINTSMIN)
+			t1->points = 0;
+	  if(rank0 < 0 && t1->points < t0->points) {
+		rank0 = rank++;
+		if(tprev == 0)
+			tt_head = t0;
+		else
+			tprev->tt_next = t0;
+		t0->tt_next = t1;
+		occ_cnt--;
+		flg++;		/* ask for a rewrite */
+	  } else
+		tprev = t1;
+	  if(t1->points == 0) break;
+	  if(
+#ifdef PERS_IS_UID
+	     t1->uid == t0->uid &&
+#else
+	     strncmp(t1->name, t0->name, NAMSZ) == 0 &&
+#endif PERS_IS_UID
+	     t1->plchar == t0->plchar && --occ_cnt <= 0){
+		if(rank0 < 0){
+			rank0 = 0;
+			rank1 = rank;
+	HUP printf("You didn't beat your previous score of %ld points.\n\n",
+				t1->points);
+		}
+		if(occ_cnt < 0){
+			flg++;
+			continue;
+		}
+	  }
+	  if(rank <= ENTRYMAX){
+	  	t1 = t1->tt_next = newttentry();
+	  	rank++;
+	  }
+	  if(rank > ENTRYMAX){
+		t1->points = 0;
+		break;
+	  }
+	}
+	if(flg) {	/* rewrite record file */
+		(void) fclose(rfile);
+		if(!(rfile = fopen(recfile,"w"))){
+			HUP puts("Cannot write record file\n");
+			goto unlock;
+		}
+
+		if(!done_stopprint) if(rank0 > 0){
+		    if(rank0 <= 10)
+			puts("You made the top ten list!\n");
+		    else
+		printf("You reached the %d%s place on the top %d list.\n\n",
+			rank0, ordin(rank0), ENTRYMAX);
+		}
+	}
+	if(rank0 == 0) rank0 = rank1;
+	if(rank0 <= 0) rank0 = rank;
+	if(!done_stopprint) outheader();
+	t1 = tt_head;
+	for(rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
+	  if(flg) fprintf(rfile,"%6s %d %d %d %d %d %ld %c%c %s,%s\n",
+	    t1->date, t1->uid,
+	    t1->level, t1->maxlvl,
+	    t1->hp, t1->maxhp, t1->points,
+	    t1->plchar, t1->sex, t1->name, t1->death);
+	  if(done_stopprint) continue;
+	  if(rank > flags.end_top &&
+	    (rank < rank0-flags.end_around || rank > rank0+flags.end_around)
+	    && (!flags.end_own ||
+#ifdef PERS_IS_UID
+				  t1->uid != t0->uid ))
+#else
+				  strncmp(t1->name, t0->name, NAMSZ)))
+#endif PERS_IS_UID
+	  	continue;
+	  if(rank == rank0-flags.end_around &&
+	     rank0 > flags.end_top+flags.end_around+1 &&
+	     !flags.end_own)
+		(void) putchar('\n');
+	  if(rank != rank0)
+		(void) outentry(rank, t1, 0);
+	  else if(!rank1)
+		(void) outentry(rank, t1, 1);
+	  else {
+		int t0lth = outentry(0, t0, -1);
+		int t1lth = outentry(rank, t1, t0lth);
+		if(t1lth > t0lth) t0lth = t1lth;
+		(void) outentry(0, t0, t0lth);
+	  }
+	}
+	if(rank0 >= rank) if(!done_stopprint)
+		(void) outentry(0, t0, 1);
+	(void) fclose(rfile);
+unlock:
+	(void) unlink(reclock);
+}
+
+outheader() {
+char linebuf[BUFSZ];
+register char *bp;
+	(void) strcpy(linebuf, "Number Points  Name");
+	bp = eos(linebuf);
+	while(bp < linebuf + COLNO - 9) *bp++ = ' ';
+	(void) strcpy(bp, "Hp [max]");
+	puts(linebuf);
+}
+
+/* so>0: standout line; so=0: ordinary line; so<0: no output, return lth */
+int
+outentry(rank,t1,so) register struct toptenentry *t1; {
+boolean quit = FALSE, killed = FALSE, starv = FALSE;
+char linebuf[BUFSZ];
+	linebuf[0] = 0;
+	if(rank) Sprintf(eos(linebuf), "%3d", rank);
+		else Sprintf(eos(linebuf), "   ");
+	Sprintf(eos(linebuf), " %6ld %8s", t1->points, t1->name);
+	if(t1->plchar == 'X') Sprintf(eos(linebuf), " ");
+	else Sprintf(eos(linebuf), "-%c ", t1->plchar);
+	if(!strncmp("escaped", t1->death, 7)) {
+	  if(!strcmp(" (with amulet)", t1->death+7))
+	    Sprintf(eos(linebuf), "escaped the dungeon with amulet");
+	  else
+	    Sprintf(eos(linebuf), "escaped the dungeon [max level %d]",
+	      t1->maxlvl);
+	} else {
+	  if(!strncmp(t1->death,"quit",4)) {
+	    quit = TRUE;
+	    if(t1->maxhp < 3*t1->hp && t1->maxlvl < 4)
+	  	Sprintf(eos(linebuf), "cravenly gave up");
+	    else
+		Sprintf(eos(linebuf), "quit");
+	  }
+	  else if(!strcmp(t1->death,"choked"))
+	    Sprintf(eos(linebuf), "choked on %s food",
+		(t1->sex == 'F') ? "her" : "his");
+	  else if(!strncmp(t1->death,"starv",5))
+	    Sprintf(eos(linebuf), "starved to death"), starv = TRUE;
+	  else Sprintf(eos(linebuf), "was killed"), killed = TRUE;
+	  Sprintf(eos(linebuf), " on%s level %d",
+	    (killed || starv) ? "" : " dungeon", t1->level);
+	  if(t1->maxlvl != t1->level)
+	    Sprintf(eos(linebuf), " [max %d]", t1->maxlvl);
+	  if(quit && t1->death[4]) Sprintf(eos(linebuf), t1->death + 4);
+	}
+	if(killed) Sprintf(eos(linebuf), " by %s%s",
+	  (!strncmp(t1->death, "trick", 5) || !strncmp(t1->death, "the ", 4))
+		? "" :
+	  index(vowels,*t1->death) ? "an " : "a ",
+	  t1->death);
+	Sprintf(eos(linebuf), ".");
+	if(t1->maxhp) {
+	  register char *bp = eos(linebuf);
+	  char hpbuf[10];
+	  int hppos;
+	  Sprintf(hpbuf, (t1->hp > 0) ? itoa(t1->hp) : "-");
+	  hppos = COLNO - 7 - strlen(hpbuf);
+	  if(bp <= linebuf + hppos) {
+	    while(bp < linebuf + hppos) *bp++ = ' ';
+	    (void) strcpy(bp, hpbuf);
+	    Sprintf(eos(bp), " [%d]", t1->maxhp);
+	  }
+	}
+	if(so == 0) puts(linebuf);
+	else if(so > 0) {
+	  register char *bp = eos(linebuf);
+	  if(so >= COLNO) so = COLNO-1;
+	  while(bp < linebuf + so) *bp++ = ' ';
+	  *bp = 0;
+	  standoutbeg();
+	  fputs(linebuf,stdout);
+	  standoutend();
+	  (void) putchar('\n');
+	}
+	return(strlen(linebuf));
+}
+
+char *
+itoa(a) int a; {
+static char buf[12];
+	Sprintf(buf,"%d",a);
+	return(buf);
+}
+
+char *
+ordin(n) int n; {
+register int d = n%10;
+	return((d==0 || d>3 || n/10==1) ? "th" : (d==1) ? "st" :
+		(d==2) ? "nd" : "rd");
+}
+
+clearlocks(){
+register x;
+	(void) signal(SIGHUP,SIG_IGN);
+	for(x = maxdlevel; x >= 0; x--) {
+		glo(x);
+		(void) unlink(lock);	/* not all levels need be present */
+	}
+}
+
+#ifdef NOSAVEONHANGUP
+hangup()
+{
+	(void) signal(SIGINT, SIG_IGN);
+	clearlocks();
+	exit(1);
+}
+#endif NOSAVEONHANGUP
+
+char *
+eos(s)
+register char *s;
+{
+	while(*s) s++;
+	return(s);
+}
+
+/* it is the callers responsibility to check that there is room for c */
+charcat(s,c) register char *s, c; {
+	while(*s) s++;
+	*s++ = c;
+	*s = 0;
+}
+
+/*
+ * Called with args from main if argc >= 0. In this case, list scores as
+ * requested. Otherwise, find scores for the current player (and list them
+ * if argc == -1).
+ */
+prscore(argc,argv) int argc; char **argv; {
+	extern char *hname;
+	char **players;
+	int playerct;
+	int rank;
+	register struct toptenentry *t1, *t2;
+	char *recfile = RECORD;
+	FILE *rfile;
+	register flg = 0;
+	register int i;
+#ifdef nonsense
+	long total_score = 0L;
+	char totchars[10];
+	int totcharct = 0;
+#endif nonsense
+	int outflg = (argc >= -1);
+#ifdef PERS_IS_UID
+	int uid = -1;
+#else
+	char *player0;
+#endif PERS_IS_UID
+
+	if(!(rfile = fopen(recfile,"r"))){
+		puts("Cannot open record file!");
+		return;
+	}
+
+	if(argc > 1 && !strncmp(argv[1], "-s", 2)){
+		if(!argv[1][2]){
+			argc--;
+			argv++;
+		} else if(!argv[1][3] && index("CFKSTWX", argv[1][2])) {
+			argv[1]++;
+			argv[1][0] = '-';
+		} else	argv[1] += 2;
+	}
+	if(argc <= 1){
+#ifdef PERS_IS_UID
+		uid = getuid();
+		playerct = 0;
+#else
+		player0 = plname;
+		if(!*player0)
+			player0 = "hackplayer";
+		playerct = 1;
+		players = &player0;
+#endif PERS_IS_UID
+	} else {
+		playerct = --argc;
+		players = ++argv;
+	}
+	if(outflg) putchar('\n');
+
+	t1 = tt_head = newttentry();
+	for(rank = 1; ; rank++) {
+	  if(fscanf(rfile, "%6s %d %d %d %d %d %ld %c%c %[^,],%[^\n]",
+		t1->date, &t1->uid,
+		&t1->level, &t1->maxlvl,
+		&t1->hp, &t1->maxhp, &t1->points,
+		&t1->plchar, &t1->sex, t1->name, t1->death) != 11)
+			t1->points = 0;
+	  if(t1->points == 0) break;
+#ifdef PERS_IS_UID
+	  if(!playerct && t1->uid == uid)
+		flg++;
+	  else
+#endif PERS_IS_UID
+	  for(i = 0; i < playerct; i++){
+		if(strcmp(players[i], "all") == 0 ||
+		   strncmp(t1->name, players[i], NAMSZ) == 0 ||
+		  (players[i][0] == '-' &&
+		   players[i][1] == t1->plchar &&
+		   players[i][2] == 0) ||
+		  (digit(players[i][0]) && rank <= atoi(players[i])))
+			flg++;
+	  }
+	  t1 = t1->tt_next = newttentry();
+	}
+	(void) fclose(rfile);
+	if(!flg) {
+	    if(outflg) {
+		printf("Cannot find any entries for ");
+		if(playerct < 1) printf("you.\n");
+		else {
+		  if(playerct > 1) printf("any of ");
+		  for(i=0; i<playerct; i++)
+			printf("%s%s", players[i], (i<playerct-1)?", ":".\n");
+		  printf("Call is: %s -s [playernames]\n", hname);
+		}
+	    }
+	    return;
+	}
+
+	if(outflg) outheader();
+	t1 = tt_head;
+	for(rank = 1; t1->points != 0; rank++, t1 = t2) {
+		t2 = t1->tt_next;
+#ifdef PERS_IS_UID
+		if(!playerct && t1->uid == uid)
+			goto outwithit;
+		else
+#endif PERS_IS_UID
+		for(i = 0; i < playerct; i++){
+			if(strcmp(players[i], "all") == 0 ||
+			   strncmp(t1->name, players[i], NAMSZ) == 0 ||
+			  (players[i][0] == '-' &&
+			   players[i][1] == t1->plchar &&
+			   players[i][2] == 0) ||
+			  (digit(players[i][0]) && rank <= atoi(players[i]))){
+			outwithit:
+				if(outflg)
+				    (void) outentry(rank, t1, 0);
+#ifdef nonsense
+				total_score += t1->points;
+				if(totcharct < sizeof(totchars)-1)
+				    totchars[totcharct++] = t1->plchar;
+#endif nonsense
+				break;
+			}
+		}
+		free((char *) t1);
+	}
+#ifdef nonsense
+	totchars[totcharct] = 0;
+
+	/* We would like to determine whether he is experienced. However,
+	   the information collected here only tells about the scores/roles
+	   that got into the topten (top 100?). We should maintain a
+	   .hacklog or something in his home directory. */
+	flags.beginner = (total_score < 6000);
+	for(i=0; i<6; i++)
+	    if(!index(totchars, "CFKSTWX"[i])) {
+		flags.beginner = 1;
+		if(!pl_character[0]) pl_character[0] = "CFKSTWX"[i];
+		break;
+	}
+#endif nonsense
+}