initial import of NetBSD tree

3 files changed, 381 insertions, 0 deletions

diff --git a/games/worm/Makefile b/games/worm/Makefile
new file mode 100644
index 00000000000..c79fc0d2fa7
--- /dev/null
+++ b/games/worm/Makefile
@@ -0,0 +1,10 @@
+#	$NetBSD: Makefile,v 1.5 1995/04/22 07:56:19 cgd Exp $
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	worm
+MAN=	worm.6
+DPADD=	${LIBCURSES} ${LIBTERM}
+LDADD=	-lcurses -ltermcap
+HIDEGAME=hidegame
+
+.include <bsd.prog.mk>
diff --git a/games/worm/worm.6 b/games/worm/worm.6
new file mode 100644
index 00000000000..a4ba9bdcf9a
--- /dev/null
+++ b/games/worm/worm.6
@@ -0,0 +1,67 @@
+.\"	$NetBSD: worm.6,v 1.4 1995/04/22 07:56:21 cgd Exp $
+.\"
+.\" Copyright (c) 1989, 1993
+.\"	The Regents of the University of California.  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. 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
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
+.\"
+.\"	@(#)worm.6	8.1 (Berkeley) 5/31/93
+.\"
+.Dd May 31, 1993
+.Dt WORM 6
+.Os
+.Sh NAME
+.Nm worm
+.Nd Play the growing worm game
+.Sh SYNOPSIS
+.Nm worm
+.Op Ar size
+.Sh DESCRIPTION
+In
+.Nm worm,
+you are a little worm, your body is the "o"'s on the screen
+and your head is the "@".  You move with the hjkl keys (as in the game
+snake).  If you don't press any keys, you continue in the direction you
+last moved.  The upper case HJKL keys move you as if you had pressed
+several (9 for HL and 5 for JK) of the corresponding lower case key
+(unless you run into a digit, then it stops).
+.Pp
+On the screen you will see a digit, if your worm eats the digit is will
+grow longer, the actual amount longer depends on which digit it was
+that you ate.  The object of the game is to see how long you can make
+the worm grow.
+.Pp
+The game ends when the worm runs into either the sides of the screen,
+or itself.  The current score (how much the worm has grown) is kept in
+the upper left corner of the screen.
+.Pp
+The optional argument, if present, is the initial length of the worm.
+.Sh BUGS
+If the initial length of the worm is set to less than one or more
+than 75, various strange things happen.
diff --git a/games/worm/worm.c b/games/worm/worm.c
new file mode 100644
index 00000000000..e4488bc0732
--- /dev/null
+++ b/games/worm/worm.c
@@ -0,0 +1,304 @@
+/*	$NetBSD: worm.c,v 1.7 1995/04/29 01:12:41 mycroft Exp $	*/
+
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  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. 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
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1980, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+#if 0
+static char sccsid[] = "@(#)worm.c	8.1 (Berkeley) 5/31/93";
+#else
+static char rcsid[] = "$NetBSD: worm.c,v 1.7 1995/04/29 01:12:41 mycroft Exp $";
+#endif
+#endif /* not lint */
+
+/*
+ * Worm.  Written by Michael Toy
+ * UCSC
+ */
+
+#include <ctype.h>
+#include <curses.h>
+#include <signal.h>
+#include <stdlib.h>
+#include <termios.h>
+
+#define newlink() (struct body *) malloc(sizeof (struct body));
+#define HEAD '@'
+#define BODY 'o'
+#define LENGTH 7
+#define RUNLEN 8
+#define CNTRL(p) (p-'A'+1)
+
+WINDOW *tv;
+WINDOW *stw;
+struct body {
+	int x;
+	int y;
+	struct body *prev;
+	struct body *next;
+} *head, *tail, goody;
+int growing = 0;
+int running = 0;
+int slow = 0;
+int score = 0;
+int start_len = LENGTH;
+char lastch;
+char outbuf[BUFSIZ];
+
+void leave(), wake(), suspend();
+
+main(argc, argv)
+	int argc;
+	char **argv;
+{
+	char ch;
+
+	if (argc == 2)
+		start_len = atoi(argv[1]);
+	if ((start_len <= 0) || (start_len > 500))
+		start_len = LENGTH;
+	setbuf(stdout, outbuf);
+	srand(getpid());
+	signal(SIGALRM, wake);
+	signal(SIGINT, leave);
+	signal(SIGQUIT, leave);
+	signal(SIGTSTP, suspend);	/* process control signal */
+	initscr();
+	crmode();
+	noecho();
+	slow = (baudrate() <= 1200);
+	clear();
+	stw = newwin(1, COLS-1, 0, 0);
+	tv = newwin(LINES-1, COLS-1, 1, 0);
+	box(tv, '*', '*');
+	scrollok(tv, FALSE);
+	scrollok(stw, FALSE);
+	wmove(stw, 0, 0);
+	wprintw(stw, " Worm");
+	refresh();
+	wrefresh(stw);
+	wrefresh(tv);
+	life();			/* Create the worm */
+	prize();		/* Put up a goal */
+	while(1)
+	{
+		if (running)
+		{
+			running--;
+			process(lastch);
+		}
+		else
+		{
+		    fflush(stdout);
+		    if (read(0, &ch, 1) >= 0)
+			process(ch);
+		}
+	}
+}
+
+life()
+{
+	register struct body *bp, *np;
+	register int i;
+
+	head = newlink();
+	head->x = start_len+2;
+	head->y = 12;
+	head->next = NULL;
+	display(head, HEAD);
+	for (i = 0, bp = head; i < start_len; i++, bp = np) {
+		np = newlink();
+		np->next = bp;
+		bp->prev = np;
+		np->x = bp->x - 1;
+		np->y = bp->y;
+		display(np, BODY);
+	}
+	tail = np;
+	tail->prev = NULL;
+}
+
+display(pos, chr)
+struct body *pos;
+char chr;
+{
+	wmove(tv, pos->y, pos->x);
+	waddch(tv, chr);
+}
+
+void
+leave()
+{
+	endwin();
+	exit(0);
+}
+
+void
+wake()
+{
+	signal(SIGALRM, wake);
+	fflush(stdout);
+	process(lastch);
+}
+
+rnd(range)
+{
+	return abs((rand()>>5)+(rand()>>5)) % range;
+}
+
+newpos(bp)
+struct body * bp;
+{
+	do {
+		bp->y = rnd(LINES-3)+ 2;
+		bp->x = rnd(COLS-3) + 1;
+		wmove(tv, bp->y, bp->x);
+	} while(winch(tv) != ' ');
+}
+
+prize()
+{
+	int value;
+
+	value = rnd(9) + 1;
+	newpos(&goody);
+	waddch(tv, value+'0');
+	wrefresh(tv);
+}
+
+process(ch)
+char ch;
+{
+	register int x,y;
+	struct body *nh;
+
+	alarm(0);
+	x = head->x;
+	y = head->y;
+	switch(ch)
+	{
+		case 'h': x--; break;
+		case 'j': y++; break;
+		case 'k': y--; break;
+		case 'l': x++; break;
+		case 'H': x--; running = RUNLEN; ch = tolower(ch); break;
+		case 'J': y++; running = RUNLEN/2; ch = tolower(ch); break;
+		case 'K': y--; running = RUNLEN/2; ch = tolower(ch); break;
+		case 'L': x++; running = RUNLEN; ch = tolower(ch); break;
+		case '\f': setup(); return;
+		case CNTRL('Z'): suspend(); return;
+		case CNTRL('C'): crash(); return;
+		case CNTRL('D'): crash(); return;
+		default: if (! running) alarm(1);
+			   return;
+	}
+	lastch = ch;
+	if (growing == 0)
+	{
+		display(tail, ' ');
+		tail->next->prev = NULL;
+		nh = tail->next;
+		free(tail);
+		tail = nh;
+	}
+	else growing--;
+	display(head, BODY);
+	wmove(tv, y, x);
+	if (isdigit(ch = winch(tv)))
+	{
+		growing += ch-'0';
+		prize();
+		score += growing;
+		running = 0;
+		wmove(stw, 0, 68);
+		wprintw(stw, "Score: %3d", score);
+		wrefresh(stw);
+	}
+	else if(ch != ' ') crash();
+	nh = newlink();
+	nh->next = NULL;
+	nh->prev = head;
+	head->next = nh;
+	nh->y = y;
+	nh->x = x;
+	display(nh, HEAD);
+	head = nh;
+	if (!(slow && running))
+		wrefresh(tv);
+	if (!running)
+		alarm(1);
+}
+
+crash()
+{
+	sleep(2);
+	clear();
+	move(23, 0);
+	refresh();
+	printf("Well, you ran into something and the game is over.\n");
+	printf("Your final score was %d\n", score);
+	leave();
+}
+
+void
+suspend()
+{
+	char *sh;
+
+	move(LINES-1, 0);
+	refresh();
+	endwin();
+	fflush(stdout);
+	kill(getpid(), SIGTSTP);
+	signal(SIGTSTP, suspend);
+	crmode();
+	noecho();
+	setup();
+}
+
+setup()
+{
+	clear();
+	refresh();
+	touchwin(stw);
+	wrefresh(stw);
+	touchwin(tv);
+	wrefresh(tv);
+	alarm(1);
+}