Source:NetHack 2.3e/potion.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to potion.c from the source code of NetHack 2.3e.

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

Screenshots and source code from Hack are used under the CWI license.

1.    /*	SCCS Id: @(#)potion.c	2.3	88/02/11
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    
4.    #include "hack.h"
5.    extern int float_down();
6.    extern char *nomovemsg;
7.    extern struct monst youmonst;
8.    extern struct monst *makemon();
9.    char *hcolor();
10.   #ifdef KAA
11.   char *xname();
12.   extern char pl_character[];
13.   #endif
14.   #ifdef FOUNTAINS
15.   extern int drinkfountain();
16.   extern int dipfountain();
17.   #endif
18.   
19.   int	nothing, unkn;
20.   
21.   dodrink() {
22.   	register struct obj *otmp;
23.   	register int	retval;
24.   
25.   #ifdef FOUNTAINS
26.   
27.         /* Is there something to drink here, i.e., a fountain? */
28.          if (IS_FOUNTAIN(levl[u.ux][u.uy].typ)) {
29.   	  pline("Drink from the fountain? [ny] ");
30.   	  if(readchar() == 'y') {
31.   	    (void) drinkfountain();
32.   	    return(0);
33.   	  }
34.          }   
35.   
36.   #endif /* FOUNTAINS /**/
37.   
38.   	nothing = unkn = 0;
39.   	otmp = getobj("!", "drink");
40.   	if(!otmp) return(0);
41.   	if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
42.   		ghost_from_bottle();
43.   		goto use_it;
44.   	}
45.   	if(!strcmp(objects[otmp->otyp].oc_descr, "glowing") && !rn2(13)) {
46.   		djinni_from_bottle();
47.   		goto use_it;
48.   	}
49.   	if((retval = peffects(otmp)) >= 0) return(retval);
50.   
51.   	if(nothing) {
52.   	    unkn++;
53.   	    pline("You have a %s feeling for a moment, then it passes.",
54.   		  Hallucination ? "normal" : "peculiar");
55.   	}
56.   	if(otmp->dknown && !objects[otmp->otyp].oc_name_known) {
57.   		if(!unkn) {
58.   			objects[otmp->otyp].oc_name_known = 1;
59.   			more_experienced(0,10);
60.   		} else if(!objects[otmp->otyp].oc_uname)
61.   			docall(otmp);
62.   	}
63.   use_it:
64.   	useup(otmp);
65.   	return(1);
66.   }
67.   
68.   peffects(otmp)
69.   	register struct obj	*otmp;
70.   {
71.   	register struct obj	*objs;
72.   	register struct monst	*mtmp;
73.   
74.   	switch(otmp->otyp){
75.   	case POT_RESTORE_STRENGTH:
76.   #ifdef SPELLS
77.   	case SPE_RESTORE_STRENGTH:
78.   #endif
79.   		unkn++;
80.   		pline("Wow!  This makes you feel great!");
81.   		if(u.ustr < u.ustrmax) {
82.   			u.ustr = u.ustrmax;
83.   			flags.botl = 1;
84.   		}
85.   		break;
86.   #ifdef KAA
87.   	case POT_HALLUCINATION:
88.   		if (Hallucination) nothing++;
89.   		else pline("Oh wow!  Everything looks so cosmic!");
90.   		Hallucination += rn1(100,750);
91.   		setsee();
92.   		break;
93.   	case POT_HOLY_WATER:
94.   		unkn++;
95.   		if(index("VWZ&",u.usym)) {
96.   			pline("This burns like acid!");
97.   			/* should never kill you, but... */
98.   			losehp(d(2,6), "potion of holy water");
99.   		} else {
100.  			pline("You feel full of awe.");
101.  			if (Sick) Sick=0;
102.  			if (HConfusion) HConfusion=0;
103.  		}
104.  #else
105.  	case POT_HOLY_WATER:
106.  	case POT_HALLUCINATION:
107.  #endif
108.  		break;
109.  	case POT_BOOZE:
110.  		unkn++;
111.  		pline("Ooph!  This tastes like liquid fire!");
112.  		HConfusion += d(3,8);
113.  		/* the whiskey makes us feel better */
114.  		if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey");
115.  		if(!rn2(4)) {
116.  			pline("You pass out.");
117.  			multi = -rnd(15);
118.  			nomovemsg = "You awake with a headache.";
119.  		}
120.  		break;
121.  	case POT_INVISIBILITY:
122.  #ifdef SPELLS
123.  	case SPE_INVISIBILITY:
124.  #endif
125.  		if(Invis || See_invisible)
126.  		  nothing++;
127.  		else {
128.  		  if(!Blind)
129.  		    pline("Gee!  All of a sudden, you can't see yourself.");
130.  		  else
131.  		    pline("You feel rather airy."), unkn++;
132.  		  newsym(u.ux,u.uy);
133.  		}
134.  		HInvis += rn1(15,31);
135.  		break;
136.  	case POT_FRUIT_JUICE:
137.  		pline("This tastes like fruit juice.");
138.  		lesshungry(20);
139.  		break;
140.  	case POT_HEALING:
141.  		pline("You begin to feel better.");
142.  		healup(rnd(10), 1, 1, 1);
143.  		break;
144.  	case POT_PARALYSIS:
145.  		if(Levitation)
146.  			pline("You are motionlessly suspended.");
147.  		else
148.  			pline("Your feet are frozen to the floor!");
149.  		nomul(-(rn1(10,25)));
150.  		break;
151.  	case POT_MONSTER_DETECTION:
152.  #ifdef SPELLS
153.  	case SPE_DETECT_MONSTERS:
154.  #endif
155.  		if(!fmon) {
156.  			strange_feeling(otmp, "You feel threatened.");
157.  			return(1);
158.  		} else {
159.  			cls();
160.  			for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
161.  				if(mtmp->mx > 0)
162.  				at(mtmp->mx,mtmp->my,Hallucination ? rndmonsym() :
163.  				mtmp->data->mlet);
164.  			prme();
165.  			pline("You sense the presence of monsters.");
166.  			more();
167.  			docrt();
168.  		}
169.  		break;
170.  	case POT_OBJECT_DETECTION:
171.  #ifdef SPELLS
172.  	case SPE_DETECT_TREASURE:
173.  #endif
174.  		if(!fobj) {
175.  			strange_feeling(otmp, "You feel a pull downward.");
176.  			return(1);
177.  		} else {
178.  		    for(objs = fobj; objs; objs = objs->nobj)
179.  			if(objs->ox != u.ux || objs->oy != u.uy)
180.  				goto outobjmap;
181.  		    pline("You sense the presence of objects close nearby.");
182.  		    break;
183.  		outobjmap:
184.  			cls();
185.  			for(objs = fobj; objs; objs = objs->nobj)
186.  				at(objs->ox,objs->oy,Hallucination ? rndobjsym()
187.  				 : objs->olet);
188.  
189.  			/* monster possessions added by GAN 12/16/86 */
190.  			for(mtmp = fmon ; mtmp ; mtmp = mtmp->nmon)
191.  				if(mtmp->minvent)
192.  					for(objs = mtmp->minvent; objs ;
193.  					    objs = objs->nobj)
194.  						at(mtmp->mx,mtmp->my,objs->olet);
195.  			prme();
196.  			pline("You sense the presence of objects.");
197.  			more();
198.  			docrt();
199.  		}
200.  		break;
201.  	case POT_SICKNESS:
202.  		pline("Yech! This stuff tastes like poison.");
203.  		if(Poison_resistance)
204.      pline("(But in fact it was biologically contaminated orange juice.)");
205.  #ifdef KAA
206.  		if (pl_character[0] == 'H')
207.  			pline("Fortunately you have been immunized!");
208.  		else {
209.  #endif
210.  			losestr((Poison_resistance) ? 1 : rn1(4,3));
211.  			if(!Poison_resistance)
212.  				losehp(rnd(10), "contaminated potion");
213.  #ifdef KAA
214.  		}
215.  #endif
216.  		if(Hallucination) {
217.  			pline("You are shocked back to your senses!");
218.  			Hallucination=1;
219.  		}
220.  		break;
221.  	case POT_CONFUSION:
222.  		if(!Confusion)
223.  		    if (Hallucination) {
224.  			pline("What a trippy feeling!");
225.  			unkn++;
226.  		    } else
227.  			pline("Huh, What?  Where am I?");
228.  		else	nothing++;
229.  		HConfusion += rn1(7,16);
230.  		break;
231.  	case POT_GAIN_STRENGTH:
232.  		pline("Wow do you feel strong!");
233.  		gainstr(0);
234.  		break;
235.  	case POT_SPEED:
236.  		if(Wounded_legs) {
237.  			heal_legs();
238.  			unkn++;
239.  			break;
240.  		}		/* and fall through */
241.  #ifdef SPELLS
242.  	case SPE_HASTE_SELF:
243.  #endif
244.  		if(!(Fast & ~INTRINSIC))
245.  			pline("You are suddenly moving much faster.");
246.  		else
247.  			pline("Your legs get new energy."), unkn++;
248.  		Fast += rn1(10,100);
249.  		break;
250.  	case POT_BLINDNESS:
251.  		if(!Blind)
252.  			if (Hallucination)
253.  				pline("Bummer!  Everything is dark!  Help!");
254.  			else 
255.  				pline("A cloud of darkness falls upon you.");
256.  		else	nothing++;
257.  		Blinded += rn1(100,250);
258.  		seeoff(0);
259.  		break;
260.  	case POT_GAIN_LEVEL: 
261.  		pluslvl();
262.  		break;
263.  	case POT_EXTRA_HEALING:
264.  		pline("You feel much better.");
265.  		healup(d(2,20)+1, 2, 1, 1);
266.  		if(Hallucination) Hallucination = 1;
267.  		break;
268.  	case POT_LEVITATION:
269.  #ifdef SPELLS
270.  	case SPE_LEVITATION:
271.  #endif
272.  		if(!Levitation)
273.  			float_up();
274.  		else
275.  			nothing++;
276.  		Levitation += rnd(100);
277.  		u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down;
278.  		break;
279.  	case POT_GAIN_ENERGY:			/* M. Stephenson */
280.  #ifdef SPELLS
281.  		{	register int	 num;
282.  			if(Confusion) {
283.  			    pline("You feel feverish.");
284.  			    unkn++;
285.  			} else
286.  			    pline("Magical energies course through your body.");
287.  			num = rnd(5) + 1;
288.  			u.uenmax += num;
289.  			u.uen += num;
290.  			flags.botl = 1;
291.  			break;
292.  		}
293.  #else
294.  		pline("This potion tastes weird!");
295.  		break;
296.  #endif
297.  	default:
298.  		impossible("What a funny potion! (%u)", otmp->otyp);
299.  		return(0);
300.  	}
301.  	return(-1);
302.  }
303.  
304.  healup(nhp, nxtra, curesick, cureblind)
305.  	int	nhp, nxtra;
306.  	register boolean curesick, cureblind;
307.  {
308.  #ifdef KAA
309.  	if (u.mtimedone & nhp) {
310.  		u.mh += rnd(nhp);
311.  		if (u.mh > u.mhmax) u.mh = (u.mhmax + nxtra);
312.  	}
313.  #endif
314.  	if(nhp)	{
315.  		u.uhp += nhp;
316.  		if(u.uhp > u.uhpmax)	u.uhp = (u.uhpmax += nxtra);
317.  	}
318.  	if(Blind && cureblind)	Blinded = 1;	/* see on next move */
319.  	if(Sick && curesick)	Sick = 0;
320.  	flags.botl = 1;
321.  	return;
322.  }
323.  
324.  pluslvl()
325.  {
326.  	register num;
327.  
328.  	pline("You feel more experienced.");
329.  	num = rnd(10);
330.  	u.uhpmax += num;
331.  	u.uhp += num;
332.  #ifdef SPELLS
333.  	num = rnd(u.ulevel/2+1) + 1;		/* M. Stephenson */
334.  	u.uenmax += num;
335.  	u.uen += num;
336.  #endif
337.  	if(u.ulevel < 14) {
338.  		extern long newuexp();
339.  
340.  		u.uexp = newuexp()+1;
341.  		pline("Welcome to experience level %u.", ++u.ulevel);
342.  	}
343.  	flags.botl = 1;
344.  }
345.  
346.  strange_feeling(obj,txt)
347.  register struct obj *obj;
348.  register char *txt;
349.  {
350.  	if(flags.beginner)
351.  		pline("You have a %s feeling for a moment, then it passes.",
352.  		Hallucination ? "normal" : "strange");
353.  	else
354.  		pline(txt);
355.  	if(!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname)
356.  		docall(obj);
357.  	useup(obj);
358.  }
359.  
360.  char *bottlenames[] = {
361.  	"bottle", "phial", "flagon", "carafe", "flask", "jar", "vial"
362.  };
363.  
364.  potionhit(mon, obj)
365.  register struct monst *mon;
366.  register struct obj *obj;
367.  {
368.  	extern char *xname();
369.  	register char *botlnam = bottlenames[rn2(SIZE(bottlenames))];
370.  	boolean uclose, isyou = (mon == &youmonst);
371.  
372.  	if(isyou) {
373.  		uclose = TRUE;
374.  		pline("The %s crashes on your head and breaks into shivers.",
375.  			botlnam);
376.  		losehp(rnd(2), "thrown potion");
377.  	} else {
378.  		uclose = (dist(mon->mx,mon->my) < 3);
379.  		/* perhaps 'E' and 'a' have no head? */
380.  		pline("The %s crashes on %s's head and breaks into shivers.",
381.  			botlnam, monnam(mon));
382.  		if(rn2(5) && mon->mhp > 1)
383.  			mon->mhp--;
384.  	}
385.  	pline("The %s evaporates.", xname(obj));
386.  
387.  #ifdef KAA
388.  	if(!isyou) switch (obj->otyp) {
389.  #else
390.  	if(!isyou && !rn2(3)) switch(obj->otyp) {
391.  #endif
392.  
393.  	case POT_RESTORE_STRENGTH:
394.  	case POT_GAIN_STRENGTH:
395.  	case POT_HEALING:
396.  	case POT_EXTRA_HEALING:
397.  		if(mon->mhp < mon->mhpmax) {
398.  			mon->mhp = mon->mhpmax;
399.  			pline("%s looks sound and hale again!", Monnam(mon));
400.  		}
401.  		break;
402.  	case POT_SICKNESS:
403.  		if((mon->mhpmax > 3) && !resist(mon, '!', 0, NOTELL))
404.  			mon->mhpmax /= 2;
405.  		if((mon->mhp > 2) && !resist(mon, '!', 0, NOTELL))
406.  			mon->mhp /= 2;
407.  #ifdef KAA
408.  		pline("%s looks rather ill.", Monnam(mon));
409.  #endif
410.  		break;
411.  	case POT_CONFUSION:
412.  	case POT_BOOZE:
413.  		if(!resist(mon, '!', 0, NOTELL))  mon->mconf = 1;
414.  		break;
415.  	case POT_INVISIBILITY:
416.  		unpmon(mon);
417.  		mon->minvis = 1;
418.  		pmon(mon);
419.  		break;
420.  	case POT_PARALYSIS:
421.  		mon->mfroz = 1;
422.  		break;
423.  	case POT_SPEED:
424.  		mon->mspeed = MFAST;
425.  		break;
426.  	case POT_BLINDNESS:
427.  		mon->mblinded |= 64 + rn2(32) +
428.  				      rn2(32) * !resist(mon, '!', 0, NOTELL);
429.  		break;
430.  #ifdef KAA
431.  	case POT_HOLY_WATER:
432.  		if (index("ZVW &", mon->data->mlet)) {
433.  			pline("%s shrieks in pain!", Monnam(mon));
434.  			mon->mhp -= d(2,6);
435.  			if (mon->mhp <1) killed(mon);
436.  		}
437.  		break;
438.  #endif
439.  /*	
440.  	case POT_GAIN_LEVEL:
441.  	case POT_LEVITATION:
442.  	case POT_FRUIT_JUICE:
443.  	case POT_MONSTER_DETECTION:
444.  	case POT_OBJECT_DETECTION:
445.  		break;
446.  */
447.  	}
448.  	if(uclose && rn2(5))
449.  		potionbreathe(obj);
450.  	obfree(obj, Null(obj));
451.  }
452.  
453.  potionbreathe(obj)
454.  register struct obj *obj;
455.  {
456.  	switch(obj->otyp) {
457.  	case POT_RESTORE_STRENGTH:
458.  	case POT_GAIN_STRENGTH:
459.  		if(u.ustr < u.ustrmax) u.ustr++, flags.botl = 1;
460.  		break;
461.  	case POT_HEALING:
462.  	case POT_EXTRA_HEALING:
463.  		if(u.uhp < u.uhpmax) u.uhp++, flags.botl = 1;
464.  		break;
465.  	case POT_SICKNESS:
466.  		if(u.uhp <= 5) u.uhp = 1; else u.uhp -= 5;
467.  		flags.botl = 1;
468.  		break;
469.  	case POT_HALLUCINATION:
470.  #ifdef KAA
471.  		pline("You have a vision for a moment.");
472.  		break;
473.  #endif
474.  	case POT_CONFUSION:
475.  	case POT_BOOZE:
476.  		if(!Confusion)
477.  			pline("You feel somewhat dizzy.");
478.  		HConfusion += rnd(5);
479.  		break;
480.  	case POT_INVISIBILITY:
481.  		pline("For an instant you could see through yourself!");
482.  		break;
483.  	case POT_PARALYSIS:
484.  		pline("Something seems to be holding you.");
485.  		nomul(-rnd(5));
486.  		break;
487.  	case POT_SPEED:
488.  		Fast += rnd(5);
489.  		pline("Your knees seem more flexible now.");
490.  		break;
491.  	case POT_BLINDNESS:
492.  		if(!Blind) pline("It suddenly gets dark.");
493.  		Blinded += rnd(5);
494.  		seeoff(0);
495.  		break;
496.  /*	
497.  	case POT_GAIN_LEVEL:
498.  	case POT_LEVITATION:
499.  	case POT_FRUIT_JUICE:
500.  	case POT_MONSTER_DETECTION:
501.  	case POT_OBJECT_DETECTION:
502.  		break;
503.  */
504.  	}
505.  	/* note: no obfree() */
506.  }
507.  
508.  /*
509.   * -- rudimentary -- to do this correctly requires much more work
510.   * -- all sharp weapons get one or more qualities derived from the potions
511.   * -- texts on scrolls may be (partially) wiped out; do they become blank?
512.   * --   or does their effect change, like under Confusion?
513.   * -- all objects may be made invisible by POT_INVISIBILITY
514.   * -- If the flask is small, can one dip a large object? Does it magically
515.   * --   become a jug? Etc.
516.   */
517.  dodip(){
518.  	register struct obj *potion, *obj;
519.  #ifdef KAA
520.  	char *tmp;
521.  #endif
522.  
523.  	if(!(obj = getobj("#", "dip")))
524.  		return(0);
525.  #ifdef FOUNTAINS
526.  	/* Is there something to dip into here, i.e., a fountain? */
527.  	if (levl[u.ux][u.uy].typ == FOUNTAIN) {
528.  		pline("Dip it in the fountain? [ny] ");
529.  		if(readchar() == 'y') {
530.  			dipfountain(obj);
531.  			return(1);
532.  		}
533.  	}
534.  #endif
535.  	if(!(potion = getobj("!", "dip into")))
536.  		return(0);
537.  #ifndef KAA
538.  	pline("Interesting...");
539.  #else
540.  	if(potion->otyp == POT_HOLY_WATER) {
541.  		if (obj->cursed) {
542.  			obj->cursed=0;
543.  			pline("Your %s %s.", aobjnam(obj,"softly glow"), 
544.  			Hallucination ? hcolor() : "amber");
545.  	poof:	useup(potion);
546.  			return(1);
547.  		} else if(obj->otyp >= ARROW && obj->otyp <= SPEAR) {
548.  			obj->dknown=1;
549.  			tmp = Hallucination ? hcolor() : "light blue";
550.  	/* dknown for weapons is meaningless, so it's free to be reused. */
551.  			pline("Your %s with a%s %s aura.", aobjnam(obj,"softly glow"),
552.  			index("aeiou",*tmp) ? "n" : "", tmp);
553.  			goto poof;
554.  		}
555.  	}
556.  #endif
557.  	if(obj->otyp == ARROW || obj->otyp == DART ||
558.  	   obj->otyp == CROSSBOW_BOLT || obj->otyp == SHURIKEN) {
559.  		if(potion->otyp == POT_SICKNESS) {
560.  			char buf[BUFSZ];
561.  			useup(potion);
562.  			if(obj->spe < 7) obj->spe++;	/* %% */
563.  			sprintf(buf, xname(potion));
564.  			pline("The %s forms a coating on the %s.",
565.  				buf, xname(obj));
566.  		}
567.  	}
568.  #ifdef HARD
569.  	else	if (!rn2(4)) useup(potion);
570.  #endif
571.  #ifdef KAA
572.  	pline("Interesting...");
573.  #endif
574.  	return(1);
575.  }
576.  
577.  ghost_from_bottle(){
578.  	extern struct permonst pm_ghost;
579.  	register struct monst *mtmp;
580.  
581.  	if(!(mtmp = makemon(PM_GHOST,u.ux,u.uy))){
582.  		pline("This bottle turns out to be empty.");
583.  		return;
584.  	}
585.  	mnexto(mtmp);
586.  	pline("As you open the bottle, an enormous ghost emerges!");
587.  	pline("You are frightened to death, and unable to move.");
588.  	nomul(-3);
589.  }
590.  
591.  djinni_from_bottle(){
592.  	extern struct permonst pm_djinni;
593.  	register struct monst *mtmp;
594.  
595.  	if(!(mtmp = makemon(PM_DJINNI,u.ux,u.uy))){
596.  		pline("It turns out to be empty.");
597.  		return;
598.  	}
599.  
600.  	mtmp->isdjinni = 1;
601.  	mnexto(mtmp);
602.  	if (!Blind) {
603.  		pline("In a cloud of smoke, a djinni emerges!");
604.  		pline("%s speaks.", Monnam(mtmp));
605.  	} else {
606.  		pline("You smell fumes!");
607.  		pline("Something speaks.");
608.  	}
609.  
610.  	switch (rn2(5)) {
611.  	case 0 : pline("'I am in your debt. I will grant one wish!'");
612.  		makewish();
613.  		mondied(mtmp);
614.  		break;
615.  	case 1 : pline("'Thank you for freeing me!'");
616.  		tamedog(mtmp, (struct obj *) 0);
617.  		break;
618.  	case 2 : pline("'You freed me!'");
619.  		mtmp->mpeaceful = 1;
620.  		break;
621.  	case 3 : pline("'It is about time!'");
622.  		pline("The djinni vanishes!");
623.  		mondied(mtmp);
624.  		break;
625.  	default: pline("You disturbed me fool!");
626.  		break;
627.  	}
628.  }
629.  
630.  gainstr(inc)
631.  register int	inc;
632.  {
633.  	if (inc) u.ustr++;
634.  	else {
635.  	         if (u.ustr < 18) u.ustr += (rn2(4) ? 1 : rnd(6) );
636.  		 else if (u.ustr < 103) u.ustr += rnd(10);
637.  		 else u.ustr++;
638.  	       }
639.  
640.  	if(u.ustr > 118)	u.ustr = 118;
641.  	if(u.ustr > u.ustrmax)	u.ustrmax = u.ustr;
642.  	flags.botl = 1;
643.  }