Initial revision

git-svn-id: file:///srv/svn/joey/bsdgames-trunk@5198 a4a2c43b-8ac3-0310-8836-e0e880c912e2
2025-12-21 03:14:50 +00:00 · 2003-03-29 12:05:29 +00:00
parent 4303fb4517
commit a6166b0988
80 changed files with 26217 additions and 0 deletions
--- a/hack/hack.main.c
+++ b/hack/hack.main.c
@@ -0,0 +1,587 @@
+/*	$NetBSD: hack.main.c,v 1.7 2002/05/26 00:12:12 wiz Exp $	*/
+
+/*
+ * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
+ * Amsterdam
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are
+ * met:
+ *
+ * - Redistributions of source code must retain the above copyright notice,
+ * this list of conditions and the following disclaimer.
+ *
+ * - 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.
+ *
+ * - Neither the name of the Stichting Centrum voor Wiskunde en
+ * Informatica, nor the names of its contributors may be used to endorse or
+ * promote products derived from this software without specific prior
+ * written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+ * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+ * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+ * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 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. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
+ * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+ * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/cdefs.h>
+#ifndef lint
+__RCSID("$NetBSD: hack.main.c,v 1.7 2002/05/26 00:12:12 wiz Exp $");
+#endif				/* not lint */
+
+#include <signal.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include "hack.h"
+#include "extern.h"
+
+#ifdef QUEST
+#define	gamename	"quest"
+#else
+#define	gamename	"hack"
+#endif
+
+int             (*afternmv)  __P((void));
+int             (*occupation)  __P((void));
+const char           *occtxt;		/* defined when occupation != NULL */
+
+int             hackpid;	/* current pid */
+int             locknum;	/* max num of players */
+#ifdef DEF_PAGER
+const char     *catmore;	/* default pager */
+#endif
+char            SAVEF[PL_NSIZ + 11] = "save/";	/* save/99999player */
+char           *hname;		/* name of the game (argv[0] of call) */
+char            obuf[BUFSIZ];	/* BUFSIZ is defined in stdio.h */
+
+int main __P((int, char *[]));
+static void chdirx __P((const char *, boolean));
+
+int
+main(argc, argv)
+	int             argc;
+	char           *argv[];
+{
+	int             fd;
+#ifdef CHDIR
+	char           *dir;
+#endif
+
+	/* Check for dirty tricks with closed fds 0, 1, 2 */
+	fd = open("/dev/null", O_RDONLY);
+	if (fd < 3)
+		exit(1);
+	close(fd);
+
+	hname = argv[0];
+	hackpid = getpid();
+
+#ifdef CHDIR			/* otherwise no chdir() */
+	/*
+	 * See if we must change directory to the playground.
+	 * (Perhaps hack runs suid and playground is inaccessible
+	 *  for the player.)
+	 * The environment variable HACKDIR is overridden by a
+	 *  -d command line option (must be the first option given)
+	 */
+
+	dir = getenv("HACKDIR");
+	if (argc > 1 && !strncmp(argv[1], "-d", 2)) {
+		argc--;
+		argv++;
+		dir = argv[0] + 2;
+		if (*dir == '=' || *dir == ':')
+			dir++;
+		if (!*dir && argc > 1) {
+			argc--;
+			argv++;
+			dir = argv[0];
+		}
+		if (!*dir)
+			error("Flag -d must be followed by a directory name.");
+	}
+#endif
+
+	/*
+	 * Who am i? Algorithm: 1. Use name as specified in HACKOPTIONS
+	 *			2. Use $USER or $LOGNAME	(if 1. fails)
+	 *			3. Use getlogin()		(if 2. fails)
+	 * The resulting name is overridden by command line options.
+	 * If everything fails, or if the resulting name is some generic
+	 * account like "games", "play", "player", "hack" then eventually
+	 * we'll ask him.
+	 * Note that we trust him here; it is possible to play under
+	 * somebody else's name.
+	 */
+	{
+		char           *s;
+
+		initoptions();
+		if (!*plname && (s = getenv("USER")))
+			(void) strncpy(plname, s, sizeof(plname) - 1);
+		if (!*plname && (s = getenv("LOGNAME")))
+			(void) strncpy(plname, s, sizeof(plname) - 1);
+		if (!*plname && (s = getlogin()))
+			(void) strncpy(plname, s, sizeof(plname) - 1);
+	}
+
+	/*
+	 * Now we know the directory containing 'record' and
+	 * may do a prscore().
+	 */
+	if (argc > 1 && !strncmp(argv[1], "-s", 2)) {
+#ifdef CHDIR
+		chdirx(dir, 0);
+#endif
+		prscore(argc, argv);
+		exit(0);
+	}
+	/*
+	 * It seems he really wants to play.
+	 * Remember tty modes, to be restored on exit.
+	 */
+	gettty();
+	setbuf(stdout, obuf);
+	setrandom();
+	startup();
+	cls();
+	u.uhp = 1;		/* prevent RIP on early quits */
+	u.ux = FAR;		/* prevent nscr() */
+	(void) signal(SIGHUP, hangup);
+
+	/*
+	 * Find the creation date of this game,
+	 * so as to avoid restoring outdated savefiles.
+	 */
+	gethdate(hname);
+
+	/*
+	 * We cannot do chdir earlier, otherwise gethdate will fail.
+	 */
+#ifdef CHDIR
+	chdirx(dir, 1);
+#endif
+
+	/*
+	 * Process options.
+	 */
+	while (argc > 1 && argv[1][0] == '-') {
+		argv++;
+		argc--;
+		switch (argv[0][1]) {
+#ifdef WIZARD
+		case 'D':
+			/* if(!strcmp(getlogin(), WIZARD)) */
+			wizard = TRUE;
+			/*
+			 * else printf("Sorry.\n");
+			 */
+			break;
+#endif
+#ifdef NEWS
+		case 'n':
+			flags.nonews = TRUE;
+			break;
+#endif
+		case 'u':
+			if (argv[0][2])
+				(void) strncpy(plname, argv[0] + 2, sizeof(plname) - 1);
+			else if (argc > 1) {
+				argc--;
+				argv++;
+				(void) strncpy(plname, argv[0], sizeof(plname) - 1);
+			} else
+				printf("Player name expected after -u\n");
+			break;
+		default:
+			/* allow -T for Tourist, etc. */
+			(void) strncpy(pl_character, argv[0] + 1,
+				       sizeof(pl_character) - 1);
+
+			/* printf("Unknown option: %s\n", *argv); */
+		}
+	}
+
+	if (argc > 1)
+		locknum = atoi(argv[1]);
+#ifdef MAX_NR_OF_PLAYERS
+	if (!locknum || locknum > MAX_NR_OF_PLAYERS)
+		locknum = MAX_NR_OF_PLAYERS;
+#endif
+#ifdef DEF_PAGER
+	if (((catmore = getenv("HACKPAGER")) == NULL &&
+	    (catmore = getenv("PAGER")) == NULL) ||
+	    catmore[0] == '\0')
+		catmore = DEF_PAGER;
+#endif
+#ifdef MAIL
+	getmailstatus();
+#endif
+#ifdef WIZARD
+	if (wizard)
+		(void) strcpy(plname, "wizard");
+	else
+#endif
+		if (!*plname || !strncmp(plname, "player", 4)
+		    || !strncmp(plname, "games", 4))
+		askname();
+	plnamesuffix();		/* strip suffix from name; calls askname() */
+	/* again if suffix was whole name */
+	/* accepts any suffix */
+#ifdef WIZARD
+	if (!wizard) {
+#endif
+		/*
+		 * check for multiple games under the same name
+		 * (if !locknum) or check max nr of players (otherwise)
+		 */
+		(void) signal(SIGQUIT, SIG_IGN);
+		(void) signal(SIGINT, SIG_IGN);
+		if (!locknum)
+			(void) strcpy(lock, plname);
+		getlock();	/* sets lock if locknum != 0 */
+#ifdef WIZARD
+	} else {
+		char           *sfoo;
+		(void) strcpy(lock, plname);
+		if ((sfoo = getenv("MAGIC")) != NULL)
+			while (*sfoo) {
+				switch (*sfoo++) {
+				case 'n':
+					(void) srandom(*sfoo++);
+					break;
+				}
+			}
+		if ((sfoo = getenv("GENOCIDED")) != NULL) {
+			if (*sfoo == '!') {
+				const struct permonst *pm = mons;
+				char           *gp = genocided;
+
+				while (pm < mons + CMNUM + 2) {
+					if (!strchr(sfoo, pm->mlet))
+						*gp++ = pm->mlet;
+					pm++;
+				}
+				*gp = 0;
+			} else
+				(void) strcpy(genocided, sfoo);
+			(void) strcpy(fut_geno, genocided);
+		}
+	}
+#endif
+	setftty();
+	(void) sprintf(SAVEF, "save/%d%s", getuid(), plname);
+	regularize(SAVEF + 5);	/* avoid . or / in name */
+	if ((fd = open(SAVEF, O_RDONLY)) >= 0 &&
+	    (uptodate(fd) || unlink(SAVEF) == 666)) {
+		(void) signal(SIGINT, done1);
+		pline("Restoring old save file...");
+		(void) fflush(stdout);
+		if (!dorecover(fd))
+			goto not_recovered;
+		pline("Hello %s, welcome to %s!", plname, gamename);
+		flags.move = 0;
+	} else {
+not_recovered:
+		fobj = fcobj = invent = 0;
+		fmon = fallen_down = 0;
+		ftrap = 0;
+		fgold = 0;
+		flags.ident = 1;
+		init_objects();
+		u_init();
+
+		(void) signal(SIGINT, done1);
+		mklev();
+		u.ux = xupstair;
+		u.uy = yupstair;
+		(void) inshop();
+		setsee();
+		flags.botlx = 1;
+		makedog();
+		{
+			struct monst   *mtmp;
+			if ((mtmp = m_at(u.ux, u.uy)) != NULL)
+				mnexto(mtmp);	/* riv05!a3 */
+		}
+		seemons();
+#ifdef NEWS
+		if (flags.nonews || !readnews())
+			/* after reading news we did docrt() already */
+#endif
+			docrt();
+
+		/* give welcome message before pickup messages */
+		pline("Hello %s, welcome to %s!", plname, gamename);
+
+		pickup(1);
+		read_engr_at(u.ux, u.uy);
+		flags.move = 1;
+	}
+
+	flags.moonphase = phase_of_the_moon();
+	if (flags.moonphase == FULL_MOON) {
+		pline("You are lucky! Full moon tonight.");
+		u.uluck++;
+	} else if (flags.moonphase == NEW_MOON) {
+		pline("Be careful! New moon tonight.");
+	}
+	initrack();
+
+	for (;;) {
+		if (flags.move) {	/* actual time passed */
+
+			settrack();
+
+			if (moves % 2 == 0 ||
+			    (!(Fast & ~INTRINSIC) && (!Fast || rn2(3)))) {
+				movemon();
+				if (!rn2(70))
+					(void) makemon((struct permonst *) 0, 0, 0);
+			}
+			if (Glib)
+				glibr();
+			timeout();
+			++moves;
+			if (flags.time)
+				flags.botl = 1;
+			if (u.uhp < 1) {
+				pline("You die...");
+				done("died");
+			}
+			if (u.uhp * 10 < u.uhpmax && moves - wailmsg > 50) {
+				wailmsg = moves;
+				if (u.uhp == 1)
+					pline("You hear the wailing of the Banshee...");
+				else
+					pline("You hear the howling of the CwnAnnwn...");
+			}
+			if (u.uhp < u.uhpmax) {
+				if (u.ulevel > 9) {
+					if (Regeneration || !(moves % 3)) {
+						flags.botl = 1;
+						u.uhp += rnd((int) u.ulevel - 9);
+						if (u.uhp > u.uhpmax)
+							u.uhp = u.uhpmax;
+					}
+				} else if (Regeneration ||
+					 (!(moves % (22 - u.ulevel * 2)))) {
+					flags.botl = 1;
+					u.uhp++;
+				}
+			}
+			if (Teleportation && !rn2(85))
+				tele();
+			if (Searching && multi >= 0)
+				(void) dosearch();
+			gethungry();
+			invault();
+			amulet();
+		}
+		if (multi < 0) {
+			if (!++multi) {
+				pline(nomovemsg ? nomovemsg :
+				      "You can move again.");
+				nomovemsg = 0;
+				if (afternmv)
+					(*afternmv) ();
+				afternmv = 0;
+			}
+		}
+		find_ac();
+#ifndef QUEST
+		if (!flags.mv || Blind)
+#endif
+		{
+			seeobjs();
+			seemons();
+			nscr();
+		}
+		if (flags.botl || flags.botlx)
+			bot();
+
+		flags.move = 1;
+
+		if (multi >= 0 && occupation) {
+			if (monster_nearby())
+				stop_occupation();
+			else if ((*occupation) () == 0)
+				occupation = 0;
+			continue;
+		}
+		if (multi > 0) {
+#ifdef QUEST
+			if (flags.run >= 4)
+				finddir();
+#endif
+			lookaround();
+			if (!multi) {	/* lookaround may clear multi */
+				flags.move = 0;
+				continue;
+			}
+			if (flags.mv) {
+				if (multi < COLNO && !--multi)
+					flags.mv = flags.run = 0;
+				domove();
+			} else {
+				--multi;
+				rhack(save_cm);
+			}
+		} else if (multi == 0) {
+#ifdef MAIL
+			ckmailstatus();
+#endif
+			rhack((char *) 0);
+		}
+		if (multi && multi % 7 == 0)
+			(void) fflush(stdout);
+	}
+}
+
+void
+glo(foo)
+	int foo;
+{
+	/* construct the string  xlock.n  */
+	char           *tf;
+
+	tf = lock;
+	while (*tf && *tf != '.')
+		tf++;
+	(void) sprintf(tf, ".%d", foo);
+}
+
+/*
+ * plname is filled either by an option (-u Player  or  -uPlayer) or
+ * explicitly (-w implies wizard) or by askname.
+ * It may still contain a suffix denoting pl_character.
+ */
+void
+askname()
+{
+	int             c, ct;
+	printf("\nWho are you? ");
+	(void) fflush(stdout);
+	ct = 0;
+	while ((c = getchar()) != '\n') {
+		if (c == EOF)
+			error("End of input\n");
+		/* some people get confused when their erase char is not ^H */
+		if (c == '\010') {
+			if (ct)
+				ct--;
+			continue;
+		}
+		if (c != '-')
+			if (c < 'A' || (c > 'Z' && c < 'a') || c > 'z')
+				c = '_';
+		if ((size_t)ct < sizeof(plname) - 1)
+			plname[ct++] = c;
+	}
+	plname[ct] = 0;
+	if (ct == 0)
+		askname();
+}
+
+/* VARARGS1 */
+void
+impossible(const char *s, ...)
+{
+	va_list ap;
+
+	va_start(ap, s);
+	vpline(s, ap);
+	va_end(ap);
+	pline("Program in disorder - perhaps you'd better Quit.");
+}
+
+#ifdef CHDIR
+static void
+chdirx(dir, wr)
+	const char     *dir;
+	boolean         wr;
+{
+
+#ifdef SECURE
+	if (dir			/* User specified directory? */
+#ifdef HACKDIR
+	    && strcmp(dir, HACKDIR)	/* and not the default? */
+#endif
+		) {
+		(void) setuid(getuid());	/* Ron Wessels */
+		(void) setregid(getgid(), getgid());
+	}
+#endif
+
+#ifdef HACKDIR
+	if (dir == NULL)
+		dir = HACKDIR;
+#endif
+
+	if (dir && chdir(dir) < 0) {
+		perror(dir);
+		error("Cannot chdir to %s.", dir);
+	}
+	/* warn the player if he cannot write the record file */
+	/* perhaps we should also test whether . is writable */
+	/* unfortunately the access systemcall is worthless */
+	if (wr) {
+		int fd;
+
+		if (dir == NULL)
+			dir = ".";
+		if ((fd = open(RECORD, O_RDWR)) < 0) {
+			printf("Warning: cannot write %s/%s", dir, RECORD);
+			getret();
+		} else
+			(void) close(fd);
+	}
+}
+#endif
+
+void
+stop_occupation()
+{
+	if (occupation) {
+		pline("You stop %s.", occtxt);
+		occupation = 0;
+	}
+}