new copyright notice

[unix-history] / usr / src / games / robots / move.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* %sccs.include.redist.c%
*/

#ifndef lint
static char sccsid[] = "@(#)move.c      5.4 (Berkeley) %G%";
#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));
}