date and time created 88/01/02 20:53:21 by bostic

[unix-history] / usr / src / games / monop / cards.c

/*
* Copyright (c) 1987 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
*/

#ifndef lint
static char sccsid[] = "@(#)cards.c     5.1 (Berkeley) %G%";
#endif /* not lint */

# include       "monop.ext"

/*
*      These routine deal with the card decks
*/

# define        GOJF    'F'     /* char for get-out-of-jail-free cards  */

# ifndef DEV
static char     *cardfile       = "/usr/games/lib/cards.pck";
# else
static char     *cardfile       = "cards.pck";
# endif

static FILE     *deckf;

/*
*      This routine initializes the decks from the data file,
* which it opens.
*/
init_decks() {

       if ((deckf=fopen(cardfile, "r")) == NULL) {
file_err:
               perror(cardfile);
               exit(1);
       }
       if (fread(deck, sizeof (DECK), 2, deckf) != 2)
               goto file_err;
       set_up(&CC_D);
       set_up(&CH_D);
}
/*
*      This routine sets up the offset pointers for the given deck.
*/
set_up(dp)
DECK    *dp; {

       reg int r1, r2;
       int     i;

       dp->offsets = (long *) calloc(sizeof (long), dp->num_cards);
       if (fread(dp->offsets, sizeof(long), dp->num_cards, deckf) != dp->num_cards) {
               perror(cardfile);
               exit(1);
       }
       dp->last_card = 0;
       dp->gojf_used = FALSE;
       for (i = 0; i < dp->num_cards; i++) {
               reg long        temp;

               r1 = roll(1, dp->num_cards) - 1;
               r2 = roll(1, dp->num_cards) - 1;
               temp = dp->offsets[r2];
               dp->offsets[r2] = dp->offsets[r1];
               dp->offsets[r1] = temp;
       }
}
/*
*      This routine draws a card from the given deck
*/
get_card(dp)
DECK    *dp; {

       reg char        type_maj, type_min;
       reg int         num;
       int             i, per_h, per_H, num_h, num_H;
       OWN             *op;

       do {
               fseek(deckf, dp->offsets[dp->last_card], 0);
               dp->last_card = ++(dp->last_card) % dp->num_cards;
               type_maj = getc(deckf);
       } while (dp->gojf_used && type_maj == GOJF);
       type_min = getc(deckf);
       num = getw(deckf);
       printmes();
       switch (type_maj) {
         case '+':             /* get money            */
               if (type_min == 'A') {
                       for (i = 0; i < num_play; i++)
                               if (i != player)
                                       play[i].money -= num;
                       num = num * (num_play - 1);
               }
               cur_p->money += num;
               break;
         case '-':             /* lose money           */
               if (type_min == 'A') {
                       for (i = 0; i < num_play; i++)
                               if (i != player)
                                       play[i].money += num;
                       num = num * (num_play - 1);
               }
               cur_p->money -= num;
               break;
         case 'M':             /* move somewhere       */
               switch (type_min) {
                 case 'F':             /* move forward */
                       num -= cur_p->loc;
                       if (num < 0)
                               num += 40;
                       break;
                 case 'J':             /* move to jail */
                       goto_jail();
                       return;
                 case 'R':             /* move to railroad     */
                       spec = TRUE;
                       num = (int)((cur_p->loc + 5)/10)*10 + 5 - cur_p->loc;
                       break;
                 case 'U':             /* move to utility      */
                       spec = TRUE;
                       if (cur_p->loc >= 12 && cur_p->loc < 28)
                               num = 28 - cur_p->loc;
                       else {
                               num = 12 - cur_p->loc;
                               if (num < 0)
                                       num += 40;
                       }
                       break;
                 case 'B':
                       num = -num;
                       break;
               }
               move(num);
               break;
         case 'T':                     /* tax                  */
               if (dp == &CC_D) {
                       per_h = 40;
                       per_H = 115;
               }
               else {
                       per_h = 25;
                       per_H = 100;
               }
               num_h = num_H = 0;
               for (op = cur_p->own_list; op; op = op->next)
                       if (op->sqr->type == PRPTY)
                               if (op->sqr->desc->houses == 5)
                                       ++num_H;
                               else
                                       num_h += op->sqr->desc->houses;
               num = per_h * num_h + per_H * num_H;
               printf("You had %d Houses and %d Hotels, so that cost you $%d\n", num_h, num_H, num);
               if (num == 0)
                       lucky("");
               else
                       cur_p->money -= num;
               break;
         case GOJF:            /* get-out-of-jail-free card    */
               cur_p->num_gojf++;
               dp->gojf_used = TRUE;
               break;
       }
       spec = FALSE;
}
/*
*      This routine prints out the message on the card
*/
printmes() {

       reg char        c;

       printline();
       fflush(stdout);
       while ((c = getc(deckf)) != '\0')
               putchar(c);
       printline();
       fflush(stdout);
}