date and time created 82/05/11 14:53:08 by rrh

[unix-history] / usr / src / games / backgammon / common_source / check.c

static char sccsid[] = "        check.c 1.1     82/05/11        ";

#include "back.h"

getmove ()  {
       register int    i, c;

       c = 0;
       for (;;)  {
               i = checkmove(c);

               switch (i)  {
               case -1:
                       if (movokay(mvlim))  {
                               if (tflag)
                                       curmove (20,0);
                               else
                                       writec ('\n');
                               for (i = 0; i < mvlim; i++)
                                       if (h[i])
                                               wrhit(g[i]);
                               nexturn();
                               if (*offopp == 15)
                                       cturn *= -2;
                               if (tflag && pnum)
                                       bflag = pnum;
                               return;
                       }

               case -4:
               case 0:
                       if (tflag)
                               refresh();
                       if (i != 0 && i != -4)
                               break;
                       if (tflag)
                               curmove (20,0);
                       else
                               writec ('\n');
                       writel (*Colorptr);
                       if (i == -4)
                               writel (" must make ");
                       else
                               writel (" can only make ");
                       writec (mvlim+'0');
                       writel (" move");
                       if (mvlim > 1)
                               writec ('s');
                       writec ('.');
                       writec ('\n');
                       break;

               case -3:
                       if (quit())
                               return;
               }

               if (! tflag)
                       proll ();
               else  {
                       curmove (cturn == -1? 18: 19,39);
                       cline ();
                       c = -1;
               }
       }
}
\f
movokay (mv)
register int    mv;

{
       register int    i, m;

       if (d0)
               swap;

       for (i = 0; i < mv; i++)  {

               if (p[i] == g[i])  {
                       moverr (i);
                       curmove (20,0);
                       writel ("Attempt to move to same location.\n");
                       return (0);
               }

               if (cturn*(g[i]-p[i]) < 0)  {
                       moverr (i);
                       curmove (20,0);
                       writel ("Backwards move.\n");
                       return (0);
               }

               if (abs(board[bar]) && p[i] != bar)  {
                       moverr (i);
                       curmove (20,0);
                       writel ("Men still on bar.\n");
                       return (0);
               }

               if ( (m = makmove(i)) )  {
                       moverr (i);
                       switch (m)  {

                       case 1:
                               writel ("Move not rolled.\n");
                               break;

                       case 2:
                               writel ("Bad starting position.\n");
                               break;

                       case 3:
                               writel ("Destination occupied.\n");
                               break;

                       case 4:
                               writel ("Can't remove men yet.\n");
                       }
                       return (0);
               }
       }
       return (1);
}