398 lines
9.0 KiB
C
398 lines
9.0 KiB
C
/* $NetBSD: cards.c,v 1.27 2014/12/29 10:38:52 jnemeth Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) 1980, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
#if 0
|
|
static char sccsid[] = "@(#)cards.c 8.1 (Berkeley) 5/31/93";
|
|
#else
|
|
__RCSID("$NetBSD: cards.c,v 1.27 2014/12/29 10:38:52 jnemeth Exp $");
|
|
#endif
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/endian.h>
|
|
#include "monop.h"
|
|
#include "deck.h"
|
|
|
|
/*
|
|
* These routine deal with the card decks
|
|
*/
|
|
|
|
static void set_up(DECK *);
|
|
static void printmes(const char *text);
|
|
|
|
#define GOJF 'F' /* char for get-out-of-jail-free cards */
|
|
|
|
struct cardinfo {
|
|
const char *actioncode;
|
|
const char *text;
|
|
};
|
|
|
|
static const struct cardinfo cc_cards[] = {
|
|
{ "FF",
|
|
">> GET OUT OF JAIL FREE <<\n"
|
|
"Keep this card until needed or sold\n"
|
|
},
|
|
{ "++25",
|
|
"Receive for Services $25.\n"
|
|
},
|
|
{ "++200",
|
|
"Bank Error in Your Favor.\n"
|
|
"Collect $200.\n"
|
|
},
|
|
{ "++20",
|
|
"Income Tax Refund.\n"
|
|
"Collect $20.\n"
|
|
},
|
|
{ "--100",
|
|
"Pay Hospital $100\n"
|
|
},
|
|
{ "++100",
|
|
"Life Insurance Matures.\n"
|
|
"Collect $100\n"
|
|
},
|
|
{ "++45",
|
|
"From sale of Stock You get $45.\n"
|
|
},
|
|
{ "TX",
|
|
"You are Assessed for street repairs.\n"
|
|
"\t$40 per House\n"
|
|
"\t$115 per Hotel\n"
|
|
},
|
|
{ "++100",
|
|
"X-mas Fund Matures.\n"
|
|
"Collect $100.\n"
|
|
},
|
|
{ "++11",
|
|
"You have won Second Prize in a Beauty Contest\n"
|
|
"Collect $11\n"
|
|
},
|
|
{ "MF0",
|
|
"Advance to GO\n"
|
|
"(Collect $200)\n"
|
|
},
|
|
{ "++100",
|
|
"You inherit $100\n"
|
|
},
|
|
{ "--150",
|
|
"Pay School Tax of $150.\n"
|
|
},
|
|
{ "MJ",
|
|
"\t\t>> GO TO JAIL <<\n"
|
|
"Go Directly to Jail. Do not pass GO Do not collect $200.\n"
|
|
},
|
|
{ "+A50",
|
|
"\t\t>> GRAND OPERA OPENING <<\n"
|
|
"Collect $50 from each player for opening night seats.\n"
|
|
},
|
|
{ "--50",
|
|
"Doctor's Fee: Pay $50.\n"
|
|
}
|
|
};
|
|
|
|
static const struct cardinfo ch_cards[] = {
|
|
{ "FF",
|
|
">> GET OUT OF JAIL FREE <<\n"
|
|
"Keep this card until needed or sold\n"
|
|
},
|
|
{ "MR",
|
|
"Advance to the nearest Railroad, and pay owner\n"
|
|
"Twice the rental to which he is otherwise entitled.\n"
|
|
"If Railroad is unowned you may buy it from the bank\n"
|
|
},
|
|
{ "MU",
|
|
"Advance to the nearest Utility.\n"
|
|
"If unowned, you may buy it from the bank.\n"
|
|
"If owned, throw dice and pay owner a total of ten times\n"
|
|
"the amount thrown.\n"
|
|
},
|
|
{ "MB3",
|
|
"Go Back 3 Spaces\n"
|
|
},
|
|
{ "MR",
|
|
"Advance to the nearest Railroad, and pay owner\n"
|
|
"Twice the rental to which he is otherwise entitled.\n"
|
|
"If Railroad is unowned you may buy it from the bank\n"
|
|
},
|
|
{ "MJ",
|
|
" >> GO DIRECTLY TO JAIL <<\n"
|
|
"Do not pass GO, Do not Collect $200.\n"
|
|
},
|
|
{ "MF5",
|
|
"Take a Ride on the Reading.\n"
|
|
"If you pass GO, collect $200.\n"
|
|
},
|
|
{ "MF39",
|
|
"Take a Walk on the Board Walk.\n"
|
|
" (Advance To Board Walk)\n"
|
|
},
|
|
{ "MF24",
|
|
"Advance to Illinois Ave.\n"
|
|
},
|
|
{ "MF0",
|
|
"Advance to Go\n"
|
|
},
|
|
{ "MF11",
|
|
"Advance to St. Charles Place.\n"
|
|
"If you pass GO, collect $200.\n"
|
|
},
|
|
{ "TX",
|
|
"Make general repairs on all of your Property.\n"
|
|
"For Each House pay $25.\n"
|
|
"For Each Hotel pay $100.\n"
|
|
},
|
|
{ "-A50",
|
|
"You have been elected Chairman of the Board.\n"
|
|
"Pay each player $50.\n"
|
|
},
|
|
{ "--15",
|
|
"Pay Poor Tax of $15\n"
|
|
},
|
|
{ "++50",
|
|
"Bank pays you Dividend of $50.\n"
|
|
},
|
|
{ "++150",
|
|
"Your Building and Loan Matures.\n"
|
|
"Collect $150.\n"
|
|
}
|
|
};
|
|
|
|
/*
|
|
* This routine initializes the decks from the data above.
|
|
*/
|
|
void
|
|
init_decks(void)
|
|
{
|
|
CC_D.info = cc_cards;
|
|
CC_D.num_cards = sizeof(cc_cards) / sizeof(cc_cards[0]);
|
|
CH_D.info = ch_cards;
|
|
CH_D.num_cards = sizeof(ch_cards) / sizeof(ch_cards[0]);
|
|
set_up(&CC_D);
|
|
set_up(&CH_D);
|
|
}
|
|
|
|
/*
|
|
* This routine sets up the offset pointers for the given deck.
|
|
*/
|
|
static void
|
|
set_up(DECK *dp)
|
|
{
|
|
int r1, r2;
|
|
int i;
|
|
|
|
dp->cards = calloc((size_t)dp->num_cards, sizeof(dp->cards[0]));
|
|
if (dp->cards == NULL)
|
|
errx(1, "out of memory");
|
|
|
|
for (i = 0; i < dp->num_cards; i++)
|
|
dp->cards[i] = i;
|
|
|
|
dp->top_card = 0;
|
|
dp->gojf_used = FALSE;
|
|
|
|
for (i = 0; i < dp->num_cards; i++) {
|
|
int temp;
|
|
|
|
r1 = roll(1, dp->num_cards) - 1;
|
|
r2 = roll(1, dp->num_cards) - 1;
|
|
temp = dp->cards[r2];
|
|
dp->cards[r2] = dp->cards[r1];
|
|
dp->cards[r1] = temp;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* This routine draws a card from the given deck
|
|
*/
|
|
void
|
|
get_card(DECK *dp)
|
|
{
|
|
char type_maj, type_min;
|
|
int num;
|
|
int i, per_h, per_H, num_h, num_H;
|
|
OWN *op;
|
|
const struct cardinfo *thiscard;
|
|
|
|
do {
|
|
thiscard = &dp->info[dp->top_card];
|
|
type_maj = thiscard->actioncode[0];
|
|
dp->top_card = (dp->top_card + 1) % dp->num_cards;
|
|
} while (dp->gojf_used && type_maj == GOJF);
|
|
type_min = thiscard->actioncode[1];
|
|
num = atoi(thiscard->actioncode+2);
|
|
|
|
printmes(thiscard->text);
|
|
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
|
|
*/
|
|
static void
|
|
printmes(const char *text)
|
|
{
|
|
int i;
|
|
|
|
printline();
|
|
fflush(stdout);
|
|
for (i = 0; text[i] != '\0'; i++)
|
|
putchar(text[i]);
|
|
printline();
|
|
fflush(stdout);
|
|
}
|
|
|
|
/*
|
|
* This routine returns the players get-out-of-jail-free card
|
|
* to the bottom of a deck. XXX currently does not return to the correct
|
|
* deck.
|
|
*/
|
|
void
|
|
ret_card(PLAY *plr)
|
|
{
|
|
char type_maj;
|
|
int gojfpos, last_card;
|
|
int i;
|
|
DECK *dp;
|
|
int temp;
|
|
|
|
plr->num_gojf--;
|
|
if (CC_D.gojf_used)
|
|
dp = &CC_D;
|
|
else
|
|
dp = &CH_D;
|
|
dp->gojf_used = FALSE;
|
|
|
|
/* Put at bottom of deck (top_card - 1) and remove it from wherever else
|
|
* it used to be.
|
|
*/
|
|
last_card = dp->top_card - 1;
|
|
if (last_card < 0)
|
|
last_card += dp->num_cards;
|
|
gojfpos = dp->top_card;
|
|
do {
|
|
gojfpos = (gojfpos + 1) % dp->num_cards;
|
|
type_maj = dp->info[gojfpos].actioncode[0];
|
|
} while (type_maj != GOJF);
|
|
temp = dp->cards[gojfpos];
|
|
/* Only one of the next two loops does anything */
|
|
for (i = gojfpos - 1; i > last_card; i--)
|
|
dp->cards[i + 1] = dp->cards[i];
|
|
for (i = gojfpos; i < last_card; i++)
|
|
dp->cards[i] = dp->cards[i + 1];
|
|
if (gojfpos > last_card) {
|
|
dp->cards[dp->top_card] = temp;
|
|
dp->top_card++;
|
|
dp->top_card %= dp->num_cards;
|
|
} else
|
|
dp->cards[last_card] = temp;
|
|
}
|