From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001 From: cgd Date: Sun, 21 Mar 1993 09:45:37 +0000 Subject: initial import of 386bsd-0.1 sources --- monop/morg.c | 210 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 210 insertions(+) create mode 100644 monop/morg.c (limited to 'monop/morg.c') diff --git a/monop/morg.c b/monop/morg.c new file mode 100644 index 00000000..2c4b97b5 --- /dev/null +++ b/monop/morg.c @@ -0,0 +1,210 @@ +/* + * Copyright (c) 1980 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. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. 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. + */ + +#ifndef lint +static char sccsid[] = "@(#)morg.c 5.3 (Berkeley) 6/1/90"; +#endif /* not lint */ + +# include "monop.ext" + +/* + * These routines deal with mortgaging. + */ + +static char *names[MAX_PRP+2], + *morg_coms[] = { + "quit", /* 0 */ + "print", /* 1 */ + "where", /* 2 */ + "own holdings", /* 3 */ + "holdings", /* 4 */ + "shell", /* 5 */ + "mortgage", /* 6 */ + "unmortgage", /* 7 */ + "buy", /* 8 */ + "sell", /* 9 */ + "card", /* 10 */ + "pay", /* 11 */ + "trade", /* 12 */ + "resign", /* 13 */ + "save game", /* 14 */ + "restore game", /* 15 */ + 0 + }; + +static shrt square[MAX_PRP+2]; + +static int num_good,got_houses; + +/* + * This routine is the command level response the mortgage command. + * it gets the list of mortgageable property and asks which are to + * be mortgaged. + */ +mortgage() { + + reg int prop; + + for (;;) { + if (set_mlist() == 0) { + if (got_houses) + printf("You can't mortgage property with houses on it.\n"); + else + printf("You don't have any un-mortgaged property.\n"); + return; + } + if (num_good == 1) { + printf("Your only mortageable property is %s\n",names[0]); + if (getyn("Do you want to mortgage it? ") == 0) + m(square[0]); + return; + } + prop = getinp("Which property do you want to mortgage? ",names); + if (prop == num_good) + return; + m(square[prop]); + notify(cur_p); + } +} +/* + * This routine sets up the list of mortgageable property + */ +set_mlist() { + + reg OWN *op; + + num_good = 0; + for (op = cur_p->own_list; op; op = op->next) + if (!op->sqr->desc->morg) + if (op->sqr->type == PRPTY && op->sqr->desc->houses) + got_houses++; + else { + names[num_good] = op->sqr->name; + square[num_good++] = sqnum(op->sqr); + } + names[num_good++] = "done"; + names[num_good--] = 0; + return num_good; +} +/* + * This routine actually mortgages the property. + */ +m(prop) +reg int prop; { + + reg int price; + + price = board[prop].cost/2; + board[prop].desc->morg = TRUE; + printf("That got you $%d\n",price); + cur_p->money += price; +} +/* + * This routine is the command level repsponse to the unmortgage + * command. It gets the list of mortgaged property and asks which are + * to be unmortgaged. + */ +unmortgage() { + + reg int prop; + + for (;;) { + if (set_umlist() == 0) { + printf("You don't have any mortgaged property.\n"); + return; + } + if (num_good == 1) { + printf("Your only mortaged property is %s\n",names[0]); + if (getyn("Do you want to unmortgage it? ") == 0) + unm(square[0]); + return; + } + prop = getinp("Which property do you want to unmortgage? ",names); + if (prop == num_good) + return; + unm(square[prop]); + } +} +/* + * This routine sets up the list of mortgaged property + */ +set_umlist() { + + reg OWN *op; + + num_good = 0; + for (op = cur_p->own_list; op; op = op->next) + if (op->sqr->desc->morg) { + names[num_good] = op->sqr->name; + square[num_good++] = sqnum(op->sqr); + } + names[num_good++] = "done"; + names[num_good--] = 0; + return num_good; +} +/* + * This routine actually unmortgages the property + */ +unm(prop) +reg int prop; { + + reg int price; + + price = board[prop].cost/2; + board[prop].desc->morg = FALSE; + price += price/10; + printf("That cost you $%d\n",price); + cur_p->money -= price; + set_umlist(); +} +/* + * This routine forces the indebted player to fix his + * financial woes. + */ +force_morg() { + + told_em = fixing = TRUE; + while (cur_p->money <= 0) + fix_ex(getinp("How are you going to fix it up? ",morg_coms)); + fixing = FALSE; +} +/* + * This routine is a special execute for the force_morg routine + */ +fix_ex(com_num) +reg int com_num; { + + told_em = FALSE; + (*func[com_num])(); + notify(); +} -- cgit v1.2.3-56-ge451