1/*	$NetBSD: check.c,v 1.9 2019/02/18 19:35:44 christos Exp $	*/
2
3/*
4 * Copyright (c) 1980, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 *    may be used to endorse or promote products derived from this software
17 *    without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32#include <sys/cdefs.h>
33#ifndef lint
34#if 0
35static char sccsid[] = "@(#)check.c	8.1 (Berkeley) 5/31/93";
36#else
37__RCSID("$NetBSD: check.c,v 1.9 2019/02/18 19:35:44 christos Exp $");
38#endif
39#endif /* not lint */
40
41#include "back.h"
42
43void
44getmove(struct move *mm)
45{
46	int     i, c;
47
48	c = 0;
49	for (;;) {
50		i = checkmove(mm, c);
51
52		switch (i) {
53		case -1:
54			if (movokay(mm, mm->mvlim)) {
55				if (tflag)
56					curmove(20, 0);
57				else
58					writec('\n');
59				for (i = 0; i < mm->mvlim; i++)
60					if (mm->h[i])
61						wrhit(mm->g[i]);
62				nexturn();
63				if (*offopp == 15)
64					cturn *= -2;
65				if (tflag && pnum)
66					bflag = pnum;
67				return;
68			}
69			/*FALLTHROUGH*/
70		case -4:
71		case 0:
72			if (tflag)
73				refresh();
74			if (i != 0 && i != -4)
75				break;
76			if (tflag)
77				curmove(20, 0);
78			else
79				writec('\n');
80			writel(*Colorptr);
81			if (i == -4)
82				writel(" must make ");
83			else
84				writel(" can only make ");
85			writec(mm->mvlim + '0');
86			writel(" move");
87			if (mm->mvlim > 1)
88				writec('s');
89			writec('.');
90			writec('\n');
91			break;
92
93		case -3:
94			if (quit(mm))
95				return;
96		}
97
98		if (!tflag)
99			proll(mm);
100		else {
101			curmove(cturn == -1 ? 18 : 19, 39);
102			cline();
103			c = -1;
104		}
105	}
106}
107
108int
109movokay(struct move *mm, int mv)
110{
111	int     i, m;
112
113	if (mm->d0)
114		mswap(mm);
115
116	for (i = 0; i < mv; i++) {
117		if (mm->p[i] == mm->g[i]) {
118			moverr(mm, i);
119			curmove(20, 0);
120			writel("Attempt to move to same location.\n");
121			return (0);
122		}
123		if (cturn * (mm->g[i] - mm->p[i]) < 0) {
124			moverr(mm, i);
125			curmove(20, 0);
126			writel("Backwards move.\n");
127			return (0);
128		}
129		if (abs(board[bar]) && mm->p[i] != bar) {
130			moverr(mm, i);
131			curmove(20, 0);
132			writel("Men still on bar.\n");
133			return (0);
134		}
135		if ((m = makmove(mm, i))) {
136			moverr(mm, i);
137			switch (m) {
138
139			case 1:
140				writel("Move not rolled.\n");
141				break;
142
143			case 2:
144				writel("Bad starting position.\n");
145				break;
146
147			case 3:
148				writel("Destination occupied.\n");
149				break;
150
151			case 4:
152				writel("Can't remove men yet.\n");
153			}
154			return (0);
155		}
156	}
157	return (1);
158}
159