1/*	$NetBSD: human.cc,v 1.2 2005/07/02 15:48:03 jdc Exp $	*/
2
3/*-
4 * Copyright (c) 2003 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Christos Zoulas.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32/*
33 * human.C: Human interface for dots, using rogue-like keys.
34 */
35#include "defs.h"
36RCSID("$NetBSD: human.cc,v 1.2 2005/07/02 15:48:03 jdc Exp $")
37
38#include "human.h"
39#include "board.h"
40#include "box.h"
41#include "ttyscrn.h"
42
43#define CONTROL(a) ((a) & 037)
44
45extern GAMESCREEN *sc;
46
47HUMAN::HUMAN(const char c) :
48    PLAYER(c),
49    _curx(0),
50    _cury(1)
51{
52}
53
54void HUMAN::play(const BOARD& b, size_t& y, size_t& x, int& dir)
55{
56    int mv;
57    b.setpos(_cury, _curx);
58
59    for (;;) {
60	switch (mv = b.getmove()) {
61	case 'h': case 'H':
62	    _curx -= 2;
63	    break;
64
65	case 'l': case 'L':
66	    _curx += 2;
67	    break;
68
69	case 'k': case 'K':
70	    _cury -= 2;
71	    break;
72
73	case 'j': case 'J':
74	    _cury += 2;
75	    break;
76
77	case 'u': case 'U':
78	    _curx += 1;
79	    _cury -= 1;
80	    break;
81
82	case 'y': case 'Y':
83	    _curx -= 1;
84	    _cury -= 1;
85	    break;
86
87	case 'b': case 'B':
88	    _curx -= 1;
89	    _cury += 1;
90	    break;
91
92	case 'n': case 'N':
93	    _curx += 1;
94	    _cury += 1;
95	    break;
96
97	case 'q': case 'Q':
98	    // Cleanup
99	    delete sc;
100	    exit(0);
101
102	case CONTROL('L'): case CONTROL('R'):
103	    b.clean();
104	    b.paint();
105	    break;
106
107	case ' ':
108	    {
109		x = _curx / 2;
110		y = _cury / 2;
111
112		if (_cury & 1) {
113		    if (_curx == 0)
114			dir = BOX::left;
115		    else {
116			x--;
117			dir = BOX::right;
118		    }
119		}
120
121		if (_curx & 1) {
122		    if (_cury == 0)
123			dir = BOX::top;
124		    else {
125			y--;
126			dir = BOX::bottom;
127		    }
128		}
129	    }
130	    return;
131
132	default:
133	    break;
134	}
135
136        // We add 2 before the comparison to avoid underflow
137	if ((2 + _curx) - (_curx & 1) < 2)
138	    _curx = (b.nx() * 2) + (_curx & 1);
139	if (_curx >= (b.nx() * 2) + 1)
140	    _curx = (_curx & 1);
141
142	if ((2 + _cury) - (_cury & 1) < 2)
143	    _cury = (b.ny() * 2) + (_cury & 1);
144	if (_cury >= (b.ny() * 2) + 1)
145	    _cury = (_cury & 1);
146
147	b.setpos(_cury, _curx);
148    }
149}
150