initial import of 386bsd-0.1 sources

1 files changed, 386 insertions, 0 deletions

diff --git a/hack/hack.potion.c b/hack/hack.potion.c
new file mode 100644
index 00000000..c860299e
--- /dev/null
+++ b/hack/hack.potion.c
@@ -0,0 +1,386 @@
+/* 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);
+}