2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
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.
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
33 * @(#)support.c 8.1 (Berkeley) 5/31/93
34 * $FreeBSD: src/games/cribbage/support.c,v 1.5 1999/12/12 03:04:15 billf Exp $
35 * $DragonFly: src/games/cribbage/support.c,v 1.2 2003/06/17 04:25:23 dillon Exp $
45 #define NTV 10 /* number scores to test */
47 /* score to test reachability of, and order to test them in */
48 int tv[NTV] = {8, 7, 9, 6, 11, 12, 13, 14, 10, 5};
51 * computer chooses what to play in pegging...
52 * only called if no playable card will score points
63 if (s < 4) { /* try for good value */
64 if ((j = anysumto(h, n, s, 4)) >= 0)
66 if ((j = anysumto(h, n, s, 3)) >= 0 && s == 0)
69 if (s > 0 && s < 20) {
70 /* try for retaliation to 31 */
71 for (i = 1; i <= 10; i++) {
72 if ((j = anysumto(h, n, s, 21 - i)) >= 0) {
73 if ((l = numofval(h, n, i)) > 0) {
74 if (l > 1 || VAL(h[j].rank) != i)
81 /* for retaliation after 15 */
82 for (i = 0; i < NTV; i++) {
83 if ((j = anysumto(h, n, s, tv[i])) >= 0) {
84 if ((l = numofval(h, n, 15 - tv[i])) > 0) {
86 VAL(h[j].rank) != 15 - tv[i])
93 /* remember: h is sorted */
94 for (i = n - 1; i >= 0; --i) {
95 l = s + VAL(h[i].rank);
98 if (l != 5 && l != 10 && l != 21) {
105 for (i = n - 1; i >= 0; --i) {
106 l = s + VAL(h[i].rank);
111 if (l != 5 && l != 21) {
121 * Evaluate and score a player hand or crib
128 static char prompt[BUFSIZ];
132 prhand(hand, CINHAND, Playwin, FALSE);
133 (void) sprintf(prompt, "Your %s scores ", s);
134 i = scorehand(hand, turnover, CINHAND, strcmp(s, "crib") == 0, explain);
135 if ((j = number(0, 29, prompt)) == 19)
139 win = chkscr(&pscore, i);
140 msg("It's really only %d points; I get %d", i, 2);
142 win = chkscr(&cscore, 2);
144 win = chkscr(&pscore, j);
145 msg("You should have taken %d, not %d!", i, j);
148 msg("Explanation: %s", expl);
151 win = chkscr(&pscore, i);
157 * Handle scoring and displaying the computers hand
166 j = scorehand(h, turnover, CINHAND, strcmp(s, "crib") == 0, FALSE);
167 prhand(h, CINHAND, Compwin, FALSE);
168 msg("My %s scores %d", s, (j == 0 ? 19 : j));
169 return (chkscr(&cscore, j));
174 * Add inc to scr and test for > glimit, printing on the scoring
175 * board while we're at it.
177 int Lastscore[2] = {-1, -1};
185 myturn = (scr == &cscore);
187 prpeg(Lastscore[myturn ? 1 : 0], '.', myturn);
188 Lastscore[myturn ? 1 : 0] = *scr;
190 prpeg(*scr, PEG, myturn);
193 return (*scr >= glimit);
198 * Put out the peg character on the score board and put the
199 * score up on the board.
202 prpeg(score, peg, myturn)
214 if (score <= 0 || score >= glimit) {
224 x = (score - 1) % 30;
225 if (score > 90 || (score > 30 && score <= 60)) {
233 mvprintw(SCORE_Y + (myturn ? 7 : 1), SCORE_X + 10, "%3d", score);
237 * cdiscard -- the computer figures out what is the best discard for
238 * the crib and puts the best two cards at the end
244 CARD d[CARDS], h[FULLHAND], cb[2];
248 static int undo1[15] = {0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4};
249 static int undo2[15] = {1, 2, 3, 4, 5, 2, 3, 4, 5, 3, 4, 5, 4, 5, 5};
253 for (i = 0; i < knownum; i++) { /* get all other cards */
254 cremove(known[i], d, nc--);
256 for (i = 0; i < 15; i++)
259 for (i = 0; i < (FULLHAND - 1); i++) {
261 for (j = i + 1; j < FULLHAND; j++) {
263 for (k = 0; k < FULLHAND; k++)
265 cremove(chand[i], h, FULLHAND);
266 cremove(chand[j], h, FULLHAND - 1);
267 for (k = 0; k < nc; k++) {
269 scorehand(h, d[k], CINHAND, TRUE, FALSE);
271 sums[ns] += adjust(cb, d[k]);
273 sums[ns] -= adjust(cb, d[k]);
279 for (i = 1; i < 15; i++)
280 if (sums[i] > sums[j])
282 for (k = 0; k < FULLHAND; k++)
284 cremove(h[undo1[j]], chand, FULLHAND);
285 cremove(h[undo2[j]], chand, FULLHAND - 1);
286 chand[4] = h[undo1[j]];
287 chand[5] = h[undo2[j]];
291 * returns true if some card in hand can be played without exceeding 31
294 anymove(hand, n, sum)
303 for (i = 1; i < n; i++) {
304 if (hand[i].rank < j)
307 return (sum + VAL(j) <= 31);
311 * anysumto returns the index (0 <= i < n) of the card in hand that brings
312 * the s up to t, or -1 if there is none
315 anysumto(hand, n, s, t)
321 for (i = 0; i < n; i++) {
322 if (s + VAL(hand[i].rank) == t)
329 * return the number of cards in h having the given rank value
339 for (i = 0; i < n; i++) {
340 if (VAL(h[i].rank) == v)
347 * makeknown remembers all n cards in h for future recall
356 for (i = 0; i < n; i++)
357 known[knownum++] = h[i];