From 057afceb86e030ad65b0130436860d9a18066186 Mon Sep 17 00:00:00 2001
From: jkh <jkh@FreeBSD.org>
Date: Sun, 4 Sep 1994 04:03:31 +0000
Subject: Bring in the 4.4 Lite games directory, modulo man page changes and
 segregation of the x11 based games.  I'm not going to tag the originals with
 bsd_44_lite and do this in two stages since it's just not worth it for this
 collection, and I've got directory renames to deal with that way.  Bleah.
 Submitted by:	jkh

---
 games/hack/hack.o_init.c | 160 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 160 insertions(+)
 create mode 100644 games/hack/hack.o_init.c

(limited to 'games/hack/hack.o_init.c')

diff --git a/games/hack/hack.o_init.c b/games/hack/hack.o_init.c
new file mode 100644
index 0000000..37b33ae
--- /dev/null
+++ b/games/hack/hack.o_init.c
@@ -0,0 +1,160 @@
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* hack.o_init.c - version 1.0.3 */
+
+#include	"config.h"		/* for typedefs */
+#include	"def.objects.h"
+#include	"hack.onames.h"		/* for LAST_GEM */
+extern char *index();
+
+int
+letindex(let) register char let; {
+register int i = 0;
+register char ch;
+	while((ch = obj_symbols[i++]) != 0)
+		if(ch == let) return(i);
+	return(0);
+}
+
+init_objects(){
+register int i, j, first, last, sum, end;
+register char let, *tmp;
+	/* init base; if probs given check that they add up to 100, 
+	   otherwise compute probs; shuffle descriptions */
+	end = SIZE(objects);
+	first = 0;
+	while( first < end ) {
+		let = objects[first].oc_olet;
+		last = first+1;
+		while(last < end && objects[last].oc_olet == let
+				&& objects[last].oc_name != NULL)
+			last++;
+		i = letindex(let);
+		if((!i && let != ILLOBJ_SYM) || bases[i] != 0)
+			error("initialization error");
+		bases[i] = first;
+
+		if(let == GEM_SYM)
+			setgemprobs();
+	check:
+		sum = 0;
+		for(j = first; j < last; j++) sum += objects[j].oc_prob;
+		if(sum == 0) {
+			for(j = first; j < last; j++)
+			    objects[j].oc_prob = (100+j-first)/(last-first);
+			goto check;
+		}
+		if(sum != 100)
+			error("init-prob error for %c", let);
+
+		if(objects[first].oc_descr != NULL && let != TOOL_SYM){
+			/* shuffle, also some additional descriptions */
+			while(last < end && objects[last].oc_olet == let)
+				last++;
+			j = last;
+			while(--j > first) {
+				i = first + rn2(j+1-first);
+				tmp = objects[j].oc_descr;
+				objects[j].oc_descr = objects[i].oc_descr;
+				objects[i].oc_descr = tmp;
+			}
+		}
+		first = last;
+	}
+}
+
+probtype(let) register char let; {
+register int i = bases[letindex(let)];
+register int prob = rn2(100);
+	while((prob -= objects[i].oc_prob) >= 0) i++;
+	if(objects[i].oc_olet != let || !objects[i].oc_name)
+		panic("probtype(%c) error, i=%d", let, i);
+	return(i);
+}
+
+setgemprobs()
+{
+	register int j,first;
+	extern xchar dlevel;
+
+	first = bases[letindex(GEM_SYM)];
+
+	for(j = 0; j < 9-dlevel/3; j++)
+		objects[first+j].oc_prob = 0;
+	first += j;
+	if(first >= LAST_GEM || first >= SIZE(objects) ||
+	    objects[first].oc_olet != GEM_SYM ||
+	    objects[first].oc_name == NULL)
+		printf("Not enough gems? - first=%d j=%d LAST_GEM=%d\n",
+			first, j, LAST_GEM);
+	for(j = first; j < LAST_GEM; j++)
+		objects[j].oc_prob = (20+j-first)/(LAST_GEM-first);
+}
+
+oinit()			/* level dependent initialization */
+{
+	setgemprobs();
+}
+
+extern long *alloc();
+
+savenames(fd) register fd; {
+register int i;
+unsigned len;
+	bwrite(fd, (char *) bases, sizeof bases);
+	bwrite(fd, (char *) objects, sizeof objects);
+	/* as long as we use only one version of Hack/Quest we
+	   need not save oc_name and oc_descr, but we must save
+	   oc_uname for all objects */
+	for(i=0; i < SIZE(objects); i++) {
+		if(objects[i].oc_uname) {
+			len = strlen(objects[i].oc_uname)+1;
+			bwrite(fd, (char *) &len, sizeof len);
+			bwrite(fd, objects[i].oc_uname, len);
+		}
+	}
+}
+
+restnames(fd) register fd; {
+register int i;
+unsigned len;
+	mread(fd, (char *) bases, sizeof bases);
+	mread(fd, (char *) objects, sizeof objects);
+	for(i=0; i < SIZE(objects); i++) if(objects[i].oc_uname) {
+		mread(fd, (char *) &len, sizeof len);
+		objects[i].oc_uname = (char *) alloc(len);
+		mread(fd, objects[i].oc_uname, len);
+	}
+}
+
+dodiscovered()				/* free after Robert Viduya */
+{
+    extern char *typename();
+    register int i, end;
+    int	ct = 0;
+
+    cornline(0, "Discoveries");
+
+    end = SIZE(objects);
+    for (i = 0; i < end; i++) {
+	if (interesting_to_discover (i)) {
+	    ct++;
+	    cornline(1, typename(i));
+	}
+    }
+    if (ct == 0) {
+	pline ("You haven't discovered anything yet...");
+	cornline(3, (char *) 0);
+    } else
+	cornline(2, (char *) 0);
+
+    return(0);
+}
+
+interesting_to_discover(i)
+register int i;
+{
+    return(
+	objects[i].oc_uname != NULL ||
+	 (objects[i].oc_name_known && objects[i].oc_descr != NULL)
+    );
+}
-- 
cgit v1.1