summaryrefslogtreecommitdiffstats
path: root/cribbage/crib.c
diff options
context:
space:
mode:
authorcgd <cgd@NetBSD.org>1995-03-21 15:03:38 +0000
committercgd <cgd@NetBSD.org>1995-03-21 15:03:38 +0000
commit5ff78ede5ea1a80c654d3f0684cd5f36d5253ae1 (patch)
tree81a19a5b24b0353e8cbac8b1f0ad82be1cf16323 /cribbage/crib.c
parent45171656c266fc63f08d074d856b5ae99ac29211 (diff)
downloadbsdgames-darwin-5ff78ede5ea1a80c654d3f0684cd5f36d5253ae1.tar.gz
bsdgames-darwin-5ff78ede5ea1a80c654d3f0684cd5f36d5253ae1.tar.zst
bsdgames-darwin-5ff78ede5ea1a80c654d3f0684cd5f36d5253ae1.zip
clean up import
Diffstat (limited to 'cribbage/crib.c')
-rw-r--r--cribbage/crib.c722
1 files changed, 368 insertions, 354 deletions
diff --git a/cribbage/crib.c b/cribbage/crib.c
index c357f2da..96bfe568 100644
--- a/cribbage/crib.c
+++ b/cribbage/crib.c
@@ -1,6 +1,8 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.
+/* $NetBSD: crib.c,v 1.5 1995/03/21 15:08:42 cgd Exp $ */
+
+/*-
+ * Copyright (c) 1980, 1993
+ * The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@@ -32,41 +34,41 @@
*/
#ifndef lint
-char copyright[] =
-"@(#) Copyright (c) 1980 Regents of the University of California.\n\
- All rights reserved.\n";
+static char copyright[] =
+"@(#) Copyright (c) 1980, 1993\n\
+ The Regents of the University of California. All rights reserved.\n";
#endif /* not lint */
#ifndef lint
-/*static char sccsid[] = "from: @(#)crib.c 5.6 (Berkeley) 2/28/91";*/
-static char rcsid[] = "$Id: crib.c,v 1.4 1995/02/28 18:31:26 jtc Exp $";
+#if 0
+static char sccsid[] = "@(#)crib.c 8.1 (Berkeley) 5/31/93";
+#else
+static char rcsid[] = "$NetBSD: crib.c,v 1.5 1995/03/21 15:08:42 cgd Exp $";
+#endif
#endif /* not lint */
-# include <signal.h>
-# include <curses.h>
-# include <unistd.h>
-# include "deck.h"
-# include "cribbage.h"
-# include "cribcur.h"
-# include "pathnames.h"
+#include <curses.h>
+#include <signal.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "deck.h"
+#include "cribbage.h"
+#include "cribcur.h"
+#include "pathnames.h"
+int
main(argc, argv)
-int argc;
-char *argv[];
+ int argc;
+ char *argv[];
{
- extern char *optarg;
- extern int optind;
- register char *p;
+ BOOLEAN playing;
+ FILE *f;
int ch;
- BOOLEAN playing;
- char *s; /* for reading arguments */
- FILE *f;
- FILE *fopen();
- char *getline();
- void rint();
while ((ch = getopt(argc, argv, "eqr")) != EOF)
- switch(ch) {
+ switch (ch) {
case 'e':
explain = TRUE;
break;
@@ -83,9 +85,10 @@ char *argv[];
}
initscr();
- signal(SIGINT, rint);
+ (void)signal(SIGINT, rint);
crmode();
noecho();
+
Playwin = subwin(stdscr, PLAY_Y, PLAY_X, 0, 0);
Tablewin = subwin(stdscr, TABLE_Y, TABLE_X, 0, PLAY_X);
Compwin = subwin(stdscr, COMP_Y, COMP_X, 0, TABLE_X + PLAY_X);
@@ -96,41 +99,41 @@ char *argv[];
clearok(stdscr, FALSE);
if (!quiet) {
- msg("Do you need instructions for cribbage? ");
- if (getuchar() == 'Y') {
- endwin();
- clear();
- mvcur(0, COLS - 1, LINES - 1, 0);
- fflush(stdout);
- instructions();
- crmode();
- noecho();
- clear();
- refresh();
- msg("For the rules of this program, do \"man cribbage\"");
- }
+ msg("Do you need instructions for cribbage? ");
+ if (getuchar() == 'Y') {
+ endwin();
+ clear();
+ mvcur(0, COLS - 1, LINES - 1, 0);
+ fflush(stdout);
+ instructions();
+ crmode();
+ noecho();
+ clear();
+ refresh();
+ msg("For cribbage rules, use \"man cribbage\"");
+ }
}
playing = TRUE;
do {
- wclrtobot(Msgwin);
- msg(quiet ? "L or S? " : "Long (to 121) or Short (to 61)? ");
- if (glimit == SGAME)
- glimit = (getuchar() == 'L' ? LGAME : SGAME);
- else
- glimit = (getuchar() == 'S' ? SGAME : LGAME);
- game();
- msg("Another game? ");
- playing = (getuchar() == 'Y');
+ wclrtobot(Msgwin);
+ msg(quiet ? "L or S? " : "Long (to 121) or Short (to 61)? ");
+ if (glimit == SGAME)
+ glimit = (getuchar() == 'L' ? LGAME : SGAME);
+ else
+ glimit = (getuchar() == 'S' ? SGAME : LGAME);
+ game();
+ msg("Another game? ");
+ playing = (getuchar() == 'Y');
} while (playing);
if (f = fopen(_PATH_LOG, "a")) {
(void)fprintf(f, "%s: won %5.5d, lost %5.5d\n",
- getlogin(), cgames, pgames);
- (void)fclose(f);
+ getlogin(), cgames, pgames);
+ (void) fclose(f);
}
bye();
if (!f) {
- (void)fprintf(stderr, "\ncribbage: can't open %s.\n",
+ (void) fprintf(stderr, "\ncribbage: can't open %s.\n",
_PATH_LOG);
exit(1);
}
@@ -141,34 +144,45 @@ char *argv[];
* makeboard:
* Print out the initial board on the screen
*/
+void
makeboard()
{
- mvaddstr(SCORE_Y + 0, SCORE_X, "+---------------------------------------+");
- mvaddstr(SCORE_Y + 1, SCORE_X, "| Score: 0 YOU |");
- mvaddstr(SCORE_Y + 2, SCORE_X, "| *.....:.....:.....:.....:.....:..... |");
- mvaddstr(SCORE_Y + 3, SCORE_X, "| *.....:.....:.....:.....:.....:..... |");
- mvaddstr(SCORE_Y + 4, SCORE_X, "| |");
- mvaddstr(SCORE_Y + 5, SCORE_X, "| *.....:.....:.....:.....:.....:..... |");
- mvaddstr(SCORE_Y + 6, SCORE_X, "| *.....:.....:.....:.....:.....:..... |");
- mvaddstr(SCORE_Y + 7, SCORE_X, "| Score: 0 ME |");
- mvaddstr(SCORE_Y + 8, SCORE_X, "+---------------------------------------+");
- gamescore();
+ mvaddstr(SCORE_Y + 0, SCORE_X,
+ "+---------------------------------------+");
+ mvaddstr(SCORE_Y + 1, SCORE_X,
+ "| Score: 0 YOU |");
+ mvaddstr(SCORE_Y + 2, SCORE_X,
+ "| *.....:.....:.....:.....:.....:..... |");
+ mvaddstr(SCORE_Y + 3, SCORE_X,
+ "| *.....:.....:.....:.....:.....:..... |");
+ mvaddstr(SCORE_Y + 4, SCORE_X,
+ "| |");
+ mvaddstr(SCORE_Y + 5, SCORE_X,
+ "| *.....:.....:.....:.....:.....:..... |");
+ mvaddstr(SCORE_Y + 6, SCORE_X,
+ "| *.....:.....:.....:.....:.....:..... |");
+ mvaddstr(SCORE_Y + 7, SCORE_X,
+ "| Score: 0 ME |");
+ mvaddstr(SCORE_Y + 8, SCORE_X,
+ "+---------------------------------------+");
+ gamescore();
}
/*
* gamescore:
* Print out the current game score
*/
+void
gamescore()
{
- extern int Lastscore[];
-
- if (pgames || cgames) {
- mvprintw(SCORE_Y + 1, SCORE_X + 28, "Games: %3d", pgames);
- mvprintw(SCORE_Y + 7, SCORE_X + 28, "Games: %3d", cgames);
- }
- Lastscore[0] = -1;
- Lastscore[1] = -1;
+ extern int Lastscore[];
+
+ if (pgames || cgames) {
+ mvprintw(SCORE_Y + 1, SCORE_X + 28, "Games: %3d", pgames);
+ mvprintw(SCORE_Y + 7, SCORE_X + 28, "Games: %3d", cgames);
+ }
+ Lastscore[0] = -1;
+ Lastscore[1] = -1;
}
/*
@@ -176,92 +190,88 @@ gamescore()
* Play one game up to glimit points. Actually, we only ASK the
* player what card to turn. We do a random one, anyway.
*/
+void
game()
{
- register int i, j;
- BOOLEAN flag;
- BOOLEAN compcrib;
- char *getline();
+ register int i, j;
+ BOOLEAN flag;
+ BOOLEAN compcrib;
- makeboard();
- refresh();
makedeck(deck);
shuffle(deck);
if (gamecount == 0) {
- flag = TRUE;
- do {
- if (!rflag) { /* player cuts deck */
- msg(quiet ? "Cut for crib? " :
- "Cut to see whose crib it is -- low card wins? ");
- getline();
- }
- i = (rand() >> 4) % CARDS; /* random cut */
- do { /* comp cuts deck */
- j = (rand() >> 4) % CARDS;
- } while (j == i);
- addmsg(quiet ? "You cut " : "You cut the ");
- msgcard(deck[i], FALSE);
- endmsg();
- addmsg(quiet ? "I cut " : "I cut the ");
- msgcard(deck[j], FALSE);
- endmsg();
- flag = (deck[i].rank == deck[j].rank);
- if (flag) {
- msg(quiet ? "We tied..." :
- "We tied and have to try again...");
- shuffle(deck);
- continue;
- }
- else
- compcrib = (deck[i].rank > deck[j].rank);
- } while (flag);
- }
- else {
- werase(Tablewin);
- wrefresh(Tablewin);
- werase(Compwin);
- wrefresh(Compwin);
- msg("Loser (%s) gets first crib", (iwon ? "you" : "me"));
- compcrib = !iwon;
+ flag = TRUE;
+ do {
+ if (!rflag) { /* player cuts deck */
+ msg(quiet ? "Cut for crib? " :
+ "Cut to see whose crib it is -- low card wins? ");
+ getline();
+ }
+ i = (rand() >> 4) % CARDS; /* random cut */
+ do { /* comp cuts deck */
+ j = (rand() >> 4) % CARDS;
+ } while (j == i);
+ addmsg(quiet ? "You cut " : "You cut the ");
+ msgcard(deck[i], FALSE);
+ endmsg();
+ addmsg(quiet ? "I cut " : "I cut the ");
+ msgcard(deck[j], FALSE);
+ endmsg();
+ flag = (deck[i].rank == deck[j].rank);
+ if (flag) {
+ msg(quiet ? "We tied..." :
+ "We tied and have to try again...");
+ shuffle(deck);
+ continue;
+ } else
+ compcrib = (deck[i].rank > deck[j].rank);
+ } while (flag);
+ clear();
+ makeboard();
+ refresh();
+ } else {
+ werase(Tablewin);
+ wrefresh(Tablewin);
+ werase(Compwin);
+ wrefresh(Compwin);
+ msg("Loser (%s) gets first crib", (iwon ? "you" : "me"));
+ compcrib = !iwon;
}
pscore = cscore = 0;
flag = TRUE;
do {
- shuffle(deck);
- flag = !playhand(compcrib);
- compcrib = !compcrib;
+ shuffle(deck);
+ flag = !playhand(compcrib);
+ compcrib = !compcrib;
} while (flag);
++gamecount;
if (cscore < pscore) {
- if (glimit - cscore > 60) {
- msg("YOU DOUBLE SKUNKED ME!");
- pgames += 4;
- }
- else if (glimit - cscore > 30) {
- msg("YOU SKUNKED ME!");
- pgames += 2;
- }
- else {
- msg("YOU WON!");
- ++pgames;
- }
- iwon = FALSE;
- }
- else {
- if (glimit - pscore > 60) {
- msg("I DOUBLE SKUNKED YOU!");
- cgames += 4;
- }
- else if (glimit - pscore > 30) {
- msg("I SKUNKED YOU!");
- cgames += 2;
- }
- else {
- msg("I WON!");
- ++cgames;
- }
- iwon = TRUE;
+ if (glimit - cscore > 60) {
+ msg("YOU DOUBLE SKUNKED ME!");
+ pgames += 4;
+ } else
+ if (glimit - cscore > 30) {
+ msg("YOU SKUNKED ME!");
+ pgames += 2;
+ } else {
+ msg("YOU WON!");
+ ++pgames;
+ }
+ iwon = FALSE;
+ } else {
+ if (glimit - pscore > 60) {
+ msg("I DOUBLE SKUNKED YOU!");
+ cgames += 4;
+ } else
+ if (glimit - pscore > 30) {
+ msg("I SKUNKED YOU!");
+ cgames += 2;
+ } else {
+ msg("I WON!");
+ ++cgames;
+ }
+ iwon = TRUE;
}
gamescore();
}
@@ -270,11 +280,11 @@ game()
* playhand:
* Do up one hand of the game
*/
+int
playhand(mycrib)
-BOOLEAN mycrib;
+ BOOLEAN mycrib;
{
- register int deckpos;
- extern char Msgbuf[];
+ register int deckpos;
werase(Compwin);
@@ -286,38 +296,35 @@ BOOLEAN mycrib;
prhand(phand, FULLHAND, Playwin, FALSE);
discard(mycrib);
if (cut(mycrib, deckpos))
- return TRUE;
+ return TRUE;
if (peg(mycrib))
- return TRUE;
+ return TRUE;
werase(Tablewin);
wrefresh(Tablewin);
if (score(mycrib))
- return TRUE;
+ return TRUE;
return FALSE;
}
-
-
/*
* deal cards to both players from deck
*/
-
-deal( mycrib )
+int
+deal(mycrib)
+ BOOLEAN mycrib;
{
- register int i, j;
-
- j = 0;
- for( i = 0; i < FULLHAND; i++ ) {
- if( mycrib ) {
- phand[i] = deck[j++];
- chand[i] = deck[j++];
- }
- else {
- chand[i] = deck[j++];
- phand[i] = deck[j++];
- }
+ register int i, j;
+
+ for (i = j = 0; i < FULLHAND; i++) {
+ if (mycrib) {
+ phand[i] = deck[j++];
+ chand[i] = deck[j++];
+ } else {
+ chand[i] = deck[j++];
+ phand[i] = deck[j++];
+ }
}
- return( j );
+ return (j);
}
/*
@@ -325,20 +332,22 @@ deal( mycrib )
* Handle players discarding into the crib...
* Note: we call cdiscard() after prining first message so player doesn't wait
*/
+void
discard(mycrib)
-BOOLEAN mycrib;
+ BOOLEAN mycrib;
{
- register char *prompt;
- CARD crd;
+ register char *prompt;
+ CARD crd;
prcrib(mycrib, TRUE);
prompt = (quiet ? "Discard --> " : "Discard a card --> ");
- cdiscard(mycrib); /* puts best discard at end */
+ cdiscard(mycrib); /* puts best discard at end */
crd = phand[infrom(phand, FULLHAND, prompt)];
cremove(crd, phand, FULLHAND);
prhand(phand, FULLHAND, Playwin, FALSE);
crib[0] = crd;
-/* next four lines same as last four except for cdiscard() */
+
+ /* Next four lines same as last four except for cdiscard(). */
crd = phand[infrom(phand, FULLHAND - 1, prompt)];
cremove(crd, phand, FULLHAND - 1);
prhand(phand, FULLHAND, Playwin, FALSE);
@@ -353,232 +362,237 @@ BOOLEAN mycrib;
* Cut the deck and set turnover. Actually, we only ASK the
* player what card to turn. We do a random one, anyway.
*/
+int
cut(mycrib, pos)
-BOOLEAN mycrib;
-int pos;
+ BOOLEAN mycrib;
+ int pos;
{
- register int i, cardx;
- BOOLEAN win = FALSE;
- char *getline();
+ register int i;
+ BOOLEAN win;
+ win = FALSE;
if (mycrib) {
- if (!rflag) { /* random cut */
- msg(quiet ? "Cut the deck? " :
- "How many cards down do you wish to cut the deck? ");
- getline();
- }
- i = (rand() >> 4) % (CARDS - pos);
- turnover = deck[i + pos];
- addmsg(quiet ? "You cut " : "You cut the ");
- msgcard(turnover, FALSE);
- endmsg();
- if (turnover.rank == JACK) {
- msg("I get two for his heels");
- win = chkscr(&cscore,2 );
- }
- }
- else {
- i = (rand() >> 4) % (CARDS - pos) + pos;
- turnover = deck[i];
- addmsg(quiet ? "I cut " : "I cut the ");
- msgcard(turnover, FALSE);
- endmsg();
- if (turnover.rank == JACK) {
- msg("You get two for his heels");
- win = chkscr(&pscore, 2);
- }
+ if (!rflag) { /* random cut */
+ msg(quiet ? "Cut the deck? " :
+ "How many cards down do you wish to cut the deck? ");
+ getline();
+ }
+ i = (rand() >> 4) % (CARDS - pos);
+ turnover = deck[i + pos];
+ addmsg(quiet ? "You cut " : "You cut the ");
+ msgcard(turnover, FALSE);
+ endmsg();
+ if (turnover.rank == JACK) {
+ msg("I get two for his heels");
+ win = chkscr(&cscore, 2);
+ }
+ } else {
+ i = (rand() >> 4) % (CARDS - pos) + pos;
+ turnover = deck[i];
+ addmsg(quiet ? "I cut " : "I cut the ");
+ msgcard(turnover, FALSE);
+ endmsg();
+ if (turnover.rank == JACK) {
+ msg("You get two for his heels");
+ win = chkscr(&pscore, 2);
+ }
}
makeknown(&turnover, 1);
prcrib(mycrib, FALSE);
- return win;
+ return (win);
}
/*
* prcrib:
* Print out the turnover card with crib indicator
*/
+void
prcrib(mycrib, blank)
-BOOLEAN mycrib, blank;
+ BOOLEAN mycrib, blank;
{
- register int y, cardx;
+ register int y, cardx;
if (mycrib)
- cardx = CRIB_X;
+ cardx = CRIB_X;
else
- cardx = 0;
+ cardx = 0;
mvaddstr(CRIB_Y, cardx + 1, "CRIB");
prcard(stdscr, CRIB_Y + 1, cardx, turnover, blank);
if (mycrib)
- cardx = 0;
+ cardx = 0;
else
- cardx = CRIB_X;
+ cardx = CRIB_X;
for (y = CRIB_Y; y <= CRIB_Y + 5; y++)
- mvaddstr(y, cardx, " ");
+ mvaddstr(y, cardx, " ");
}
/*
* peg:
* Handle all the pegging...
*/
+static CARD Table[14];
+static int Tcnt;
-static CARD Table[14];
-
-static int Tcnt;
-
+int
peg(mycrib)
-BOOLEAN mycrib;
+ BOOLEAN mycrib;
{
- static CARD ch[CINHAND], ph[CINHAND];
- CARD crd;
- register int i, j, k;
- register int l;
- register int cnum, pnum, sum;
- register BOOLEAN myturn, mego, ugo, last, played;
+ static CARD ch[CINHAND], ph[CINHAND];
+ register int i, j, k;
+ register int l;
+ register int cnum, pnum, sum;
+ register BOOLEAN myturn, mego, ugo, last, played;
+ CARD crd;
cnum = pnum = CINHAND;
- for (i = 0; i < CINHAND; i++) { /* make copies of hands */
- ch[i] = chand[i];
- ph[i] = phand[i];
+ for (i = 0; i < CINHAND; i++) { /* make copies of hands */
+ ch[i] = chand[i];
+ ph[i] = phand[i];
}
- Tcnt = 0; /* index to table of cards played */
- sum = 0; /* sum of cards played */
+ Tcnt = 0; /* index to table of cards played */
+ sum = 0; /* sum of cards played */
mego = ugo = FALSE;
myturn = !mycrib;
for (;;) {
- last = TRUE; /* enable last flag */
- prhand(ph, pnum, Playwin, FALSE);
- prhand(ch, cnum, Compwin, TRUE);
- prtable(sum);
- if (myturn) { /* my tyrn to play */
- if (!anymove(ch, cnum, sum)) { /* if no card to play */
- if (!mego && cnum) { /* go for comp? */
- msg("GO");
- mego = TRUE;
- }
- if (anymove(ph, pnum, sum)) /* can player move? */
- myturn = !myturn;
- else { /* give him his point */
- msg(quiet ? "You get one" : "You get one point");
- if (chkscr(&pscore, 1))
- return TRUE;
- sum = 0;
- mego = ugo = FALSE;
- Tcnt = 0;
- }
- }
- else {
- played = TRUE;
- j = -1;
- k = 0;
- for (i = 0; i < cnum; i++) { /* maximize score */
- l = pegscore(ch[i], Table, Tcnt, sum);
- if (l > k) {
- k = l;
- j = i;
+ last = TRUE; /* enable last flag */
+ prhand(ph, pnum, Playwin, FALSE);
+ prhand(ch, cnum, Compwin, TRUE);
+ prtable(sum);
+ if (myturn) { /* my tyrn to play */
+ if (!anymove(ch, cnum, sum)) { /* if no card to play */
+ if (!mego && cnum) { /* go for comp? */
+ msg("GO");
+ mego = TRUE;
+ }
+ /* can player move? */
+ if (anymove(ph, pnum, sum))
+ myturn = !myturn;
+ else { /* give him his point */
+ msg(quiet ? "You get one" :
+ "You get one point");
+ if (chkscr(&pscore, 1))
+ return TRUE;
+ sum = 0;
+ mego = ugo = FALSE;
+ Tcnt = 0;
+ }
+ } else {
+ played = TRUE;
+ j = -1;
+ k = 0;
+ /* maximize score */
+ for (i = 0; i < cnum; i++) {
+ l = pegscore(ch[i], Table, Tcnt, sum);
+ if (l > k) {
+ k = l;
+ j = i;
+ }
+ }
+ if (j < 0) /* if nothing scores */
+ j = cchose(ch, cnum, sum);
+ crd = ch[j];
+ cremove(crd, ch, cnum--);
+ sum += VAL(crd.rank);
+ Table[Tcnt++] = crd;
+ if (k > 0) {
+ addmsg(quiet ? "I get %d playing " :
+ "I get %d points playing ", k);
+ msgcard(crd, FALSE);
+ endmsg();
+ if (chkscr(&cscore, k))
+ return TRUE;
+ }
+ myturn = !myturn;
+ }
+ } else {
+ if (!anymove(ph, pnum, sum)) { /* can player move? */
+ if (!ugo && pnum) { /* go for player */
+ msg("You have a GO");
+ ugo = TRUE;
+ }
+ /* can computer play? */
+ if (anymove(ch, cnum, sum))
+ myturn = !myturn;
+ else {
+ msg(quiet ? "I get one" :
+ "I get one point");
+ do_wait();
+ if (chkscr(&cscore, 1))
+ return TRUE;
+ sum = 0;
+ mego = ugo = FALSE;
+ Tcnt = 0;
+ }
+ } else { /* player plays */
+ played = FALSE;
+ if (pnum == 1) {
+ crd = ph[0];
+ msg("You play your last card");
+ } else
+ for (;;) {
+ prhand(ph,
+ pnum, Playwin, FALSE);
+ crd = ph[infrom(ph,
+ pnum, "Your play: ")];
+ if (sum + VAL(crd.rank) <= 31)
+ break;
+ else
+ msg("Total > 31 -- try again");
+ }
+ makeknown(&crd, 1);
+ cremove(crd, ph, pnum--);
+ i = pegscore(crd, Table, Tcnt, sum);
+ sum += VAL(crd.rank);
+ Table[Tcnt++] = crd;
+ if (i > 0) {
+ msg(quiet ? "You got %d" :
+ "You got %d points", i);
+ if (chkscr(&pscore, i))
+ return TRUE;
+ }
+ myturn = !myturn;
}
- }
- if (j < 0) /* if nothing scores */
- j = cchose(ch, cnum, sum);
- crd = ch[j];
- cremove(crd, ch, cnum--);
- sum += VAL(crd.rank);
- Table[Tcnt++] = crd;
- if (k > 0) {
- addmsg(quiet ? "I get %d playing " :
- "I get %d points playing ", k);
- msgcard(crd, FALSE);
- endmsg();
- if (chkscr(&cscore, k))
- return TRUE;
- }
- myturn = !myturn;
}
- }
- else {
- if (!anymove(ph, pnum, sum)) { /* can player move? */
- if (!ugo && pnum) { /* go for player */
- msg("You have a GO");
- ugo = TRUE;
- }
- if (anymove(ch, cnum, sum)) /* can computer play? */
- myturn = !myturn;
- else {
- msg(quiet ? "I get one" : "I get one point");
- do_wait();
- if (chkscr(&cscore, 1))
- return TRUE;
+ if (sum >= 31) {
+ if (!myturn)
+ do_wait();
sum = 0;
mego = ugo = FALSE;
Tcnt = 0;
- }
- }
- else { /* player plays */
- played = FALSE;
- if (pnum == 1) {
- crd = ph[0];
- msg("You play your last card");
- }
- else
- for (;;) {
- prhand(ph, pnum, Playwin, FALSE);
- crd = ph[infrom(ph, pnum, "Your play: ")];
- if (sum + VAL(crd.rank) <= 31)
- break;
- else
- msg("Total > 31 -- try again");
- }
- makeknown(&crd, 1);
- cremove(crd, ph, pnum--);
- i = pegscore(crd, Table, Tcnt, sum);
- sum += VAL(crd.rank);
- Table[Tcnt++] = crd;
- if (i > 0) {
- msg(quiet ? "You got %d" : "You got %d points", i);
- if (chkscr(&pscore, i))
- return TRUE;
- }
- myturn = !myturn;
+ last = FALSE; /* disable last flag */
}
- }
- if (sum >= 31) {
- if (!myturn)
- do_wait();
- sum = 0;
- mego = ugo = FALSE;
- Tcnt = 0;
- last = FALSE; /* disable last flag */
- }
- if (!pnum && !cnum)
- break; /* both done */
+ if (!pnum && !cnum)
+ break; /* both done */
}
prhand(ph, pnum, Playwin, FALSE);
prhand(ch, cnum, Compwin, TRUE);
prtable(sum);
if (last)
- if (played) {
- msg(quiet ? "I get one for last" : "I get one point for last");
- do_wait();
- if (chkscr(&cscore, 1))
- return TRUE;
- }
- else {
- msg(quiet ? "You get one for last" :
+ if (played) {
+ msg(quiet ? "I get one for last" :
+ "I get one point for last");
+ do_wait();
+ if (chkscr(&cscore, 1))
+ return TRUE;
+ } else {
+ msg(quiet ? "You get one for last" :
"You get one point for last");
- if (chkscr(&pscore, 1))
- return TRUE;
- }
- return FALSE;
+ if (chkscr(&pscore, 1))
+ return TRUE;
+ }
+ return (FALSE);
}
/*
* prtable:
* Print out the table with the current score
*/
+void
prtable(score)
-int score;
+ int score;
{
prhand(Table, Tcnt, Tablewin, FALSE);
mvwprintw(Tablewin, (Tcnt + 2) * 2, Tcnt + 1, "%2d", score);
@@ -589,26 +603,26 @@ int score;
* score:
* Handle the scoring of the hands
*/
+int
score(mycrib)
-BOOLEAN mycrib;
+ BOOLEAN mycrib;
{
sorthand(crib, CINHAND);
if (mycrib) {
- if (plyrhand(phand, "hand"))
- return TRUE;
- if (comphand(chand, "hand"))
- return TRUE;
- do_wait();
- if (comphand(crib, "crib"))
- return TRUE;
- }
- else {
- if (comphand(chand, "hand"))
- return TRUE;
- if (plyrhand(phand, "hand"))
- return TRUE;
- if (plyrhand(crib, "crib"))
- return TRUE;
+ if (plyrhand(phand, "hand"))
+ return (TRUE);
+ if (comphand(chand, "hand"))
+ return (TRUE);
+ do_wait();
+ if (comphand(crib, "crib"))
+ return (TRUE);
+ } else {
+ if (comphand(chand, "hand"))
+ return (TRUE);
+ if (plyrhand(phand, "hand"))
+ return (TRUE);
+ if (plyrhand(crib, "crib"))
+ return (TRUE);
}
- return FALSE;
+ return (FALSE);
}