* Copyright (c) 1980, 1993

/* $NetBSD: move.c,v 1.16 2009/08/12 08:30:55 dholland 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. 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.
*/

#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)move.c 8.1 (Berkeley) 5/31/93";
#else
__RCSID("$NetBSD: move.c,v 1.16 2009/08/12 08:30:55 dholland Exp $");
#endif
#endif /* not lint */

#include <sys/types.h>
#include <sys/ttydefaults.h> /* for CTRL */
#include <ctype.h>
#include <curses.h>
#include <unistd.h>
#include "robots.h"

#define ESC '\033'

static bool do_move(int, int);
static bool eaten(const COORD *);
static bool must_telep(void);

/*
* get_move:
* Get and execute a move from the player
*/
void
get_move(void)
{
int c;
#ifdef FANCY
int lastmove;
#endif /*FANCY*/

if (Waiting)
return;

#ifdef FANCY
if (Pattern_roll) {
if (Next_move >= Move_list)
lastmove = *Next_move;
else
lastmove = -1; /* flag for "first time in" */
} else
lastmove = 0; /* Shut up gcc */
#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:
if (Auto_bot) {
c = automove();
if (!Jump) {
usleep(10000);
refresh();
}
} else
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(0);
refresh();
break;
case 'w':
case 'W':
Waiting = true;
leaveok(stdscr, TRUE);
goto ret;
case 't':
case 'T':
teleport:
Running = false;
mvaddch(My_pos.y, My_pos.x, ' ');
My_pos = *rnd_pos();
telmsg(1);
refresh();
sleep(1);
telmsg(0);
mvaddch(My_pos.y, My_pos.x, PLAYER);
leaveok(stdscr, FALSE);
refresh();
flush_in();
goto ret;
case CTRL('L'):
refresh();
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?
*/
static bool
must_telep(void)
{
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
*/
static bool
do_move(int dy, int 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
*/
static bool
eaten(const COORD *pos)
{
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
*/
void
reset_count(void)
{
Count = 0;
Running = false;
leaveok(stdscr, FALSE);
refresh();
}

/*
* jumping:
* See if we are jumping, i.e., we should not refresh.
*/
bool
jumping(void)
{
return (Jump && (Count || Running || Waiting));
}