* __P removal from games/
[dragonfly.git] / games / backgammon / common_source / one.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  * @(#)one.c    8.1 (Berkeley) 5/31/93
34  * $FreeBSD: src/games/backgammon/common_source/one.c,v 1.5 1999/11/30 03:48:27 billf Exp $
35  * $DragonFly: src/games/backgammon/common_source/one.c,v 1.2 2003/06/17 04:25:22 dillon Exp $
36  */
37
38 #include "back.h"
39
40 makmove (i)
41 int     i;
42
43 {
44         int     n, d;
45         int             max;
46
47         d = d0;
48         n = abs(g[i]-p[i]);
49         max = (*offptr < 0? 7: last());
50         if (board[p[i]]*cturn <= 0)
51                 return (checkd(d)+2);
52         if (g[i] != home && board[g[i]]*cturn < -1)
53                 return (checkd(d)+3);
54         if (i || D0 == D1)  {
55                 if (n == max? D1 < n: D1 != n)
56                         return (checkd(d)+1);
57         } else  {
58                 if (n == max? D0 < n && D1 < n: D0 != n && D1 != n)
59                         return (checkd(d)+1);
60                 if (n == max? D0 < n: D0 != n)  {
61                         if (d0)
62                                 return (checkd(d)+1);
63                         swap;
64                 }
65         }
66         if (g[i] == home && *offptr < 0)
67                 return (checkd(d)+4);
68         h[i] = 0;
69         board[p[i]] -= cturn;
70         if (g[i] != home)  {
71                 if (board[g[i]] == -cturn)  {
72                         board[home] -= cturn;
73                         board[g[i]] = 0;
74                         h[i] = 1;
75                         if (abs(bar-g[i]) < 7)  {
76                                 (*inopp)--;
77                                 if (*offopp >= 0)
78                                         *offopp -= 15;
79                         }
80                 }
81                 board[g[i]] += cturn;
82                 if (abs(home-g[i]) < 7 && abs(home-p[i]) > 6)  {
83                         (*inptr)++;
84                         if (*inptr+*offptr == 0)
85                                 *offptr += 15;
86                 }
87         } else {
88                 (*offptr)++;
89                 (*inptr)--;
90         }
91         return (0);
92 }
93 \f
94 moverr (i)
95 int     i;
96
97 {
98         int     j;
99
100         if (tflag)
101                 curmove (20,0);
102         else
103                 writec ('\n');
104         writel ("Error:  ");
105         for (j = 0; j <= i; j++)  {
106                 wrint (p[j]);
107                 writec ('-');
108                 wrint (g[j]);
109                 if (j < i)
110                         writec (',');
111         }
112         writel ("... ");
113         movback (i);
114 }
115
116
117 checkd (d)
118 int     d;
119
120 {
121         if (d0 != d)
122                 swap;
123         return (0);
124 }
125
126 last ()  {
127         int     i;
128
129         for (i = home-6*cturn; i != home; i += cturn)
130                 if (board[i]*cturn > 0)
131                         return (abs(home-i));
132 }
133 \f
134 movback (i)
135 int     i;
136
137 {
138         int     j;
139
140         for (j = i-1; j >= 0; j--)
141                 backone(j);
142 }
143
144 backone (i)
145 int     i;
146
147 {
148         board[p[i]] += cturn;
149         if (g[i] != home)  {
150                 board[g[i]] -= cturn;
151                 if (abs(g[i]-home) < 7 && abs(p[i]-home) > 6)  {
152                         (*inptr)--;
153                         if (*inptr+*offptr < 15 && *offptr >= 0)
154                                 *offptr -= 15;
155                 }
156         } else  {
157                 (*offptr)--;
158                 (*inptr)++;
159         }
160         if (h[i])  {
161                 board[home] += cturn;
162                 board[g[i]] = -cturn;
163                 if (abs(bar-g[i]) < 7)  {
164                         (*inopp)++;
165                         if (*inopp+*offopp == 0)
166                                 *offopp += 15;
167                 }
168         }
169 }