X-Git-Url: https://git.cameronkatri.com/bsdgames-darwin.git/blobdiff_plain/affbf9f6ccf3932cabfe781b99f7d654a597254c..e2fc204ddc36cdded5693d299f4f5c8b04c464c0:/adventure/init.c

diff --git a/adventure/init.c b/adventure/init.c
index 663e267f..5269b96c 100644
--- a/adventure/init.c
+++ b/adventure/init.c
@@ -1,4 +1,4 @@
-/*	$NetBSD: init.c,v 1.2 1995/03/21 12:05:04 cgd Exp $	*/
+/*	$NetBSD: init.c,v 1.17 2007/12/15 19:44:38 perry Exp $	*/
 
 /*-
  * Copyright (c) 1993
@@ -17,11 +17,7 @@
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *	This product includes software developed by the University of
- *	California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
@@ -38,185 +34,266 @@
  * SUCH DAMAGE.
  */
 
+#include <sys/cdefs.h>
 #ifndef lint
 #if 0
 static char sccsid[] = "@(#)init.c	8.1 (Berkeley) 6/2/93";
 #else
-static char rcsid[] = "$NetBSD: init.c,v 1.2 1995/03/21 12:05:04 cgd Exp $";
+__RCSID("$NetBSD: init.c,v 1.17 2007/12/15 19:44:38 perry Exp $");
 #endif
 #endif /* not lint */
 
-/*      Re-coding of advent in C: data initialization                   */
+/*      Re-coding of advent in C: data initialization */
 
 #include <sys/types.h>
+#include <signal.h>
 #include <stdio.h>
+#include <stdlib.h>
+#include <time.h>
+#include <unistd.h>
+
 #include "hdr.h"
+#include "extern.h"
+
+int     blklin = TRUE;
+
+int     setbit[16] = {1, 2, 4, 010, 020, 040, 0100, 0200, 0400, 01000, 02000, 
+		      04000, 010000, 020000, 040000, 0100000};
+
+int     datfd;			/* message file descriptor */
+volatile sig_atomic_t delhit;
+int     yea;
+
+int     loc, newloc, oldloc, oldlc2, wzdark, gaveup, kq, k, k2;
+char   *wd1, *wd2;		/* the complete words */
+int     verb, obj, spk;
+int     saveday, savet, mxscor, latncy;
+
+struct hashtab voc[HTSIZE];
+
+struct text rtext[RTXSIZ];	/* random text messages */
+
+struct text mtext[MAGSIZ];	/* magic messages */
+
+int     clsses;
+
+struct text ctext[CLSMAX];	/* classes of adventurer */
+int     cval[CLSMAX];
+
+struct text ptext[101];		/* object descriptions */
+
+struct text ltext[LOCSIZ];	/* long loc description */
+struct text stext[LOCSIZ];	/* short loc descriptions */
+
+struct travlist *travel[LOCSIZ], *tkk;	/* travel is closer to keys(...) */
+
+int     atloc[LOCSIZ];
+
+int     plac[101];		/* initial object placement */
+int     fixd[101], fixed[101];	/* location fixed? */
+
+int     actspk[35];		/* rtext msg for verb <n> */
 
-int blklin = TRUE;
+int     cond[LOCSIZ];		/* various condition bits */
 
-int setbit[16] = {1,2,4,010,020,040,0100,0200,0400,01000,02000,04000,
-		  010000,020000,040000,0100000};
+int     hntmax;
+int     hints[20][5];		/* info on hints */
+int     hinted[20], hintlc[20];
 
+int     place[101], prop[101], links[201];
+int     abb[LOCSIZ];
 
-init(command)                           /* everything for 1st time run  */
-char *command;                          /* command we were called with  */
+int     maxtrs, tally, tally2;	/* treasure values */
+
+int     keys, lamp, grate, cage, rod, rod2, steps,	/* mnemonics */
+        bird, door, pillow, snake, fissur, tablet, clam, oyster,
+        magzin, dwarf, knife, food, bottle, water, oil, plant, plant2,
+        axe, mirror, dragon, chasm, troll, troll2, bear, messag,
+        vend, batter, nugget, coins, chest, eggs, tridnt, vase,
+        emrald, pyram, pearl, rug, chain, spices, back, look, cave,
+        null, entrnc, dprssn, enter, stream, pour, say, lock, throw,
+        find, invent;
+
+int     chloc, chloc2, dseen[7], dloc[7],	/* dwarf stuff */
+        odloc[7], dflag, daltlc;
+
+int     tk[21], stick, dtotal, attack;
+int     turns, lmwarn, iwest, knfloc, detail,	/* various flags and
+						 * counters */
+        abbnum, maxdie, numdie, holdng, dkill, foobar, bonus, clock1,
+        clock2, saved, closng, panic, closed, scorng;
+
+int     demo, limit;
+
+/* everything for 1st time run */
+void
+init(void)
 {
-	rdata();                        /* read data from orig. file    */
+	rdata();		/* read data from orig. file */
 	linkdata();
 	poof();
 }
 
-char *decr(a,b,c,d,e)
-char a,b,c,d,e;
+char *
+decr(int a, int b, int c, int d, int e)
 {
 	static char buf[6];
 
-	buf[0] = a-'+';
-	buf[1] = b-'-';
-	buf[2] = c-'#';
-	buf[3] = d-'&';
-	buf[4] = e-'%';
+	buf[0] = a - '+';
+	buf[1] = b - '-';
+	buf[2] = c - '#';
+	buf[3] = d - '&';
+	buf[4] = e - '%';
 	buf[5] = 0;
 	return buf;
 }
 
-linkdata()                              /*  secondary data manipulation */
-{       register int i,j;
-
-	/*      array linkages          */
-	for (i=1; i<=LOCSIZ; i++)
-		if (ltext[i].seekadr!=0 && travel[i] != 0)
-			if ((travel[i]->tverb)==1) cond[i]=2;
-	for (j=100; j>0; j--)
-		if (fixd[j]>0)
-		{       drop(j+100,fixd[j]);
-			drop(j,plac[j]);
+void
+linkdata(void)
+{				/* secondary data manipulation */
+	int     i, j;
+
+	/* array linkages */
+	for (i = 1; i < LOCSIZ; i++)
+		if (ltext[i].seekadr != 0 && travel[i] != 0)
+			if ((travel[i]->tverb) == 1)
+				cond[i] = 2;
+	for (j = 100; j > 0; j--)
+		if (fixd[j] > 0) {
+			drop(j + 100, fixd[j]);
+			drop(j, plac[j]);
 		}
-	for (j=100; j>0; j--)
-	{       fixed[j]=fixd[j];
-		if (plac[j]!=0 && fixd[j]<=0) drop(j,plac[j]);
+	for (j = 100; j > 0; j--) {
+		fixed[j] = fixd[j];
+		if (plac[j] != 0 && fixd[j] <= 0)
+			drop(j, plac[j]);
 	}
 
-	maxtrs=79;
-	tally=0;
-	tally2=0;
+	maxtrs = 79;
+	tally = 0;
+	tally2 = 0;
 
-	for (i=50; i<=maxtrs; i++)
-	{       if (ptext[i].seekadr!=0) prop[i] = -1;
+	for (i = 50; i <= maxtrs; i++) {
+		if (ptext[i].seekadr != 0)
+			prop[i] = -1;
 		tally -= prop[i];
 	}
 
 	/* define mnemonics */
-	keys = vocab(DECR(k,e,y,s,\0), 1);
-	lamp = vocab(DECR(l,a,m,p,\0), 1);
-	grate = vocab(DECR(g,r,a,t,e), 1);
-	cage  = vocab(DECR(c,a,g,e,\0),1);
-	rod   = vocab(DECR(r,o,d,\0,\0),1);
-	rod2=rod+1;
-	steps=vocab(DECR(s,t,e,p,s),1);
-	bird  = vocab(DECR(b,i,r,d,\0),1);
-	door  = vocab(DECR(d,o,o,r,\0),1);
-	pillow= vocab(DECR(p,i,l,l,o), 1);
-	snake = vocab(DECR(s,n,a,k,e), 1);
-	fissur= vocab(DECR(f,i,s,s,u), 1);
-	tablet= vocab(DECR(t,a,b,l,e), 1);
-	clam  = vocab(DECR(c,l,a,m,\0),1);
-	oyster= vocab(DECR(o,y,s,t,e), 1);
-	magzin= vocab(DECR(m,a,g,a,z), 1);
-	dwarf = vocab(DECR(d,w,a,r,f), 1);
-	knife = vocab(DECR(k,n,i,f,e), 1);
-	food  = vocab(DECR(f,o,o,d,\0),1);
-	bottle= vocab(DECR(b,o,t,t,l), 1);
-	water = vocab(DECR(w,a,t,e,r), 1);
-	oil   = vocab(DECR(o,i,l,\0,\0),1);
-	plant = vocab(DECR(p,l,a,n,t), 1);
-	plant2=plant+1;
-	axe   = vocab(DECR(a,x,e,\0,\0),1);
-	mirror= vocab(DECR(m,i,r,r,o), 1);
-	dragon= vocab(DECR(d,r,a,g,o), 1);
-	chasm = vocab(DECR(c,h,a,s,m), 1);
-	troll = vocab(DECR(t,r,o,l,l), 1);
-	troll2=troll+1;
-	bear  = vocab(DECR(b,e,a,r,\0),1);
-	messag= vocab(DECR(m,e,s,s,a), 1);
-	vend  = vocab(DECR(v,e,n,d,i), 1);
-	batter= vocab(DECR(b,a,t,t,e), 1);
-
-	nugget= vocab(DECR(g,o,l,d,\0),1);
-	coins = vocab(DECR(c,o,i,n,s), 1);
-	chest = vocab(DECR(c,h,e,s,t), 1);
-	eggs  = vocab(DECR(e,g,g,s,\0),1);
-	tridnt= vocab(DECR(t,r,i,d,e), 1);
-	vase  = vocab(DECR(v,a,s,e,\0),1);
-	emrald= vocab(DECR(e,m,e,r,a), 1);
-	pyram = vocab(DECR(p,y,r,a,m), 1);
-	pearl = vocab(DECR(p,e,a,r,l), 1);
-	rug   = vocab(DECR(r,u,g,\0,\0),1);
-	chain = vocab(DECR(c,h,a,i,n), 1);
-
-	back  = vocab(DECR(b,a,c,k,\0),0);
-	look  = vocab(DECR(l,o,o,k,\0),0);
-	cave  = vocab(DECR(c,a,v,e,\0),0);
-	null  = vocab(DECR(n,u,l,l,\0),0);
-	entrnc= vocab(DECR(e,n,t,r,a), 0);
-	dprssn= vocab(DECR(d,e,p,r,e), 0);
-	enter = vocab(DECR(e,n,t,e,r), 0);
-
-	pour  = vocab(DECR(p,o,u,r,\0), 2);
-	say   = vocab(DECR(s,a,y,\0,\0),2);
-	lock  = vocab(DECR(l,o,c,k,\0),2);
-	throw = vocab(DECR(t,h,r,o,w), 2);
-	find  = vocab(DECR(f,i,n,d,\0),2);
-	invent= vocab(DECR(i,n,v,e,n), 2);
+	keys = vocab(DECR('k', 'e', 'y', 's', '\0'), 1, 0);
+	lamp = vocab(DECR('l', 'a', 'm', 'p', '\0'), 1, 0);
+	grate = vocab(DECR('g', 'r', 'a', 't', 'e'), 1, 0);
+	cage = vocab(DECR('c', 'a', 'g', 'e', '\0'), 1, 0);
+	rod = vocab(DECR('r', 'o', 'd', '\0', '\0'), 1, 0);
+	rod2 = rod + 1;
+	steps = vocab(DECR('s', 't', 'e', 'p', 's'), 1, 0);
+	bird = vocab(DECR('b', 'i', 'r', 'd', '\0'), 1, 0);
+	door = vocab(DECR('d', 'o', 'o', 'r', '\0'), 1, 0);
+	pillow = vocab(DECR('p', 'i', 'l', 'l', 'o'), 1, 0);
+	snake = vocab(DECR('s', 'n', 'a', 'k', 'e'), 1, 0);
+	fissur = vocab(DECR('f', 'i', 's', 's', 'u'), 1, 0);
+	tablet = vocab(DECR('t', 'a', 'b', 'l', 'e'), 1, 0);
+	clam = vocab(DECR('c', 'l', 'a', 'm', '\0'), 1, 0);
+	oyster = vocab(DECR('o', 'y', 's', 't', 'e'), 1, 0);
+	magzin = vocab(DECR('m', 'a', 'g', 'a', 'z'), 1, 0);
+	dwarf = vocab(DECR('d', 'w', 'a', 'r', 'f'), 1, 0);
+	knife = vocab(DECR('k', 'n', 'i', 'f', 'e'), 1, 0);
+	food = vocab(DECR('f', 'o', 'o', 'd', '\0'), 1, 0);
+	bottle = vocab(DECR('b', 'o', 't', 't', 'l'), 1, 0);
+	water = vocab(DECR('w', 'a', 't', 'e', 'r'), 1, 0);
+	oil = vocab(DECR('o', 'i', 'l', '\0', '\0'), 1, 0);
+	plant = vocab(DECR('p', 'l', 'a', 'n', 't'), 1, 0);
+	plant2 = plant + 1;
+	axe = vocab(DECR('a', 'x', 'e', '\0', '\0'), 1, 0);
+	mirror = vocab(DECR('m', 'i', 'r', 'r', 'o'), 1, 0);
+	dragon = vocab(DECR('d', 'r', 'a', 'g', 'o'), 1, 0);
+	chasm = vocab(DECR('c', 'h', 'a', 's', 'm'), 1, 0);
+	troll = vocab(DECR('t', 'r', 'o', 'l', 'l'), 1, 0);
+	troll2 = troll + 1;
+	bear = vocab(DECR('b', 'e', 'a', 'r', '\0'), 1, 0);
+	messag = vocab(DECR('m', 'e', 's', 's', 'a'), 1, 0);
+	vend = vocab(DECR('v', 'e', 'n', 'd', 'i'), 1, 0);
+	batter = vocab(DECR('b', 'a', 't', 't', 'e'), 1, 0);
+
+	nugget = vocab(DECR('g', 'o', 'l', 'd', '\0'), 1, 0);
+	coins = vocab(DECR('c', 'o', 'i', 'n', 's'), 1, 0);
+	chest = vocab(DECR('c', 'h', 'e', 's', 't'), 1, 0);
+	eggs = vocab(DECR('e', 'g', 'g', 's', '\0'), 1, 0);
+	tridnt = vocab(DECR('t', 'r', 'i', 'd', 'e'), 1, 0);
+	vase = vocab(DECR('v', 'a', 's', 'e', '\0'), 1, 0);
+	emrald = vocab(DECR('e', 'm', 'e', 'r', 'a'), 1, 0);
+	pyram = vocab(DECR('p', 'y', 'r', 'a', 'm'), 1, 0);
+	pearl = vocab(DECR('p', 'e', 'a', 'r', 'l'), 1, 0);
+	rug = vocab(DECR('r', 'u', 'g', '\0', '\0'), 1, 0);
+	chain = vocab(DECR('c', 'h', 'a', 'i', 'n'), 1, 0);
+
+	back = vocab(DECR('b', 'a', 'c', 'k', '\0'), 0, 0);
+	look = vocab(DECR('l', 'o', 'o', 'k', '\0'), 0, 0);
+	cave = vocab(DECR('c', 'a', 'v', 'e', '\0'), 0, 0);
+	null = vocab(DECR('n', 'u', 'l', 'l', '\0'), 0, 0);
+	entrnc = vocab(DECR('e', 'n', 't', 'r', 'a'), 0, 0);
+	dprssn = vocab(DECR('d', 'e', 'p', 'r', 'e'), 0, 0);
+	enter = vocab(DECR('e', 'n', 't', 'e', 'r'), 0, 0);
+
+	pour = vocab(DECR('p', 'o', 'u', 'r', '\0'), 2, 0);
+	say = vocab(DECR('s', 'a', 'y', '\0', '\0'), 2, 0);
+	lock = vocab(DECR('l', 'o', 'c', 'k', '\0'), 2, 0);
+	throw = vocab(DECR('t', 'h', 'r', 'o', 'w'), 2, 0);
+	find = vocab(DECR('f', 'i', 'n', 'd', '\0'), 2, 0);
+	invent = vocab(DECR('i', 'n', 'v', 'e', 'n'), 2, 0);
 
 	/* initialize dwarves */
-	chloc=114;
-	chloc2=140;
-	for (i=1; i<=6; i++)
-		dseen[i]=FALSE;
-	dflag=0;
-	dloc[1]=19;
-	dloc[2]=27;
-	dloc[3]=33;
-	dloc[4]=44;
-	dloc[5]=64;
-	dloc[6]=chloc;
-	daltlc=18;
+	chloc = 114;
+	chloc2 = 140;
+	for (i = 1; i <= 6; i++)
+		dseen[i] = FALSE;
+	dflag = 0;
+	dloc[1] = 19;
+	dloc[2] = 27;
+	dloc[3] = 33;
+	dloc[4] = 44;
+	dloc[5] = 64;
+	dloc[6] = chloc;
+	daltlc = 18;
 
 	/* random flags & ctrs */
-	turns=0;
-	lmwarn=FALSE;
-	iwest=0;
-	knfloc=0;
-	detail=0;
-	abbnum=5;
-	for (i=0; i<=4; i++)
-		if (rtext[2*i+81].seekadr!=0) maxdie=i+1;
-	numdie=holdng=dkill=foobar=bonus=0;
-	clock1=30;
-	clock2=50;
-	saved=0;
-	closng=panic=closed=scorng=FALSE;
+	turns = 0;
+	lmwarn = FALSE;
+	iwest = 0;
+	knfloc = 0;
+	detail = 0;
+	abbnum = 5;
+	for (i = 0; i <= 4; i++)
+		if (rtext[2 * i + 81].seekadr != 0)
+			maxdie = i + 1;
+	numdie = holdng = dkill = foobar = bonus = 0;
+	clock1 = 30;
+	clock2 = 50;
+	saved = 0;
+	closng = panic = closed = scorng = FALSE;
 }
 
-
-
-trapdel()                               /* come here if he hits a del   */
-{	delhit++;			/* main checks, treats as QUIT  */
-	signal(2,trapdel);		/* catch subsequent DELs        */
+/* come here if he hits a del */
+void
+trapdel(int n __unused)
+{
+	delhit = 1;		/* main checks, treats as QUIT */
+	signal(SIGINT, trapdel);/* catch subsequent DELs */
 }
 
 
-startup()
+void
+startup(void)
 {
-	time_t time();
-
-	demo=Start(0);
-	srand((int)(time((time_t *)NULL)));	/* random seed */
-	/* srand(371);				/* non-random seed */
-	hinted[3]=yes(65,1,0);
-	newloc=1;
+	demo = Start();
+	srand((int) (time((time_t *) NULL)));	/* random seed */
+#if 0
+	srand(371);		/* non-random seed */
+#endif
+	hinted[3] = yes(65, 1, 0);
+	newloc = 1;
 	delhit = 0;
-	limit=330;
-	if (hinted[3]) limit=1000;      /* better batteries if instrucs */
+	limit = 330;
+	if (hinted[3])
+		limit = 1000;	/* better batteries if instrucs */
 }