initial import of NetBSD tree

1 files changed, 452 insertions, 0 deletions

diff --git a/games/hack/hack.trap.c b/games/hack/hack.trap.c
new file mode 100644
index 00000000000..dbcb12140a4
--- /dev/null
+++ b/games/hack/hack.trap.c
@@ -0,0 +1,452 @@
+/*
+ * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
+ */
+
+#ifndef lint
+static char rcsid[] = "$NetBSD: hack.trap.c,v 1.3 1995/03/23 08:31:44 cgd Exp $";
+#endif /* not lint */
+
+#include	"hack.h"
+
+extern struct monst *makemon();
+
+char vowels[] = "aeiou";
+
+char *traps[] = {
+	" bear trap",
+	"n arrow trap",
+	" dart trap",
+	" trapdoor",
+	" teleportation trap",
+	" pit",
+	" sleeping gas trap",
+	" piercer",
+	" mimic"
+};
+
+struct trap *
+maketrap(x,y,typ)
+register x,y,typ;
+{
+	register struct trap *ttmp;
+
+	ttmp = newtrap();
+	ttmp->ttyp = typ;
+	ttmp->tseen = 0;
+	ttmp->once = 0;
+	ttmp->tx = x;
+	ttmp->ty = y;
+	ttmp->ntrap = ftrap;
+	ftrap = ttmp;
+	return(ttmp);
+}
+
+dotrap(trap) register struct trap *trap; {
+	register int ttype = trap->ttyp;
+
+	nomul(0);
+	if(trap->tseen && !rn2(5) && ttype != PIT)
+		pline("You escape a%s.", traps[ttype]);
+	else {
+		trap->tseen = 1;
+		switch(ttype) {
+		case SLP_GAS_TRAP:
+			pline("A cloud of gas puts you to sleep!");
+			nomul(-rnd(25));
+			break;
+		case BEAR_TRAP:
+			if(Levitation) {
+				pline("You float over a bear trap.");
+				break;
+			}
+			u.utrap = 4 + rn2(4);
+			u.utraptype = TT_BEARTRAP;
+			pline("A bear trap closes on your foot!");
+			break;
+		case PIERC:
+			deltrap(trap);
+			if(makemon(PM_PIERCER,u.ux,u.uy)) {
+			  pline("A piercer suddenly drops from the ceiling!");
+			  if(uarmh)
+				pline("Its blow glances off your helmet.");
+			  else
+				(void) thitu(3,d(4,6),"falling piercer");
+			}
+			break;
+		case ARROW_TRAP:
+			pline("An arrow shoots out at you!");
+			if(!thitu(8,rnd(6),"arrow")){
+				mksobj_at(ARROW, u.ux, u.uy);
+				fobj->quan = 1;
+			}
+			break;
+		case TRAPDOOR:
+			if(!xdnstair) {
+pline("A trap door in the ceiling opens and a rock falls on your head!");
+if(uarmh) pline("Fortunately, you are wearing a helmet!");
+			    losehp(uarmh ? 2 : d(2,10),"falling rock");
+			    mksobj_at(ROCK, u.ux, u.uy);
+			    fobj->quan = 1;
+			    stackobj(fobj);
+			    if(Invisible) newsym(u.ux, u.uy);
+			} else {
+			    register int newlevel = dlevel + 1;
+				while(!rn2(4) && newlevel < 29)
+					newlevel++;
+				pline("A trap door opens up under you!");
+				if(Levitation || u.ustuck) {
+ 				pline("For some reason you don't fall in.");
+					break;
+				}
+
+				goto_level(newlevel, FALSE);
+			}
+			break;
+		case DART_TRAP:
+			pline("A little dart shoots out at you!");
+			if(thitu(7,rnd(3),"little dart")) {
+			    if(!rn2(6))
+				poisoned("dart","poison dart");
+			} else {
+				mksobj_at(DART, u.ux, u.uy);
+				fobj->quan = 1;
+			}
+			break;
+		case TELEP_TRAP:
+			if(trap->once) {
+				deltrap(trap);
+				newsym(u.ux,u.uy);
+				vtele();
+			} else {
+				newsym(u.ux,u.uy);
+				tele();
+			}
+			break;
+		case PIT:
+			if(Levitation) {
+				pline("A pit opens up under you!");
+				pline("You don't fall in!");
+				break;
+			}
+			pline("You fall into a pit!");
+			u.utrap = rn1(6,2);
+			u.utraptype = TT_PIT;
+			losehp(rnd(6),"fall into a pit");
+			selftouch("Falling, you");
+			break;
+		default:
+			impossible("You hit a trap of type %u", trap->ttyp);
+		}
+	}
+}
+
+mintrap(mtmp) register struct monst *mtmp; {
+	register struct trap *trap = t_at(mtmp->mx, mtmp->my);
+	register int wasintrap = mtmp->mtrapped;
+
+	if(!trap) {
+		mtmp->mtrapped = 0;	/* perhaps teleported? */
+	} else if(wasintrap) {
+		if(!rn2(40)) mtmp->mtrapped = 0;
+	} else {
+	    register int tt = trap->ttyp;
+	    int in_sight = cansee(mtmp->mx,mtmp->my);
+	    extern char mlarge[];
+
+	    if(mtmp->mtrapseen & (1 << tt)) {
+		/* he has been in such a trap - perhaps he escapes */
+		if(rn2(4)) return(0);
+	    }
+	    mtmp->mtrapseen |= (1 << tt);
+	    switch (tt) {
+		case BEAR_TRAP:
+			if(index(mlarge, mtmp->data->mlet)) {
+				if(in_sight)
+				  pline("%s is caught in a bear trap!",
+					Monnam(mtmp));
+				else
+				  if(mtmp->data->mlet == 'o')
+			    pline("You hear the roaring of an angry bear!");
+				mtmp->mtrapped = 1;
+			}
+			break;
+		case PIT:
+			/* there should be a mtmp/data -> floating */
+			if(!index("EywBfk'& ", mtmp->data->mlet)) { /* ab */
+				mtmp->mtrapped = 1;
+				if(in_sight)
+				  pline("%s falls in a pit!", Monnam(mtmp));
+			}
+			break;
+		case SLP_GAS_TRAP:
+			if(!mtmp->msleep && !mtmp->mfroz) {
+				mtmp->msleep = 1;
+				if(in_sight)
+				  pline("%s suddenly falls asleep!",
+					Monnam(mtmp));
+			}
+			break;
+		case TELEP_TRAP:
+			rloc(mtmp);
+			if(in_sight && !cansee(mtmp->mx,mtmp->my))
+				pline("%s suddenly disappears!",
+					Monnam(mtmp));
+			break;
+		case ARROW_TRAP:
+			if(in_sight) {
+				pline("%s is hit by an arrow!",
+					Monnam(mtmp));
+			}
+			mtmp->mhp -= 3;
+			break;
+		case DART_TRAP:
+			if(in_sight) {
+				pline("%s is hit by a dart!",
+					Monnam(mtmp));
+			}
+			mtmp->mhp -= 2;
+			/* not mondied here !! */
+			break;
+		case TRAPDOOR:
+			if(!xdnstair) {
+				mtmp->mhp -= 10;
+				if(in_sight)
+pline("A trap door in the ceiling opens and a rock hits %s!", monnam(mtmp));
+				break;
+			}
+			if(mtmp->data->mlet != 'w'){
+				fall_down(mtmp);
+				if(in_sight)
+		pline("Suddenly, %s disappears out of sight.", monnam(mtmp));
+				return(2);	/* no longer on this level */
+			}
+			break;
+		case PIERC:
+			break;
+		default:
+			impossible("Some monster encountered a strange trap.");
+	    }
+	}
+	return(mtmp->mtrapped);
+}
+
+selftouch(arg) char *arg; {
+	if(uwep && uwep->otyp == DEAD_COCKATRICE){
+		pline("%s touch the dead cockatrice.", arg);
+		pline("You turn to stone.");
+		killer = objects[uwep->otyp].oc_name;
+		done("died");
+	}
+}
+
+float_up(){
+	if(u.utrap) {
+		if(u.utraptype == TT_PIT) {
+			u.utrap = 0;
+			pline("You float up, out of the pit!");
+		} else {
+			pline("You float up, only your leg is still stuck.");
+		}
+	} else
+		pline("You start to float in the air!");
+}
+
+float_down(){
+	register struct trap *trap;
+	pline("You float gently to the ground.");
+	if(trap = t_at(u.ux,u.uy))
+		switch(trap->ttyp) {
+		case PIERC:
+			break;
+		case TRAPDOOR:
+			if(!xdnstair || u.ustuck) break;
+			/* fall into next case */
+		default:
+			dotrap(trap);
+	}
+	pickup(1);
+}
+
+vtele() {
+#include "def.mkroom.h"
+	register struct mkroom *croom;
+	for(croom = &rooms[0]; croom->hx >= 0; croom++)
+	    if(croom->rtype == VAULT) {
+		register x,y;
+
+		x = rn2(2) ? croom->lx : croom->hx;
+		y = rn2(2) ? croom->ly : croom->hy;
+		if(teleok(x,y)) {
+		    teleds(x,y);
+		    return;
+		}
+	    }
+	tele();
+}
+
+tele() {
+	extern coord getpos();
+	coord cc;
+	register int nux,nuy;
+
+	if(Teleport_control) {
+		pline("To what position do you want to be teleported?");
+		cc = getpos(1, "the desired position"); /* 1: force valid */
+		/* possible extensions: introduce a small error if
+		   magic power is low; allow transfer to solid rock */
+		if(teleok(cc.x, cc.y)){
+			teleds(cc.x, cc.y);
+			return;
+		}
+		pline("Sorry ...");
+	}
+	do {
+		nux = rnd(COLNO-1);
+		nuy = rn2(ROWNO);
+	} while(!teleok(nux, nuy));
+	teleds(nux, nuy);
+}
+
+teleds(nux, nuy)
+register int nux,nuy;
+{
+	if(Punished) unplacebc();
+	unsee();
+	u.utrap = 0;
+	u.ustuck = 0;
+	u.ux = nux;
+	u.uy = nuy;
+	setsee();
+	if(Punished) placebc(1);
+	if(u.uswallow){
+		u.uswldtim = u.uswallow = 0;
+		docrt();
+	}
+	nomul(0);
+	if(levl[nux][nuy].typ == POOL && !Levitation)
+		drown();
+	(void) inshop();
+	pickup(1);
+	if(!Blind) read_engr_at(u.ux,u.uy);
+}
+
+teleok(x,y) register int x,y; {	/* might throw him into a POOL */
+	return( isok(x,y) && !IS_ROCK(levl[x][y].typ) && !m_at(x,y) &&
+		!sobj_at(ENORMOUS_ROCK,x,y) && !t_at(x,y)
+	);
+	/* Note: gold is permitted (because of vaults) */
+}
+
+dotele() {
+	extern char pl_character[];
+
+	if(
+#ifdef WIZARD
+	   !wizard &&
+#endif WIZARD
+		      (!Teleportation || u.ulevel < 6 ||
+			(pl_character[0] != 'W' && u.ulevel < 10))) {
+		pline("You are not able to teleport at will.");
+		return(0);
+	}
+	if(u.uhunger <= 100 || u.ustr < 6) {
+		pline("You miss the strength for a teleport spell.");
+		return(1);
+	}
+	tele();
+	morehungry(100);
+	return(1);
+}
+
+placebc(attach) int attach; {
+	if(!uchain || !uball){
+		impossible("Where are your chain and ball??");
+		return;
+	}
+	uball->ox = uchain->ox = u.ux;
+	uball->oy = uchain->oy = u.uy;
+	if(attach){
+		uchain->nobj = fobj;
+		fobj = uchain;
+		if(!carried(uball)){
+			uball->nobj = fobj;
+			fobj = uball;
+		}
+	}
+}
+
+unplacebc(){
+	if(!carried(uball)){
+		freeobj(uball);
+		unpobj(uball);
+	}
+	freeobj(uchain);
+	unpobj(uchain);
+}
+
+level_tele() {
+register int newlevel;
+	if(Teleport_control) {
+	    char buf[BUFSZ];
+
+	    do {
+	      pline("To what level do you want to teleport? [type a number] ");
+	      getlin(buf);
+	    } while(!digit(buf[0]) && (buf[0] != '-' || !digit(buf[1])));
+	    newlevel = atoi(buf);
+	} else {
+	    newlevel  = 5 + rn2(20);	/* 5 - 24 */
+	    if(dlevel == newlevel)
+		if(!xdnstair) newlevel--; else newlevel++;
+	}
+	if(newlevel >= 30) {
+	    if(newlevel > MAXLEVEL) newlevel = MAXLEVEL;
+	    pline("You arrive at the center of the earth ...");
+	    pline("Unfortunately it is here that hell is located.");
+	    if(Fire_resistance) {
+		pline("But the fire doesn't seem to harm you.");
+	    } else {
+		pline("You burn to a crisp.");
+		dlevel = maxdlevel = newlevel;
+		killer = "visit to the hell";
+		done("burned");
+	    }
+	}
+	if(newlevel < 0) {
+	    newlevel = 0;
+	    pline("You are now high above the clouds ...");
+	    if(Levitation) {
+		pline("You float gently down to earth.");
+		done("escaped");
+	    }
+	    pline("Unfortunately, you don't know how to fly.");
+	    pline("You fall down a few thousand feet and break your neck.");
+	    dlevel = 0;
+	    killer = "fall";
+	    done("died");
+	}
+
+	goto_level(newlevel, FALSE); /* calls done("escaped") if newlevel==0 */
+}
+
+drown()
+{
+	pline("You fall into a pool!");
+	pline("You can't swim!");
+	if(rn2(3) < u.uluck+2) {
+		/* most scrolls become unreadable */
+		register struct obj *obj;
+
+		for(obj = invent; obj; obj = obj->nobj)
+			if(obj->olet == SCROLL_SYM && rn2(12) > u.uluck)
+				obj->otyp = SCR_BLANK_PAPER;
+		/* we should perhaps merge these scrolls ? */
+
+		pline("You attempt a teleport spell.");	/* utcsri!carroll */
+		(void) dotele();
+		if(levl[u.ux][u.uy].typ != POOL) return;
+	}
+	pline("You drown ...");
+	killer = "pool of water";
+	done("drowned");
+}