Wikia

Wikihack

Source:NetHack 3.1.0/read.c

2,032pages on
this wiki
Talk0

Below is the full text to read.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/read.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)read.c	3.1	92/12/10	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    
7.    /* elven armor vibrates warningly when enchanted beyond a limit */
8.    #define is_elven_armor(optr)	((optr)->otyp == ELVEN_LEATHER_HELM\
9.    				|| (optr)->otyp == ELVEN_MITHRIL_COAT\
10.   				|| (optr)->otyp == ELVEN_CLOAK\
11.   				|| (optr)->otyp == ELVEN_SHIELD\
12.   				|| (optr)->otyp == ELVEN_BOOTS)
13.   
14.   #ifdef OVLB
15.   
16.   boolean	known;
17.   
18.   static const char NEARDATA readable[] =
19.   		   { ALL_CLASSES, SCROLL_CLASS, SPBOOK_CLASS, 0 };
20.   static const char all_count[] = { ALLOW_COUNT, ALL_CLASSES, 0 };
21.   
22.   static void FDECL(wand_explode, (struct obj *));
23.   static void NDECL(do_class_genocide);
24.   static void FDECL(stripspe,(struct obj *));
25.   static void FDECL(p_glow1,(struct obj *));
26.   static void FDECL(p_glow2,(struct obj *,const char *));
27.   static void FDECL(forget,(BOOLEAN_P));
28.   
29.   #endif /* OVLB */
30.   
31.   #ifndef OVERLAY
32.   STATIC_DCL void FDECL(set_lit, (int,int,genericptr_t));
33.   #endif
34.   
35.   #ifdef OVLB
36.   
37.   int
38.   doread()
39.   {
40.   	register struct obj *scroll;
41.   	register boolean confused;
42.   
43.   	known = FALSE;
44.   	if(check_capacity(NULL)) return (0);
45.   	scroll = getobj(readable, "read");
46.   	if(!scroll) return(0);
47.   
48.   	/* outrumor has its own blindness check */
49.   	if(scroll->otyp == FORTUNE_COOKIE) {
50.   	    if(flags.verbose)
51.   		You("break up the cookie and throw away the pieces.");
52.   	    outrumor(bcsign(scroll), TRUE);
53.   	    useup(scroll);
54.   	    return(1);
55.   	} else if (scroll->oclass != SCROLL_CLASS
56.   		&& scroll->oclass != SPBOOK_CLASS) {
57.   	    pline(silly_thing_to, "read");
58.   	    return(0);
59.   	} else if (Blind) {
60.   	    const char *what = 0;
61.   	    if (scroll->oclass == SPBOOK_CLASS)
62.   		what = "mystic runes";
63.   	    else if (!scroll->dknown)
64.   		what = "formula on the scroll";
65.   	    if (what) {
66.   		pline("Being blind, you cannot read the %s.", what);
67.   		return(0);
68.   	    }
69.   	}
70.   
71.   	confused = (Confusion != 0);
72.   	if(scroll->oclass == SPBOOK_CLASS) {
73.   	    if(confused) {
74.   		You("cannot grasp the meaning of this tome.");
75.   		return(0);
76.   	    } else
77.   		return(study_book(scroll));
78.   	}
79.   #ifndef NO_SIGNAL
80.   	scroll->in_use = TRUE;	/* scroll, not spellbook, now being read */
81.   #endif
82.   	if(scroll->otyp != SCR_BLANK_PAPER) {
83.   	  if(Blind)
84.   	    pline("As you pronounce the formula on it, the scroll disappears.");
85.   	  else
86.   	    pline("As you read the scroll, it disappears.");
87.   	  if(confused) {
88.   	    if (Hallucination)
89.   		pline("Being so trippy, you screw up....");
90.   	    else
91.   		pline("Being confused, you mispronounce the magic words....");
92.   	  }
93.   	}
94.   	if(!seffects(scroll))  {
95.   		if(!objects[scroll->otyp].oc_name_known) {
96.   		    if(known) {
97.   			makeknown(scroll->otyp);
98.   			more_experienced(0,10);
99.   		    } else if(!objects[scroll->otyp].oc_uname)
100.  			docall(scroll);
101.  		}
102.  		if(scroll->otyp != SCR_BLANK_PAPER)
103.  			useup(scroll);
104.  #ifndef NO_SIGNAL
105.  		else scroll->in_use = FALSE;
106.  #endif
107.  	}
108.  	return(1);
109.  }
110.  
111.  static void
112.  stripspe(obj)
113.  register struct obj *obj;
114.  {
115.  	if (obj->blessed) pline(nothing_happens);
116.  	else {
117.  		if (obj->spe > 0) {
118.  		    obj->spe = 0;
119.  		    if (obj->otyp == OIL_LAMP || obj->otyp == BRASS_LANTERN)
120.  			obj->age = 0;
121.  		    Your("%s vibrates briefly.",xname(obj));
122.  		} else pline(nothing_happens);
123.  	}
124.  }
125.  
126.  static void
127.  p_glow1(otmp)
128.  register struct obj	*otmp;
129.  {
130.  	Your("%s %s briefly.", xname(otmp),
131.  		Blind ? "vibrates" : "glows");
132.  }
133.  
134.  static void
135.  p_glow2(otmp,color)
136.  register struct obj	*otmp;
137.  register const char *color;
138.  {
139.  	Your("%s %s%s for a moment.",
140.  		xname(otmp),
141.  		Blind ? "vibrates" : "glows ",
142.  		Blind ? (const char *)"" : Hallucination ? hcolor() : color);
143.  }
144.  
145.  /*
146.   * recharge an object; curse_bless is -1 if the recharging implement
147.   * was cursed, +1 if blessed, 0 otherwise.
148.   */
149.  void
150.  recharge(obj, curse_bless)
151.  struct obj *obj;
152.  int curse_bless;
153.  {
154.  	register int n;
155.  	boolean is_cursed, is_blessed;
156.  
157.  	is_cursed = curse_bless < 0;
158.  	is_blessed = curse_bless > 0;
159.  
160.  	if (obj->oclass == WAND_CLASS) {
161.  	    if (obj->otyp == WAN_WISHING) {
162.  		if (obj->recharged) {	/* recharged once already? */
163.  		    wand_explode(obj);
164.  		    return;
165.  		}
166.  		if (is_cursed) stripspe(obj);
167.  		else if (is_blessed) {
168.  		    if (obj->spe != 3) {
169.  			obj->spe = 3;
170.  			p_glow2(obj,blue);
171.  		    } else {
172.  			wand_explode(obj);
173.  			return;
174.  		    }
175.  		} else {
176.  		    if (obj->spe < 3) {
177.  			obj->spe++;
178.  			p_glow2(obj,blue);
179.  		    } else pline(nothing_happens);
180.  		}
181.  		obj->recharged = 1; /* another recharging disallowed */
182.  	    } else {
183.  		if (is_cursed) stripspe(obj);
184.  		else if (is_blessed) {
185.  		    if (objects[obj->otyp].oc_dir == NODIR) {
186.  			n = rn1(5,11);
187.  			if (obj->spe < n) obj->spe = n;
188.  			else obj->spe++;
189.  		    } else {
190.  			n = rn1(5,4);
191.  			if (obj->spe < n) obj->spe = n;
192.  			else obj->spe++;
193.  		    }
194.  		    p_glow2(obj,blue);
195.  		} else {
196.  		    obj->spe++;
197.  		    p_glow1(obj);
198.  		}
199.  	    }
200.  	} else if (obj->oclass == RING_CLASS &&
201.  					objects[obj->otyp].oc_charged) {
202.  	    /* charging does not affect ring's curse/bless status */
203.  	    int s = is_blessed ? rnd(3) : is_cursed ? -rnd(2) : 1;
204.  	    boolean is_on = (obj == uleft || obj == uright);
205.  
206.  	    /* destruction depends on current state, not adjustment */
207.  	    if (obj->spe > rn2(7) || obj->spe <= -5) {
208.  		Your("%s pulsates momentarily, then explodes!",
209.  		     xname(obj));
210.  		if (is_on) Ring_gone(obj);
211.  		s = rnd(3 * abs(obj->spe));	/* amount of damage */
212.  		useup(obj);
213.  		losehp(s, "exploding ring", KILLED_BY_AN);
214.  	    } else {
215.  		long mask = is_on ? (obj == uleft ? LEFT_RING :
216.  				     RIGHT_RING) : 0L;
217.  		Your("%s spins %sclockwise for a moment.",
218.  		     xname(obj), s < 0 ? "counter" : "");
219.  		/* cause attributes and/or properties to be updated */
220.  		if (is_on) Ring_off(obj);
221.  		obj->spe += s;	/* update the ring while it's off */
222.  		if (is_on) setworn(obj, mask), Ring_on(obj);
223.  		/* oartifact: if a touch-sensitive artifact ring is
224.  		   ever created the above will need to be revised  */
225.  	    }
226.  	} else {
227.  	    switch(obj->otyp) {
228.  	    case MAGIC_MARKER:
229.  		if (is_cursed) stripspe(obj);
230.  		else if (obj->recharged) {
231.  		    if (obj->spe < 3)
232.  			Your("marker seems permanently dried out.");
233.  		    else
234.  			pline(nothing_happens);
235.  		} else if (is_blessed) {
236.  		    n = obj->spe;
237.  		    if (n < 50) obj->spe = 50;
238.  		    if (n >= 50 && n < 75) obj->spe = 75;
239.  		    if (n >= 75) obj->spe += 10;
240.  		    p_glow2(obj,blue);
241.  		    obj->recharged = 1;
242.  		} else {
243.  		    if (obj->spe < 50) obj->spe = 50;
244.  		    else obj->spe++;
245.  		    p_glow2(obj,White);
246.  		    obj->recharged = 1;
247.  		}
248.  		break;
249.  	    case OIL_LAMP:
250.  	    case BRASS_LANTERN:
251.  		if (is_cursed) {
252.  		    stripspe(obj);
253.  		    if (obj->lamplit) {
254.  			if (!Blind)
255.  			    pline("%s goes out!", The(xname(obj)));
256.  			obj->lamplit = 0;
257.  			check_lamps();
258.  		    }
259.  		} else if (is_blessed) {
260.  		    obj->spe = 1;
261.  		    obj->age = 1500;
262.  		    p_glow2(obj,blue);
263.  		} else {
264.  		    obj->spe = 1;
265.  		    obj->age += 750;
266.  		    if (obj->age > 1500) obj->age = 1500;
267.  		    p_glow1(obj);
268.  		}
269.  		break;
270.  	    case CRYSTAL_BALL:
271.  		if (is_cursed) stripspe(obj);
272.  		else if (is_blessed) {
273.  		    obj->spe = 6;
274.  		    p_glow2(obj,blue);
275.  		} else {
276.  		    if (obj->spe < 5) {
277.  			obj->spe++;
278.  			p_glow1(obj);
279.  		    } else pline(nothing_happens);
280.  		}
281.  		break;
282.  	    case HORN_OF_PLENTY:
283.  	    case BAG_OF_TRICKS:
284.  		if (is_cursed) stripspe(obj);
285.  		else if (is_blessed) {
286.  		    if (obj->spe <= 10)
287.  			obj->spe += rn1(10, 6);
288.  		    else obj->spe += rn1(5, 6);
289.  		    p_glow2(obj,blue);
290.  		} else {
291.  		    obj->spe += rnd(5);
292.  		    p_glow1(obj);
293.  		}
294.  		break;
295.  	    default:
296.  		You("have a feeling of loss.");
297.  		break;
298.  	    } /* switch */
299.  	}
300.  }
301.  
302.  /*
303.   * forget some things (e.g. after reading a scroll of amnesia). abs(howmuch)
304.   * controls the level of forgetfulness; 0 == part of the map, 1 == all of
305.   * of map,  2 == part of map + spells, 3 == all of map + spells.
306.   */
307.  
308.  static void
309.  forget(howmuch)
310.  boolean howmuch;
311.  {
312.  	register int zx, zy;
313.  	register struct trap *trap;
314.  
315.  	if (Punished) u.bc_felt = 0;	/* forget felt ball&chain */
316.  
317.  	known = TRUE;
318.  	for(zx = 0; zx < COLNO; zx++) for(zy = 0; zy < ROWNO; zy++)
319.  	    if (howmuch & 1 || rn2(7)) {
320.  		/* Zonk all memory of this location. */
321.  		levl[zx][zy].seen = levl[zx][zy].waslit = 0;
322.  		levl[zx][zy].glyph = cmap_to_glyph(S_stone);
323.  	    }
324.  
325.  	/* forget all traps (except the one the hero is in :-) */
326.  	for (trap = ftrap; trap; trap = trap->ntrap)
327.  	    if (trap->tx != u.ux || trap->ty != u.uy) trap->tseen = 0;
328.  
329.  	/*
330.  	 * Make sure that what was seen is restored correctly.  To do this,
331.  	 * we need to go blind for an instant --- turn off the display,
332.  	 * then restart it.  All this work is needed to correctly handle
333.  	 * walls which are stone on one side and wall on the other.  Turning
334.  	 * off the seen bit above will make the wall revert to stone,  but
335.  	 * there are cases where we don't want this to happen.  The easiest
336.  	 * thing to do is to run it through the vision system again, which
337.  	 * is always correct.
338.  	 */
339.  	docrt();		/* this correctly will reset vision */
340.  
341.  	if(howmuch & 2) losespells();
342.  }
343.  
344.  int
345.  seffects(sobj)
346.  register struct obj	*sobj;
347.  {
348.  	register int cval;
349.  	register boolean confused = (Confusion != 0);
350.  	register struct obj *otmp;
351.  
352.  	exercise(A_WIS, TRUE);		/* just for trying */
353.  	switch(sobj->otyp) {
354.  #ifdef MAIL
355.  	case SCR_MAIL:
356.  		known = TRUE;
357.  		if (sobj->spe)
358.  		    pline("This seems to be junk mail addressed to the finder of the Eye of Larn.");
359.  		/* note to the puzzled: the game Larn actually sends you junk
360.  		 * mail if you win!
361.  		 */
362.  		else readmail(sobj);
363.  		break;
364.  #endif
365.  	case SCR_ENCHANT_ARMOR:
366.  	    {
367.  		register schar s;
368.  		otmp = some_armor();
369.  		if(!otmp) {
370.  			strange_feeling(sobj,
371.  					!Blind ? "Your skin glows then fades." :
372.  					"Your skin feels warm for a moment.");
373.  			exercise(A_CON, !sobj->cursed);
374.  			exercise(A_STR, !sobj->cursed);
375.  			return(1);
376.  		}
377.  		if(confused) {
378.  			otmp->oerodeproof = !(sobj->cursed);
379.  			if(Blind) {
380.  			    otmp->rknown = FALSE;
381.  			    Your("%s feels warm for a moment.",
382.  				xname(otmp));
383.  			} else {
384.  			    otmp->rknown = TRUE;
385.  			    Your("%s is covered by a %s %s %s!",
386.  				xname(otmp),
387.  				sobj->cursed ? "mottled" : "shimmering",
388.  				Hallucination ? hcolor() :
389.  				  sobj->cursed ? Black : golden,
390.  				sobj->cursed ? "glow" :
391.  				  (is_shield(otmp) ? "layer" : "shield"));
392.  			}
393.  			if (otmp->oerodeproof && otmp->oeroded) {
394.  			    otmp->oeroded = 0;
395.  			    Your("%s %ss good as new!",
396.  				 xname(otmp), Blind ? "feel" : "look");
397.  			}
398.  			break;
399.  		}
400.  		if((otmp->spe > ((otmp->otyp == ELVEN_MITHRIL_COAT) ? 5 : 3))
401.  				&& rn2(otmp->spe) && !sobj->cursed) {
402.  		Your("%s violently %s%s for a while, then evaporates.",
403.  			    xname(otmp),
404.  			    Blind ? "vibrates" : "glows ",
405.  			    Blind ? nul : Hallucination ? hcolor() : silver);
406.  			if(is_cloak(otmp)) (void) Cloak_off();
407.  			if(is_boots(otmp)) (void) Boots_off();
408.  			if(is_helmet(otmp)) (void) Helmet_off();
409.  			if(is_gloves(otmp)) (void) Gloves_off();
410.  			if(is_shield(otmp)) (void) Shield_off();
411.  			if(otmp == uarm) (void) Armor_gone();
412.  			useup(otmp);
413.  			break;
414.  		}
415.  		s = sobj->cursed ? -1 :
416.  		    otmp->spe >= 9 ? (rn2(otmp->spe) == 0) :
417.  		    sobj->blessed ? rnd(3-otmp->spe/3) : 1;
418.  		if (s >= 0 && otmp->otyp >= GRAY_DRAGON_SCALES &&
419.  					otmp->otyp <= YELLOW_DRAGON_SCALES) {
420.  			/* dragon scales get turned into dragon scale mail */
421.  			Your("%s merges and hardens!", xname(otmp));
422.  			setworn((struct obj *)0, W_ARM);
423.  			/* assumes same order */
424.  			otmp->otyp = GRAY_DRAGON_SCALE_MAIL +
425.  						otmp->otyp - GRAY_DRAGON_SCALES;
426.  			otmp->cursed = 0;
427.  			if (sobj->blessed) {
428.  				otmp->spe++;
429.  				otmp->blessed = 1;
430.  			}
431.  			otmp->known = 1;
432.  			setworn(otmp, W_ARM);
433.  			break;
434.  		}
435.  		Your("%s %s%s%s for a %s.",
436.  			xname(otmp),
437.  		        s == 0 ? "violently " : nul,
438.  			Blind ? "vibrates" : "glows ",
439.  			Blind ? nul : Hallucination ? hcolor() :
440.  			  sobj->cursed ? Black : silver,
441.  			  (s*s>1) ? "while" : "moment");
442.  		otmp->cursed = sobj->cursed;
443.  		if (!otmp->blessed || sobj->cursed)
444.  			otmp->blessed = sobj->blessed;
445.  		if (s) {
446.  			otmp->spe += s;
447.  			adj_abon(otmp, s);
448.  		}
449.  
450.  		/* an elven magic clue, cookie@keebler */
451.  		if((otmp->spe > ((otmp->otyp == ELVEN_MITHRIL_COAT) ? 5 : 3))
452.  				&& (is_elven_armor(otmp) || !rn2(7)))
453.  			Your("%s suddenly vibrates %s.",
454.  				xname(otmp),
455.  				Blind ? "again" : "unexpectedly");
456.  		break;
457.  	    }
458.  	case SCR_DESTROY_ARMOR:
459.  	    {
460.  		otmp = some_armor();
461.  		if(confused) {
462.  			if(!otmp) {
463.  				strange_feeling(sobj,"Your bones itch.");
464.  				exercise(A_STR, FALSE);
465.  				exercise(A_CON, FALSE);
466.  				return(1);
467.  			}
468.  			otmp->oerodeproof = sobj->cursed;
469.  			p_glow2(otmp,purple);
470.  			break;
471.  		}
472.  		if(!sobj->cursed || !otmp || !otmp->cursed) {
473.  		    if(!destroy_arm(otmp)) {
474.  			strange_feeling(sobj,"Your skin itches.");
475.  			exercise(A_STR, FALSE);
476.  			exercise(A_CON, FALSE);
477.  			return(1);
478.  		    }
479.  		} else {	/* armor and scroll both cursed */
480.  		    Your("%s vibrates.", xname(otmp));
481.  		    if (otmp->spe >= -6) otmp->spe--;
482.  		    make_stunned(HStun + rn1(10, 10), TRUE);
483.  		}
484.  	    }
485.  	    break;
486.  	case SCR_CONFUSE_MONSTER:
487.  	case SPE_CONFUSE_MONSTER:
488.  		if(u.usym != S_HUMAN || sobj->cursed) {
489.  			if(!HConfusion) You("feel confused.");
490.  			make_confused(HConfusion + rnd(100),FALSE);
491.  		} else  if(confused) {
492.  		    if(!sobj->blessed) {
493.  			Your("%s begin to %s%s.",
494.  			    makeplural(body_part(HAND)),
495.  			    Blind ? "tingle" : "glow ",
496.  			    Blind ? nul : Hallucination ? hcolor() : purple);
497.  			make_confused(HConfusion + rnd(100),FALSE);
498.  		    } else {
499.  			pline("A %s%s surrounds your %s.",
500.  			    Blind ? nul : Hallucination ? hcolor() : red,
501.  			    Blind ? "faint buzz" : " glow",
502.  			    body_part(HEAD));
503.  			make_confused(0L,TRUE);
504.  		    }
505.  		} else {
506.  		    if (!sobj->blessed) {
507.  			Your("%s%s %s%s.",
508.  			makeplural(body_part(HAND)),
509.  			Blind ? "" : " begin to glow",
510.  			Blind ? (const char *)"tingle" : Hallucination ? hcolor() : red,
511.  			u.umconf ? " even more" : "");
512.  			u.umconf++;
513.  		    } else {
514.  			if (Blind)
515.  			    Your("%s tingle %s sharply.",
516.  				makeplural(body_part(HAND)),
517.  				u.umconf ? "even more" : "very");
518.  			else
519.  			    Your("%s glow a%s brilliant %s.",
520.  				makeplural(body_part(HAND)),
521.  				u.umconf ? "n even more" : "",
522.  				Hallucination ? hcolor() : red);
523.  			u.umconf += rn1(8, 2);
524.  		    }
525.  		}
526.  		break;
527.  	case SCR_SCARE_MONSTER:
528.  	case SPE_CAUSE_FEAR:
529.  	    {	register int ct = 0;
530.  		register struct monst *mtmp;
531.  
532.  		for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
533.  		    if(cansee(mtmp->mx,mtmp->my)) {
534.  			if(confused || sobj->cursed) {
535.  			    mtmp->mflee = mtmp->mfrozen = mtmp->msleep = 0;
536.  			    mtmp->mcanmove = 1;
537.  			} else
538.  			    if (! resist(mtmp, sobj->oclass, 0, NOTELL))
539.  				mtmp->mflee = 1;
540.  			if(!mtmp->mtame) ct++;	/* pets don't laugh at you */
541.  		    }
542.  		if(!ct)
543.  		      You("hear %s in the distance.",
544.  			       (confused || sobj->cursed) ? "sad wailing" :
545.  							"maniacal laughter");
546.  		else if(sobj->otyp == SCR_SCARE_MONSTER)
547.  			You("hear %s close by.",
548.  				  (confused || sobj->cursed) ? "sad wailing" :
549.  						 "maniacal laughter");
550.  		break;
551.  	    }
552.  	case SCR_BLANK_PAPER:
553.  	    if (Blind)
554.  		You("don't remember there being any magic words on this scroll.");
555.  	    else
556.  		pline("This scroll seems to be blank.");
557.  	    known = TRUE;
558.  	    break;
559.  	case SCR_REMOVE_CURSE:
560.  	case SPE_REMOVE_CURSE:
561.  	    {	register struct obj *obj;
562.  		if(confused)
563.  		    if (Hallucination)
564.  			You("feel the power of the Force against you!");
565.  		    else
566.  			You("feel like you need some help.");
567.  		else
568.  		    if (Hallucination)
569.  			You("feel in touch with the Universal Oneness.");
570.  		    else
571.  			You("feel like someone is helping you.");
572.  
573.  		if(sobj->cursed) pline("The scroll disintegrates.");
574.  		else {
575.  		    for(obj = invent; obj ; obj = obj->nobj)
576.  			if(sobj->blessed || obj->owornmask ||
577.  			   (obj->otyp == LOADSTONE)) {
578.  			    if(confused) blessorcurse(obj, 2);
579.  			    else uncurse(obj);
580.  			}
581.  		}
582.  		if(Punished && !confused) unpunish();
583.  		break;
584.  	    }
585.  	case SCR_CREATE_MONSTER:
586.  #if defined(WIZARD) || defined(EXPLORE_MODE)
587.  	    if (wizard || discover)
588.  		known = TRUE;
589.  #endif /* WIZARD || EXPLORE_MODE */
590.  	case SPE_CREATE_MONSTER:
591.  	    {	register int cnt = 1;
592.  
593.  		if(!rn2(73) && !sobj->blessed) cnt += rnd(4);
594.  		if(confused || sobj->cursed) cnt += 12;
595.  		while(cnt--) {
596.  #if defined(WIZARD) || defined(EXPLORE_MODE)
597.  		    if((!wizard && !discover) || !create_particular())
598.  #endif /* WIZARD || EXPLORE_MODE */
599.  		    (void) makemon (confused ? &mons[PM_ACID_BLOB] :
600.  					(struct permonst *) 0, u.ux, u.uy);
601.  		}
602.  		break;
603.  	    }
604.  /*	    break;	/*NOTREACHED*/
605.  	case SCR_ENCHANT_WEAPON:
606.  		if(uwep && (uwep->oclass == WEAPON_CLASS ||
607.  			    uwep->otyp == PICK_AXE ||
608.  			    uwep->otyp == UNICORN_HORN) && confused) {
609.  		/* oclass check added 10/25/86 GAN */
610.  			uwep->oerodeproof = !(sobj->cursed);
611.  			if(Blind) {
612.  			    uwep->rknown = FALSE;
613.  			    Your("weapon feels warm for a moment.");
614.  			} else {
615.  			    uwep->rknown = TRUE;
616.  			    Your("%s covered by a %s %s %s!",
617.  				aobjnam(uwep, "are"),
618.  				sobj->cursed ? "mottled" : "shimmering",
619.  				Hallucination ? hcolor() :
620.  				  sobj->cursed ? purple : golden,
621.  				sobj->cursed ? "glow" : "shield");
622.  			}
623.  			if (uwep->oerodeproof && uwep->oeroded) {
624.  			    uwep->oeroded = 0;
625.  			    Your("%s good as new!",
626.  				 aobjnam(uwep, Blind ? "feel" : "look"));
627.  			}
628.  		} else return !chwepon(sobj,
629.  				       sobj->cursed ? -1 :
630.  				       !uwep ? 1 :
631.  				       uwep->spe >= 9 ? (rn2(uwep->spe) == 0) :
632.  				       sobj->blessed ? rnd(3-uwep->spe/3) : 1);
633.  		break;
634.  	case SCR_TAMING:
635.  	case SPE_CHARM_MONSTER:
636.  	    {	register int i,j;
637.  		register int bd = confused ? 5 : 1;
638.  		register struct monst *mtmp;
639.  
640.  		for(i = -bd; i <= bd; i++) for(j = -bd; j <= bd; j++)
641.  		if(isok(u.ux+i, u.uy+j) && (mtmp = m_at(u.ux+i, u.uy+j))) {
642.  		    if(sobj->cursed) {
643.  			if(!mtmp->mtame) mtmp->mpeaceful = 0;
644.  		    } else {
645.  			if (mtmp->isshk) {
646.  			    if (!mtmp->mpeaceful) {
647.  				pline("%s calms down.", Monnam(mtmp));
648.  				mtmp->mpeaceful = 1;
649.  			    }
650.  			} else if(!resist(mtmp, sobj->oclass, 0, NOTELL))
651.  			    (void) tamedog(mtmp, (struct obj *) 0);
652.  		    }
653.  		}
654.  		break;
655.  	    }
656.  	case SCR_GENOCIDE:
657.  		You("have found a scroll of genocide!");
658.  		known = TRUE;
659.  		if (sobj->blessed) do_class_genocide();
660.  		else do_genocide(!sobj->cursed | (2 * !!Confusion));
661.  		break;
662.  	case SCR_LIGHT:
663.  		if(!Blind) known = TRUE;
664.  		litroom(!confused && !sobj->cursed, sobj);
665.  		break;
666.  	case SCR_TELEPORTATION:
667.  		if(confused || sobj->cursed) level_tele();
668.  		else {
669.  			if (sobj->blessed && !Teleport_control) {
670.  				known = TRUE;
671.  				if (yn("Do you wish to teleport?")=='n')
672.  					break;
673.  			}
674.  			tele();
675.  			if(Teleport_control || !couldsee(u.ux0, u.uy0) ||
676.  			   (distu(u.ux0, u.uy0) >= 16))
677.  				known = TRUE;
678.  		}
679.  		break;
680.  	case SCR_GOLD_DETECTION:
681.  		if (confused || sobj->cursed) return(trap_detect(sobj));
682.  		else return(gold_detect(sobj));
683.  	case SCR_FOOD_DETECTION:
684.  	case SPE_DETECT_FOOD:
685.  		if (food_detect(sobj))
686.  			return(1);	/* nothing detected */
687.  		break;
688.  	case SPE_IDENTIFY:
689.  		cval = rn2(5);
690.  		goto id;
691.  	case SCR_IDENTIFY:
692.  		/* known = TRUE; */
693.  		if(confused)
694.  			You("identify this as an identify scroll.");
695.  		else
696.  			pline("This is an identify scroll.");
697.  		if (sobj->blessed || (!sobj->cursed && !rn2(5)))
698.  			cval = rn2(5);
699.  			/* Note: if rn2(5)==0, identify all items */
700.  		else	cval = 1;
701.  		useup(sobj);
702.  		makeknown(SCR_IDENTIFY);
703.  	id:
704.  		if(invent && !confused) {
705.  		    int ret;
706.  		    do {
707.  			ret = ggetobj("identify", identify, cval);
708.  		    } while(cval && (cval -= ret));
709.  		}
710.  		return(1);
711.  	case SCR_CHARGING:
712.  		if (confused) {
713.  		    You("feel charged up!");
714.  		    if (u.uen < u.uenmax)
715.  			u.uen = u.uenmax;
716.  		    else
717.  			u.uen = (u.uenmax += d(5,4));
718.  		    flags.botl = 1;
719.  		    break;
720.  		}
721.  		known = TRUE;
722.  		pline("This is a charging scroll.");
723.  		otmp = getobj(all_count, "charge");
724.  		if (!otmp) break;
725.  		recharge(otmp, sobj->cursed ? -1 : (sobj->blessed ? 1 : 0));
726.  		break;
727.  	case SCR_MAGIC_MAPPING:
728.  		if (level.flags.nommap) {
729.  		    Your("mind is filled with crazy lines!");
730.  		    if (Hallucination)
731.  			pline("Wow!  Modern art.");
732.  		    else
733.  			Your("head spins in bewilderment.");
734.  		    make_confused(HConfusion + rnd(30), FALSE);
735.  		    break;
736.  		}
737.  		known = TRUE;
738.  	case SPE_MAGIC_MAPPING:
739.  		if (level.flags.nommap) {
740.  		    Your("head spins as something blocks the spell!");
741.  		    make_confused(HConfusion + rnd(30), FALSE);
742.  		    break;
743.  		}
744.  		pline("A map coalesces in your mind!");
745.  		cval = (sobj->cursed && !confused);
746.  		if(cval) HConfusion = 1;	/* to screw up map */
747.  		do_mapping();
748.  		if(cval) {
749.  		    HConfusion = 0;		/* restore */
750.  		    pline("Unfortunately, you can't grasp the details.");
751.  		}
752.  		break;
753.  	case SCR_AMNESIA:
754.  		known = TRUE;
755.  		forget( ((!sobj->blessed) << 1) | (!confused || sobj->cursed) );
756.  		if (Hallucination) /* Ommmmmm! */
757.  			Your("mind releases itself from mundane concerns.");
758.  		else if (!strncmpi(plname, "Maud", 4))
759.  			pline("As your mind turns inward on itself, you forget everything else.");
760.  		else if (rn2(2))
761.  			pline("Who was that Maud person anyway?");
762.  		else
763.  			pline("Thinking of Maud you forget everything else.");
764.  		exercise(A_WIS, FALSE);
765.  		break;
766.  	case SCR_FIRE:
767.  		/*
768.  		 * Note: Modifications have been made as of 3.0 to allow for
769.  		 * some damage under all potential cases.
770.  		 */
771.  		cval = bcsign(sobj);
772.  		useup(sobj);
773.  		makeknown(SCR_FIRE);
774.  		if(confused) {
775.  		    if(Fire_resistance) {
776.    			shieldeff(u.ux, u.uy);
777.  			if(!Blind)
778.  			    pline("Oh, look, what a pretty fire in your %s.",
779.  				makeplural(body_part(HAND)));
780.  			else You("feel a pleasant warmth in your %s.",
781.  				makeplural(body_part(HAND)));
782.  		    } else {
783.  			pline("The scroll catches fire and you burn your %s.",
784.  				makeplural(body_part(HAND)));
785.  			losehp(1, "scroll of fire", KILLED_BY_AN);
786.  		    }
787.  		    return(1);
788.  		}
789.  		if (Underwater)
790.  			pline("The water around you vaporizes violently!");
791.  		else
792.  			pline("The scroll erupts in a tower of flame!");
793.  		explode(u.ux, u.uy, 11, (2*(rn1(3, 3) + 2 * cval) + 1)/3,
794.  							SCROLL_CLASS);
795.  		return(1);
796.  	case SCR_PUNISHMENT:
797.  		known = TRUE;
798.  		if(confused || sobj->blessed) {
799.  			You("feel guilty.");
800.  			break;
801.  		}
802.  		punish(sobj);
803.  		break;
804.  	default:
805.  		impossible("What weird effect is this? (%u)", sobj->otyp);
806.  	}
807.  	return(0);
808.  }
809.  
810.  static void
811.  wand_explode(obj)
812.  register struct obj *obj;
813.  {
814.      Your("%s vibrates violently, and explodes!",xname(obj));
815.      nhbell();
816.      losehp(rn2(2*(u.uhpmax+1)/3),"exploding wand", KILLED_BY_AN);
817.      useup(obj);
818.      exercise(A_STR, FALSE);
819.  }
820.  
821.  /*
822.   * Low-level lit-field update routine.
823.   */
824.  STATIC_PTR void
825.  set_lit(x,y,val)
826.  int x, y;
827.  genericptr_t val;
828.  {
829.  	levl[x][y].lit = (val == (genericptr_t)-1) ? 0 : 1;
830.  	return;
831.  }
832.  
833.  void
834.  litroom(on,obj)
835.  register boolean on;
836.  struct obj *obj;
837.  {
838.  	/* first produce the text (provided you're not blind) */
839.  	if(Blind) goto do_it;
840.  	if(!on) {
841.  		if(u.uswallow) {
842.  			pline("It seems even darker in here than before.");
843.  			return;
844.  		}
845.  		You("are surrounded by darkness!");
846.  	} else {
847.  		if(u.uswallow){
848.  			if (is_animal(u.ustuck->data))
849.  				pline("%s stomach is lit.",
850.  				         s_suffix(Monnam(u.ustuck)));
851.  			else
852.  				if (is_whirly(u.ustuck->data))
853.  					pline("%s shines briefly.",
854.  					      Monnam(u.ustuck));
855.  				else
856.  					pline("%s glistens.", Monnam(u.ustuck));
857.  			return;
858.  		}
859.  		pline("A lit field surrounds you!");
860.  	}
861.  
862.  do_it:
863.  	/* No-op in water - can only see the adjacent squares and that's it! */
864.  	if (Underwater || Is_waterlevel(&u.uz)) return;
865.  	/*
866.  	 *  If we are darkening the room and the hero is punished but not
867.  	 *  blind, then we have to pick up and replace the ball and chain so
868.  	 *  that we don't remember them if they are out of sight.
869.  	 */
870.  	if (Punished && !on && !Blind)
871.  	    move_bc(1, 0, uball->ox, uball->oy, uchain->ox, uchain->oy);
872.  
873.  #ifdef REINCARNATION
874.  	if (Is_rogue_level(&u.uz)) {
875.  	    /* Can't use do_clear_area because MAX_RADIUS is too small */
876.  	    /* rogue lighting must light the entire room */
877.  	    int rnum = levl[u.ux][u.uy].roomno - ROOMOFFSET;
878.  	    int rx, ry;
879.  	    if(rnum >= 0) {
880.  		for(rx = rooms[rnum].lx-1; rx <= rooms[rnum].hx+1; rx++)
881.  		    for(ry = rooms[rnum].ly-1; ry <= rooms[rnum].hy+1; ry++)
882.  			set_lit(rx, ry, (genericptr_t)((on)? 1 : -1));
883.  		rooms[rnum].rlit = on;
884.  	    }
885.  	    /* hallways remain dark on the rogue level */
886.  	} else
887.  #endif
888.  	    do_clear_area(u.ux,u.uy,
889.  		(obj && obj->oclass==SCROLL_CLASS && obj->blessed) ? 9 : 5,
890.  		set_lit, (genericptr_t)((on)? 1 : -1));
891.  
892.  	/*
893.  	 *  If we are not blind, then force a redraw on all positions in sight
894.  	 *  by temporarily blinding the hero.  The vision recalculation will
895.  	 *  correctly update all previously seen positions *and* correctly
896.  	 *  set the waslit bit [could be messed up from above].
897.  	 */
898.  	if (!Blind) {
899.  	    vision_recalc(2);
900.  
901.  	    /* replace ball&chain */
902.  	    if (Punished && !on)
903.  		move_bc(0, 0, uball->ox, uball->oy, uchain->ox, uchain->oy);
904.  	}
905.  
906.  	vision_full_recalc = 1;	/* delayed vision recalculation */
907.  }
908.  
909.  static void
910.  do_class_genocide()
911.  {
912.  	register int i, j, immunecnt, gonecnt, goodcnt, class;
913.  	char buf[BUFSZ];
914.  
915.  	for(j=0; ; j++) {
916.  		if (j >= 5) {
917.  			pline(thats_enough_tries);
918.  			return;
919.  		}
920.  		do {
921.      getlin("What class of monsters do you wish to genocide? [type a letter]",
922.  	   buf);
923.  		} while (buf[0]=='\033' || strlen(buf) != 1);
924.  		immunecnt = gonecnt = goodcnt = 0;
925.  		class = def_char_to_monclass(buf[0]);
926.  		for(i = 0; i < NUMMONS; i++) {
927.  			if(mons[i].mlet == class) {
928.  				if (!(mons[i].geno & G_GENO)) immunecnt++;
929.  				else if(mons[i].geno & G_GENOD) gonecnt++;
930.  				else goodcnt++;
931.  			}
932.  		}
933.  		if (!goodcnt && class != S_HUMAN) {
934.  			if (gonecnt)
935.  	pline("All such monsters are already nonexistent.");
936.  			else if (immunecnt)
937.  	You("aren't permitted to genocide such monsters.");
938.  			else
939.  	pline("That symbol does not represent any monster.");
940.  			continue;
941.  		}
942.  		for(i = 0; i < NUMMONS; i++) {
943.  		    if(mons[i].mlet == class) {
944.  			register struct monst *mtmp, *mtmp2;
945.  			char *n = makeplural(mons[i].mname);
946.  
947.  			if (&mons[i]==player_mon() || ((mons[i].geno & G_GENO)
948.  				&& !(mons[i].geno & G_GENOD))) {
949.  			/* This check must be first since player monsters might
950.  			 * have G_GENOD or !G_GENO.
951.  			 */
952.  			    pline("Wiped out all %s.", n);
953.  			    if (&mons[i] == player_mon()) {
954.  				u.uhp = -1;
955.  				killer_format = KILLED_BY_AN;
956.  				killer = "scroll of genocide";
957.  #ifdef POLYSELF
958.  				if (u.umonnum >= 0)
959.  				    You("feel dead inside.");
960.  				else
961.  #endif
962.  				    done(GENOCIDED);
963.  			    }
964.  			    /* for simplicity (and fairness) let's avoid
965.  			     * alignment changes here...
966.  			     */
967.  #ifdef POLYSELF
968.  			    if (i==u.umonnum) rehumanize();
969.  #endif
970.  			    mons[i].geno |= G_GENOD;
971.  			    for(mtmp = fmon; mtmp; mtmp = mtmp2) {
972.  				mtmp2 = mtmp->nmon;
973.  				if(mtmp->data == &mons[i])
974.  				    mondead(mtmp);
975.  			    }
976.  			} else if (mons[i].geno & G_GENOD)
977.  			    pline("All %s are already nonexistent.", n);
978.  			else
979.  			    You("aren't permitted to genocide %s%s.",
980.  				i == PM_WIZARD_OF_YENDOR ? "the " : "",
981.  				type_is_pname(&mons[i]) ? mons[i].mname : (const char *)n);
982.  			}
983.  		}
984.  		return;
985.  	}
986.  }
987.  
988.  #define REALLY 1
989.  #define PLAYER 2
990.  void
991.  do_genocide(how)
992.  int how;
993.  /* 0 = no genocide; create monsters (cursed scroll) */
994.  /* 1 = normal genocide */
995.  /* 3 = forced genocide of player */
996.  {
997.  	char buf[BUFSZ];
998.  	register int	i, j, killplayer = 0;
999.  	register struct permonst *ptr;
1000. 	register struct monst *mtmp, *mtmp2;
1001. 
1002. 	if (how & PLAYER) {
1003. 		ptr = player_mon();
1004. 		Strcpy(buf, ptr->mname);
1005. 		killplayer++;
1006. 	} else {
1007. 	    for(j = 0; ; j++) {
1008. 		if(j >= 5) {
1009. 		    pline(thats_enough_tries);
1010. 		    return;
1011. 		}
1012. 		getlin("What monster do you want to genocide? [type the name]",
1013. 			buf);
1014. 
1015. 		i = name_to_mon(buf);
1016. 		if(i == -1 || (mons[i].geno & G_GENOD)) {
1017. 			pline("Such creatures do not exist in this world.");
1018. 			continue;
1019. 		}
1020. 		ptr = &mons[i];
1021. 		if (ptr == player_mon()) {
1022. 			killplayer++;
1023. 			goto deadmeat;
1024. 		}
1025. 		if (is_human(ptr)) adjalign(-sgn(u.ualign.type));
1026. 		if (is_demon(ptr)) adjalign(sgn(u.ualign.type));
1027. 
1028. 		if(!(ptr->geno & G_GENO))  {
1029. 			if(flags.soundok) {
1030. 			    if(flags.verbose)
1031. 			pline("A thunderous voice booms though the caverns:");
1032. 			    pline("\"No, mortal!  That will not be done.\"");
1033. 			}
1034. 			continue;
1035. 		}
1036. 		break;
1037. 	    }
1038. 	}
1039. deadmeat:
1040. 	if (Hallucination) {
1041. #ifdef POLYSELF
1042. 	    if (u.umonnum != -1)
1043. 		Strcpy(buf,uasmon->mname);
1044. 	    else
1045. #endif
1046. 	    {
1047. 		Strcpy(buf, pl_character);
1048. 		buf[0] += 'a' - 'A';
1049. 	    }
1050. 	} else Strcpy(buf,ptr->mname); /* make sure we have standard singular */
1051. 	if (how & REALLY) {
1052. 	    pline("Wiped out all %s.", makeplural(buf));
1053. 	    if(killplayer) {
1054. 		u.uhp = -1;
1055. 		killer_format = KILLED_BY_AN;
1056. 		killer = "genocide spell";
1057. #ifdef POLYSELF
1058. 	/* Polymorphed characters will die as soon as they're rehumanized. */
1059. 		if(u.umonnum >= 0)	You("feel dead inside.");
1060. 		else
1061. #endif
1062. 			done(GENOCIDED);
1063. 		return;
1064. 	    }
1065. #ifdef POLYSELF
1066. 	    else if (ptr == uasmon) rehumanize();
1067. #endif
1068. 	    ptr->geno |= G_GENOD;
1069. 	    for(mtmp = fmon; mtmp; mtmp = mtmp2) {
1070. 		mtmp2 = mtmp->nmon;
1071. 		if(mtmp->data == ptr)
1072. 		    mondead(mtmp);
1073. 	    }
1074. 	} else if (!(ptr->geno & G_EXTINCT)) {
1075. 	    pline("Sent in some %s.", makeplural(buf));
1076. 	    j = rn1(3, 4);
1077. 	    for(i=1; i<=j; i++) {
1078. 		struct monst *mmon = makemon(ptr, u.ux, u.uy);
1079. 		struct obj *otmp;
1080. 
1081. 		while ((otmp = mmon->minvent) != 0) {
1082. 			mmon->minvent = otmp->nobj;
1083. 			dealloc_obj(otmp);
1084. 		}
1085. 	    }
1086. 	}
1087. }
1088. 
1089. #endif /* OVLB */
1090. #ifdef OVLB
1091. 
1092. void
1093. punish(sobj)
1094. register struct obj	*sobj;
1095. {
1096. 	You("are being punished for your misbehavior!");
1097. 	if(Punished){
1098. 		Your("iron ball gets heavier.");
1099. 		uball->owt += 160 * (1 + sobj->cursed);
1100. 		return;
1101. 	}
1102. 	setworn(mkobj(CHAIN_CLASS, TRUE), W_CHAIN);
1103. 	setworn(mkobj(BALL_CLASS, TRUE), W_BALL);
1104. 	uball->spe = 1;		/* special ball (see save) */
1105. 
1106. 	/*
1107. 	 *  Place ball & chain if not swallowed.  If swallowed, the ball &
1108. 	 *  chain variables will be set at the next call to placebc().
1109. 	 */
1110. 	if (!u.uswallow) {
1111. 	    placebc();
1112. 	    if (Blind) set_bc(1);	/* set up ball and chain variables */
1113. 	    newsym(u.ux,u.uy);		/* see ball&chain if can't see self */
1114. 	}
1115. }
1116. 
1117. void
1118. unpunish()
1119. {	    /* remove the ball and chain */
1120. 	freeobj(uchain);
1121. 	newsym(uchain->ox,uchain->oy);
1122. 	dealloc_obj(uchain);
1123. 	setworn((struct obj *)0, W_CHAIN);
1124. 	uball->spe = 0;
1125. 	setworn((struct obj *)0, W_BALL);
1126. }
1127. 
1128. /* some creatures have special data structures that only make sense in their
1129.  * normal locations -- if the player tries to create one elsewhere, or to revive
1130.  * one, the disoriented creature becomes a zombie
1131.  */
1132. boolean
1133. cant_create(mtype)
1134. int *mtype;
1135. {
1136. 
1137. 	if (*mtype==PM_GUARD || *mtype==PM_SHOPKEEPER
1138. 	     || *mtype==PM_ALIGNED_PRIEST || *mtype==PM_ANGEL) {
1139. 		*mtype = PM_HUMAN_ZOMBIE;
1140. 		return TRUE;
1141. 	}
1142. 	return FALSE;
1143. }
1144. 
1145. #if defined(WIZARD) || defined(EXPLORE_MODE)
1146. boolean
1147. create_particular()
1148. {
1149. 	char buf[BUFSZ];
1150. 	int which, tries = 0;
1151. 
1152. 	do {
1153. 	    getlin("Create what kind of monster? [type the name]", buf);
1154. 	    which = name_to_mon(buf);
1155. 	    if (which < 0) pline("I've never heard of such monsters.");
1156. 	    else break;
1157. 	} while (++tries < 5);
1158. 	if (tries == 5) pline(thats_enough_tries);
1159. 	else {
1160. 	    if (!(mons[which].geno & G_GENOD) && cant_create(&which) &&
1161. 								!Blind) {
1162. 		if (mons[which].geno & G_GENOD)
1163. pline("An image of the creature forms, wavers momentarily, then fades.");
1164. 		else
1165. pline("The disoriented creature's eyes slowly glaze over.");
1166. 	    }
1167. 	    (void) makemon(&mons[which], u.ux, u.uy);
1168. 	    return TRUE;
1169. 	}
1170. 	return FALSE;
1171. }
1172. #endif /* WIZARD || EXPLORE_MODE */
1173. 
1174. #endif /* OVLB */
1175. 
1176. /*read.c*/

Around Wikia's network

Random Wiki