initial import of NetBSD tree

1 files changed, 194 insertions, 0 deletions

diff --git a/games/hack/hack.wizard.c b/games/hack/hack.wizard.c
new file mode 100644
index 00000000000..984c8b63eff
--- /dev/null
+++ b/games/hack/hack.wizard.c
@@ -0,0 +1,194 @@
+/*
+ * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
+ */
+
+#ifndef lint
+static char rcsid[] = "$NetBSD: hack.wizard.c,v 1.3 1995/03/23 08:32:09 cgd Exp $";
+#endif /* not lint */
+
+/* wizard code - inspired by rogue code from Merlyn Leroy (digi-g!brian) */
+
+#include "hack.h"
+extern struct permonst pm_wizard;
+extern struct monst *makemon();
+
+#define	WIZSHOT	    6	/* one chance in WIZSHOT that wizard will try magic */
+#define	BOLT_LIM    8	/* from this distance D and 1 will try to hit you */
+
+char wizapp[] = "@DNPTUVXcemntx";
+
+/* If he has found the Amulet, make the wizard appear after some time */
+amulet(){
+	register struct obj *otmp;
+	register struct monst *mtmp;
+
+	if(!flags.made_amulet || !flags.no_of_wizards)
+		return;
+	/* find wizard, and wake him if necessary */
+	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
+	    if(mtmp->data->mlet == '1' && mtmp->msleep && !rn2(40))
+		for(otmp = invent; otmp; otmp = otmp->nobj)
+		    if(otmp->olet == AMULET_SYM && !otmp->spe) {
+			mtmp->msleep = 0;
+			if(dist(mtmp->mx,mtmp->my) > 2)
+			    pline(
+    "You get the creepy feeling that somebody noticed your taking the Amulet."
+			    );
+			return;
+		    }
+}
+
+wiz_hit(mtmp)
+register struct monst *mtmp;
+{
+	/* if we have stolen or found the amulet, we disappear */
+	if(mtmp->minvent && mtmp->minvent->olet == AMULET_SYM &&
+	    mtmp->minvent->spe == 0) {
+		/* vanish -- very primitive */
+		fall_down(mtmp);
+		return(1);
+	}
+
+	/* if it is lying around someplace, we teleport to it */
+	if(!carrying(AMULET_OF_YENDOR)) {
+	    register struct obj *otmp;
+
+	    for(otmp = fobj; otmp; otmp = otmp->nobj)
+		if(otmp->olet == AMULET_SYM && !otmp->spe) {
+		    if((u.ux != otmp->ox || u.uy != otmp->oy) &&
+		       !m_at(otmp->ox, otmp->oy)) {
+
+			/* teleport to it and pick it up */
+			mtmp->mx = otmp->ox;
+			mtmp->my = otmp->oy;
+			freeobj(otmp);
+			mpickobj(mtmp, otmp);
+			pmon(mtmp);
+			return(0);
+		    }
+		    goto hithim;
+		}
+	    return(0);				/* we don't know where it is */
+	}
+hithim:
+	if(rn2(2)) {				/* hit - perhaps steal */
+
+	    /* if hit 1/20 chance of stealing amulet & vanish
+		- amulet is on level 26 again. */
+	    if(hitu(mtmp, d(mtmp->data->damn,mtmp->data->damd))
+		&& !rn2(20) && stealamulet(mtmp))
+		;
+	}
+	else
+	    inrange(mtmp);			/* try magic */
+	return(0);
+}
+
+inrange(mtmp)
+register struct monst *mtmp;
+{
+	register schar tx,ty;
+
+	/* do nothing if cancelled (but make '1' say something) */
+	if(mtmp->data->mlet != '1' && mtmp->mcan)
+		return;
+
+	/* spit fire only when both in a room or both in a corridor */
+	if(inroom(u.ux,u.uy) != inroom(mtmp->mx,mtmp->my)) return;
+	tx = u.ux - mtmp->mx;
+	ty = u.uy - mtmp->my;
+	if((!tx && abs(ty) < BOLT_LIM) || (!ty && abs(tx) < BOLT_LIM)
+	    || (abs(tx) == abs(ty) && abs(tx) < BOLT_LIM)){
+	    switch(mtmp->data->mlet) {
+	    case 'D':
+		/* spit fire in the direction of @ (not nec. hitting) */
+		buzz(-1,mtmp->mx,mtmp->my,sgn(tx),sgn(ty));
+		break;
+	    case '1':
+		if(rn2(WIZSHOT)) break;
+		/* if you zapped wizard with wand of cancellation,
+		he has to shake off the effects before he can throw
+		spells successfully.  1/2 the time they fail anyway */
+		if(mtmp->mcan || rn2(2)) {
+		    if(canseemon(mtmp))
+			pline("%s makes a gesture, then curses.",
+			    Monnam(mtmp));
+		    else
+			pline("You hear mumbled cursing.");
+		    if(!rn2(3)) {
+			mtmp->mspeed = 0;
+			mtmp->minvis = 0;
+		    }
+		    if(!rn2(3))
+			mtmp->mcan = 0;
+		} else {
+		    if(canseemon(mtmp)){
+			if(!rn2(6) && !Invis) {
+			    pline("%s hypnotizes you.", Monnam(mtmp));
+			    nomul(rn2(3) + 3);
+			    break;
+			} else
+			    pline("%s chants an incantation.",
+				Monnam(mtmp));
+		    } else
+			    pline("You hear a mumbled incantation.");
+		    switch(rn2(Invis ? 5 : 6)) {
+		    case 0:
+			/* create a nasty monster from a deep level */
+			/* (for the moment, 'nasty' is not implemented) */
+			(void) makemon((struct permonst *)0, u.ux, u.uy);
+			break;
+		    case 1:
+			pline("\"Destroy the thief, my pets!\"");
+			aggravate();	/* aggravate all the monsters */
+			/* fall into next case */
+		    case 2:
+			if (flags.no_of_wizards == 1 && rnd(5) == 0)
+			    /* if only 1 wizard, clone himself */
+			    clonewiz(mtmp);
+			break;
+		    case 3:
+			if(mtmp->mspeed == MSLOW)
+				mtmp->mspeed = 0;
+			else
+				mtmp->mspeed = MFAST;
+			break;
+		    case 4:
+			mtmp->minvis = 1;
+			break;
+		    case 5:
+			/* Only if not Invisible */
+			pline("You hear a clap of thunder!");
+			/* shoot a bolt of fire or cold, or a sleep ray */
+			buzz(-rnd(3),mtmp->mx,mtmp->my,sgn(tx),sgn(ty));
+			break;
+		    }
+		}
+	    }
+	    if(u.uhp < 1) done_in_by(mtmp);
+	}
+}
+
+aggravate()
+{
+	register struct monst *mtmp;
+
+	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
+		mtmp->msleep = 0;
+		if(mtmp->mfroz && !rn2(5))
+			mtmp->mfroz = 0;
+	}
+}
+
+clonewiz(mtmp)
+register struct monst *mtmp;
+{
+	register struct monst *mtmp2;
+
+	if(mtmp2 = makemon(PM_WIZARD, mtmp->mx, mtmp->my)) {
+		flags.no_of_wizards = 2;
+		unpmon(mtmp2);
+		mtmp2->mappearance = wizapp[rn2(sizeof(wizapp)-1)];
+		pmon(mtmp);
+	}
+}