projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
(no message)
[unix-history] / usr / src / games / cribbage / crib.c
diff --git a/usr/src/games/cribbage/crib.c b/usr/src/games/cribbage/crib.c
index 57ebc4a..eb68018 100644 (file)
--- a/usr/src/games/cribbage/crib.c
+++ b/usr/src/games/cribbage/crib.c
@@ -1,3 +1,5 @@
+static char    *sccsid = "@(#)crib.c   1.16 (Berkeley) %G%";
+
 # include      <curses.h>
 # include      <signal.h>
 # include      "deck.h"
 # include      <curses.h>
 # include      <signal.h>
 # include      "deck.h"
@@ -56,9 +58,11 @@ char *argv[];
        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);
        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);
+       Msgwin = subwin(stdscr, MSG_Y, MSG_X, Y_MSG_START, SCORE_X + 1);
        leaveok(Playwin, TRUE);
        leaveok(Tablewin, TRUE);
        leaveok(Compwin, TRUE);
        leaveok(Playwin, TRUE);
        leaveok(Tablewin, TRUE);
        leaveok(Compwin, TRUE);
+       clearok(stdscr, FALSE);
 
        if (!quiet) {
            msg("Do you need instructions for cribbage? ");
 
        if (!quiet) {
            msg("Do you need instructions for cribbage? ");
@@ -75,6 +79,7 @@ char  *argv[];
        }
        playing = TRUE;
        do {
        }
        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);
            msg(quiet ? "L or S? " : "Long (to 121) or Short (to 61)? ");
            if (glimit == SGAME)
                glimit = (getuchar() == 'L' ? LGAME : SGAME);
@@ -114,13 +119,13 @@ bye()
 makeboard()
 {
     mvaddstr(SCORE_Y + 0, SCORE_X, "+---------------------------------------+");
 makeboard()
 {
     mvaddstr(SCORE_Y + 0, SCORE_X, "+---------------------------------------+");
-    mvaddstr(SCORE_Y + 1, SCORE_X, "|                 YOU                   |");
+    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 + 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, "|                  ME                   |");
+    mvaddstr(SCORE_Y + 7, SCORE_X, "|  Score:   0      ME                   |");
     mvaddstr(SCORE_Y + 8, SCORE_X, "+---------------------------------------+");
     gamescore();
 }
     mvaddstr(SCORE_Y + 8, SCORE_X, "+---------------------------------------+");
     gamescore();
 }
@@ -153,6 +158,7 @@ game()
        BOOLEAN                 compcrib;
 
        makeboard();
        BOOLEAN                 compcrib;
 
        makeboard();
+       refresh();
        makedeck(deck);
        shuffle(deck);
        if (gamecount == 0) {
        makedeck(deck);
        shuffle(deck);
        if (gamecount == 0) {
@@ -189,7 +195,7 @@ game()
            wrefresh(Tablewin);
            werase(Compwin);
            wrefresh(Compwin);
            wrefresh(Tablewin);
            werase(Compwin);
            wrefresh(Compwin);
-           msg("Loser (%s) gets first crib.",  (iwon ? "you" : "me"));
+           msg("Loser (%s) gets first crib",  (iwon ? "you" : "me"));
            compcrib = !iwon;
        }
 
            compcrib = !iwon;
        }
 
@@ -199,7 +205,6 @@ game()
            shuffle(deck);
            flag = !playhand(compcrib);
            compcrib = !compcrib;
            shuffle(deck);
            flag = !playhand(compcrib);
            compcrib = !compcrib;
-           msg("You have %d points, I have %d.", pscore, cscore);
        } while (flag);
        ++gamecount;
        if (cscore < pscore) {
        } while (flag);
        ++gamecount;
        if (cscore < pscore) {
@@ -246,10 +251,6 @@ BOOLEAN            mycrib;
        extern char             Msgbuf[];
 
        werase(Compwin);
        extern char             Msgbuf[];
 
        werase(Compwin);
-       wrefresh(Compwin);
-       move(CRIB_Y, 0);
-       clrtobot();
-       mvaddstr(LINES - 1, 0, Msgbuf);
 
        knownum = 0;
        deckpos = deal(mycrib);
 
        knownum = 0;
        deckpos = deal(mycrib);
@@ -345,7 +346,7 @@ int         pos;
            msgcard(turnover, FALSE);
            endmsg();
            if (turnover.rank == JACK) {
            msgcard(turnover, FALSE);
            endmsg();
            if (turnover.rank == JACK) {
-               msg("I get two for his heels.");
+               msg("I get two for his heels");
                win = chkscr(&cscore,2 );
            }
        }
                win = chkscr(&cscore,2 );
            }
        }
@@ -356,7 +357,7 @@ int         pos;
            msgcard(turnover, FALSE);
            endmsg();
            if (turnover.rank == JACK) {
            msgcard(turnover, FALSE);
            endmsg();
            if (turnover.rank == JACK) {
-               msg("You get two for his heels.");
+               msg("You get two for his heels");
                win = chkscr(&pscore, 2);
            }
        }
                win = chkscr(&pscore, 2);
            }
        }
@@ -372,7 +373,7 @@ int         pos;
 prcrib(mycrib, blank)
 BOOLEAN                mycrib, blank;
 {
 prcrib(mycrib, blank)
 BOOLEAN                mycrib, blank;
 {
-       register int    cardx;
+       register int    y, cardx;
 
        if (mycrib)
            cardx = CRIB_X;
 
        if (mycrib)
            cardx = CRIB_X;
@@ -381,6 +382,14 @@ BOOLEAN            mycrib, blank;
 
        mvaddstr(CRIB_Y, cardx + 1, "CRIB");
        prcard(stdscr, CRIB_Y + 1, cardx, turnover, blank);
 
        mvaddstr(CRIB_Y, cardx + 1, "CRIB");
        prcard(stdscr, CRIB_Y + 1, cardx, turnover, blank);
+
+       if (mycrib)
+           cardx = 0;
+       else
+           cardx = CRIB_X;
+
+       for (y = CRIB_Y; y <= CRIB_Y + 5; y++)
+           mvaddstr(y, cardx, "       ");
 }
 
 /*
 }
 
 /*
@@ -419,19 +428,18 @@ BOOLEAN           mycrib;
            if (myturn) {                               /* my tyrn to play */
                if (!anymove(ch, cnum, sum)) {          /* if no card to play */
                    if (!mego && cnum) {                /* go for comp? */
            if (myturn) {                               /* my tyrn to play */
                if (!anymove(ch, cnum, sum)) {          /* if no card to play */
                    if (!mego && cnum) {                /* go for comp? */
-                       msg("GO.");
+                       msg("GO");
                        mego = TRUE;
                    }
                    if (anymove(ph, pnum, sum))         /* can player move? */
                        myturn = !myturn;
                    else {                              /* give him his point */
                        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.");
+                       msg(quiet ? "You get one" : "You get one point");
                        if (chkscr(&pscore, 1))
                            return TRUE;
                        sum = 0;
                        mego = ugo = FALSE;
                        Tcnt = 0;
                        if (chkscr(&pscore, 1))
                            return TRUE;
                        sum = 0;
                        mego = ugo = FALSE;
                        Tcnt = 0;
-                       Hasread = FALSE;
                    }
                }
                else {
                    }
                }
                else {
@@ -465,19 +473,19 @@ BOOLEAN           mycrib;
            else {
                if (!anymove(ph, pnum, sum)) {          /* can player move? */
                    if (!ugo && pnum) {                 /* go for player */
            else {
                if (!anymove(ph, pnum, sum)) {          /* can player move? */
                    if (!ugo && pnum) {                 /* go for player */
-                       msg("You have a GO.");
+                       msg("You have a GO");
                        ugo = TRUE;
                    }
                    if (anymove(ch, cnum, sum))         /* can computer play? */
                        myturn = !myturn;
                    else {
                        ugo = TRUE;
                    }
                    if (anymove(ch, cnum, sum))         /* can computer play? */
                        myturn = !myturn;
                    else {
-                       msg(quiet ? "I get one." : "I get one point.");
+                       msg(quiet ? "I get one" : "I get one point");
+                       do_wait();
                        if (chkscr(&cscore, 1))
                            return TRUE;
                        sum = 0;
                        mego = ugo = FALSE;
                        Tcnt = 0;
                        if (chkscr(&cscore, 1))
                            return TRUE;
                        sum = 0;
                        mego = ugo = FALSE;
                        Tcnt = 0;
-                       Hasread = FALSE;
                    }
                }
                else {                                  /* player plays */
                    }
                }
                else {                                  /* player plays */
@@ -493,7 +501,7 @@ BOOLEAN             mycrib;
                            if (sum + VAL(crd.rank) <= 31)
                                break;
                            else
                            if (sum + VAL(crd.rank) <= 31)
                                break;
                            else
-                               msg("Total > 31 -- try again.");
+                               msg("Total > 31 -- try again");
                        }
                    makeknown(&crd, 1);
                    remove(crd, ph, pnum--);
                        }
                    makeknown(&crd, 1);
                    remove(crd, ph, pnum--);
@@ -509,11 +517,12 @@ BOOLEAN           mycrib;
                }
            }
            if (sum >= 31) {
                }
            }
            if (sum >= 31) {
+               if (!myturn)
+                   do_wait();
                sum = 0;
                mego = ugo = FALSE;
                Tcnt = 0;
                last = FALSE;                           /* disable last flag */
                sum = 0;
                mego = ugo = FALSE;
                Tcnt = 0;
                last = FALSE;                           /* disable last flag */
-               Hasread = FALSE;
            }
            if (!pnum && !cnum)
                break;                                  /* both done */
            }
            if (!pnum && !cnum)
                break;                                  /* both done */
@@ -524,6 +533,7 @@ BOOLEAN             mycrib;
        if (last)
            if (played) {
                msg(quiet ? "I get one for last" : "I get one point for last");
        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;
            }
                if (chkscr(&cscore, 1))
                    return TRUE;
            }
@@ -561,6 +571,7 @@ BOOLEAN             mycrib;
                return TRUE;
            if (comphand(chand, "hand"))
                return TRUE;
                return TRUE;
            if (comphand(chand, "hand"))
                return TRUE;
+           do_wait();
            if (comphand(crib, "crib"))
                return TRUE;
        }
            if (comphand(crib, "crib"))
                return TRUE;
        }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.