File: | src/games/cribbage/crib.c |
Warning: | line 177, column 3 Value stored to 'flag' is never read |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* $OpenBSD: crib.c,v 1.24 2021/10/23 11:22:48 mestre Exp $ */ |
2 | /* $NetBSD: crib.c,v 1.7 1997/07/10 06:47:29 mikel Exp $ */ |
3 | |
4 | /*- |
5 | * Copyright (c) 1980, 1993 |
6 | * The Regents of the University of California. All rights reserved. |
7 | * |
8 | * Redistribution and use in source and binary forms, with or without |
9 | * modification, are permitted provided that the following conditions |
10 | * are met: |
11 | * 1. Redistributions of source code must retain the above copyright |
12 | * notice, this list of conditions and the following disclaimer. |
13 | * 2. Redistributions in binary form must reproduce the above copyright |
14 | * notice, this list of conditions and the following disclaimer in the |
15 | * documentation and/or other materials provided with the distribution. |
16 | * 3. Neither the name of the University nor the names of its contributors |
17 | * may be used to endorse or promote products derived from this software |
18 | * without specific prior written permission. |
19 | * |
20 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
21 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
22 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
23 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
24 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
25 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
26 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
27 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
28 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
29 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
30 | * SUCH DAMAGE. |
31 | */ |
32 | |
33 | #include <err.h> |
34 | #include <signal.h> |
35 | #include <stdlib.h> |
36 | #include <unistd.h> |
37 | |
38 | #include "cribbage.h" |
39 | #include "cribcur.h" |
40 | |
41 | int |
42 | main(int argc, char *argv[]) |
43 | { |
44 | bool_Bool playing; |
45 | int ch; |
46 | |
47 | while ((ch = getopt(argc, argv, "ehmqr")) != -1) |
48 | switch (ch) { |
49 | case 'e': |
50 | explain = TRUE1; |
51 | break; |
52 | case 'm': |
53 | muggins = TRUE1; |
54 | break; |
55 | case 'q': |
56 | quiet = TRUE1; |
57 | break; |
58 | case 'r': |
59 | rflag = TRUE1; |
60 | break; |
61 | case 'h': |
62 | default: |
63 | (void) fprintf(stderr(&__sF[2]), "usage: %s [-emqr]\n", |
64 | getprogname()); |
65 | return 1; |
66 | } |
67 | |
68 | initscr(); |
69 | (void)signal(SIGINT2, rintsig); |
70 | cbreak(); |
71 | noecho(); |
72 | |
73 | Playwin = subwin(stdscr, PLAY_Y15, PLAY_X12, 0, 0); |
74 | Tablewin = subwin(stdscr, TABLE_Y21, TABLE_X14, 0, PLAY_X12); |
75 | Compwin = subwin(stdscr, COMP_Y15, COMP_X12, 0, TABLE_X14 + PLAY_X12); |
76 | Msgwin = subwin(stdscr, MSG_Y(LINES - (9 + 1)), MSG_X(COLS - (12 + 14 + 12) - 1), Y_MSG_START(9 + 1), SCORE_X(12 + 14 + 12) + 1); |
77 | |
78 | leaveok(Playwin, TRUE1); |
79 | leaveok(Tablewin, TRUE1); |
80 | leaveok(Compwin, TRUE1); |
81 | clearok(stdscr, FALSE0); |
82 | |
83 | if (!quiet) { |
84 | msg("Do you need instructions for cribbage? "); |
85 | if (getuchar() == 'Y') { |
86 | endwin(); |
87 | clear()wclear(stdscr); |
88 | mvcur(0, COLS - 1, LINES - 1, 0); |
89 | fflush(stdout(&__sF[1])); |
90 | instructions(); |
91 | cbreak(); |
92 | noecho(); |
93 | clear()wclear(stdscr); |
94 | refresh()wrefresh(stdscr); |
95 | msg("For cribbage rules, use \"man cribbage\""); |
96 | } |
97 | } |
98 | |
99 | if (pledge("stdio tty", NULL((void *)0)) == -1) |
100 | err(1, "pledge"); |
101 | |
102 | playing = TRUE1; |
103 | do { |
104 | wclrtobot(Msgwin); |
105 | msg(quiet ? "L or S? " : "Long (to 121) or Short (to 61)? "); |
106 | if (glimit == SGAME61) |
107 | glimit = (getuchar() == 'L' ? LGAME121 : SGAME61); |
108 | else |
109 | glimit = (getuchar() == 'S' ? SGAME61 : LGAME121); |
110 | game(); |
111 | msg("Another game? "); |
112 | playing = (getuchar() == 'Y'); |
113 | } while (playing); |
114 | |
115 | bye(); |
116 | return 0; |
117 | } |
118 | |
119 | /* |
120 | * makeboard: |
121 | * Print out the initial board on the screen |
122 | */ |
123 | void |
124 | makeboard(void) |
125 | { |
126 | mvaddstr(SCORE_Y + 0, SCORE_X,(wmove((stdscr),((0 + 0)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("+---------------------------------------+" )),-1)) |
127 | "+---------------------------------------+")(wmove((stdscr),((0 + 0)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("+---------------------------------------+" )),-1)); |
128 | mvaddstr(SCORE_Y + 1, SCORE_X,(wmove((stdscr),((0 + 1)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| Score: 0 YOU |" )),-1)) |
129 | "| Score: 0 YOU |")(wmove((stdscr),((0 + 1)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| Score: 0 YOU |" )),-1)); |
130 | mvaddstr(SCORE_Y + 2, SCORE_X,(wmove((stdscr),((0 + 2)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)) |
131 | "| *.....:.....:.....:.....:.....:..... |")(wmove((stdscr),((0 + 2)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)); |
132 | mvaddstr(SCORE_Y + 3, SCORE_X,(wmove((stdscr),((0 + 3)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)) |
133 | "| *.....:.....:.....:.....:.....:..... |")(wmove((stdscr),((0 + 3)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)); |
134 | mvaddstr(SCORE_Y + 4, SCORE_X,(wmove((stdscr),((0 + 4)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| |" )),-1)) |
135 | "| |")(wmove((stdscr),((0 + 4)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| |" )),-1)); |
136 | mvaddstr(SCORE_Y + 5, SCORE_X,(wmove((stdscr),((0 + 5)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)) |
137 | "| *.....:.....:.....:.....:.....:..... |")(wmove((stdscr),((0 + 5)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)); |
138 | mvaddstr(SCORE_Y + 6, SCORE_X,(wmove((stdscr),((0 + 6)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)) |
139 | "| *.....:.....:.....:.....:.....:..... |")(wmove((stdscr),((0 + 6)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| *.....:.....:.....:.....:.....:..... |" )),-1)); |
140 | mvaddstr(SCORE_Y + 7, SCORE_X,(wmove((stdscr),((0 + 7)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| Score: 0 ME |" )),-1)) |
141 | "| Score: 0 ME |")(wmove((stdscr),((0 + 7)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("| Score: 0 ME |" )),-1)); |
142 | mvaddstr(SCORE_Y + 8, SCORE_X,(wmove((stdscr),((0 + 8)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("+---------------------------------------+" )),-1)) |
143 | "+---------------------------------------+")(wmove((stdscr),((0 + 8)),(((12 + 14 + 12)))) == (-1) ? (-1) : waddnstr((stdscr),(("+---------------------------------------+" )),-1)); |
144 | gamescore(); |
145 | } |
146 | |
147 | /* |
148 | * gamescore: |
149 | * Print out the current game score |
150 | */ |
151 | void |
152 | gamescore(void) |
153 | { |
154 | if (pgames || cgames) { |
155 | mvprintw(SCORE_Y0 + 1, SCORE_X(12 + 14 + 12) + 28, "Games: %3d", pgames); |
156 | mvprintw(SCORE_Y0 + 7, SCORE_X(12 + 14 + 12) + 28, "Games: %3d", cgames); |
157 | } |
158 | Lastscore[0] = -1; |
159 | Lastscore[1] = -1; |
160 | } |
161 | |
162 | /* |
163 | * game: |
164 | * Play one game up to glimit points. Actually, we only ASK the |
165 | * player what card to turn. We do a random one, anyway. |
166 | */ |
167 | void |
168 | game(void) |
169 | { |
170 | int i, j; |
171 | bool_Bool flag; |
172 | bool_Bool compcrib; |
173 | |
174 | makedeck(deck); |
175 | shuffle(deck); |
176 | if (gamecount == 0) { |
177 | flag = TRUE1; |
Value stored to 'flag' is never read | |
178 | do { |
179 | if (!rflag) { /* player cuts deck */ |
180 | char *foo; |
181 | |
182 | /* This is silly, but we should parse user input |
183 | * even if we're not actually going to use it. |
184 | */ |
185 | do { |
186 | msg(quiet ? "Cut for crib? " : |
187 | "Cut to see whose crib it is -- low card wins? "); |
188 | foo = get_line(); |
189 | if (*foo != '\0' && ((i = atoi(foo)) < 4 || i > 48)) |
190 | msg("Invalid cut"); |
191 | else |
192 | *foo = '\0'; |
193 | } while (*foo != '\0'); |
194 | } |
195 | i = arc4random_uniform(CARDS52); /* random cut */ |
196 | do { /* comp cuts deck */ |
197 | j = arc4random_uniform(CARDS52); |
198 | } while (j == i); |
199 | addmsg(quiet ? "You cut " : "You cut the "); |
200 | msgcard(deck[i], FALSE0); |
201 | endmsg(); |
202 | addmsg(quiet ? "I cut " : "I cut the "); |
203 | msgcard(deck[j], FALSE0); |
204 | endmsg(); |
205 | flag = (deck[i].rank == deck[j].rank); |
206 | if (flag) { |
207 | msg(quiet ? "We tied..." : |
208 | "We tied and have to try again..."); |
209 | shuffle(deck); |
210 | continue; |
211 | } else |
212 | compcrib = (deck[i].rank > deck[j].rank); |
213 | } while (flag); |
214 | do_wait(); |
215 | clear()wclear(stdscr); |
216 | makeboard(); |
217 | refresh()wrefresh(stdscr); |
218 | } else { |
219 | makeboard(); |
220 | refresh()wrefresh(stdscr); |
221 | werase(Tablewin); |
222 | wrefresh(Tablewin); |
223 | werase(Compwin); |
224 | wrefresh(Compwin); |
225 | msg("Loser (%s) gets first crib", (iwon ? "you" : "me")); |
226 | compcrib = !iwon; |
227 | } |
228 | |
229 | pscore = cscore = 0; |
230 | flag = TRUE1; |
231 | do { |
232 | shuffle(deck); |
233 | flag = !playhand(compcrib); |
234 | compcrib = !compcrib; |
235 | } while (flag); |
236 | ++gamecount; |
237 | if (cscore < pscore) { |
238 | if (glimit - cscore > 60) { |
239 | msg("YOU DOUBLE SKUNKED ME!"); |
240 | pgames += 4; |
241 | } else |
242 | if (glimit - cscore > 30) { |
243 | msg("YOU SKUNKED ME!"); |
244 | pgames += 2; |
245 | } else { |
246 | msg("YOU WON!"); |
247 | ++pgames; |
248 | } |
249 | iwon = FALSE0; |
250 | } else { |
251 | if (glimit - pscore > 60) { |
252 | msg("I DOUBLE SKUNKED YOU!"); |
253 | cgames += 4; |
254 | } else |
255 | if (glimit - pscore > 30) { |
256 | msg("I SKUNKED YOU!"); |
257 | cgames += 2; |
258 | } else { |
259 | msg("I WON!"); |
260 | ++cgames; |
261 | } |
262 | iwon = TRUE1; |
263 | } |
264 | gamescore(); |
265 | } |
266 | |
267 | /* |
268 | * playhand: |
269 | * Do up one hand of the game |
270 | */ |
271 | int |
272 | playhand(bool_Bool mycrib) |
273 | { |
274 | int deckpos; |
275 | |
276 | werase(Compwin); |
277 | wrefresh(Compwin); |
278 | werase(Tablewin); |
279 | wrefresh(Tablewin); |
280 | |
281 | knownum = 0; |
282 | deckpos = deal(mycrib); |
283 | sorthand(chand, FULLHAND6); |
284 | sorthand(phand, FULLHAND6); |
285 | makeknown(chand, FULLHAND6); |
286 | prhand(phand, FULLHAND6, Playwin, FALSE0); |
287 | discard(mycrib); |
288 | if (cut(mycrib, deckpos)) |
289 | return TRUE1; |
290 | if (peg(mycrib)) |
291 | return TRUE1; |
292 | werase(Tablewin); |
293 | wrefresh(Tablewin); |
294 | if (score(mycrib)) |
295 | return TRUE1; |
296 | return FALSE0; |
297 | } |
298 | |
299 | /* |
300 | * deal cards to both players from deck |
301 | */ |
302 | int |
303 | deal(bool_Bool mycrib) |
304 | { |
305 | int i, j; |
306 | |
307 | for (i = j = 0; i < FULLHAND6; i++) { |
308 | if (mycrib) { |
309 | phand[i] = deck[j++]; |
310 | chand[i] = deck[j++]; |
311 | } else { |
312 | chand[i] = deck[j++]; |
313 | phand[i] = deck[j++]; |
314 | } |
315 | } |
316 | return (j); |
317 | } |
318 | |
319 | /* |
320 | * discard: |
321 | * Handle players discarding into the crib... |
322 | * Note: we call cdiscard() after prining first message so player doesn't wait |
323 | */ |
324 | void |
325 | discard(bool_Bool mycrib) |
326 | { |
327 | char *prompt; |
328 | CARD crd; |
329 | |
330 | prcrib(mycrib, TRUE1); |
331 | prompt = (quiet ? "Discard --> " : "Discard a card --> "); |
332 | cdiscard(mycrib); /* puts best discard at end */ |
333 | crd = phand[infrom(phand, FULLHAND6, prompt)]; |
334 | cremove(crd, phand, FULLHAND6); |
335 | prhand(phand, FULLHAND6, Playwin, FALSE0); |
336 | crib[0] = crd; |
337 | |
338 | /* Next four lines same as last four except for cdiscard(). */ |
339 | crd = phand[infrom(phand, FULLHAND6 - 1, prompt)]; |
340 | cremove(crd, phand, FULLHAND6 - 1); |
341 | prhand(phand, FULLHAND6, Playwin, FALSE0); |
342 | crib[1] = crd; |
343 | crib[2] = chand[4]; |
344 | crib[3] = chand[5]; |
345 | chand[4].rank = chand[4].suit = chand[5].rank = chand[5].suit = EMPTY13; |
346 | } |
347 | |
348 | /* |
349 | * cut: |
350 | * Cut the deck and set turnover. Actually, we only ASK the |
351 | * player what card to turn. We do a random one, anyway. |
352 | */ |
353 | int |
354 | cut(bool_Bool mycrib, int pos) |
355 | { |
356 | int i; |
357 | bool_Bool win; |
358 | |
359 | win = FALSE0; |
360 | if (mycrib) { |
361 | if (!rflag) { /* random cut */ |
362 | char *foo; |
363 | |
364 | /* This is silly, but we should parse user input, |
365 | * even if we're not actually going to use it. |
366 | */ |
367 | do { |
368 | msg(quiet ? "Cut the deck? " : |
369 | "How many cards down do you wish to cut the deck? "); |
370 | foo = get_line(); |
371 | if (*foo != '\0' && ((i = atoi(foo)) < 4 || i > 36)) |
372 | msg("Invalid cut"); |
373 | else |
374 | *foo = '\0'; |
375 | } while (*foo != '\0'); |
376 | } |
377 | i = arc4random_uniform(CARDS52 - pos); |
378 | turnover = deck[i + pos]; |
379 | addmsg(quiet ? "You cut " : "You cut the "); |
380 | msgcard(turnover, FALSE0); |
381 | endmsg(); |
382 | prcrib(mycrib, FALSE0); |
383 | if (turnover.rank == JACK10) { |
384 | msg("I get two for his heels"); |
385 | win = chkscr(&cscore, 2); |
386 | } |
387 | } else { |
388 | i = arc4random_uniform(CARDS52 - pos) + pos; |
389 | turnover = deck[i]; |
390 | addmsg(quiet ? "I cut " : "I cut the "); |
391 | msgcard(turnover, FALSE0); |
392 | endmsg(); |
393 | prcrib(mycrib, FALSE0); |
394 | if (turnover.rank == JACK10) { |
395 | msg("You get two for his heels"); |
396 | win = chkscr(&pscore, 2); |
397 | } |
398 | } |
399 | makeknown(&turnover, 1); |
400 | return (win); |
401 | } |
402 | |
403 | /* |
404 | * prcrib: |
405 | * Print out the turnover card with crib indicator |
406 | */ |
407 | void |
408 | prcrib(bool_Bool mycrib, bool_Bool blank) |
409 | { |
410 | int y, cardx; |
411 | |
412 | if (mycrib) |
413 | cardx = CRIB_X(12 + 14); |
414 | else |
415 | cardx = 0; |
416 | |
417 | mvaddstr(CRIB_Y, cardx + 1, "CRIB")(wmove((stdscr),((17)),((cardx + 1))) == (-1) ? (-1) : waddnstr ((stdscr),(("CRIB")),-1)); |
418 | prcard(stdscr, CRIB_Y17 + 1, cardx, turnover, blank); |
419 | |
420 | if (mycrib) |
421 | cardx = 0; |
422 | else |
423 | cardx = CRIB_X(12 + 14); |
424 | |
425 | for (y = CRIB_Y17; y <= CRIB_Y17 + 5; y++) |
426 | mvaddstr(y, cardx, " ")(wmove((stdscr),((y)),((cardx))) == (-1) ? (-1) : waddnstr((stdscr ),((" ")),-1)); |
427 | refresh()wrefresh(stdscr); |
428 | } |
429 | |
430 | /* |
431 | * peg: |
432 | * Handle all the pegging... |
433 | */ |
434 | static CARD Table[14]; |
435 | static int Tcnt; |
436 | |
437 | int |
438 | peg(bool_Bool mycrib) |
439 | { |
440 | static CARD ch[CINHAND4], ph[CINHAND4]; |
441 | int i, j, k; |
442 | int l; |
443 | int cnum, pnum, sum; |
444 | bool_Bool myturn, mego, ugo, last, played; |
445 | CARD crd; |
446 | |
447 | played = FALSE0; |
448 | cnum = pnum = CINHAND4; |
449 | for (i = 0; i < CINHAND4; i++) { /* make copies of hands */ |
450 | ch[i] = chand[i]; |
451 | ph[i] = phand[i]; |
452 | } |
453 | Tcnt = 0; /* index to table of cards played */ |
454 | sum = 0; /* sum of cards played */ |
455 | mego = ugo = FALSE0; |
456 | myturn = !mycrib; |
457 | for (;;) { |
458 | last = TRUE1; /* enable last flag */ |
459 | prhand(ph, pnum, Playwin, FALSE0); |
460 | prhand(ch, cnum, Compwin, TRUE1); |
461 | prtable(sum); |
462 | if (myturn) { |
463 | if (!anymove(ch, cnum, sum)) { /* if no card to play */ |
464 | if (!mego && cnum) { /* go for comp? */ |
465 | msg("GO"); |
466 | mego = TRUE1; |
467 | } |
468 | /* can player move? */ |
469 | if (anymove(ph, pnum, sum)) |
470 | myturn = !myturn; |
471 | else { /* give him his point */ |
472 | msg(quiet ? "You get one" : |
473 | "You get one point"); |
474 | do_wait(); |
475 | if (chkscr(&pscore, 1)) |
476 | return TRUE1; |
477 | sum = 0; |
478 | mego = ugo = FALSE0; |
479 | Tcnt = 0; |
480 | } |
481 | } else { |
482 | played = TRUE1; |
483 | j = -1; |
484 | k = 0; |
485 | /* maximize score */ |
486 | for (i = 0; i < cnum; i++) { |
487 | l = pegscore(ch[i], Table, Tcnt, sum); |
488 | if (l > k) { |
489 | k = l; |
490 | j = i; |
491 | } |
492 | } |
493 | if (j < 0) /* if nothing scores */ |
494 | j = cchose(ch, cnum, sum); |
495 | crd = ch[j]; |
496 | cremove(crd, ch, cnum--); |
497 | sum += VAL(crd.rank)( (crd.rank) < 9 ? (crd.rank)+1 : 10 ); |
498 | Table[Tcnt++] = crd; |
499 | if (k > 0) { |
500 | addmsg(quiet ? "I get %d playing " : |
501 | "I get %d points playing ", k); |
502 | msgcard(crd, FALSE0); |
503 | endmsg(); |
504 | prhand(ph, pnum, Playwin, FALSE0); |
505 | prhand(ch, cnum, Compwin, TRUE1); |
506 | prtable(sum); |
507 | if (chkscr(&cscore, k)) |
508 | return TRUE1; |
509 | } |
510 | myturn = !myturn; |
511 | } |
512 | } else { |
513 | if (!anymove(ph, pnum, sum)) { /* can player move? */ |
514 | if (!ugo && pnum) { /* go for player */ |
515 | msg("You have a GO"); |
516 | ugo = TRUE1; |
517 | } |
518 | /* can computer play? */ |
519 | if (anymove(ch, cnum, sum)) |
520 | myturn = !myturn; |
521 | else { |
522 | msg(quiet ? "I get one" : |
523 | "I get one point"); |
524 | do_wait(); |
525 | prhand(ph, pnum, Playwin, FALSE0); |
526 | prhand(ch, cnum, Compwin, TRUE1); |
527 | prtable(sum); |
528 | if (chkscr(&cscore, 1)) |
529 | return TRUE1; |
530 | sum = 0; |
531 | mego = ugo = FALSE0; |
532 | Tcnt = 0; |
533 | } |
534 | } else { /* player plays */ |
535 | played = FALSE0; |
536 | if (pnum == 1) { |
537 | crd = ph[0]; |
538 | msg("You play your last card"); |
539 | } else |
540 | for (;;) { |
541 | prhand(ph, |
542 | pnum, Playwin, FALSE0); |
543 | crd = ph[infrom(ph, |
544 | pnum, "Your play: ")]; |
545 | if (sum + VAL(crd.rank)( (crd.rank) < 9 ? (crd.rank)+1 : 10 ) <= 31) |
546 | break; |
547 | else |
548 | msg("Total > 31 -- try again"); |
549 | } |
550 | makeknown(&crd, 1); |
551 | cremove(crd, ph, pnum--); |
552 | i = pegscore(crd, Table, Tcnt, sum); |
553 | sum += VAL(crd.rank)( (crd.rank) < 9 ? (crd.rank)+1 : 10 ); |
554 | Table[Tcnt++] = crd; |
555 | if (i > 0) { |
556 | msg(quiet ? "You got %d" : |
557 | "You got %d points", i); |
558 | if (pnum == 0) |
559 | do_wait(); |
560 | prhand(ph, pnum, Playwin, FALSE0); |
561 | prhand(ch, cnum, Compwin, TRUE1); |
562 | prtable(sum); |
563 | if (chkscr(&pscore, i)) |
564 | return TRUE1; |
565 | } |
566 | myturn = !myturn; |
567 | } |
568 | } |
569 | if (sum >= 31) { |
570 | if (!myturn) |
571 | do_wait(); |
572 | sum = 0; |
573 | mego = ugo = FALSE0; |
574 | Tcnt = 0; |
575 | last = FALSE0; /* disable last flag */ |
576 | } |
577 | if (!pnum && !cnum) |
578 | break; /* both done */ |
579 | } |
580 | prhand(ph, pnum, Playwin, FALSE0); |
581 | prhand(ch, cnum, Compwin, TRUE1); |
582 | prtable(sum); |
583 | if (last) { |
584 | if (played) { |
585 | msg(quiet ? "I get one for last" : |
586 | "I get one point for last"); |
587 | do_wait(); |
588 | if (chkscr(&cscore, 1)) |
589 | return TRUE1; |
590 | } else { |
591 | msg(quiet ? "You get one for last" : |
592 | "You get one point for last"); |
593 | do_wait(); |
594 | if (chkscr(&pscore, 1)) |
595 | return TRUE1; |
596 | } |
597 | } |
598 | return (FALSE0); |
599 | } |
600 | |
601 | /* |
602 | * prtable: |
603 | * Print out the table with the current score |
604 | */ |
605 | void |
606 | prtable(int score) |
607 | { |
608 | prhand(Table, Tcnt, Tablewin, FALSE0); |
609 | mvwprintw(Tablewin, (Tcnt + 2) * 2, Tcnt + 1, "%2d", score); |
610 | wrefresh(Tablewin); |
611 | } |
612 | |
613 | /* |
614 | * score: |
615 | * Handle the scoring of the hands |
616 | */ |
617 | int |
618 | score(bool_Bool mycrib) |
619 | { |
620 | sorthand(crib, CINHAND4); |
621 | if (mycrib) { |
622 | if (plyrhand(phand, "hand")) |
623 | return (TRUE1); |
624 | if (comphand(chand, "hand")) |
625 | return (TRUE1); |
626 | do_wait(); |
627 | if (comphand(crib, "crib")) |
628 | return (TRUE1); |
629 | do_wait(); |
630 | } else { |
631 | if (comphand(chand, "hand")) |
632 | return (TRUE1); |
633 | if (plyrhand(phand, "hand")) |
634 | return (TRUE1); |
635 | if (plyrhand(crib, "crib")) |
636 | return (TRUE1); |
637 | } |
638 | return (FALSE0); |
639 | } |