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

# 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);
}
Commit	Line	Data
5244a77d C	1	# include "monop.ext"
	2
	3	/*
	4	* These routine deal with the card decks
	5	*/
	6
	7	# define GOJF 'F' /* char for get-out-of-jail-free cards */
	8
	9	# ifndef DEV
	10	static char *cardfile = "/usr/games/lib/cards.pck";
	11	# else
	12	static char *cardfile = "cards.pck";
	13	# endif
	14
	15	static FILE *deckf;
	16
	17	/*
	18	* This routine initializes the decks from the data file,
	19	* which it opens.
	20	*/
	21	init_decks() {
	22
	23	if ((deckf=fopen(cardfile, "r")) == NULL) {
	24	file_err:
	25	perror(cardfile);
	26	exit(1);
	27	}
	28	if (fread(deck, sizeof (DECK), 2, deckf) != 2)
	29	goto file_err;
	30	set_up(&CC_D);
	31	set_up(&CH_D);
	32	}
	33	/*
	34	* This routine sets up the offset pointers for the given deck.
	35	*/
	36	set_up(dp)
	37	DECK *dp; {
	38
	39	reg int r1, r2;
	40	int i;
	41
	42	dp->offsets = (long *) calloc(sizeof (long), dp->num_cards);
	43	if (fread(dp->offsets, sizeof(long), dp->num_cards, deckf) != dp->num_cards) {
	44	perror(cardfile);
	45	exit(1);
	46	}
	47	dp->last_card = 0;
	48	dp->gojf_used = FALSE;
	49	for (i = 0; i < dp->num_cards; i++) {
	50	reg long temp;
	51
	52	r1 = roll(1, dp->num_cards) - 1;
	53	r2 = roll(1, dp->num_cards) - 1;
	54	temp = dp->offsets[r2];
	55	dp->offsets[r2] = dp->offsets[r1];
	56	dp->offsets[r1] = temp;
	57	}
	58	}
	59	/*
	60	* This routine draws a card from the given deck
	61	*/
	62	get_card(dp)
	63	DECK *dp; {
	64
65	reg char type_maj, type_min;
66	reg int num;
67	int i, per_h, per_H, num_h, num_H;
68	OWN *op;
69
70	do {
71	fseek(deckf, dp->offsets[dp->last_card], 0);
72	dp->last_card = ++(dp->last_card) % dp->num_cards;
73	type_maj = getc(deckf);
74	} while (dp->gojf_used && type_maj == GOJF);
75	type_min = getc(deckf);
76	num = getw(deckf);
77	printmes();
78	switch (type_maj) {
79	case '+': /* get money */
80	if (type_min == 'A') {
81	for (i = 0; i < num_play; i++)
82	if (i != player)
83	play[i].money -= num;
84	num = num * (num_play - 1);
85	}
86	cur_p->money += num;
87	break;
88	case '-': /* lose money */
89	if (type_min == 'A') {
90	for (i = 0; i < num_play; i++)
91	if (i != player)
92	play[i].money += num;
93	num = num * (num_play - 1);
94	}
95	cur_p->money -= num;
96	break;
97	case 'M': /* move somewhere */
98	switch (type_min) {
99	case 'F': /* move forward */
100	num -= cur_p->loc;
101	if (num < 0)
102	num += 40;
103	break;
104	case 'J': /* move to jail */
105	goto_jail();
106	return;
107	case 'R': /* move to railroad */
108	spec = TRUE;
109	num = (int)((cur_p->loc + 5)/10)*10 + 5 - cur_p->loc;
110	break;
111	case 'U': /* move to utility */
112	spec = TRUE;
113	if (cur_p->loc >= 12 && cur_p->loc < 28)
114	num = 28 - cur_p->loc;
115	else {
116	num = 12 - cur_p->loc;
117	if (num < 0)
118	num += 40;
119	}
120	break;
121	case 'B':
122	num = -num;
123	break;
124	}
125	move(num);
126	break;
127	case 'T': /* tax */
128	if (dp == &CC_D) {
129	per_h = 40;
130	per_H = 115;
131	}
132	else {
133	per_h = 25;
134	per_H = 100;
135	}
136	num_h = num_H = 0;
137	for (op = cur_p->own_list; op; op = op->next)
138	if (op->sqr->type == PRPTY)
139	if (op->sqr->desc->houses == 5)
140	++num_H;
141	else
142	num_h += op->sqr->desc->houses;
143	num = per_h * num_h + per_H * num_H;
144	printf("You had %d Houses and %d Hotels, so that cost you $%d\n", num_h, num_H, num);
145	if (num == 0)
146	lucky("");
147	else
148	cur_p->money -= num;
149	break;
150	case GOJF: /* get-out-of-jail-free card */
151	cur_p->num_gojf++;
152	dp->gojf_used = TRUE;
153	break;
154	}
155	spec = FALSE;
156	}
157	/*
158	* This routine prints out the message on the card
159	*/
160	printmes() {
161
162	reg char c;
163
164	printline();
165	fflush(stdout);
166	while ((c = getc(deckf)) != '\0')
167	putchar(c);
168	printline();
169	fflush(stdout);
170	}