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

SCCS-vsn: games/monop/cards.c 5.1

diff --git a/usr/src/games/monop/cards.c b/usr/src/games/monop/cards.c
new file mode 100644 (file)
index 0000000..0cb41d4
--- /dev/null
+++ b/usr/src/games/monop/cards.c
@@ -0,0 +1,186 @@
+/*
+ * 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);
+}