xref: /dragonfly/games/hack/hack.u_init.c (revision 4318c66e)
1 /*	$NetBSD: hack.u_init.c,v 1.13 2011/08/06 19:32:58 dholland Exp $	*/
2 
3 /*
4  * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
5  * Amsterdam
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions are
10  * met:
11  *
12  * - Redistributions of source code must retain the above copyright notice,
13  * this list of conditions and the following disclaimer.
14  *
15  * - Redistributions in binary form must reproduce the above copyright
16  * notice, this list of conditions and the following disclaimer in the
17  * documentation and/or other materials provided with the distribution.
18  *
19  * - Neither the name of the Stichting Centrum voor Wiskunde en
20  * Informatica, nor the names of its contributors may be used to endorse or
21  * promote products derived from this software without specific prior
22  * written permission.
23  *
24  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
25  * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
26  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
27  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
28  * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
31  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
32  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35  */
36 
37 /*
38  * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
39  * All rights reserved.
40  *
41  * Redistribution and use in source and binary forms, with or without
42  * modification, are permitted provided that the following conditions
43  * are met:
44  * 1. Redistributions of source code must retain the above copyright
45  *    notice, this list of conditions and the following disclaimer.
46  * 2. Redistributions in binary form must reproduce the above copyright
47  *    notice, this list of conditions and the following disclaimer in the
48  *    documentation and/or other materials provided with the distribution.
49  * 3. The name of the author may not be used to endorse or promote products
50  *    derived from this software without specific prior written permission.
51  *
52  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
53  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
54  * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
55  * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
56  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
57  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
58  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
59  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
60  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
61  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
62  */
63 
64 #include <ctype.h>
65 #include <signal.h>
66 #include <stdlib.h>
67 #include "hack.h"
68 #include "extern.h"
69 
70 #define Strcpy	(void) strcpy
71 #define	Strcat	(void) strcat
72 #define	UNDEF_TYP	0
73 #define	UNDEF_SPE	'\177'
74 
75 char pl_character[PL_CSIZ];
76 
77 static const struct you zerou;
78 static const char *(roles[]) = {      /* must all have distinct first letter */
79 	/* roles[4] may be changed to -woman */
80 	"Tourist", "Speleologist", "Fighter", "Knight",
81 	"Cave-man", "Wizard"
82 };
83 #define	NR_OF_ROLES	SIZE(roles)
84 static char rolesyms[NR_OF_ROLES + 1];	/* filled by u_init() */
85 
86 struct trobj {
87 	uchar           trotyp;
88 	schar           trspe;
89 	char            trolet;
90 	                Bitfield(trquan, 6);
91 	                Bitfield(trknown, 1);
92 };
93 
94 #ifdef WIZARD
95 static struct trobj Extra_objs[] = {
96 	{0, 0, 0, 0, 0},
97 	{0, 0, 0, 0, 0}
98 };
99 #endif	/* WIZARD */
100 
101 static struct trobj Cave_man[] = {
102 	{MACE, 1, WEAPON_SYM, 1, 1},
103 	{BOW, 1, WEAPON_SYM, 1, 1},
104 	{ARROW, 0, WEAPON_SYM, 25, 1},	/* quan is variable */
105 	{LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1},
106 	{0, 0, 0, 0, 0}
107 };
108 
109 static struct trobj Fighter[] = {
110 	{TWO_HANDED_SWORD, 0, WEAPON_SYM, 1, 1},
111 	{RING_MAIL, 0, ARMOR_SYM, 1, 1},
112 	{0, 0, 0, 0, 0}
113 };
114 
115 static struct trobj Knight[] = {
116 	{LONG_SWORD, 0, WEAPON_SYM, 1, 1},
117 	{SPEAR, 2, WEAPON_SYM, 1, 1},
118 	{RING_MAIL, 1, ARMOR_SYM, 1, 1},
119 	{HELMET, 0, ARMOR_SYM, 1, 1},
120 	{SHIELD, 0, ARMOR_SYM, 1, 1},
121 	{PAIR_OF_GLOVES, 0, ARMOR_SYM, 1, 1},
122 	{0, 0, 0, 0, 0}
123 };
124 
125 static struct trobj Speleologist[] = {
126 	{STUDDED_LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1},
127 	{UNDEF_TYP, 0, POTION_SYM, 2, 0},
128 	{FOOD_RATION, 0, FOOD_SYM, 3, 1},
129 	{PICK_AXE, UNDEF_SPE, TOOL_SYM, 1, 0},
130 	{ICE_BOX, 0, TOOL_SYM, 1, 0},
131 	{0, 0, 0, 0, 0}
132 };
133 
134 static struct trobj Tinopener[] = {
135 	{CAN_OPENER, 0, TOOL_SYM, 1, 1},
136 	{0, 0, 0, 0, 0}
137 };
138 
139 static struct trobj Tourist[] = {
140 	{UNDEF_TYP, 0, FOOD_SYM, 10, 1},
141 	{POT_EXTRA_HEALING, 0, POTION_SYM, 2, 0},
142 	{EXPENSIVE_CAMERA, 0, TOOL_SYM, 1, 1},
143 	{DART, 2, WEAPON_SYM, 25, 1},	/* quan is variable */
144 	{0, 0, 0, 0, 0}
145 };
146 
147 static struct trobj Wizard[] = {
148 	{ELVEN_CLOAK, 0, ARMOR_SYM, 1, 1},
149 	{UNDEF_TYP, UNDEF_SPE, WAND_SYM, 2, 0},
150 	{UNDEF_TYP, UNDEF_SPE, RING_SYM, 2, 0},
151 	{UNDEF_TYP, UNDEF_SPE, POTION_SYM, 2, 0},
152 	{UNDEF_TYP, UNDEF_SPE, SCROLL_SYM, 3, 0},
153 	{0, 0, 0, 0, 0}
154 };
155 
156 static void ini_inv(struct trobj *);
157 static void wiz_inv(void);
158 static int role_index(int);
159 
160 void
u_init(void)161 u_init(void)
162 {
163 	int    i;
164 	char            exper = 'y', pc;
165 	if (flags.female)	/* should have been set in HACKOPTIONS */
166 		roles[4] = "Cave-woman";
167 	for (i = 0; i < NR_OF_ROLES; i++)
168 		rolesyms[i] = roles[i][0];
169 	rolesyms[i] = 0;
170 
171 	if ((pc = pl_character[0]) != '\0') {
172 		if (islower((unsigned char)pc))
173 			pc = toupper((unsigned char)pc);
174 		if ((i = role_index(pc)) >= 0)
175 			goto got_suffix;	/* implies experienced */
176 		printf("\nUnknown role: %c\n", pc);
177 		pl_character[0] = pc = 0;
178 	}
179 	printf("\nAre you an experienced player? [ny] ");
180 
181 	while (!strchr("ynYN \n\004", (exper = readchar())))
182 		sound_bell();
183 	if (exper == '\004')	/* Give him an opportunity to get out */
184 		end_of_input();
185 	printf("%c\n", exper);	/* echo */
186 	if (strchr("Nn \n", exper)) {
187 		exper = 0;
188 		goto beginner;
189 	}
190 	printf("\nTell me what kind of character you are:\n");
191 	printf("Are you");
192 	for (i = 0; i < NR_OF_ROLES; i++) {
193 		printf(" a %s", roles[i]);
194 		if (i == 2)	/* %% */
195 			printf(",\n\t");
196 		else if (i < NR_OF_ROLES - 2)
197 			printf(",");
198 		else if (i == NR_OF_ROLES - 2)
199 			printf(" or");
200 	}
201 	printf("? [%s] ", rolesyms);
202 
203 	while ((pc = readchar()) != '\0') {
204 		if (islower((unsigned char)pc))
205 			pc = toupper((unsigned char)pc);
206 		if ((i = role_index(pc)) >= 0) {
207 			printf("%c\n", pc);	/* echo */
208 			(void) fflush(stdout);	/* should be seen */
209 			break;
210 		}
211 		if (pc == '\n')
212 			break;
213 		if (pc == '\004')	/* Give him the opportunity to get
214 					 * out */
215 			end_of_input();
216 		sound_bell();
217 	}
218 	if (pc == '\n')
219 		pc = 0;
220 
221 beginner:
222 	if (!pc) {
223 		printf("\nI'll choose a character for you.\n");
224 		i = rn2(NR_OF_ROLES);
225 		pc = rolesyms[i];
226 		printf("This game you will be a%s %s.\n",
227 		       exper ? "n experienced" : "",
228 		       roles[i]);
229 		getret();
230 		/* give him some feedback in case mklev takes much time */
231 		(void) putchar('\n');
232 		(void) fflush(stdout);
233 	}
234 #if 0
235 	/*
236 	 * Given the above code, I can't see why this would ever change
237 	 * anything; it does core pretty well, though.  - cmh 4/20/93
238 	 */
239 	if (exper) {
240 		roles[i][0] = pc;
241 	}
242 #endif
243 
244 got_suffix:
245 
246 	(void) strncpy(pl_character, roles[i], PL_CSIZ - 1);
247 	pl_character[PL_CSIZ - 1] = 0;
248 	flags.beginner = 1;
249 	u = zerou;
250 	u.usym = '@';
251 	u.ulevel = 1;
252 	init_uhunger();
253 #ifdef QUEST
254 	u.uhorizon = 6;
255 #endif	/* QUEST */
256 	uarm = uarm2 = uarmh = uarms = uarmg = uwep = uball = uchain =
257 		uleft = uright = 0;
258 
259 	switch (pc) {
260 	case 'c':
261 	case 'C':
262 		Cave_man[2].trquan = 12 + rnd(9) * rnd(9);
263 		u.uhp = u.uhpmax = 16;
264 		u.ustr = u.ustrmax = 18;
265 		ini_inv(Cave_man);
266 		break;
267 	case 't':
268 	case 'T':
269 		Tourist[3].trquan = 20 + rnd(20);
270 		u.ugold = u.ugold0 = rnd(1000);
271 		u.uhp = u.uhpmax = 10;
272 		u.ustr = u.ustrmax = 8;
273 		ini_inv(Tourist);
274 		if (!rn2(25))
275 			ini_inv(Tinopener);
276 		break;
277 	case 'w':
278 	case 'W':
279 		for (i = 1; i <= 4; i++)
280 			if (!rn2(5))
281 				Wizard[i].trquan += rn2(3) - 1;
282 		u.uhp = u.uhpmax = 15;
283 		u.ustr = u.ustrmax = 16;
284 		ini_inv(Wizard);
285 		break;
286 	case 's':
287 	case 'S':
288 		Fast = INTRINSIC;
289 		Stealth = INTRINSIC;
290 		u.uhp = u.uhpmax = 12;
291 		u.ustr = u.ustrmax = 10;
292 		ini_inv(Speleologist);
293 		if (!rn2(10))
294 			ini_inv(Tinopener);
295 		break;
296 	case 'k':
297 	case 'K':
298 		u.uhp = u.uhpmax = 12;
299 		u.ustr = u.ustrmax = 10;
300 		ini_inv(Knight);
301 		break;
302 	case 'f':
303 	case 'F':
304 		u.uhp = u.uhpmax = 14;
305 		u.ustr = u.ustrmax = 17;
306 		ini_inv(Fighter);
307 		break;
308 	default:		/* impossible */
309 		u.uhp = u.uhpmax = 12;
310 		u.ustr = u.ustrmax = 16;
311 	}
312 	find_ac();
313 	if (!rn2(20)) {
314 		int    dr = rn2(7) - 2;	/* biased variation */
315 		u.ustr += dr;
316 		u.ustrmax += dr;
317 	}
318 #ifdef WIZARD
319 	if (wizard)
320 		wiz_inv();
321 #endif	/* WIZARD */
322 
323 	/* make sure he can carry all he has - especially for T's */
324 	while (inv_weight() > 0 && u.ustr < 118)
325 		u.ustr++, u.ustrmax++;
326 }
327 
328 void
ini_inv(struct trobj * trop)329 ini_inv(struct trobj *trop)
330 {
331 	struct obj *obj;
332 	while (trop->trolet) {
333 		obj = mkobj(trop->trolet);
334 		obj->known = trop->trknown;
335 		/* not obj->dknown = 1; - let him look at it at least once */
336 		obj->cursed = 0;
337 		if (obj->olet == WEAPON_SYM) {
338 			obj->quan = trop->trquan;
339 			trop->trquan = 1;
340 		}
341 		if (trop->trspe != UNDEF_SPE)
342 			obj->spe = trop->trspe;
343 		if (trop->trotyp != UNDEF_TYP)
344 			obj->otyp = trop->trotyp;
345 		else if (obj->otyp == WAN_WISHING)	/* gitpyr!robert */
346 			obj->otyp = WAN_DEATH;
347 		obj->owt = weight(obj);	/* defined after setting otyp+quan */
348 		obj = addinv(obj);
349 		if (obj->olet == ARMOR_SYM) {
350 			switch (obj->otyp) {
351 			case SHIELD:
352 				if (!uarms)
353 					setworn(obj, W_ARMS);
354 				break;
355 			case HELMET:
356 				if (!uarmh)
357 					setworn(obj, W_ARMH);
358 				break;
359 			case PAIR_OF_GLOVES:
360 				if (!uarmg)
361 					setworn(obj, W_ARMG);
362 				break;
363 			case ELVEN_CLOAK:
364 				if (!uarm2)
365 					setworn(obj, W_ARM);
366 				break;
367 			default:
368 				if (!uarm)
369 					setworn(obj, W_ARM);
370 			}
371 		}
372 		if (obj->olet == WEAPON_SYM)
373 			if (!uwep)
374 				setuwep(obj);
375 		if (--trop->trquan)
376 			continue;	/* make a similar object */
377 		trop++;
378 	}
379 }
380 
381 #ifdef WIZARD
382 void
wiz_inv(void)383 wiz_inv(void)
384 {
385 	struct trobj *trop = &Extra_objs[0];
386 	char  *ep = getenv("INVENT");
387 	int    type;
388 	while (ep && *ep) {
389 		type = atoi(ep);
390 		ep = strchr(ep, ',');
391 		if (ep)
392 			while (*ep == ',' || *ep == ' ')
393 				ep++;
394 		if (type <= 0 || type > NROFOBJECTS)
395 			continue;
396 		trop->trotyp = type;
397 		trop->trolet = objects[type].oc_olet;
398 		trop->trspe = 4;
399 		trop->trknown = 1;
400 		trop->trquan = 1;
401 		ini_inv(trop);
402 	}
403 	/* give him a wand of wishing by default */
404 	trop->trotyp = WAN_WISHING;
405 	trop->trolet = WAND_SYM;
406 	trop->trspe = 20;
407 	trop->trknown = 1;
408 	trop->trquan = 1;
409 	ini_inv(trop);
410 }
411 #endif	/* WIZARD */
412 
413 void
plnamesuffix(void)414 plnamesuffix(void)
415 {
416 	char  *p;
417 	if ((p = strrchr(plname, '-')) != NULL) {
418 		*p = 0;
419 		pl_character[0] = p[1];
420 		pl_character[1] = 0;
421 		if (!plname[0]) {
422 			askname();
423 			plnamesuffix();
424 		}
425 	}
426 }
427 
428 int
role_index(int pc)429 role_index(int pc)
430 {				/* must be called only from u_init() */
431 	/* so that rolesyms[] is defined */
432 	char  *cp;
433 
434 	if ((cp = strchr(rolesyms, pc)) != NULL)
435 		return (cp - rolesyms);
436 	return (-1);
437 }
438