1 /* $NetBSD: cards.c,v 1.27 2014/12/29 10:38:52 jnemeth Exp $ */
2
3 /*
4 * Copyright (c) 1980, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 *
31 * @(#)cards.c 8.1 (Berkeley) 5/31/93
32 */
33
34 #include <sys/types.h>
35 #include <sys/endian.h>
36 #include "monop.h"
37 #include "deck.h"
38
39 /*
40 * These routine deal with the card decks
41 */
42
43 static void set_up(DECK *);
44 static void printmes(const char *text);
45
46 #define GOJF 'F' /* char for get-out-of-jail-free cards */
47
48 struct cardinfo {
49 const char *actioncode;
50 const char *text;
51 };
52
53 static const struct cardinfo cc_cards[] = {
54 { "FF",
55 ">> GET OUT OF JAIL FREE <<\n"
56 "Keep this card until needed or sold\n"
57 },
58 { "++25",
59 "Receive for Services $25.\n"
60 },
61 { "++200",
62 "Bank Error in Your Favor.\n"
63 "Collect $200.\n"
64 },
65 { "++20",
66 "Income Tax Refund.\n"
67 "Collect $20.\n"
68 },
69 { "--100",
70 "Pay Hospital $100\n"
71 },
72 { "++100",
73 "Life Insurance Matures.\n"
74 "Collect $100\n"
75 },
76 { "++45",
77 "From sale of Stock You get $45.\n"
78 },
79 { "TX",
80 "You are Assessed for street repairs.\n"
81 "\t$40 per House\n"
82 "\t$115 per Hotel\n"
83 },
84 { "++100",
85 "X-mas Fund Matures.\n"
86 "Collect $100.\n"
87 },
88 { "++11",
89 "You have won Second Prize in a Beauty Contest\n"
90 "Collect $11\n"
91 },
92 { "MF0",
93 "Advance to GO\n"
94 "(Collect $200)\n"
95 },
96 { "++100",
97 "You inherit $100\n"
98 },
99 { "--150",
100 "Pay School Tax of $150.\n"
101 },
102 { "MJ",
103 "\t\t>> GO TO JAIL <<\n"
104 "Go Directly to Jail. Do not pass GO Do not collect $200.\n"
105 },
106 { "+A50",
107 "\t\t>> GRAND OPERA OPENING <<\n"
108 "Collect $50 from each player for opening night seats.\n"
109 },
110 { "--50",
111 "Doctor's Fee: Pay $50.\n"
112 }
113 };
114
115 static const struct cardinfo ch_cards[] = {
116 { "FF",
117 ">> GET OUT OF JAIL FREE <<\n"
118 "Keep this card until needed or sold\n"
119 },
120 { "MR",
121 "Advance to the nearest Railroad, and pay owner\n"
122 "Twice the rental to which he is otherwise entitled.\n"
123 "If Railroad is unowned you may buy it from the bank\n"
124 },
125 { "MU",
126 "Advance to the nearest Utility.\n"
127 "If unowned, you may buy it from the bank.\n"
128 "If owned, throw dice and pay owner a total of ten times\n"
129 "the amount thrown.\n"
130 },
131 { "MB3",
132 "Go Back 3 Spaces\n"
133 },
134 { "MR",
135 "Advance to the nearest Railroad, and pay owner\n"
136 "Twice the rental to which he is otherwise entitled.\n"
137 "If Railroad is unowned you may buy it from the bank\n"
138 },
139 { "MJ",
140 " >> GO DIRECTLY TO JAIL <<\n"
141 "Do not pass GO, Do not Collect $200.\n"
142 },
143 { "MF5",
144 "Take a Ride on the Reading.\n"
145 "If you pass GO, collect $200.\n"
146 },
147 { "MF39",
148 "Take a Walk on the Board Walk.\n"
149 " (Advance To Board Walk)\n"
150 },
151 { "MF24",
152 "Advance to Illinois Ave.\n"
153 },
154 { "MF0",
155 "Advance to Go\n"
156 },
157 { "MF11",
158 "Advance to St. Charles Place.\n"
159 "If you pass GO, collect $200.\n"
160 },
161 { "TX",
162 "Make general repairs on all of your Property.\n"
163 "For Each House pay $25.\n"
164 "For Each Hotel pay $100.\n"
165 },
166 { "-A50",
167 "You have been elected Chairman of the Board.\n"
168 "Pay each player $50.\n"
169 },
170 { "--15",
171 "Pay Poor Tax of $15\n"
172 },
173 { "++50",
174 "Bank pays you Dividend of $50.\n"
175 },
176 { "++150",
177 "Your Building and Loan Matures.\n"
178 "Collect $150.\n"
179 }
180 };
181
182 /*
183 * This routine initializes the decks from the data above.
184 */
185 void
init_decks(void)186 init_decks(void)
187 {
188 CC_D.info = cc_cards;
189 CC_D.num_cards = sizeof(cc_cards) / sizeof(cc_cards[0]);
190 CH_D.info = ch_cards;
191 CH_D.num_cards = sizeof(ch_cards) / sizeof(ch_cards[0]);
192 set_up(&CC_D);
193 set_up(&CH_D);
194 }
195
196 /*
197 * This routine sets up the offset pointers for the given deck.
198 */
199 static void
set_up(DECK * dp)200 set_up(DECK *dp)
201 {
202 int r1, r2;
203 int i;
204
205 dp->cards = calloc((size_t)dp->num_cards, sizeof(dp->cards[0]));
206 if (dp->cards == NULL)
207 errx(1, "out of memory");
208
209 for (i = 0; i < dp->num_cards; i++)
210 dp->cards[i] = i;
211
212 dp->top_card = 0;
213 dp->gojf_used = FALSE;
214
215 for (i = 0; i < dp->num_cards; i++) {
216 int temp;
217
218 r1 = roll(1, dp->num_cards) - 1;
219 r2 = roll(1, dp->num_cards) - 1;
220 temp = dp->cards[r2];
221 dp->cards[r2] = dp->cards[r1];
222 dp->cards[r1] = temp;
223 }
224 }
225
226 /*
227 * This routine draws a card from the given deck
228 */
229 void
get_card(DECK * dp)230 get_card(DECK *dp)
231 {
232 char type_maj, type_min;
233 int num;
234 int i, per_h, per_H, num_h, num_H;
235 OWN *op;
236 const struct cardinfo *thiscard;
237
238 do {
239 thiscard = &dp->info[dp->top_card];
240 type_maj = thiscard->actioncode[0];
241 dp->top_card = (dp->top_card + 1) % dp->num_cards;
242 } while (dp->gojf_used && type_maj == GOJF);
243 type_min = thiscard->actioncode[1];
244 num = atoi(thiscard->actioncode+2);
245
246 printmes(thiscard->text);
247 switch (type_maj) {
248 case '+': /* get money */
249 if (type_min == 'A') {
250 for (i = 0; i < num_play; i++)
251 if (i != player)
252 play[i].money -= num;
253 num = num * (num_play - 1);
254 }
255 cur_p->money += num;
256 break;
257 case '-': /* lose money */
258 if (type_min == 'A') {
259 for (i = 0; i < num_play; i++)
260 if (i != player)
261 play[i].money += num;
262 num = num * (num_play - 1);
263 }
264 cur_p->money -= num;
265 break;
266 case 'M': /* move somewhere */
267 switch (type_min) {
268 case 'F': /* move forward */
269 num -= cur_p->loc;
270 if (num < 0)
271 num += 40;
272 break;
273 case 'J': /* move to jail */
274 goto_jail();
275 return;
276 case 'R': /* move to railroad */
277 spec = TRUE;
278 num = (int)((cur_p->loc + 5)/10)*10 + 5 - cur_p->loc;
279 break;
280 case 'U': /* move to utility */
281 spec = TRUE;
282 if (cur_p->loc >= 12 && cur_p->loc < 28)
283 num = 28 - cur_p->loc;
284 else {
285 num = 12 - cur_p->loc;
286 if (num < 0)
287 num += 40;
288 }
289 break;
290 case 'B':
291 num = -num;
292 break;
293 }
294 move(num);
295 break;
296 case 'T': /* tax */
297 if (dp == &CC_D) {
298 per_h = 40;
299 per_H = 115;
300 }
301 else {
302 per_h = 25;
303 per_H = 100;
304 }
305 num_h = num_H = 0;
306 for (op = cur_p->own_list; op; op = op->next)
307 if (op->sqr->type == PRPTY) {
308 if (op->sqr->desc->houses == 5)
309 ++num_H;
310 else
311 num_h += op->sqr->desc->houses;
312 }
313 num = per_h * num_h + per_H * num_H;
314 printf(
315 "You had %d Houses and %d Hotels, so that cost you $%d\n",
316 num_h, num_H, num);
317 if (num == 0)
318 lucky("");
319 else
320 cur_p->money -= num;
321 break;
322 case GOJF: /* get-out-of-jail-free card */
323 cur_p->num_gojf++;
324 dp->gojf_used = TRUE;
325 break;
326 }
327 spec = FALSE;
328 }
329
330 /*
331 * This routine prints out the message on the card
332 */
333 static void
printmes(const char * text)334 printmes(const char *text)
335 {
336 int i;
337
338 printline();
339 fflush(stdout);
340 for (i = 0; text[i] != '\0'; i++)
341 putchar(text[i]);
342 printline();
343 fflush(stdout);
344 }
345
346 /*
347 * This routine returns the players get-out-of-jail-free card
348 * to the bottom of a deck. XXX currently does not return to the correct
349 * deck.
350 */
351 void
ret_card(PLAY * plr)352 ret_card(PLAY *plr)
353 {
354 char type_maj;
355 int gojfpos, last_card;
356 int i;
357 DECK *dp;
358 int temp;
359
360 plr->num_gojf--;
361 if (CC_D.gojf_used)
362 dp = &CC_D;
363 else
364 dp = &CH_D;
365 dp->gojf_used = FALSE;
366
367 /* Put at bottom of deck (top_card - 1) and remove it from wherever else
368 * it used to be.
369 */
370 last_card = dp->top_card - 1;
371 if (last_card < 0)
372 last_card += dp->num_cards;
373 gojfpos = dp->top_card;
374 do {
375 gojfpos = (gojfpos + 1) % dp->num_cards;
376 type_maj = dp->info[gojfpos].actioncode[0];
377 } while (type_maj != GOJF);
378 temp = dp->cards[gojfpos];
379 /* Only one of the next two loops does anything */
380 for (i = gojfpos - 1; i > last_card; i--)
381 dp->cards[i + 1] = dp->cards[i];
382 for (i = gojfpos; i < last_card; i++)
383 dp->cards[i] = dp->cards[i + 1];
384 if (gojfpos > last_card) {
385 dp->cards[dp->top_card] = temp;
386 dp->top_card++;
387 dp->top_card %= dp->num_cards;
388 } else
389 dp->cards[last_card] = temp;
390 }
391