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 * @(#)score.c 8.1 (Berkeley) 5/31/93
34 * $FreeBSD: src/games/cribbage/score.c,v 1.6 1999/11/30 03:48:47 billf Exp $
35 * $DragonFly: src/games/cribbage/score.c,v 1.2 2003/06/17 04:25:23 dillon Exp $
47 * the following arrays give the sum of the scores of the (50 2)*48 = 58800
48 * hands obtainable for the crib given the two cards whose ranks index the
49 * array. the two arrays are for the case where the suits are equal and
50 * not equal respectively
53 -10000, 271827, 278883, 332319, 347769, 261129, 250653, 253203, 248259,
54 243435, 256275, 237435, 231051, -10000, -10000, 412815, 295707, 349497,
55 267519, 262521, 259695, 254019, 250047, 262887, 244047, 237663, -10000,
56 -10000, -10000, 333987, 388629, 262017, 266787, 262971, 252729, 254475,
57 267315, 248475, 242091, -10000, -10000, -10000, -10000, 422097, 302787,
58 256437, 263751, 257883, 254271, 267111, 248271, 241887, -10000, -10000,
59 -10000, -10000, -10000, 427677, 387837, 349173, 347985, 423861, 436701,
60 417861, 411477, -10000, -10000, -10000, -10000, -10000, -10000, 336387,
61 298851, 338667, 236487, 249327, 230487, 224103, -10000, -10000, -10000,
62 -10000, -10000, -10000, -10000, 408483, 266691, 229803, 246195, 227355,
63 220971, -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000,
64 300675, 263787, 241695, 226407, 220023, -10000, -10000, -10000, -10000,
65 -10000, -10000, -10000, -10000, -10000, 295635, 273543, 219771, 216939,
66 -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000,
67 -10000, 306519, 252747, 211431, -10000, -10000, -10000, -10000, -10000,
68 -10000, -10000, -10000, -10000, -10000, -10000, 304287, 262971, -10000,
69 -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000,
70 -10000, -10000, 244131, -10000, -10000, -10000, -10000, -10000, -10000,
71 -10000, -10000, -10000, -10000, -10000, -10000, -10000
74 long crbnescr[169] = {
75 325272, 260772, 267828, 321264, 336714, 250074, 239598, 242148, 237204,
76 232380, 246348, 226380, 219996, -10000, 342528, 401760, 284652, 338442,
77 256464, 251466, 248640, 242964, 238992, 252960, 232992, 226608, -10000,
78 -10000, 362280, 322932, 377574, 250962, 255732, 251916, 241674, 243420,
79 257388, 237420, 231036, -10000, -10000, -10000, 360768, 411042, 291732,
80 245382, 252696, 246828, 243216, 257184, 237216, 230832, -10000, -10000,
81 -10000, -10000, 528768, 416622, 376782, 338118, 336930, 412806, 426774,
82 406806, 400422, -10000, -10000, -10000, -10000, -10000, 369864, 325332,
83 287796, 327612, 225432, 239400, 219432, 213048, -10000, -10000, -10000,
84 -10000, -10000, -10000, 359160, 397428, 255636, 218748, 236268, 216300,
85 209916, -10000, -10000, -10000, -10000, -10000, -10000, -10000, 331320,
86 289620, 252732, 231768, 215352, 208968, -10000, -10000, -10000, -10000,
87 -10000, -10000, -10000, -10000, 325152, 284580, 263616, 208716, 205884,
88 -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000,
89 321240, 296592, 241692, 200376, -10000, -10000, -10000, -10000, -10000,
90 -10000, -10000, -10000, -10000, -10000, 348600, 294360, 253044, -10000,
91 -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000, -10000,
92 -10000, 308664, 233076, -10000, -10000, -10000, -10000, -10000, -10000,
93 -10000, -10000, -10000, -10000, -10000, -10000, 295896
96 static int ichoose2[5] = { 0, 0, 2, 6, 12 };
97 static int pairpoints, runpoints; /* Globals from pairuns. */
101 * Score the given hand of n cards and the starter card.
105 scorehand(hand, starter, n, crb, do_explain)
109 BOOLEAN crb; /* true if scoring crib */
110 BOOLEAN do_explain; /* true if must explain this hand */
115 CARD h[(CINHAND + 1)];
118 expl[0] = '\0'; /* initialize explanation */
122 for (i = 0; i < n; i++) { /* check for flush */
123 flag = (flag && (hand[i].suit == k));
124 if (hand[i].rank == JACK) /* check for his nibs */
125 if (hand[i].suit == starter.suit) {
128 strcat(expl, "His Nobs");
133 if (flag && n >= CINHAND) {
134 if (do_explain && expl[0] != '\0')
136 if (starter.suit == k) {
139 strcat(expl, "Five-flush");
143 if (do_explain && expl[0] != '\0')
144 strcat(expl, ", Four-flush");
146 strcpy(expl, "Four-flush");
149 if (do_explain && expl[0] != '\0')
152 sorthand(h, n + 1); /* sort by rank */
153 i = 2 * fifteens(h, n + 1);
157 (void) sprintf(buf, "%d points in fifteens", i);
160 strcat(expl, "No fifteens");
162 i = pairuns(h, n + 1);
166 (void) sprintf(buf, ", %d points in pairs, %d in runs",
167 pairpoints, runpoints);
170 strcat(expl, ", No pairs/runs");
177 * Return number of fifteens in hand of n cards
187 static int sums[15], nsums[15];
196 for (endp = &hand[n]; hand < endp; hand++) {
201 np[-1]++; /* one way to make this */
217 * pairuns returns the number of points in the n card sorted hand
218 * due to pairs and runs
219 * this routine only works if n is strictly less than 6
220 * sets the globals pairpoints and runpoints appropriately
228 int runlength, runmult, lastmult, curmult;
229 int mult1, mult2, pair1, pair2;
238 curmult = runmult = 1;
239 for (i = 1; i < n; i++) {
241 if (h[i].rank == h[i - 1].rank) {
246 if (h[i].rank == pair1) {
257 if (i == (n - 1) && run) {
262 if (h[i].rank == h[i - 1].rank + 1) {
266 /* only if old short */
282 pairpoints = ichoose2[mult1] + ichoose2[mult2];
283 runpoints = (runlength >= 3 ? runlength * runmult : 0);
284 return (pairpoints + runpoints);
288 * pegscore tells how many points crd would get if played after
289 * the n cards in tbl during pegging
292 pegscore(crd, tbl, n, sum)
300 sum += VAL(crd.rank);
303 if (sum == 31 || sum == 15)
310 while ((crd.rank == tbl[n - j].rank) && (n - j >= 0))
313 return (scr + ichoose2[j]);
317 for (i = 0; i < RANKS; i++)
319 got[crd.rank] = TRUE;
321 for (i = n - 1; i >= 0; --i) {
322 if (got[tbl[i].rank])
324 got[tbl[i].rank] = TRUE;
325 if (tbl[i].rank < lo)
327 if (tbl[i].rank > hi)
329 for (j = lo; j <= hi; j++)
342 * adjust takes a two card hand that will be put in the crib
343 * and returns an adjusted normalized score for the number of
344 * points such a crib will get.
360 if (cb[0].suit != cb[1].suit)
361 scr = crbnescr[RANKS * c0 + c1];
363 scr = crbescr[RANKS * c0 + c1];
365 printf("\nADJUST: internal error %d %d\n", c0, c1);
368 return ((scr + 29400) / 58800);