initial import of 386bsd-0.1 sources

1 files changed, 299 insertions, 0 deletions

diff --git a/robots/move.c b/robots/move.c
new file mode 100644
index 00000000..79364440
--- /dev/null
+++ b/robots/move.c
@@ -0,0 +1,299 @@
+/*
+ * Copyright (c) 1980 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 sccsid[] = "@(#)move.c	5.4 (Berkeley) 6/1/90";
+#endif /* not lint */
+
+# include	"robots.h"
+# include	<ctype.h>
+
+# define	ESC	'\033'
+
+/*
+ * get_move:
+ *	Get and execute a move from the player
+ */
+get_move()
+{
+	register int	c;
+	register int	y, x, lastmove;
+	static COORD	newpos;
+
+	if (Waiting)
+		return;
+
+#ifdef	FANCY
+	if (Pattern_roll) {
+		if (Next_move >= Move_list)
+			lastmove = *Next_move;
+		else
+			lastmove = -1;	/* flag for "first time in" */
+	}
+#endif
+	for (;;) {
+		if (Teleport && must_telep())
+			goto teleport;
+		if (Running)
+			c = Run_ch;
+		else if (Count != 0)
+			c = Cnt_move;
+#ifdef	FANCY
+		else if (Num_robots > 1 && Stand_still)
+			c = '>';
+		else if (Num_robots > 1 && Pattern_roll) {
+			if (*++Next_move == '\0') {
+				if (lastmove < 0)
+					goto over;
+				Next_move = Move_list;
+			}
+			c = *Next_move;
+			mvaddch(0, 0, c);
+			if (c == lastmove)
+				goto over;
+		}
+#endif
+		else {
+over:
+			c = getchar();
+			if (isdigit(c)) {
+				Count = (c - '0');
+				while (isdigit(c = getchar()))
+					Count = Count * 10 + (c - '0');
+				if (c == ESC)
+					goto over;
+				Cnt_move = c;
+				if (Count)
+					leaveok(stdscr, TRUE);
+			}
+		}
+
+		switch (c) {
+		  case ' ':
+		  case '.':
+			if (do_move(0, 0))
+				goto ret;
+			break;
+		  case 'y':
+			if (do_move(-1, -1))
+				goto ret;
+			break;
+		  case 'k':
+			if (do_move(-1, 0))
+				goto ret;
+			break;
+		  case 'u':
+			if (do_move(-1, 1))
+				goto ret;
+			break;
+		  case 'h':
+			if (do_move(0, -1))
+				goto ret;
+			break;
+		  case 'l':
+			if (do_move(0, 1))
+				goto ret;
+			break;
+		  case 'b':
+			if (do_move(1, -1))
+				goto ret;
+			break;
+		  case 'j':
+			if (do_move(1, 0))
+				goto ret;
+			break;
+		  case 'n':
+			if (do_move(1, 1))
+				goto ret;
+			break;
+		  case 'Y': case 'U': case 'H': case 'J':
+		  case 'K': case 'L': case 'B': case 'N':
+		  case '>':
+			Running = TRUE;
+			if (c == '>')
+				Run_ch = ' ';
+			else
+				Run_ch = tolower(c);
+			leaveok(stdscr, TRUE);
+			break;
+		  case 'q':
+		  case 'Q':
+			if (query("Really quit?"))
+				quit();
+			refresh();
+			break;
+		  case 'w':
+		  case 'W':
+			Waiting = TRUE;
+			leaveok(stdscr, TRUE);
+			flushok(stdscr, FALSE);
+			goto ret;
+		  case 't':
+		  case 'T':
+teleport:
+			Running = FALSE;
+			mvaddch(My_pos.y, My_pos.x, ' ');
+			My_pos = *rnd_pos();
+			mvaddch(My_pos.y, My_pos.x, PLAYER);
+			leaveok(stdscr, FALSE);
+			refresh();
+			flush_in();
+			goto ret;
+		  case CTRL(L):
+			wrefresh(curscr);
+			break;
+		  case EOF:
+			break;
+		  default:
+			putchar(CTRL(G));
+			reset_count();
+			fflush(stdout);
+			break;
+		}
+	}
+ret:
+	if (Count > 0)
+		if (--Count == 0)
+			leaveok(stdscr, FALSE);
+}
+
+/*
+ * must_telep:
+ *	Must I teleport; i.e., is there anywhere I can move without
+ * being eaten?
+ */
+must_telep()
+{
+	register int	x, y;
+	static COORD	newpos;
+
+#ifdef	FANCY
+	if (Stand_still && Num_robots > 1 && eaten(&My_pos))
+		return TRUE;
+#endif
+
+	for (y = -1; y <= 1; y++) {
+		newpos.y = My_pos.y + y;
+		if (newpos.y <= 0 || newpos.y >= Y_FIELDSIZE)
+			continue;
+		for (x = -1; x <= 1; x++) {
+			newpos.x = My_pos.x + x;
+			if (newpos.x <= 0 || newpos.x >= X_FIELDSIZE)
+				continue;
+			if (Field[newpos.y][newpos.x] > 0)
+				continue;
+			if (!eaten(&newpos))
+				return FALSE;
+		}
+	}
+	return TRUE;
+}
+
+/*
+ * do_move:
+ *	Execute a move
+ */
+do_move(dy, dx)
+int	dy, dx;
+{
+	static COORD	newpos;
+
+	newpos.y = My_pos.y + dy;
+	newpos.x = My_pos.x + dx;
+	if (newpos.y <= 0 || newpos.y >= Y_FIELDSIZE ||
+	    newpos.x <= 0 || newpos.x >= X_FIELDSIZE ||
+	    Field[newpos.y][newpos.x] > 0 || eaten(&newpos)) {
+		if (Running) {
+			Running = FALSE;
+			leaveok(stdscr, FALSE);
+			move(My_pos.y, My_pos.x);
+			refresh();
+		}
+		else {
+			putchar(CTRL(G));
+			reset_count();
+		}
+		return FALSE;
+	}
+	else if (dy == 0 && dx == 0)
+		return TRUE;
+	mvaddch(My_pos.y, My_pos.x, ' ');
+	My_pos = newpos;
+	mvaddch(My_pos.y, My_pos.x, PLAYER);
+	if (!jumping())
+		refresh();
+	return TRUE;
+}
+
+/*
+ * eaten:
+ *	Player would get eaten at this place
+ */
+eaten(pos)
+register COORD	*pos;
+{
+	register int	x, y;
+
+	for (y = pos->y - 1; y <= pos->y + 1; y++) {
+		if (y <= 0 || y >= Y_FIELDSIZE)
+			continue;
+		for (x = pos->x - 1; x <= pos->x + 1; x++) {
+			if (x <= 0 || x >= X_FIELDSIZE)
+				continue;
+			if (Field[y][x] == 1)
+				return TRUE;
+		}
+	}
+	return FALSE;
+}
+
+/*
+ * reset_count:
+ *	Reset the count variables
+ */
+reset_count()
+{
+	Count = 0;
+	Running = FALSE;
+	leaveok(stdscr, FALSE);
+	refresh();
+}
+
+/*
+ * jumping:
+ *	See if we are jumping, i.e., we should not refresh.
+ */
+jumping()
+{
+	return (Jump && (Count || Running || Waiting));
+}