X-Git-Url: https://git.cameronkatri.com/bsdgames-darwin.git/blobdiff_plain/94b5353c71e7246077d468afe68d51ce85fc213d..dd1a8e39b3a83266b1ed724eeccec96dc60cd87a:/hack/hack.potion.c

diff --git a/hack/hack.potion.c b/hack/hack.potion.c
index ed71901d..477058c5 100644
--- a/hack/hack.potion.c
+++ b/hack/hack.potion.c
@@ -1,33 +1,36 @@
+/*	$NetBSD: hack.potion.c,v 1.5 2001/03/25 20:44:02 jsm Exp $	*/
+
 /*
  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
  */
 
+#include <sys/cdefs.h>
 #ifndef lint
-static char rcsid[] = "$NetBSD: hack.potion.c,v 1.3 1995/03/23 08:31:18 cgd Exp $";
-#endif /* not lint */
+__RCSID("$NetBSD: hack.potion.c,v 1.5 2001/03/25 20:44:02 jsm Exp $");
+#endif				/* not lint */
 
 #include "hack.h"
-extern int float_down();
-extern char *nomovemsg;
-extern struct monst youmonst;
-extern struct monst *makemon();
+#include "extern.h"
 
-dodrink() {
-	register struct obj *otmp,*objs;
-	register struct monst *mtmp;
-	register int unkn = 0, nothing = 0;
+int
+dodrink()
+{
+	struct obj     *otmp, *objs;
+	struct monst   *mtmp;
+	int             unkn = 0, nothing = 0;
 
 	otmp = getobj("!", "drink");
-	if(!otmp) return(0);
-	if(!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
+	if (!otmp)
+		return (0);
+	if (!strcmp(objects[otmp->otyp].oc_descr, "smoky") && !rn2(13)) {
 		ghost_from_bottle();
 		goto use_it;
 	}
-	switch(otmp->otyp){
+	switch (otmp->otyp) {
 	case POT_RESTORE_STRENGTH:
 		unkn++;
 		pline("Wow!  This makes you feel great!");
-		if(u.ustr < u.ustrmax) {
+		if (u.ustr < u.ustrmax) {
 			u.ustr = u.ustrmax;
 			flags.botl = 1;
 		}
@@ -35,26 +38,27 @@ dodrink() {
 	case POT_BOOZE:
 		unkn++;
 		pline("Ooph!  This tastes like liquid fire!");
-		Confusion += d(3,8);
+		Confusion += d(3, 8);
 		/* the whiskey makes us feel better */
-		if(u.uhp < u.uhpmax) losehp(-1, "bottle of whiskey");
-		if(!rn2(4)) {
+		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++;
+		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);
+			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);
+		Invis += rn1(15, 31);
 		break;
 	case POT_FRUIT_JUICE:
 		pline("This tastes like fruit juice.");
@@ -64,27 +68,29 @@ dodrink() {
 		pline("You begin to feel better.");
 		flags.botl = 1;
 		u.uhp += rnd(10);
-		if(u.uhp > u.uhpmax)
+		if (u.uhp > u.uhpmax)
 			u.uhp = ++u.uhpmax;
-		if(Blind) Blind = 1;	/* see on next move */
-		if(Sick) Sick = 0;
+		if (Blind)
+			Blind = 1;	/* see on next move */
+		if (Sick)
+			Sick = 0;
 		break;
 	case POT_PARALYSIS:
-		if(Levitation)
+		if (Levitation)
 			pline("You are motionlessly suspended.");
 		else
 			pline("Your feet are frozen to the floor!");
-		nomul(-(rn1(10,25)));
+		nomul(-(rn1(10, 25)));
 		break;
 	case POT_MONSTER_DETECTION:
-		if(!fmon) {
+		if (!fmon) {
 			strange_feeling(otmp, "You feel threatened.");
-			return(1);
+			return (1);
 		} else {
 			cls();
-			for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
-				if(mtmp->mx > 0)
-				at(mtmp->mx,mtmp->my,mtmp->data->mlet);
+			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();
@@ -92,19 +98,19 @@ dodrink() {
 		}
 		break;
 	case POT_OBJECT_DETECTION:
-		if(!fobj) {
+		if (!fobj) {
 			strange_feeling(otmp, "You feel a pull downward.");
-			return(1);
+			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:
+			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);
+			for (objs = fobj; objs; objs = objs->nobj)
+				at(objs->ox, objs->oy, objs->olet);
 			prme();
 			pline("You sense the presence of objects.");
 			more();
@@ -113,60 +119,66 @@ dodrink() {
 		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));
+		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)
+		if (!Confusion)
 			pline("Huh, What?  Where am I?");
 		else
 			nothing++;
-		Confusion += rn1(7,16);
+		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;
+		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) {
+		if (Wounded_legs) {
 			heal_legs();
 			unkn++;
 			break;
 		}
-		if(!(Fast & ~INTRINSIC))
+		if (!(Fast & ~INTRINSIC))
 			pline("You are suddenly moving much faster.");
 		else
 			pline("Your legs get new energy."), unkn++;
-		Fast += rn1(10,100);
+		Fast += rn1(10, 100);
 		break;
 	case POT_BLINDNESS:
-		if(!Blind)
+		if (!Blind)
 			pline("A cloud of darkness falls upon you.");
 		else
 			nothing++;
-		Blind += rn1(100,250);
+		Blind += rn1(100, 250);
 		seeoff(0);
 		break;
-	case POT_GAIN_LEVEL: 
+	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 += d(2, 20) + 1;
+		if (u.uhp > u.uhpmax)
 			u.uhp = (u.uhpmax += 2);
-		if(Blind) Blind = 1;
-		if(Sick) Sick = 0;
+		if (Blind)
+			Blind = 1;
+		if (Sick)
+			Sick = 0;
 		break;
 	case POT_LEVITATION:
-		if(!Levitation)
+		if (!Levitation)
 			float_up();
 		else
 			nothing++;
@@ -175,149 +187,153 @@ dodrink() {
 		break;
 	default:
 		impossible("What a funny potion! (%u)", otmp->otyp);
-		return(0);
+		return (0);
 	}
-	if(nothing) {
-	    unkn++;
-	    pline("You have a peculiar feeling for a moment, then it passes.");
+	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) {
+	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)
+			more_experienced(0, 10);
+		} else if (!objects[otmp->otyp].oc_uname)
 			docall(otmp);
 	}
 use_it:
 	useup(otmp);
-	return(1);
+	return (1);
 }
 
+void
 pluslvl()
 {
-	register num;
+	int 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;
+	if (u.ulevel < 14) {
+		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;
+void
+strange_feeling(obj, txt)
+	struct obj     *obj;
+	const char           *txt;
 {
-	if(flags.beginner)
-	    pline("You have a strange feeling for a moment, then it passes.");
+	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)
+		pline(txt);
+	if (!objects[obj->otyp].oc_name_known && !objects[obj->otyp].oc_uname)
 		docall(obj);
 	useup(obj);
 }
 
-char *bottlenames[] = {
+const char           *const bottlenames[] = {
 	"bottle", "phial", "flagon", "carafe", "flask", "jar", "vial"
 };
 
+void
 potionhit(mon, obj)
-register struct monst *mon;
-register struct obj *obj;
+	struct monst   *mon;
+	struct obj     *obj;
 {
-	extern char *xname();
-	register char *botlnam = bottlenames[rn2(SIZE(bottlenames))];
-	boolean uclose, isyou = (mon == &youmonst);
+	const char           *botlnam = bottlenames[rn2(SIZE(bottlenames))];
+	boolean         uclose, isyou = (mon == &youmonst);
 
-	if(isyou) {
+	if (isyou) {
 		uclose = TRUE;
 		pline("The %s crashes on your head and breaks into shivers.",
-			botlnam);
+		      botlnam);
 		losehp(rnd(2), "thrown potion");
 	} else {
-		uclose = (dist(mon->mx,mon->my) < 3);
+		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)
+		      botlnam, monnam(mon));
+		if (rn2(5) && mon->mhp > 1)
 			mon->mhp--;
 	}
 	pline("The %s evaporates.", xname(obj));
 
-	if(!isyou && !rn2(3)) switch(obj->otyp) {
+	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));
+		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;
+			 */
 		}
-		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))
+	if (uclose && rn2(5))
 		potionbreathe(obj);
 	obfree(obj, Null(obj));
 }
 
+void
 potionbreathe(obj)
-register struct obj *obj;
+	struct obj     *obj;
 {
-	switch(obj->otyp) {
+	switch (obj->otyp) {
 	case POT_RESTORE_STRENGTH:
 	case POT_GAIN_STRENGTH:
-		if(u.ustr < u.ustrmax) u.ustr++, flags.botl = 1;
+		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;
+		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;
+		if (u.uhp <= 5)
+			u.uhp = 1;
+		else
+			u.uhp -= 5;
 		flags.botl = 1;
 		break;
 	case POT_CONFUSION:
 	case POT_BOOZE:
-		if(!Confusion)
+		if (!Confusion)
 			pline("You feel somewhat dizzy.");
 		Confusion += rnd(5);
 		break;
@@ -333,18 +349,16 @@ register struct obj *obj;
 		pline("Your knees seem more flexible now.");
 		break;
 	case POT_BLINDNESS:
-		if(!Blind) pline("It suddenly gets dark.");
+		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;
-*/
+		/*
+		 * case POT_GAIN_LEVEL: case POT_LEVITATION: case
+		 * POT_FRUIT_JUICE: case POT_MONSTER_DETECTION: case
+		 * POT_OBJECT_DETECTION: break;
+		 */
 	}
 	/* note: no obfree() */
 }
@@ -358,29 +372,33 @@ register struct obj *obj;
  * -- If the flask is small, can one dip a large object? Does it magically
  * --   become a jug? Etc.
  */
-dodip(){
-	register struct obj *potion, *obj;
+int
+dodip()
+{
+	struct obj     *potion, *obj;
 
-	if(!(obj = getobj("#", "dip")))
-		return(0);
-	if(!(potion = getobj("!", "dip into")))
-		return(0);
+	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) {
+	if (obj->otyp == ARROW || obj->otyp == DART ||
+	    obj->otyp == CROSSBOW_BOLT) {
+		if (potion->otyp == POT_SICKNESS) {
 			useup(potion);
-			if(obj->spe < 7) obj->spe++;	/* %% */
+			if (obj->spe < 7)
+				obj->spe++;	/* %% */
 		}
 	}
-	return(1);
+	return (1);
 }
 
-ghost_from_bottle(){
-	extern struct permonst pm_ghost;
-	register struct monst *mtmp;
+void
+ghost_from_bottle()
+{
+	struct monst   *mtmp;
 
-	if(!(mtmp = makemon(PM_GHOST,u.ux,u.uy))){
+	if (!(mtmp = makemon(PM_GHOST, u.ux, u.uy))) {
 		pline("This bottle turns out to be empty.");
 		return;
 	}