xref: /netbsd/games/hack/hack.read.c (revision bf9ec67e) 
1 /*	$NetBSD: hack.read.c,v 1.7 2001/03/25 20:44:02 jsm Exp $	*/
2 
3 /*
4  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
5  */
6 
7 #include <sys/cdefs.h>
8 #ifndef lint
9 __RCSID("$NetBSD: hack.read.c,v 1.7 2001/03/25 20:44:02 jsm Exp $");
10 #endif				/* not lint */
11 
12 #include <stdlib.h>
13 #include "hack.h"
14 #include "extern.h"
15 
16 int
17 doread()
18 {
19 	struct obj     *scroll;
20 	boolean         confused = (Confusion != 0);
21 	boolean         known = FALSE;
22 
23 	scroll = getobj("?", "read");
24 	if (!scroll)
25 		return (0);
26 	if (!scroll->dknown && Blind) {
27 		pline("Being blind, you cannot read the formula on the scroll.");
28 		return (0);
29 	}
30 	if (Blind)
31 		pline("As you pronounce the formula on it, the scroll disappears.");
32 	else
33 		pline("As you read the scroll, it disappears.");
34 	if (confused)
35 		pline("Being confused, you mispronounce the magic words ... ");
36 
37 	switch (scroll->otyp) {
38 #ifdef MAIL
39 	case SCR_MAIL:
40 		readmail( /* scroll */ );
41 		break;
42 #endif	/* MAIL */
43 	case SCR_ENCHANT_ARMOR:
44 		{
45 			struct obj     *otmp = some_armor();
46 			if (!otmp) {
47 				strange_feeling(scroll, "Your skin glows then fades.");
48 				return (1);
49 			}
50 			if (confused) {
51 				pline("Your %s glows silver for a moment.",
52 				      objects[otmp->otyp].oc_name);
53 				otmp->rustfree = 1;
54 				break;
55 			}
56 			if (otmp->spe > 3 && rn2(otmp->spe)) {
57 				pline("Your %s glows violently green for a while, then evaporates.",
58 				      objects[otmp->otyp].oc_name);
59 				useup(otmp);
60 				break;
61 			}
62 			pline("Your %s glows green for a moment.",
63 			      objects[otmp->otyp].oc_name);
64 			otmp->cursed = 0;
65 			otmp->spe++;
66 			break;
67 		}
68 	case SCR_DESTROY_ARMOR:
69 		if (confused) {
70 			struct obj     *otmp = some_armor();
71 			if (!otmp) {
72 				strange_feeling(scroll, "Your bones itch.");
73 				return (1);
74 			}
75 			pline("Your %s glows purple for a moment.",
76 			      objects[otmp->otyp].oc_name);
77 			otmp->rustfree = 0;
78 			break;
79 		}
80 		if (uarm) {
81 			pline("Your armor turns to dust and falls to the floor!");
82 			useup(uarm);
83 		} else if (uarmh) {
84 			pline("Your helmet turns to dust and is blown away!");
85 			useup(uarmh);
86 		} else if (uarmg) {
87 			pline("Your gloves vanish!");
88 			useup(uarmg);
89 			selftouch("You");
90 		} else {
91 			strange_feeling(scroll, "Your skin itches.");
92 			return (1);
93 		}
94 		break;
95 	case SCR_CONFUSE_MONSTER:
96 		if (confused) {
97 			pline("Your hands begin to glow purple.");
98 			Confusion += rnd(100);
99 		} else {
100 			pline("Your hands begin to glow blue.");
101 			u.umconf = 1;
102 		}
103 		break;
104 	case SCR_SCARE_MONSTER:
105 		{
106 			int             ct = 0;
107 			struct monst   *mtmp;
108 
109 			for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
110 				if (cansee(mtmp->mx, mtmp->my)) {
111 					if (confused)
112 						mtmp->mflee = mtmp->mfroz =
113 							mtmp->msleep = 0;
114 					else
115 						mtmp->mflee = 1;
116 					ct++;
117 				}
118 			if (!ct) {
119 				if (confused)
120 					pline("You hear sad wailing in the distance.");
121 				else
122 					pline("You hear maniacal laughter in the distance.");
123 			}
124 			break;
125 		}
126 	case SCR_BLANK_PAPER:
127 		if (confused)
128 			pline("You see strange patterns on this scroll.");
129 		else
130 			pline("This scroll seems to be blank.");
131 		break;
132 	case SCR_REMOVE_CURSE:
133 		{
134 			struct obj     *obj;
135 			if (confused)
136 				pline("You feel like you need some help.");
137 			else
138 				pline("You feel like someone is helping you.");
139 			for (obj = invent; obj; obj = obj->nobj)
140 				if (obj->owornmask)
141 					obj->cursed = confused;
142 			if (Punished && !confused) {
143 				Punished = 0;
144 				freeobj(uchain);
145 				unpobj(uchain);
146 				free((char *) uchain);
147 				uball->spe = 0;
148 				uball->owornmask &= ~W_BALL;
149 				uchain = uball = (struct obj *) 0;
150 			}
151 			break;
152 		}
153 	case SCR_CREATE_MONSTER:
154 		{
155 			int             cnt = 1;
156 
157 			if (!rn2(73))
158 				cnt += rnd(4);
159 			if (confused)
160 				cnt += 12;
161 			while (cnt--)
162 				(void) makemon(confused ? PM_ACID_BLOB :
163 					 (struct permonst *) 0, u.ux, u.uy);
164 			break;
165 		}
166 	case SCR_ENCHANT_WEAPON:
167 		if (uwep && confused) {
168 			pline("Your %s glows silver for a moment.",
169 			      objects[uwep->otyp].oc_name);
170 			uwep->rustfree = 1;
171 		} else if (!chwepon(scroll, 1))	/* tests for !uwep */
172 			return (1);
173 		break;
174 	case SCR_DAMAGE_WEAPON:
175 		if (uwep && confused) {
176 			pline("Your %s glows purple for a moment.",
177 			      objects[uwep->otyp].oc_name);
178 			uwep->rustfree = 0;
179 		} else if (!chwepon(scroll, -1))	/* tests for !uwep */
180 			return (1);
181 		break;
182 	case SCR_TAMING:
183 		{
184 			int             i, j;
185 			int             bd = confused ? 5 : 1;
186 			struct monst   *mtmp;
187 
188 			for (i = -bd; i <= bd; i++)
189 				for (j = -bd; j <= bd; j++)
190 					if ((mtmp = m_at(u.ux + i, u.uy + j)) != NULL)
191 						(void) tamedog(mtmp, (struct obj *) 0);
192 			break;
193 		}
194 	case SCR_GENOCIDE:
195 		{
196 			char            buf[BUFSZ];
197 			struct monst   *mtmp, *mtmp2;
198 
199 			pline("You have found a scroll of genocide!");
200 			known = TRUE;
201 			if (confused)
202 				*buf = u.usym;
203 			else
204 				do {
205 					pline("What monster do you want to genocide (Type the letter)? ");
206 					getlin(buf);
207 				} while (strlen(buf) != 1 || !monstersym(*buf));
208 			if (!strchr(fut_geno, *buf))
209 				charcat(fut_geno, *buf);
210 			if (!strchr(genocided, *buf))
211 				charcat(genocided, *buf);
212 			else {
213 				pline("Such monsters do not exist in this world.");
214 				break;
215 			}
216 			for (mtmp = fmon; mtmp; mtmp = mtmp2) {
217 				mtmp2 = mtmp->nmon;
218 				if (mtmp->data->mlet == *buf)
219 					mondead(mtmp);
220 			}
221 			pline("Wiped out all %c's.", *buf);
222 			if (*buf == u.usym) {
223 				killer = "scroll of genocide";
224 				u.uhp = -1;
225 			}
226 			break;
227 		}
228 	case SCR_LIGHT:
229 		if (!Blind)
230 			known = TRUE;
231 		litroom(!confused);
232 		break;
233 	case SCR_TELEPORTATION:
234 		if (confused)
235 			level_tele();
236 		else {
237 #ifdef QUEST
238 			int             oux = u.ux, ouy = u.uy;
239 			tele();
240 			if (dist(oux, ouy) > 100)
241 				known = TRUE;
242 #else	/* QUEST */
243 			int             uroom = inroom(u.ux, u.uy);
244 			tele();
245 			if (uroom != inroom(u.ux, u.uy))
246 				known = TRUE;
247 #endif	/* QUEST */
248 		}
249 		break;
250 	case SCR_GOLD_DETECTION:
251 		/*
252 		 * Unfortunately this code has become slightly less elegant,
253 		 * now that gold and traps no longer are of the same type.
254 		 */
255 		if (confused) {
256 			struct trap    *ttmp;
257 
258 			if (!ftrap) {
259 				strange_feeling(scroll, "Your toes stop itching.");
260 				return (1);
261 			} else {
262 				for (ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
263 					if (ttmp->tx != u.ux || ttmp->ty != u.uy)
264 						goto outtrapmap;
265 				/*
266 				 * only under me - no separate display
267 				 * required
268 				 */
269 				pline("Your toes itch!");
270 				break;
271 		outtrapmap:
272 				cls();
273 				for (ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
274 					at(ttmp->tx, ttmp->ty, '$');
275 				prme();
276 				pline("You feel very greedy!");
277 			}
278 		} else {
279 			struct gold    *gtmp;
280 
281 			if (!fgold) {
282 				strange_feeling(scroll, "You feel materially poor.");
283 				return (1);
284 			} else {
285 				known = TRUE;
286 				for (gtmp = fgold; gtmp; gtmp = gtmp->ngold)
287 					if (gtmp->gx != u.ux || gtmp->gy != u.uy)
288 						goto outgoldmap;
289 				/*
290 				 * only under me - no separate display
291 				 * required
292 				 */
293 				pline("You notice some gold between your feet.");
294 				break;
295 		outgoldmap:
296 				cls();
297 				for (gtmp = fgold; gtmp; gtmp = gtmp->ngold)
298 					at(gtmp->gx, gtmp->gy, '$');
299 				prme();
300 				pline("You feel very greedy, and sense gold!");
301 			}
302 		}
303 		/* common sequel */
304 		more();
305 		docrt();
306 		break;
307 	case SCR_FOOD_DETECTION:
308 		{
309 			int ct = 0, ctu = 0;
310 			struct obj     *obj;
311 			char            foodsym = confused ? POTION_SYM : FOOD_SYM;
312 
313 			for (obj = fobj; obj; obj = obj->nobj)
314 				if (obj->olet == FOOD_SYM) {
315 					if (obj->ox == u.ux && obj->oy == u.uy)
316 						ctu++;
317 					else
318 						ct++;
319 				}
320 			if (!ct && !ctu) {
321 				strange_feeling(scroll, "Your nose twitches.");
322 				return (1);
323 			} else if (!ct) {
324 				known = TRUE;
325 				pline("You smell %s close nearby.",
326 				      confused ? "something" : "food");
327 
328 			} else {
329 				known = TRUE;
330 				cls();
331 				for (obj = fobj; obj; obj = obj->nobj)
332 					if (obj->olet == foodsym)
333 						at(obj->ox, obj->oy, FOOD_SYM);
334 				prme();
335 				pline("Your nose tingles and you smell %s!",
336 				      confused ? "something" : "food");
337 				more();
338 				docrt();
339 			}
340 			break;
341 		}
342 	case SCR_IDENTIFY:
343 		/* known = TRUE; */
344 		if (confused)
345 			pline("You identify this as an identify scroll.");
346 		else
347 			pline("This is an identify scroll.");
348 		useup(scroll);
349 		objects[SCR_IDENTIFY].oc_name_known = 1;
350 		if (!confused)
351 			while (
352 			 !ggetobj("identify", identify, rn2(5) ? 1 : rn2(5))
353 			       && invent
354 				);
355 		return (1);
356 	case SCR_MAGIC_MAPPING:
357 		{
358 			struct rm      *lev;
359 			int             num, zx, zy;
360 
361 			known = TRUE;
362 			pline("On this scroll %s a map!",
363 			      confused ? "was" : "is");
364 			for (zy = 0; zy < ROWNO; zy++)
365 				for (zx = 0; zx < COLNO; zx++) {
366 					if (confused && rn2(7))
367 						continue;
368 					lev = &(levl[zx][zy]);
369 					if ((num = lev->typ) == 0)
370 						continue;
371 					if (num == SCORR) {
372 						lev->typ = CORR;
373 						lev->scrsym = CORR_SYM;
374 					} else if (num == SDOOR) {
375 						lev->typ = DOOR;
376 						lev->scrsym = '+';
377 						/* do sth in doors ? */
378 					} else if (lev->seen)
379 						continue;
380 #ifndef QUEST
381 					if (num != ROOM)
382 #endif	/* QUEST */
383 					{
384 						lev->seen = lev->new = 1;
385 						if (lev->scrsym == ' ' || !lev->scrsym)
386 							newsym(zx, zy);
387 						else
388 							on_scr(zx, zy);
389 					}
390 				}
391 			break;
392 		}
393 	case SCR_AMNESIA:
394 		{
395 			int             zx, zy;
396 
397 			known = TRUE;
398 			for (zx = 0; zx < COLNO; zx++)
399 				for (zy = 0; zy < ROWNO; zy++)
400 					if (!confused || rn2(7))
401 						if (!cansee(zx, zy))
402 							levl[zx][zy].seen = 0;
403 			docrt();
404 			pline("Thinking of Maud you forget everything else.");
405 			break;
406 		}
407 	case SCR_FIRE:
408 		{
409 			int             num = 0;
410 			struct monst   *mtmp;
411 
412 			known = TRUE;
413 			if (confused) {
414 				pline("The scroll catches fire and you burn your hands.");
415 				losehp(1, "scroll of fire");
416 			} else {
417 				pline("The scroll erupts in a tower of flame!");
418 				if (Fire_resistance)
419 					pline("You are uninjured.");
420 				else {
421 					num = rnd(6);
422 					u.uhpmax -= num;
423 					losehp(num, "scroll of fire");
424 				}
425 			}
426 			num = (2 * num + 1) / 3;
427 			for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
428 				if (dist(mtmp->mx, mtmp->my) < 3) {
429 					mtmp->mhp -= num;
430 					if (strchr("FY", mtmp->data->mlet))
431 						mtmp->mhp -= 3 * num;	/* this might well kill
432 									 * 'F's */
433 					if (mtmp->mhp < 1) {
434 						killed(mtmp);
435 						break;	/* primitive */
436 					}
437 				}
438 			}
439 			break;
440 		}
441 	case SCR_PUNISHMENT:
442 		known = TRUE;
443 		if (confused) {
444 			pline("You feel guilty.");
445 			break;
446 		}
447 		pline("You are being punished for your misbehaviour!");
448 		if (Punished) {
449 			pline("Your iron ball gets heavier.");
450 			uball->owt += 15;
451 			break;
452 		}
453 		Punished = INTRINSIC;
454 		setworn(mkobj_at(CHAIN_SYM, u.ux, u.uy), W_CHAIN);
455 		setworn(mkobj_at(BALL_SYM, u.ux, u.uy), W_BALL);
456 		uball->spe = 1;	/* special ball (see save) */
457 		break;
458 	default:
459 		impossible("What weird language is this written in? (%u)",
460 			   scroll->otyp);
461 	}
462 	if (!objects[scroll->otyp].oc_name_known) {
463 		if (known && !confused) {
464 			objects[scroll->otyp].oc_name_known = 1;
465 			more_experienced(0, 10);
466 		} else if (!objects[scroll->otyp].oc_uname)
467 			docall(scroll);
468 	}
469 	useup(scroll);
470 	return (1);
471 }
472 
473 int
474 identify(otmp)			/* also called by newmail() */
475 	struct obj     *otmp;
476 {
477 	objects[otmp->otyp].oc_name_known = 1;
478 	otmp->known = otmp->dknown = 1;
479 	prinv(otmp);
480 	return (1);
481 }
482 
483 void
484 litroom(on)
485 	boolean         on;
486 {
487 #ifndef QUEST
488 	int num, zx, zy;
489 #endif
490 
491 	/* first produce the text (provided he is not blind) */
492 	if (Blind)
493 		goto do_it;
494 	if (!on) {
495 		if (u.uswallow || !xdnstair || levl[u.ux][u.uy].typ == CORR ||
496 		    !levl[u.ux][u.uy].lit) {
497 			pline("It seems even darker in here than before.");
498 			return;
499 		} else
500 			pline("It suddenly becomes dark in here.");
501 	} else {
502 		if (u.uswallow) {
503 			pline("%s's stomach is lit.", Monnam(u.ustuck));
504 			return;
505 		}
506 		if (!xdnstair) {
507 			pline("Nothing Happens.");
508 			return;
509 		}
510 #ifdef QUEST
511 		pline("The cave lights up around you, then fades.");
512 		return;
513 #else	/* QUEST */
514 		if (levl[u.ux][u.uy].typ == CORR) {
515 			pline("The corridor lights up around you, then fades.");
516 			return;
517 		} else if (levl[u.ux][u.uy].lit) {
518 			pline("The light here seems better now.");
519 			return;
520 		} else
521 			pline("The room is lit.");
522 #endif	/* QUEST */
523 	}
524 
525 do_it:
526 #ifdef QUEST
527 	return;
528 #else	/* QUEST */
529 	if (levl[u.ux][u.uy].lit == on)
530 		return;
531 	if (levl[u.ux][u.uy].typ == DOOR) {
532 		if (IS_ROOM(levl[u.ux][u.uy + 1].typ))
533 			zy = u.uy + 1;
534 		else if (IS_ROOM(levl[u.ux][u.uy - 1].typ))
535 			zy = u.uy - 1;
536 		else
537 			zy = u.uy;
538 		if (IS_ROOM(levl[u.ux + 1][u.uy].typ))
539 			zx = u.ux + 1;
540 		else if (IS_ROOM(levl[u.ux - 1][u.uy].typ))
541 			zx = u.ux - 1;
542 		else
543 			zx = u.ux;
544 	} else {
545 		zx = u.ux;
546 		zy = u.uy;
547 	}
548 	for (seelx = u.ux; (num = levl[seelx - 1][zy].typ) != CORR && num != 0;
549 	     seelx--);
550 	for (seehx = u.ux; (num = levl[seehx + 1][zy].typ) != CORR && num != 0;
551 	     seehx++);
552 	for (seely = u.uy; (num = levl[zx][seely - 1].typ) != CORR && num != 0;
553 	     seely--);
554 	for (seehy = u.uy; (num = levl[zx][seehy + 1].typ) != CORR && num != 0;
555 	     seehy++);
556 	for (zy = seely; zy <= seehy; zy++)
557 		for (zx = seelx; zx <= seehx; zx++) {
558 			levl[zx][zy].lit = on;
559 			if (!Blind && dist(zx, zy) > 2) {
560 				if (on)
561 					prl(zx, zy);
562 				else
563 					nosee(zx, zy);
564 			}
565 		}
566 	if (!on)
567 		seehx = 0;
568 #endif	/* QUEST */
569 }
570 
571 /* Test whether we may genocide all monsters with symbol  ch  */
572 int
573 monstersym(ch)			/* arnold@ucsfcgl */
574 	char            ch;
575 {
576 	const struct permonst *mp;
577 
578 	/*
579 	 * can't genocide certain monsters
580 	 */
581 	if (strchr("12 &:", ch))
582 		return FALSE;
583 
584 	if (ch == pm_eel.mlet)
585 		return TRUE;
586 	for (mp = mons; mp < &mons[CMNUM + 2]; mp++)
587 		if (mp->mlet == ch)
588 			return TRUE;
589 	return FALSE;
590 }
591