summaryrefslogtreecommitdiffstats
path: root/games/robots/move.c
diff options
context:
space:
mode:
authorjkh <jkh@FreeBSD.org>1994-09-04 04:03:31 +0000
committerjkh <jkh@FreeBSD.org>1994-09-04 04:03:31 +0000
commit057afceb86e030ad65b0130436860d9a18066186 (patch)
treea0ced9c9b9278eb776d89cd2565c27ddcf020b51 /games/robots/move.c
parenteedec95276cdb8aef98e92c5371000f10b8d6ba7 (diff)
downloadFreeBSD-src-057afceb86e030ad65b0130436860d9a18066186.zip
FreeBSD-src-057afceb86e030ad65b0130436860d9a18066186.tar.gz
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
Diffstat (limited to 'games/robots/move.c')
-rw-r--r--games/robots/move.c300
1 files changed, 300 insertions, 0 deletions
diff --git a/games/robots/move.c b/games/robots/move.c
new file mode 100644
index 0000000..5208da7
--- /dev/null
+++ b/games/robots/move.c
@@ -0,0 +1,300 @@
+/*
+ * 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 sccsid[] = "@(#)move.c 8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+#include <sys/ttydefaults.h>
+#include <ctype.h>
+#include "robots.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));
+}
OpenPOWER on IntegriCloud