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 b9424da..b617296 100644 (file)
--- a/usr/src/games/cribbage/support.c
+++ b/usr/src/games/cribbage/support.c
@@ -1,8 +1,44 @@
-static char sccsid[] = "       support.c       1.1     82/05/12        ";
+/*
+ * 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.
+ */

 
 

-#include       <stdio.h>
+#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       "deck.h"
 #include       "cribbage.h"

+#include       "cribcur.h"

 
 
 #define                NTV             10              /* number scores to test */
 
 
 #define                NTV             10              /* number scores to test */


@@ -73,81 +109,122 @@ cchose( h, n, s )
 
 
 /*
 
 
 /*

- * evaluate and score a player hand or crib
+ * plyrhand:
+ *     Evaluate and score a player hand or crib

  */
  */

-
-plyrhand( hand, s )
-
-    CARD               hand[];
-    char               *s;
+plyrhand(hand, s)
+CARD           hand[];
+char           *s;

 {
 {

-       register  int           i, j;
-       BOOLEAN                 win;
-
-       printf( "Your %s is: ", s );
-       prhand( hand, CINHAND, TRUE );
-       printf( "  [" );
-       printcard( turnover, TRUE );
-       printf( "].   How many points? " );
-       i = scorehand( hand, turnover, CINHAND, FALSE );        /* count */
-       if(  ( j = number(0, 29) )  ==  19  )  j = 0;
-       if(  i != j  )  {
-           if( i < j )  {
-               win = chkscr( &pscore, i );
-               printf( "It's really only %d points, I get %d.\n", i, 2 );
-               if( !win )  win = chkscr( &cscore, 2 );
-           }
-           else  {
-               win = chkscr( &pscore, j );
-               printf( "You should have taken %d, not %d!\n", i, j );
-           }
-           if( explain )  {
-               printf( "Explanation: %s\n", expl );
-           }
+    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);
+           msg("It's really only %d points; I get %d", i, 2);
+           if (!win)
+               win = chkscr(&cscore, 2);

        }
        }

-       else  {
-           win = chkscr( &pscore, i );
+       else {
+           win = chkscr(&pscore, j);
+           msg("You should have taken %d, not %d!", i, j);

        }
        }

-       return(  win  );
+       if (explain)
+           msg("Explanation: %s", expl);
+       do_wait();
+    }
+    else
+       win = chkscr(&pscore, i);
+    return win;

 }
 
 }
 

+/*
+ * comphand:
+ *     Handle scoring and displaying the computers hand
+ */
+comphand(h, s)
+CARD           h[];
+char           *s;
+{
+       register int            j;

 
 

+       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);
+}

 
 /*
 
 /*

- * handle scoring and displaying the computers hand
+ * chkscr:
+ *     Add inc to scr and test for > glimit, printing on the scoring
+ *     board while we're at it.

  */
 
  */
 

-comphand( h, s )
+int    Lastscore[2] = {-1, -1};

 
 

-    CARD               h[];
-    char               *s;
+chkscr(scr, inc)
+int            *scr, inc;

 {
 {

-       register  int           j;
-
-       j = scorehand( h, turnover, CINHAND, FALSE );
-       printf( "My %s ( ", s );
-       prhand( h, CINHAND, TRUE );
-       printf( "  [" );
-       printcard( turnover, TRUE );
-       printf( "] ) scores %d.\n", (j == 0 ? 19 : j) );
-       return(  chkscr( &cscore, j )  );
+       BOOLEAN         myturn;
+
+       myturn = (scr == &cscore);
+       if (inc != 0) {
+               prpeg(Lastscore[myturn], '.', myturn);
+               Lastscore[myturn] = *scr;
+               *scr += inc;
+               prpeg(*scr, PEG, myturn);
+               refresh();
+       }
+       return (*scr >= glimit);

 }
 
 }
 

-
-

 /*
 /*

- * add inc to scr and test for > glimit
+ * prpeg:
+ *     Put out the peg character on the score board and put the
+ *     score up on the board.

  */
  */

-
-chkscr( scr, inc )
-
-    int                        *scr, inc;
+prpeg(score, peg, myturn)
+register int   score;
+char           peg;
+BOOLEAN                myturn;

 {
 {

-       return(  ( (*scr += inc) >= glimit ? TRUE : FALSE )  );
+       register int    y, x;
+
+       if (!myturn)
+               y = SCORE_Y + 2;
+       else
+               y = SCORE_Y + 5;
+
+       if (score <= 0 || score >= glimit) {
+               if (peg == '.')
+                       peg = ' ';
+               if (score == 0)
+                       x = SCORE_X + 2;
+               else {
+                       x = SCORE_X + 2;
+                       y++;
+               }
+       }
+       else {
+               x = (score - 1) % 30;
+               if (score > 90 || (score > 30 && score <= 60)) {
+                       y++;
+                       x = 29 - x;
+               }
+               x += x / 5;
+               x += SCORE_X + 3;
+       }
+       mvaddch(y, x, peg);
+       mvprintw(SCORE_Y + (myturn ? 7 : 1), SCORE_X + 10, "%3d", score);

 }
 
 }
 

-
-

 /*
  * cdiscard -- the computer figures out what is the best discard for
  * the crib and puts the best two cards at the end
 /*
  * cdiscard -- the computer figures out what is the best discard for
  * the crib and puts the best two cards at the end


@@ -167,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;


@@ -176,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] );
                }


@@ -189,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] ];
 }