BSD 4_3_Net_2 release

[unix-history] / usr / src / games / cribbage / support.c

diff --git a/usr/src/games/cribbage/support.c b/usr/src/games/cribbage/support.c
index 044a349..b617296 100644 (file)
--- a/usr/src/games/cribbage/support.c
+++ b/usr/src/games/cribbage/support.c
@@ -1,3 +1,40 @@
+/*
+ * Copyright (c) 1980 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
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)support.c  5.6 (Berkeley) 2/28/91";
+#endif /* not lint */
+

 #include       <curses.h>
 #include       "deck.h"
 #include       "cribbage.h"
 #include       <curses.h>
 #include       "deck.h"
 #include       "cribbage.h"


@@ -79,32 +116,33 @@ plyrhand(hand, s)
 CARD           hand[];
 char           *s;
 {
 CARD           hand[];
 char           *s;
 {

-       register int            i, j;
-       BOOLEAN                 win;
-       static char             prompt[BUFSIZ];
-
-       prhand(hand, CINHAND, Playwin);
-       sprintf(prompt, "Your %s scores ", s);
-       i = scorehand(hand, turnover, CINHAND, FALSE);  /* count */
-       if ((j = number(0, 29, prompt)) == 19)
-           j = 0;
-       if (i != j) {
-           if (i < j) {
-               win = chkscr(&pscore, i);
-               msg("It's really only %d points, I get %d.", i, 2);
-               if (!win)
-                   win = chkscr(&cscore, 2);
-           }
-           else {
-               win = chkscr(&pscore, j);
-               msg("You should have taken %d, not %d!", i, j);
-           }
-           if (explain)
-               msg("Explanation: %s", expl);
-       }
-       else
+    register int       i, j;
+    register BOOLEAN   win;
+    static char                prompt[BUFSIZ];
+
+    prhand(hand, CINHAND, Playwin, FALSE);
+    (void)sprintf(prompt, "Your %s scores ", s);
+    i = scorehand(hand, turnover, CINHAND, strcmp(s, "crib") == 0, explain);
+    if ((j = number(0, 29, prompt)) == 19)
+       j = 0;
+    if (i != j) {
+       if (i < j) {

            win = chkscr(&pscore, i);
            win = chkscr(&pscore, i);

-       return win;
+           msg("It's really only %d points; I get %d", i, 2);
+           if (!win)
+               win = chkscr(&cscore, 2);
+       }
+       else {
+           win = chkscr(&pscore, j);
+           msg("You should have taken %d, not %d!", i, j);
+       }
+       if (explain)
+           msg("Explanation: %s", expl);
+       do_wait();
+    }
+    else
+       win = chkscr(&pscore, i);
+    return win;

 }
 
 /*
 }
 
 /*


@@ -117,9 +155,8 @@ char                *s;
 {
        register int            j;
 
 {
        register int            j;
 

-       j = scorehand(h, turnover, CINHAND, FALSE);
-       prhand(h, CINHAND, Compwin);
-       Hasread = FALSE;
+       j = scorehand(h, turnover, CINHAND, strcmp(s, "crib") == 0, FALSE);
+       prhand(h, CINHAND, Compwin, FALSE);

        msg("My %s scores %d", s, (j == 0 ? 19 : j));
        return chkscr(&cscore, j);
 }
        msg("My %s scores %d", s, (j == 0 ? 19 : j));
        return chkscr(&cscore, j);
 }


@@ -143,13 +180,15 @@ int               *scr, inc;
                Lastscore[myturn] = *scr;
                *scr += inc;
                prpeg(*scr, PEG, myturn);
                Lastscore[myturn] = *scr;
                *scr += inc;
                prpeg(*scr, PEG, myturn);

+               refresh();

        }
        return (*scr >= glimit);
 }
 
 /*
  * prpeg:
        }
        return (*scr >= glimit);
 }
 
 /*
  * prpeg:

- *     put out the peg character on the score board
+ *     Put out the peg character on the score board and put the
+ *     score up on the board.

  */
 prpeg(score, peg, myturn)
 register int   score;
  */
 prpeg(score, peg, myturn)
 register int   score;


@@ -183,6 +222,7 @@ BOOLEAN             myturn;
                x += SCORE_X + 3;
        }
        mvaddch(y, x, peg);
                x += SCORE_X + 3;
        }
        mvaddch(y, x, peg);

+       mvprintw(SCORE_Y + (myturn ? 7 : 1), SCORE_X + 10, "%3d", score);

 }
 
 /*
 }
 
 /*


@@ -204,7 +244,7 @@ cdiscard( mycrib )
        makedeck( d );
        nc = CARDS;
        for( i = 0; i < knownum; i++ )  {       /* get all other cards */
        makedeck( d );
        nc = CARDS;
        for( i = 0; i < knownum; i++ )  {       /* get all other cards */

-           remove( known[i], d, nc-- );
+           cremove( known[i], d, nc-- );

        }
        for( i = 0; i < 15; i++ )  sums[i] = 0L;
        ns = 0;
        }
        for( i = 0; i < 15; i++ )  sums[i] = 0L;
        ns = 0;


@@ -213,10 +253,10 @@ cdiscard( mycrib )
            for( j = i + 1; j < FULLHAND; j++ )  {
                cb[1] = chand[j];
                for( k = 0; k < FULLHAND; k++ )  h[k] = chand[k];
            for( j = i + 1; j < FULLHAND; j++ )  {
                cb[1] = chand[j];
                for( k = 0; k < FULLHAND; k++ )  h[k] = chand[k];

-               remove( chand[i], h, FULLHAND );
-               remove( chand[j], h, FULLHAND - 1 );
+               cremove( chand[i], h, FULLHAND );
+               cremove( chand[j], h, FULLHAND - 1 );

                for( k = 0; k < nc; k++ )  {
                for( k = 0; k < nc; k++ )  {

-                   sums[ns] += scorehand( h, d[k], CINHAND, TRUE );
+                   sums[ns] += scorehand( h, d[k], CINHAND, TRUE, FALSE );

                    if( mycrib )  sums[ns] += adjust( cb, d[k] );
                    else          sums[ns] -= adjust( cb, d[k] );
                }
                    if( mycrib )  sums[ns] += adjust( cb, d[k] );
                    else          sums[ns] -= adjust( cb, d[k] );
                }


@@ -226,8 +266,8 @@ cdiscard( mycrib )
        j = 0;
        for( i = 1; i < 15; i++ )  if(  sums[i] > sums[j]  )  j = i;
        for( k = 0; k < FULLHAND; k++ )  h[k] = chand[k];
        j = 0;
        for( i = 1; i < 15; i++ )  if(  sums[i] > sums[j]  )  j = i;
        for( k = 0; k < FULLHAND; k++ )  h[k] = chand[k];

-       remove( h[ undo1[j] ], chand, FULLHAND );
-       remove( h[ undo2[j] ], chand, FULLHAND - 1 );
+       cremove( h[ undo1[j] ], chand, FULLHAND );
+       cremove( h[ undo2[j] ], chand, FULLHAND - 1 );

        chand[4] = h[ undo1[j] ];
        chand[5] = h[ undo2[j] ];
 }
        chand[4] = h[ undo1[j] ];
        chand[5] = h[ undo2[j] ];
 }