1 /* $NetBSD: houses.c,v 1.15 2012/06/19 05:35:32 dholland Exp $ */
4 * Copyright (c) 1980, 1993
5 * The Regents of the University of California. All rights reserved.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
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.
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
32 #include <sys/cdefs.h>
35 static char sccsid
[] = "@(#)houses.c 8.1 (Berkeley) 5/31/93";
37 __RCSID("$NetBSD: houses.c,v 1.15 2012/06/19 05:35:32 dholland Exp $");
43 static const char *names
[N_MON
+2];
44 static char cur_prop
[80];
46 static MON
*monops
[N_MON
];
48 static void buy_h(MON
*);
49 static void sell_h(MON
*);
50 static void list_cur(MON
*);
51 static int get_avail_houses(void);
52 static int get_avail_hotels(void);
53 static bool ready_for_hotels(MON
*);
56 * These routines deal with buying and selling houses
71 for (op
= cur_p
->own_list
; op
&& op
->sqr
->type
!= PRPTY
; op
= op
->next
)
74 if (op
->sqr
->desc
->monop
) {
75 mp
= op
->sqr
->desc
->mon_desc
;
76 names
[num_mon
] = (monops
[num_mon
]=mp
)->name
;
78 got_morg
= good
= FALSE
;
79 for (i
= 0; i
< mp
->num_in
; i
++) {
80 if (op
->sqr
->desc
->morg
)
82 if (op
->sqr
->desc
->houses
!= 5)
86 if (!good
|| got_morg
)
93 printf("You can't build on mortgaged monopolies.\n");
95 printf("You can't build any more.\n");
97 printf("But you don't have any monopolies!!\n");
103 names
[num_mon
++] = "done";
104 names
[num_mon
--] = 0;
106 "Which property do you wish to buy houses for? ",
120 short input
[3], result
[3];
121 int wanted_houses
, wanted_hotels
;
124 int avail_houses
, avail_hotels
;
128 price
= mp
->h_cost
* 50;
130 avail_houses
= get_avail_houses();
131 avail_hotels
= get_avail_hotels();
132 buying_hotels
= ready_for_hotels(mnp
);
134 if (avail_houses
== 0 && !buying_hotels
) {
135 printf("Building shortage: no houses available.");
138 if (avail_hotels
== 0 && buying_hotels
) {
139 printf("Building shortage: no hotels available.");
145 printf("Houses will cost $%d\n", price
);
146 printf("How many houses do you wish to buy for\n");
147 for (i
= 0; i
< mp
->num_in
; i
++) {
148 pp
= mp
->sq
[i
]->desc
;
150 if (pp
->houses
== 5) {
151 printf("%s (H):\n", mp
->sq
[i
]->name
);
156 (void)snprintf(cur_prop
, sizeof(cur_prop
), "%s (%d): ",
157 mp
->sq
[i
]->name
, pp
->houses
);
158 input
[i
] = get_int(cur_prop
);
159 result
[i
] = input
[i
] + pp
->houses
;
160 if (result
[i
] > 5 || result
[i
] < 0) {
161 printf("That's too many. The most you can buy is %d\n",
166 if (mp
->num_in
== 3 &&
167 (abs(result
[0] - result
[1]) > 1 ||
168 abs(result
[0] - result
[2]) > 1 ||
169 abs(result
[1] - result
[2]) > 1)) {
170 err
: printf("That makes the spread too wide. Try again\n");
173 else if (mp
->num_in
== 2 && abs(result
[0] - result
[1]) > 1)
180 for (i
= 0; i
< mp
->num_in
; i
++) {
181 wanted_houses
+= input
[i
];
182 total_purchase
+= input
[i
];
183 if (result
[i
] == 5 && input
[i
] > 0) {
188 if (wanted_houses
> avail_houses
) {
189 printf("You have asked for %d %s but only %d are available. "
191 wanted_houses
, wanted_houses
== 1 ? "house" : "houses",
194 } else if (wanted_hotels
> avail_hotels
) {
195 printf("You have asked for %d %s but only %d are available. "
197 wanted_hotels
, wanted_hotels
== 1 ? "hotel" : "hotels",
202 if (total_purchase
) {
203 printf("You asked for %d %s and %d %s for $%d\n",
204 wanted_houses
, wanted_houses
== 1 ? "house" : "houses",
205 wanted_hotels
, wanted_hotels
== 1 ? "hotel" : "hotels",
206 total_purchase
* price
);
207 if (getyn("Is that ok? ") == 0) {
208 cur_p
->money
-= total_purchase
* price
;
209 for (i
= 0; i
< mp
->num_in
; i
++)
210 mp
->sq
[i
]->desc
->houses
= result
[i
];
216 * This routine sells houses.
230 for (op
= cur_p
->own_list
; op
;)
231 if (op
->sqr
->type
== PRPTY
&& op
->sqr
->desc
->monop
) {
232 mp
= op
->sqr
->desc
->mon_desc
;
233 names
[num_mon
] = (monops
[num_mon
]=mp
)->name
;
237 if (!good
&& op
->sqr
->desc
->houses
!= 0)
239 while (op
->next
&& op
->sqr
->desc
->mon_desc
== mp
246 printf("You don't have any houses to sell!!\n");
252 names
[num_mon
++] = "done";
253 names
[num_mon
--] = 0;
255 "Which property do you wish to sell houses from? ",
270 short input
[3],temp
[3];
275 price
= mp
->h_cost
* 25;
277 printf("Houses will get you $%d apiece\n", price
);
279 printf("How many houses do you wish to sell from\n");
280 for (i
= 0; i
< mp
->num_in
; i
++) {
281 pp
= mp
->sq
[i
]->desc
;
283 if (pp
->houses
== 0) {
284 printf("%s (0):\n", mp
->sq
[i
]->name
);
285 input
[i
] = temp
[i
] = 0;
289 (void)snprintf(cur_prop
, sizeof(cur_prop
), "%s (%d): ",
290 mp
->sq
[i
]->name
,pp
->houses
);
292 (void)snprintf(cur_prop
, sizeof(cur_prop
), "%s (H): ",
294 input
[i
] = get_int(cur_prop
);
295 temp
[i
] = pp
->houses
- input
[i
];
298 "That's too many. The most you can sell is %d\n",
303 if (mp
->num_in
== 3 && (abs(temp
[0] - temp
[1]) > 1 ||
304 abs(temp
[0] - temp
[2]) > 1 || abs(temp
[1] - temp
[2]) > 1)) {
305 err
: printf("That makes the spread too wide. Try again\n");
308 else if (mp
->num_in
== 2 && abs(temp
[0] - temp
[1]) > 1)
310 for (tot
= i
= 0; i
< mp
->num_in
; i
++)
313 printf("You asked to sell %d house%s for $%d\n", tot
,
314 tot
== 1 ? "" : "s", tot
* price
);
315 if (getyn("Is that ok? ") == 0) {
316 cur_p
->money
+= tot
* price
;
317 for (tot
= i
= 0; i
< mp
->num_in
; i
++)
318 mp
->sq
[i
]->desc
->houses
= temp
[i
];
329 for (i
= 0; i
< mp
->num_in
; i
++) {
331 if (sqp
->desc
->houses
== 5)
332 printf("%s (H) ", sqp
->name
);
334 printf("%s (%d) ", sqp
->name
, sqp
->desc
->houses
);
340 get_avail_houses(void)
346 for (i
= 0; i
< N_SQRS
; i
++) {
348 if (sqp
->type
== PRPTY
&& sqp
->owner
>= 0 && sqp
->desc
->monop
) {
349 if (sqp
->desc
->houses
< 5 && sqp
->desc
->houses
> 0)
350 c
+= sqp
->desc
->houses
;
357 get_avail_hotels(void)
363 for (i
= 0; i
< N_SQRS
; i
++) {
365 if (sqp
->type
== PRPTY
&& sqp
->owner
>= 0 && sqp
->desc
->monop
) {
366 if (sqp
->desc
->houses
== 5)
374 * If we can put a hotel on, we can't put any houses on, and if we can
375 * put houses on, then we can't put a hotel on yet.
378 ready_for_hotels(MON
*mp
)
382 for (i
= 0; i
< mp
->num_in
; i
++) {
383 if (mp
->sq
[i
]->desc
->houses
< 4)