Initial import from FreeBSD RELENG_4:
[dragonfly.git] / games / backgammon / teachgammon / tutor.c
1 /*
2  * Copyright (c) 1980, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33
34 #ifndef lint
35 #if 0
36 static char sccsid[] = "@(#)tutor.c     8.1 (Berkeley) 5/31/93";
37 #endif
38 static const char rcsid[] =
39  "$FreeBSD: src/games/backgammon/teachgammon/tutor.c,v 1.5 1999/11/30 03:48:31 billf Exp $";
40 #endif /* not lint */
41
42 #include "back.h"
43 #include "tutor.h"
44
45 extern int      maxmoves;
46 extern const char       *const finis[];
47
48 extern const struct situatn     test[];
49
50 static const char       better[] = "That is a legal move, but there is a better one.\n";
51
52 void
53 tutor ()  {
54         int     i, j;
55
56         i = 0;
57         begscr = 18;
58         cturn = -1;
59         home = 0;
60         bar = 25;
61         inptr = &in[0];
62         inopp = &in[1];
63         offptr = &off[0];
64         offopp = &off[1];
65         Colorptr = &color[0];
66         colorptr = &color[2];
67         colen = 5;
68         wrboard();
69
70         while (1)  {
71                 if (! brdeq(test[i].brd,board))  {
72                         if (tflag && curr == 23)
73                                 curmove (18,0);
74                         writel (better);
75                         nexturn();
76                         movback (mvlim);
77                         if (tflag)  {
78                                 refresh();
79                                 clrest ();
80                         }
81                         if ((! tflag) || curr == 19)  {
82                                 proll();
83                                 writec ('\t');
84                         }
85                         else
86                                 curmove (curr > 19? curr-2: curr+4,25);
87                         getmove();
88                         if (cturn == 0)
89                                 leave();
90                         continue;
91                 }
92                 if (tflag)
93                         curmove (18,0);
94                 text (*test[i].com);
95                 if (! tflag)
96                         writec ('\n');
97                 if (i == maxmoves)
98                         break;
99                 D0 = test[i].roll1;
100                 D1 = test[i].roll2;
101                 d0 = 0;
102                 mvlim = 0;
103                 for (j = 0; j < 4; j++)  {
104                         if (test[i].mp[j] == test[i].mg[j])
105                                 break;
106                         p[j] = test[i].mp[j];
107                         g[j] = test[i].mg[j];
108                         mvlim++;
109                 }
110                 if (mvlim)
111                         for (j = 0; j < mvlim; j++)
112                                 if (makmove(j))
113                                         writel ("AARGH!!!\n");
114                 if (tflag)
115                         refresh();
116                 nexturn();
117                 D0 = test[i].new1;
118                 D1 = test[i].new2;
119                 d0 = 0;
120                 i++;
121                 mvlim = movallow();
122                 if (mvlim)  {
123                         if (tflag)
124                                 clrest();
125                         proll();
126                         writec('\t');
127                         getmove();
128                         if (tflag)
129                                 refresh();
130                         if (cturn == 0)
131                                 leave();
132                 }
133         }
134         leave();
135 }
136
137 clrest ()  {
138         int     r, c, j;
139
140         r = curr;
141         c = curc;
142         for (j = r+1; j < 24; j++)  {
143                 curmove (j,0);
144                 cline();
145         }
146         curmove (r,c);
147 }
148
149 int
150 brdeq (b1,b2)
151 const int  *b1, *b2;
152
153 {
154         const int  *e;
155
156         e = b1+26;
157         while (b1 < e)
158                 if (*b1++ != *b2++)
159                         return(0);
160         return(1);
161 }