[unix-history] / games / hack / hack.potion.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.potion.c - version 1.0.3 */

#include "hack.h"
extern int float_down();
extern char *nomovemsg;
extern struct monst youmonst;
extern struct monst *makemon();

dodrink() {
	register struct obj *otmp,*objs;
	register struct monst *mtmp;
	register int unkn = 0, nothing = 0;

	otmp = getobj("!", "drink");
	if(!otmp) return(0);
	if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
		ghost_from_bottle();
		goto use_it;
	}
	switch(otmp->otyp){
	case POT_RESTORE_STRENGTH:
		unkn++;
		pline("Wow!  This makes you feel great!");
		if(u.ustr < u.ustrmax) {
			u.ustr = u.ustrmax;
			flags.botl = 1;
		}
		break;
	case POT_BOOZE:
		unkn++;
		pline("Ooph!  This tastes like liquid fire!");
		Confusion += d(3,8);
		/* the whiskey makes us feel better */
		if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey");
		if(!rn2(4)) {
			pline("You pass out.");
			multi = -rnd(15);
			nomovemsg = "You awake with a headache.";
		}
		break;
	case POT_INVISIBILITY:
		if(Invis || See_invisible)
		  nothing++;
		else {
		  if(!Blind)
		    pline("Gee!  All of a sudden, you can't see yourself.");
		  else
		    pline("You feel rather airy."), unkn++;
		  newsym(u.ux,u.uy);
		}
		Invis += rn1(15,31);
		break;
	case POT_FRUIT_JUICE:
		pline("This tastes like fruit juice.");
		lesshungry(20);
		break;
	case POT_HEALING:
		pline("You begin to feel better.");
		flags.botl = 1;
		u.uhp += rnd(10);
		if(u.uhp > u.uhpmax)
			u.uhp = ++u.uhpmax;
		if(Blind) Blind = 1;	/* see on next move */
		if(Sick) Sick = 0;
		break;
	case POT_PARALYSIS:
		if(Levitation)
			pline("You are motionlessly suspended.");
		else
			pline("Your feet are frozen to the floor!");
		nomul(-(rn1(10,25)));
		break;
	case POT_MONSTER_DETECTION:
		if(!fmon) {
			strange_feeling(otmp, "You feel threatened.");
			return(1);
		} else {
			cls();
			for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
				if(mtmp->mx > 0)
				at(mtmp->mx,mtmp->my,mtmp->data->mlet);
			prme();
			pline("You sense the presence of monsters.");
			more();
			docrt();
		}
		break;
	case POT_OBJECT_DETECTION:
		if(!fobj) {
			strange_feeling(otmp, "You feel a pull downward.");
			return(1);
		} else {
		    for(objs = fobj; objs; objs = objs->nobj)
			if(objs->ox != u.ux || objs->oy != u.uy)
				goto outobjmap;
		    pline("You sense the presence of objects close nearby.");
		    break;
		outobjmap:
			cls();
			for(objs = fobj; objs; objs = objs->nobj)
				at(objs->ox,objs->oy,objs->olet);
			prme();
			pline("You sense the presence of objects.");
			more();
			docrt();
		}
		break;
	case POT_SICKNESS:
		pline("Yech! This stuff tastes like poison.");
		if(Poison_resistance)
    pline("(But in fact it was biologically contaminated orange juice.)");
		losestr(rn1(4,3));
		losehp(rnd(10), "contaminated potion");
		break;
	case POT_CONFUSION:
		if(!Confusion)
			pline("Huh, What?  Where am I?");
		else
			nothing++;
		Confusion += rn1(7,16);
		break;
	case POT_GAIN_STRENGTH:
		pline("Wow do you feel strong!");
		if(u.ustr >= 118) break;	/* > 118 is impossible */
		if(u.ustr > 17) u.ustr += rnd(118-u.ustr);
		else u.ustr++;
		if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
		flags.botl = 1;
		break;
	case POT_SPEED:
		if(Wounded_legs) {
			heal_legs();
			unkn++;
			break;
		}
		if(!(Fast & ~INTRINSIC))
			pline("You are suddenly moving much faster.");
		else
			pline("Your legs get new energy."), unkn++;
		Fast += rn1(10,100);
		break;
	case POT_BLINDNESS:
		if(!Blind)
			pline("A cloud of darkness falls upon you.");
		else
			nothing++;
		Blind += rn1(100,250);
		seeoff(0);
		break;
	case POT_GAIN_LEVEL: 
		pluslvl();
		break;
	case POT_EXTRA_HEALING:
		pline("You feel much better.");
		flags.botl = 1;
		u.uhp += d(2,20)+1;
		if(u.uhp > u.uhpmax)
			u.uhp = (u.uhpmax += 2);
		if(Blind) Blind = 1;
		if(Sick) Sick = 0;
		break;
	case POT_LEVITATION:
		if(!Levitation)
			float_up();
		else
			nothing++;
		Levitation += rnd(100);
		u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down;
		break;
	default:
		impossible("What a funny potion! (%u)", otmp->otyp);
		return(0);
	}
	if(nothing) {
	    unkn++;
	    pline("You have a peculiar feeling for a moment, then it passes.");
	}
	if(otmp->dknown && !objects[otmp->otyp].oc_name_known) {
		if(!unkn) {
			objects[otmp->otyp].oc_name_known = 1;
			more_experienced(0,10);
		} else if(!objects[otmp->otyp].oc_uname)
			docall(otmp);
	}
use_it:
	useup(otmp);
	return(1);
}

pluslvl()
{
	register num;

	pline("You feel more experienced.");
	num = rnd(10);
	u.uhpmax += num;
	u.uhp += num;
	if(u.ulevel < 14) {
		extern long newuexp();

		u.uexp = newuexp()+1;
		pline("Welcome to experience level %u.", ++u.ulevel);
	}
	flags.botl = 1;
}

strange_feeling(obj,txt)
register struct obj *obj;
register char *txt;
{
	if(flags.beginner)
	    pline("You have a strange feeling for a moment, then it passes.");
	else
	    pline(txt);
	if(!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname)
		docall(obj);
	useup(obj);
}

char *bottlenames[] = {
	"bottle", "phial", "flagon", "carafe", "flask", "jar", "vial"
};

potionhit(mon, obj)
register struct monst *mon;
register struct obj *obj;
{
	extern char *xname();
	register char *botlnam = bottlenames[rn2(SIZE(bottlenames))];
	boolean uclose, isyou = (mon == &youmonst);

	if(isyou) {
		uclose = TRUE;
		pline("The %s crashes on your head and breaks into shivers.",
			botlnam);
		losehp(rnd(2), "thrown potion");
	} else {
		uclose = (dist(mon->mx,mon->my) < 3);
		/* perhaps 'E' and 'a' have no head? */
		pline("The %s crashes on %s's head and breaks into shivers.",
			botlnam, monnam(mon));
		if(rn2(5) && mon->mhp > 1)
			mon->mhp--;
	}
	pline("The %s evaporates.", xname(obj));

	if(!isyou && !rn2(3)) switch(obj->otyp) {

	case POT_RESTORE_STRENGTH:
	case POT_GAIN_STRENGTH:
	case POT_HEALING:
	case POT_EXTRA_HEALING:
		if(mon->mhp < mon->mhpmax) {
			mon->mhp = mon->mhpmax;
			pline("%s looks sound and hale again!", Monnam(mon));
		}
		break;
	case POT_SICKNESS:
		if(mon->mhpmax > 3)
			mon->mhpmax /= 2;
		if(mon->mhp > 2)
			mon->mhp /= 2;
		break;
	case POT_CONFUSION:
	case POT_BOOZE:
		mon->mconf = 1;
		break;
	case POT_INVISIBILITY:
		unpmon(mon);
		mon->minvis = 1;
		pmon(mon);
		break;
	case POT_PARALYSIS:
		mon->mfroz = 1;
		break;
	case POT_SPEED:
		mon->mspeed = MFAST;
		break;
	case POT_BLINDNESS:
		mon->mblinded |= 64 + rn2(64);
		break;
/*	
	case POT_GAIN_LEVEL:
	case POT_LEVITATION:
	case POT_FRUIT_JUICE:
	case POT_MONSTER_DETECTION:
	case POT_OBJECT_DETECTION:
		break;
*/
	}
	if(uclose && rn2(5))
		potionbreathe(obj);
	obfree(obj, Null(obj));
}

potionbreathe(obj)
register struct obj *obj;
{
	switch(obj->otyp) {
	case POT_RESTORE_STRENGTH:
	case POT_GAIN_STRENGTH:
		if(u.ustr < u.ustrmax) u.ustr++, flags.botl = 1;
		break;
	case POT_HEALING:
	case POT_EXTRA_HEALING:
		if(u.uhp < u.uhpmax) u.uhp++, flags.botl = 1;
		break;
	case POT_SICKNESS:
		if(u.uhp <= 5) u.uhp = 1; else u.uhp -= 5;
		flags.botl = 1;
		break;
	case POT_CONFUSION:
	case POT_BOOZE:
		if(!Confusion)
			pline("You feel somewhat dizzy.");
		Confusion += rnd(5);
		break;
	case POT_INVISIBILITY:
		pline("For an instant you couldn't see your right hand.");
		break;
	case POT_PARALYSIS:
		pline("Something seems to be holding you.");
		nomul(-rnd(5));
		break;
	case POT_SPEED:
		Fast += rnd(5);
		pline("Your knees seem more flexible now.");
		break;
	case POT_BLINDNESS:
		if(!Blind) pline("It suddenly gets dark.");
		Blind += rnd(5);
		seeoff(0);
		break;
/*	
	case POT_GAIN_LEVEL:
	case POT_LEVITATION:
	case POT_FRUIT_JUICE:
	case POT_MONSTER_DETECTION:
	case POT_OBJECT_DETECTION:
		break;
*/
	}
	/* note: no obfree() */
}

/*
 * -- rudimentary -- to do this correctly requires much more work
 * -- all sharp weapons get one or more qualities derived from the potions
 * -- texts on scrolls may be (partially) wiped out; do they become blank?
 * --   or does their effect change, like under Confusion?
 * -- all objects may be made invisible by POT_INVISIBILITY
 * -- If the flask is small, can one dip a large object? Does it magically
 * --   become a jug? Etc.
 */
dodip(){
	register struct obj *potion, *obj;

	if(!(obj = getobj("#", "dip")))
		return(0);
	if(!(potion = getobj("!", "dip into")))
		return(0);
	pline("Interesting...");
	if(obj->otyp == ARROW || obj->otyp == DART ||
	   obj->otyp == CROSSBOW_BOLT) {
		if(potion->otyp == POT_SICKNESS) {
			useup(potion);
			if(obj->spe < 7) obj->spe++;	/* %% */
		}
	}
	return(1);
}

ghost_from_bottle(){
	extern struct permonst pm_ghost;
	register struct monst *mtmp;

	if(!(mtmp = makemon(PM_GHOST,u.ux,u.uy))){
		pline("This bottle turns out to be empty.");
		return;
	}
	mnexto(mtmp);
	pline("As you open the bottle, an enormous ghost emerges!");
	pline("You are frightened to death, and unable to move.");
	nomul(-3);
}
Commit	Line	Data
15637ed4 RG	1	/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
	2	/* hack.potion.c - version 1.0.3 */
	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
	10	dodrink() {
	11	register struct obj otmp,objs;
	12	register struct monst *mtmp;
	13	register int unkn = 0, nothing = 0;
	14
	15	otmp = getobj("!", "drink");
	16	if(!otmp) return(0);
	17	if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
	18	ghost_from_bottle();
	19	goto use_it;
	20	}
	21	switch(otmp->otyp){
	22	case POT_RESTORE_STRENGTH:
	23	unkn++;
	24	pline("Wow! This makes you feel great!");
	25	if(u.ustr < u.ustrmax) {
	26	u.ustr = u.ustrmax;
	27	flags.botl = 1;
	28	}
	29	break;
	30	case POT_BOOZE:
	31	unkn++;
	32	pline("Ooph! This tastes like liquid fire!");
	33	Confusion += d(3,8);
	34	/* the whiskey makes us feel better */
	35	if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey");
	36	if(!rn2(4)) {
	37	pline("You pass out.");
	38	multi = -rnd(15);
	39	nomovemsg = "You awake with a headache.";
	40	}
	41	break;
	42	case POT_INVISIBILITY:
	43	if(Invis \|\| See_invisible)
	44	nothing++;
	45	else {
	46	if(!Blind)
	47	pline("Gee! All of a sudden, you can't see yourself.");
	48	else
	49	pline("You feel rather airy."), unkn++;
	50	newsym(u.ux,u.uy);
	51	}
	52	Invis += rn1(15,31);
	53	break;
	54	case POT_FRUIT_JUICE:
	55	pline("This tastes like fruit juice.");
	56	lesshungry(20);
	57	break;
	58	case POT_HEALING:
	59	pline("You begin to feel better.");
	60	flags.botl = 1;
	61	u.uhp += rnd(10);
	62	if(u.uhp > u.uhpmax)
	63	u.uhp = ++u.uhpmax;
	64	if(Blind) Blind = 1; /* see on next move */
65	if(Sick) Sick = 0;
66	break;
67	case POT_PARALYSIS:
68	if(Levitation)
69	pline("You are motionlessly suspended.");
70	else
71	pline("Your feet are frozen to the floor!");
72	nomul(-(rn1(10,25)));
73	break;
74	case POT_MONSTER_DETECTION:
75	if(!fmon) {
76	strange_feeling(otmp, "You feel threatened.");
77	return(1);
78	} else {
79	cls();
80	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
81	if(mtmp->mx > 0)
82	at(mtmp->mx,mtmp->my,mtmp->data->mlet);
83	prme();
84	pline("You sense the presence of monsters.");
85	more();
86	docrt();
87	}
88	break;
89	case POT_OBJECT_DETECTION:
90	if(!fobj) {
91	strange_feeling(otmp, "You feel a pull downward.");
92	return(1);
93	} else {
94	for(objs = fobj; objs; objs = objs->nobj)
95	if(objs->ox != u.ux \|\| objs->oy != u.uy)
96	goto outobjmap;
97	pline("You sense the presence of objects close nearby.");
98	break;
99	outobjmap:
100	cls();
101	for(objs = fobj; objs; objs = objs->nobj)
102	at(objs->ox,objs->oy,objs->olet);
103	prme();
104	pline("You sense the presence of objects.");
105	more();
106	docrt();
107	}
108	break;
109	case POT_SICKNESS:
110	pline("Yech! This stuff tastes like poison.");
111	if(Poison_resistance)
112	pline("(But in fact it was biologically contaminated orange juice.)");
113	losestr(rn1(4,3));
114	losehp(rnd(10), "contaminated potion");
115	break;
116	case POT_CONFUSION:
117	if(!Confusion)
118	pline("Huh, What? Where am I?");
119	else
120	nothing++;
121	Confusion += rn1(7,16);
122	break;
123	case POT_GAIN_STRENGTH:
124	pline("Wow do you feel strong!");
125	if(u.ustr >= 118) break; /* > 118 is impossible */
126	if(u.ustr > 17) u.ustr += rnd(118-u.ustr);
127	else u.ustr++;
128	if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
129	flags.botl = 1;
130	break;
131	case POT_SPEED:
132	if(Wounded_legs) {
133	heal_legs();
134	unkn++;
135	break;
136	}
137	if(!(Fast & ~INTRINSIC))
138	pline("You are suddenly moving much faster.");
139	else
140	pline("Your legs get new energy."), unkn++;
141	Fast += rn1(10,100);
142	break;
143	case POT_BLINDNESS:
144	if(!Blind)
145	pline("A cloud of darkness falls upon you.");
146	else
147	nothing++;
148	Blind += rn1(100,250);
149	seeoff(0);
150	break;
151	case POT_GAIN_LEVEL:
152	pluslvl();
153	break;
154	case POT_EXTRA_HEALING:
155	pline("You feel much better.");
156	flags.botl = 1;
157	u.uhp += d(2,20)+1;
158	if(u.uhp > u.uhpmax)
159	u.uhp = (u.uhpmax += 2);
160	if(Blind) Blind = 1;
161	if(Sick) Sick = 0;
162	break;
163	case POT_LEVITATION:
164	if(!Levitation)
165	float_up();
166	else
167	nothing++;
168	Levitation += rnd(100);
169	u.uprops[PROP(RIN_LEVITATION)].p_tofn = float_down;
170	break;
171	default:
172	impossible("What a funny potion! (%u)", otmp->otyp);
173	return(0);
174	}
175	if(nothing) {
176	unkn++;
177	pline("You have a peculiar feeling for a moment, then it passes.");
178	}
179	if(otmp->dknown && !objects[otmp->otyp].oc_name_known) {
180	if(!unkn) {
181	objects[otmp->otyp].oc_name_known = 1;
182	more_experienced(0,10);
183	} else if(!objects[otmp->otyp].oc_uname)
184	docall(otmp);
185	}
186	use_it:
187	useup(otmp);
188	return(1);
189	}
190
191	pluslvl()
192	{
193	register num;
194
195	pline("You feel more experienced.");
196	num = rnd(10);
197	u.uhpmax += num;
198	u.uhp += num;
199	if(u.ulevel < 14) {
200	extern long newuexp();
201
202	u.uexp = newuexp()+1;
203	pline("Welcome to experience level %u.", ++u.ulevel);
204	}
205	flags.botl = 1;
206	}
207
208	strange_feeling(obj,txt)
209	register struct obj *obj;
210	register char *txt;
211	{
212	if(flags.beginner)
213	pline("You have a strange feeling for a moment, then it passes.");
214	else
215	pline(txt);
216	if(!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname)
217	docall(obj);
218	useup(obj);
219	}
220
221	char *bottlenames[] = {
222	"bottle", "phial", "flagon", "carafe", "flask", "jar", "vial"
223	};
224
225	potionhit(mon, obj)
226	register struct monst *mon;
227	register struct obj *obj;
228	{
229	extern char *xname();
230	register char *botlnam = bottlenames[rn2(SIZE(bottlenames))];
231	boolean uclose, isyou = (mon == &youmonst);
232
233	if(isyou) {
234	uclose = TRUE;
235	pline("The %s crashes on your head and breaks into shivers.",
236	botlnam);
237	losehp(rnd(2), "thrown potion");
238	} else {
239	uclose = (dist(mon->mx,mon->my) < 3);
240	/* perhaps 'E' and 'a' have no head? */
241	pline("The %s crashes on %s's head and breaks into shivers.",
242	botlnam, monnam(mon));
243	if(rn2(5) && mon->mhp > 1)
244	mon->mhp--;
245	}
246	pline("The %s evaporates.", xname(obj));
247
248	if(!isyou && !rn2(3)) switch(obj->otyp) {
249
250	case POT_RESTORE_STRENGTH:
251	case POT_GAIN_STRENGTH:
252	case POT_HEALING:
253	case POT_EXTRA_HEALING:
254	if(mon->mhp < mon->mhpmax) {
255	mon->mhp = mon->mhpmax;
256	pline("%s looks sound and hale again!", Monnam(mon));
257	}
258	break;
259	case POT_SICKNESS:
260	if(mon->mhpmax > 3)
261	mon->mhpmax /= 2;
262	if(mon->mhp > 2)
263	mon->mhp /= 2;
264	break;
265	case POT_CONFUSION:
266	case POT_BOOZE:
267	mon->mconf = 1;
268	break;
269	case POT_INVISIBILITY:
270	unpmon(mon);
271	mon->minvis = 1;
272	pmon(mon);
273	break;
274	case POT_PARALYSIS:
275	mon->mfroz = 1;
276	break;
277	case POT_SPEED:
278	mon->mspeed = MFAST;
279	break;
280	case POT_BLINDNESS:
281	mon->mblinded \|= 64 + rn2(64);
282	break;
283	/*
284	case POT_GAIN_LEVEL:
285	case POT_LEVITATION:
286	case POT_FRUIT_JUICE:
287	case POT_MONSTER_DETECTION:
288	case POT_OBJECT_DETECTION:
289	break;
290	*/
291	}
292	if(uclose && rn2(5))
293	potionbreathe(obj);
294	obfree(obj, Null(obj));
295	}
296
297	potionbreathe(obj)
298	register struct obj *obj;
299	{
300	switch(obj->otyp) {
301	case POT_RESTORE_STRENGTH:
302	case POT_GAIN_STRENGTH:
303	if(u.ustr < u.ustrmax) u.ustr++, flags.botl = 1;
304	break;
305	case POT_HEALING:
306	case POT_EXTRA_HEALING:
307	if(u.uhp < u.uhpmax) u.uhp++, flags.botl = 1;
308	break;
309	case POT_SICKNESS:
310	if(u.uhp <= 5) u.uhp = 1; else u.uhp -= 5;
311	flags.botl = 1;
312	break;
313	case POT_CONFUSION:
314	case POT_BOOZE:
315	if(!Confusion)
316	pline("You feel somewhat dizzy.");
317	Confusion += rnd(5);
318	break;
319	case POT_INVISIBILITY:
320	pline("For an instant you couldn't see your right hand.");
321	break;
322	case POT_PARALYSIS:
323	pline("Something seems to be holding you.");
324	nomul(-rnd(5));
325	break;
326	case POT_SPEED:
327	Fast += rnd(5);
328	pline("Your knees seem more flexible now.");
329	break;
330	case POT_BLINDNESS:
331	if(!Blind) pline("It suddenly gets dark.");
332	Blind += rnd(5);
333	seeoff(0);
334	break;
335	/*
336	case POT_GAIN_LEVEL:
337	case POT_LEVITATION:
338	case POT_FRUIT_JUICE:
339	case POT_MONSTER_DETECTION:
340	case POT_OBJECT_DETECTION:
341	break;
342	*/
343	}
344	/* note: no obfree() */
345	}
346
347	/*
348	* -- rudimentary -- to do this correctly requires much more work
349	* -- all sharp weapons get one or more qualities derived from the potions
350	* -- texts on scrolls may be (partially) wiped out; do they become blank?
351	* -- or does their effect change, like under Confusion?
352	* -- all objects may be made invisible by POT_INVISIBILITY
353	* -- If the flask is small, can one dip a large object? Does it magically
354	* -- become a jug? Etc.
355	*/
356	dodip(){
357	register struct obj potion, obj;
358
359	if(!(obj = getobj("#", "dip")))
360	return(0);
361	if(!(potion = getobj("!", "dip into")))
362	return(0);
363	pline("Interesting...");
364	if(obj->otyp == ARROW \|\| obj->otyp == DART \|\|
365	obj->otyp == CROSSBOW_BOLT) {
366	if(potion->otyp == POT_SICKNESS) {
367	useup(potion);
368	if(obj->spe < 7) obj->spe++; /* %% */
369	}
370	}
371	return(1);
372	}
373
374	ghost_from_bottle(){
375	extern struct permonst pm_ghost;
376	register struct monst *mtmp;
377
378	if(!(mtmp = makemon(PM_GHOST,u.ux,u.uy))){
379	pline("This bottle turns out to be empty.");
380	return;
381	}
382	mnexto(mtmp);
383	pline("As you open the bottle, an enormous ghost emerges!");
384	pline("You are frightened to death, and unable to move.");
385	nomul(-3);
386	}