peterb@pbear.UUCP (05/29/85)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# Makefile
# alloc.c
# data
# envir.h
# hack.armors.h
# hack.bones.c
# hack.c
# hack.debug.c
# hack.do.c
# This archive created: Tue May 28 17:51:48 1985
export PATH; PATH=/bin:$PATH
echo shar: extracting "'Makefile'" '(2292 characters)'
if test -f 'Makefile'
then
echo shar: over-writing existing file "'Makefile'"
fi
sed 's/^X//' << \SHAR_EOF > 'Makefile'
X# hack makefile.
X# layout en verdere verbeteringen Michiel en Fred
X
XPLAYDIR = /usr/games/playdir
XSAVEDIR = /usr/games/playdir/save
X
XCFLAGS = -O -i
XLIB = -ltermcap
X
XTARGET = hack
X
XHFILES = hack.c hack.lev.c hack.pri.c hack.do.c hack.do1.c hack.main.c\
Xhack.mon.c hack.dog.c hack.invent.c hack.eat.c hack.save.c\
Xhack.do_wear.c hack.shk.c hack.io.c hack.end.c hack.rip.c\
Xhack.bones.c hack.mkobj.c hack.monst.c hack.invinit.c hack.worm.c\
Xhack.debug.c hack.move.c hack.do.misc.c hack.mon.do.c hack.str.c\
Xhack.office.c
X
XMFILES = mklev.c mklev.make.c mklev.mkobj.c mklev.svlev.c
X
XGFILES = alloc.c rnd.c
X
XHOBJ = hack.o hack.lev.o hack.pri.o hack.do.o hack.do1.o hack.main.o\
Xhack.mon.o hack.dog.o hack.invent.o hack.eat.o hack.save.o\
Xhack.do_wear.o hack.shk.o hack.io.o hack.end.o hack.rip.o\
Xhack.bones.o hack.mkobj.o hack.monst.o hack.invinit.o hack.worm.o\
Xhack.debug.o hack.move.o hack.do.misc.o hack.mon.do.o hack.str.o\
Xhack.office.o string.o
X
XGOBJ = rnd.o alloc.o
X
XMKOBJ = mklev.o mklev.make.o mklev.mkobj.o
X
Xall: hack mklev show
X
X$(TARGET) : $(HOBJ) $(GOBJ)
X @echo Loading...
X @$(CC) $(CFLAGS) -o $(TARGET) $(GOBJ) $(HOBJ) $(LIB)
X @size $(TARGET)
X @echo 'Done Hack'
X
Xstring.o : string.s
X as -g -o string.o string.s
X
X$(HOBJ) $(MKOBJ) : hack.h
Xhack.do.misc.o: hack.do.vars.h envir.h
Xhack.vars.h: hack.foods.h hack.armors.h hack.weapons.h
Xhack.lev.o: hack.savelev.c
Xhack.dog.o hack.monst.o: hack.dog.h
Xhack.mkobj.o mklev.mkobj.o: hack.vars.h
Xhack.main.o hack.lev.o hack.debug.o \
Xhack.do.misc.o hack.end.o hack.invinit.o: envir.h
X
Xhack.invinit.o:
X cc $(CFLAGS) -c hack.invinit.c
X
Xmklev.o: hack.h envir.h
X cc $(CFLAGS) -c mklev.c
X
Xmklev: $(MKOBJ) $(GOBJ) mklev.svlev.c
X cc $(CFLAGS) $(MKOBJ) $(GOBJ) -o mklev
X @echo 'Done mklev'
X
Xshow: show.c hack.h envir.h
X cc -O show.c -o show
X @echo 'Done show'
X
Xcleanup:
X rm -f $(HOBJ) $(GOBJ) $(PLAYDIR)/show $(PLAYDIR)/makelev \
X $(PLAYDIR)/bones_* mklev.mkobj.o mklev.o
X
Xinstall: all
X rm -f $(PLAYDIR)/bones_*
X install -c -m 4711 $(TARGET) $(PLAYDIR)/$(TARGET)
X install -c -m 711 mklev $(PLAYDIR)/mklev
X install -c -m 700 show $(PLAYDIR)/show
X
Xnew: dirs install
X
Xdirs:
X mkdir $(PLAYDIR)
X mkdir $(SAVEDIR)
X mv help $(PLAYDIR)
X cp /dev/null $(PLAYDIR)/record
X chmod 700 $(PLAYDIR)/record
X
Xlint:
X lint -phbxac mk*.c rnd.c alloc.c -lc
SHAR_EOF
if test 2292 -ne "`wc -c 'Makefile'`"
then
echo shar: error transmitting "'Makefile'" '(should have been 2292 characters)'
fi
echo shar: extracting "'alloc.c'" '(389 characters)'
if test -f 'alloc.c'
then
echo shar: over-writing existing file "'alloc.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'alloc.c'
X/*
X * Alloc.c
X *
X * Added new return values Michiel and Fred
X *
X */
X
X/*
X * The strange return value of alloc is implemented to shut lint up
X */
X
X#include "hack.h"
X
Xextern char *malloc ();
X
Xunion PTRS ptrs;
X
Xunion PTRS *
Xalloc (num)
Xregister num;
X{
X register char *val;
X
X if (!(val = malloc (num)))
X panic (CORE, "Cannot get %d bytes", num);
X ptrs.Val = val;
X return (&ptrs);
X}
SHAR_EOF
if test 389 -ne "`wc -c 'alloc.c'`"
then
echo shar: error transmitting "'alloc.c'" '(should have been 389 characters)'
fi
echo shar: extracting "'data'" '(6528 characters)'
if test -f 'data'
then
echo shar: over-writing existing file "'data'"
fi
sed 's/^X//' << \SHAR_EOF > 'data'
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X! a potion |
X" The amulet of Frobozz |
X# a corridor |
X$ a pile, pot or chest of gold |
X% a piece of food |
X& a demon |
X' a lurker above |
X\ |
X) a weapon |
X* a gem |
X+ a door |
X, a trapper |
X- a wall |
X. the floor of a room |
X/ a wand |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X\ |
X: a chameleon |
X; a giant ale |
X< the staircase to the previous level |
X= a ring |
X> the staircase to the next level |
X? a scroll |
X@ a human (or you) |
XA a giant ant |
XB a giant bat |
XC a centaur |
XD a dragon |
XE a floating eye |
XF a freezing sphere |
XG a gnome |
XH a hobgoblin |
XI an invisible stalker |
XJ a jackal |
XK a kobold |
XL a leprechaun |
XM a mimic |
XN a nymph |
XO an orc |
XP a purple worm |
XQ a quasit |
XR a rust monster |
XS a snake |
XT a troll |
XU an umber hulk |
XV a vampire |
XW a wraith |
XX a xorn |
XY a yeti |
XZ a zombie |
X[ a suit of armor |
X\ |
X\ |
X^ a trap |
X\ |
X\ |
Xa an acid blob |
Xb a giant beetle |
Xc a cockatrice |
Xd a dog |
Xe an ettin |
Xf a fog cloud |
Xg a gelatinous cube |
Xh a homunculus |
Xi an imp |
Xj a jaguar |
Xk a killer bee |
Xl a leocrotta |
Xm a minouter |
Xn a neo-otyugh |
Xo an owlbear |
Xp a piercer |
Xq a quivering blob |
Xr a giant rat |
Xs a giant scorpion |
Xt a teleporter |
Xu a ugod |
Xv a violet fungi |
Xw a long worm |
Xx a xerp |
Xy a yellow light |
Xz a zelomp |
X\ |
X| a wall |
X} a water filled area |
X~ a wormsegment |
X\ |
SHAR_EOF
if test 6528 -ne "`wc -c 'data'`"
then
echo shar: error transmitting "'data'" '(should have been 6528 characters)'
fi
echo shar: extracting "'envir.h'" '(377 characters)'
if test -f 'envir.h'
then
echo shar: over-writing existing file "'envir.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'envir.h'
X/*
X * Envir.h
X */
X
X#define PLAYGROUND "/usr/games/playdir"
X#define HELP "/usr/games/playdir/help"
X#define DATA "/usr/games/playdir/data"
X#define RECORD "/usr/games/playdir/record"
X#define LOCK "/usr/games/playdir/hack.lock"
X#define WIZARD "peterb"
X/*
X#define DEBUG
X*/
X
X#define SAVEDIR "save/"
X#define MORE "/usr/bin/more"
X#define VERSION 1
SHAR_EOF
if test 377 -ne "`wc -c 'envir.h'`"
then
echo shar: error transmitting "'envir.h'" '(should have been 377 characters)'
fi
echo shar: extracting "'hack.armors.h'" '(429 characters)'
if test -f 'hack.armors.h'
then
echo shar: over-writing existing file "'hack.armors.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.armors.h'
X/*
X * Hack.armors.h
X */
X
Xstruct armor armors[] = {
X { "plate mail", 5, 5, 3, 2 },
X { "splint mail", 10, 5, 4, 1 },
X { "banded mail", 10, 5, 4, 0 },
X { "chain mail", 10, 5, 5, 1 },
X { "scale mail", 10, 5, 6, 0 },
X { "ring mail", 15, 5, 7, 0 },
X { "studded leather armor", 15, 3, 7, 1 },
X { "leather armor", 20, 3, 8, 0 },
X { "elven cloak", 5, 0, 9, 3 },
X { "PROG ERROR", 100, 0, 0, 0 }
X };
SHAR_EOF
if test 429 -ne "`wc -c 'hack.armors.h'`"
then
echo shar: error transmitting "'hack.armors.h'" '(should have been 429 characters)'
fi
echo shar: extracting "'hack.bones.c'" '(2293 characters)'
if test -f 'hack.bones.c'
then
echo shar: over-writing existing file "'hack.bones.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.bones.c'
X/*
X * Hack.bones.c
X *
X * Added increased chances on bones files.
X * Fixed bug with mad shopkeeper.
X *
X */
X
X#include "hack.h"
X
X#define NOBONES 0
X#define BONES 1
X
Xextern char plname[10];
Xextern MONSTER shopkeeper;
X
Xstruct permonst pm_ghost = {
X "ghost", '\t', 10, 3, -5, 1, 1, sizeof (plname)
X};
X
X/* (a3)#define GHMAX 10 */
X
Xchar bones[] = "bones_xx";
X
X/* Save bones and possessions of a deceased adventurer */
Xsavebones () {
X register fd;
X register OBJECT otmp;
X register GOLD_TRAP gtmp;
X register MONSTER mtmp;
X
X if (!rn2 (1 + dlevel/2))
X return; /* not so many ghosts on low levels */
X sprintf (&bones[6], "%d", dlevel);
X if ((fd = open (bones, 0)) >= 0 ) {
X close (fd);
X return;
X }
X
X /* Drop everything; the corpse's possessions are usually cursed */
X otmp = invent;
X while (otmp) {
X otmp -> ox = u.ux;
X otmp -> oy = u.uy;
X otmp -> unpaid = 0;
X otmp -> known = 0;
X if (rn2 (5))
X otmp -> cursed = 1;
X if (!otmp -> nobj) {
X otmp -> nobj = fobj;
X fobj = invent;
X invent = 0;/* Superfluous */
X break;
X }
X otmp = otmp -> nobj;
X }
X if (makemon (&pm_ghost))
X return;
X fmon -> mx = u.ux;
X fmon -> my = u.uy;
X fmon -> msleep = 1;
X/* Added: sizeof fmon->extra */
X/* This is actually nonsens. Ghosts do not have names in this version */
X strncpy (fmon -> mextra, plname, sizeof fmon -> mextra);
X if (shopkeeper &&
X inshproom (shopkeeper -> mx, shopkeeper -> my))
X shopkeeper -> angry = 0;
X gtmp = newgen ();
X gtmp -> ngen = fgold;
X fgold = gtmp;
X gtmp -> gx = u.ux;
X gtmp -> gy = u.uy;
X gtmp -> gflag = somegold () + d (dlevel, 30);
X u.ux = u.uy = 100; /* Random outside map */
X keepdogs (1); /* All tame animals become wild again */
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon)
X levlsym (mtmp -> mx, mtmp -> my, mtmp -> data -> mlet);
X if ((fd = creat (bones, 0644)) < 0)
X return;
X savelev (fd);
X close (fd);
X}
X
Xgetbones () {
X register fd, x, y;
X
X sprintf (&bones[6], "%d", dlevel);
X if ((fd = open (bones, 0)) < 0 || rn2 (3)) {
X close (fd); /* Sometimes we find bones */
X return NOBONES;
X }
X getlev (fd);
X close (fd);
X if (unlink (bones) < 0) {
X pline ("Cannot unlink %s", bones);
X return NOBONES;
X }
X for (x = 0; x < 80; x++)
X for (y = 0; y < 22; y++) {
X levl[x][y].seen = 0;
X levl[x][y].new = 0;
X }
X return BONES;
X}
SHAR_EOF
if test 2293 -ne "`wc -c 'hack.bones.c'`"
then
echo shar: error transmitting "'hack.bones.c'" '(should have been 2293 characters)'
fi
echo shar: extracting "'hack.c'" '(10017 characters)'
if test -f 'hack.c'
then
echo shar: over-writing existing file "'hack.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.c'
X/*
X * Hack.c
X */
X
X#include "hack.h"
X
Xextern char news0 (), *setan ();
X
Xextern char seelx, seehx, seely, seehy;/* Corners of lit room */
X /* l for Low, h for High */
X
X#define CANSEE 1
X#define CANNOTSEE 0
X#define HITYOU 1
X#define MISSYOU 0
X#define MONALIVE 1
X#define MONDEAD 0
X
X
Xchar *
X lowc (str)
Xregister char *str;
X{
X if (*str >= 'A' && *str <= 'Z')
X *buf = *str + 'a' - 'A';
X else
X *buf = *str++;
X buf[1] = 0;
X return (buf);
X}
X
X/* (a3) mix van setsee() en seeon() */
XsetCon (setc) { /* setc: 1-setsee, 0-seeon (we just went to a
X new level) */
X register x, y;
X register MONSTER mtmp;
X int lx, hx, ly, hy;
X
X if (u.ublind) {
X if (setc)
X pru ();
X else
X docrt ();
X return;
X }
X if (levl[u.ux][u.uy].lit) {
X for (seelx = u.ux; levl[seelx - 1][u.uy].lit; seelx--);
X for (seehx = u.ux; levl[seehx + 1][u.uy].lit; seehx++);
X for (seely = u.uy; levl[u.ux][seely - 1].lit; seely--);
X for (seehy = u.uy; levl[u.ux][seehy + 1].lit; seehy++);
X lx = seelx;
X hx = seehx;
X ly = seely;
X hy = seehy;
X }
X else {
X seehx = 0;
X lx = u.ux - 1;
X hx = u.ux + 1;
X ly = u.uy - 1;
X hy = u.uy + 1;
X if (setc) {
X seelx = lx;
X seehx = hx;
X seely = ly;
X seehy = hy;
X }
X }
X for (x = lx; x <= hx; x++)
X for (y = ly; y <= hy; y++) {
X if (setc)
X prl (x, y);
X else {
X if (!levl[u.ux][u.uy].lit &&
X !levl[x][y].typ)
X continue;
X levl[x][y].seen = 1;
X if (mtmp = m_at (x, y))
X pmon (mtmp);
X }
X }
X if (!setc) {
X docrt ();
X return;
X }
X if (!levl[u.ux][u.uy].lit)
X seehx = 0; /* Seems necessary elsewhere */
X else {
X if (seely == u.uy)
X for (x = u.ux - 1; x <= u.ux + 1; x++)
X prl (x, seely - 1);
X if (seehy == u.uy)
X for (x = u.ux - 1; x <= u.ux + 1; x++)
X prl (x, seehy + 1);
X if (seelx == u.ux)
X for (y = u.uy - 1; y <= u.uy + 1; y++)
X prl (seelx - 1, y);
X if (seehx == u.ux)
X for (y = u.uy - 1; y <= u.uy + 1; y++)
X prl (seehx - 1, y);
X }
X}
X
XunCoff (unc, mode) {
X /*
X * (a3) mix van unsee() en seeoff()
X * unc: 1-unsee, 0-seeoff
X * mode: 1-redo @ (misc movement),
X * 0-leave them (blindness (Usually))
X */
X
X register x, y;
X register PART * lev;
X int lx, hx, ly, hy;
X
X if (seehx) {
X lx = seelx;
X hx = seehx;
X ly = seely;
X hy = seehy;
X }
X else {
X lx = u.ux - 1;
X hx = u.ux + 1;
X ly = u.uy - 1;
X hy = u.uy + 1;
X }
X for (x = lx; x <= hx; x++)
X for (y = ly; y <= hy; y++) {
X lev = &levl[x][y];
X if (lev -> scrsym == '@' && mode) {
X if (unc)
X newsym (x, y);
X else
X lev -> scrsym = news0 (x, y);
X }
X else if (!seehx && lev -> scrsym == '.') {
X if (mode) {
X if (unc) {
X lev -> scrsym = ' ';
X lev -> new = 1;
X on (x, y);
X }
X }
X else
X lev -> seen = 0;
X }
X }
X seehx = 0;
X}
X
Xhitu (mlev, dam, name)
Xregister mlev, dam;
Xregister char *name;
X{
X mlev += (u.uac - 1);
X if (multi < 0)
X mlev += 4;
X if (u.uinvis)
X mlev -= 2;
X if (mlev < rnd (20)) {
X pseebl ("%s misses", name);
X return (MISSYOU);
X }
X pseebl ("%s hits!", name);
X if (name == NULL)
X impossible ();
X losehp (dam, name);
X return (HITYOU);
X}
X
Xcansee (x, y)
Xchar x, y;
X{
X if (u.ublind || u.uswallow)
X return (CANNOTSEE);
X if (dist (x, y) < 3)
X return (CANSEE);
X if (levl[x][y].lit && seelx <= x && x <= seehx && seely <= y &&
X y <= seehy)
X return (CANSEE);
X return (CANNOTSEE);
X}
X
Xlong
X pow (num)
Xregister num; /* Returns 2^num */
X{
X return (1 << num);
X}
X
Xland () { /* a3 */
X do {
X u.ux = rn2 (80);
X u.uy = rn2 (22);
X } while (levl[u.ux][u.uy].typ != ROOM || m_at (u.ux, u.uy));
X}
X
Xtele () {
X unCoff (UNC, 0); /* Dat was een 1 (a3) */
X unstuck (u.ustuck); /* a3 */
X u.utrap = 0;
X do
X land ();
X while (o_at (u.ux, u.uy) || g_at (u.ux, u.uy, ftrap) ||
X g_at (u.ux, u.uy, fgold));
X setCon (SETC);
X inshop ();
X}
X
Xchar *
X sitoa (a)
Xregister int a;
X{
X static char buffer[8];
X
X sprintf (buffer, "+%d", a);
X return ((a < 0) ? buffer + 1 : buffer);
X}
X
Xdoname (obj, buffer)
Xregister OBJECT obj;
Xregister char *buffer;
X{
X switch (obj -> olet) {
X
X case '"':
X strcpy (buffer, "The amulet of Frobozz");
X break;
X
X case '%':
X if (obj -> quan > 1)
X sprintf (buffer, "%d %ss", obj -> quan,
X foods[obj -> otyp].foodnam);
X else
X strcpy (buffer, setan (foods[obj -> otyp].foodnam));
X break;
X
X case ')':
X killer = weapons[obj -> otyp].wepnam;/* a3 */
X if (obj -> known) {
X if (obj -> quan > 1)
X sprintf (buffer, "%d %s %ss", obj -> quan,
X sitoa (obj -> spe), killer);
X else
X sprintf (buffer, "a %s %s", sitoa (obj -> spe),
X killer);
X }
X else {
X if (obj -> quan > 1)
X sprintf (buffer, "%d %ss", obj -> quan,
X killer);
X else
X strcpy (buffer, setan (killer));
X }
X if (obj == uwep)
X strcat (buffer, " (weapon in hand)");
X break;
X
X case '[':
X if (obj -> known)
X sprintf (buffer, "%s %s",
X sitoa (obj -> spe - 10 + armors[obj -> otyp].a_ac),
X armors[obj -> otyp].armnam);
X else
X strcpy (buffer, armors[obj -> otyp].armnam);
X if (obj == uarm || obj == uarm2)
X strcat (buffer, " (being worn)");
X break;
X
X case '!':
X if (oiden[obj -> otyp] & POTN || potcall[obj -> otyp]) {
X if (obj -> quan > 1)
X sprintf (buffer, "%d potions ", obj -> quan);
X else
X strcpy (buffer, "a potion ");
X while (*buffer)
X buffer++;
X if (potcall[obj -> otyp])
X sprintf (buffer, "called %s",
X potcall[obj -> otyp]);
X else
X sprintf (buffer, "of %s",
X pottyp[obj -> otyp]);
X }
X else {
X killer = " potion";
X P:
X if (obj -> quan > 1)
X sprintf (buffer, "%d %s%ss", obj -> quan,
X potcol[obj -> otyp], killer);
X else
X sprintf (buffer, "%s%s",
X setan (potcol[obj -> otyp]),
X killer);
X }
X break;
X
X case '?':
X if (obj -> quan > 1)
X sprintf (buffer, "%d scrolls ", obj -> quan);
X else
X strcpy (buffer, "a scroll ");
X while (*buffer)
X buffer++;
X if (oiden[obj -> otyp] & SCRN)
X sprintf (buffer, "of %s", scrtyp[obj -> otyp]);
X else if (scrcall[obj -> otyp])
X sprintf (buffer, "called %s", scrcall[obj -> otyp]);
X else
X sprintf (buffer, "labeled %s", scrnam[obj -> otyp]);
X break;
X
X case '/':
X if (oiden[obj -> otyp] & WANN)
X sprintf (buffer, "a wand of %s", wantyp[obj -> otyp]);
X else if (wandcall[obj -> otyp])
X sprintf (buffer, "a wand called %s",
X wandcall[obj -> otyp]);
X else
X sprintf (buffer, "%s wand",
X setan (wannam[obj -> otyp]));
X if (obj -> known) {
X while (*buffer)
X buffer++;
X sprintf (buffer, " (%d)", obj -> spe);
X }
X break;
X
X case '=':
X if (oiden[obj -> otyp] & RINN) {
X if (obj -> known)
X sprintf (buffer, "a %s ring of %s",
X sitoa (obj -> spe),
X ringtyp[obj -> otyp]);
X else
X sprintf (buffer, "a ring of %s",
X ringtyp[obj -> otyp]);
X }
X else if (ringcall[obj -> otyp])
X sprintf (buffer, "a ring called %s",
X ringcall[obj -> otyp]);
X else
X sprintf (buffer, "%s ring",
X setan (rinnam[obj -> otyp]));
X if (obj == uright)
X strcat (buffer, " (on right hand)");
X if (obj == uleft)
X strcat (buffer, " (on left hand)");
X break;
X
X case '*':
X killer = " gem";
X goto P;
X
X case '_':
X sprintf (buffer, "%s key",
X setan (potcol[obj -> otyp - 30]));
X break;
X
X default:
X sprintf (buffer, "a%dglorkum %c(0%o)%d", obj -> otyp,
X obj -> olet, obj -> olet, obj -> spe);
X }
X if (obj -> unpaid)
X strcat (buffer, " (unpaid)");
X}
X
Xabon () {
X if (u.ustr == 3)
X return - 3;
X if (u.ustr < 6)
X return - 2;
X if (u.ustr < 8)
X return - 1;
X if (u.ustr < 17)
X return 0;
X if (u.ustr < 69)
X return 1; /* up to 18/50 */
X if (u.ustr < 118)
X return 2;
X return 3;
X}
X
Xdbon () {
X if (u.ustr < 6)
X return - 1;
X if (u.ustr < 16)
X return 0;
X if (u.ustr < 18)
X return 1;
X if (u.ustr == 18)
X return 2; /* up to 18 */
X if (u.ustr < 94)
X return 3; /* up to 18/75 */
X if (u.ustr < 109)
X return 4; /* up to 18/90 */
X if (u.ustr < 118)
X return 5; /* up to 18/99 */
X return 6; /* 18/00 */
X}
X
Xlosestr (num)
Xregister num;
X{
X u.ustr -= num;
X while (u.ustr < 3) {
X u.ustr++;
X u.uhp -= 6;
X u.uhpmax -= 6;
X flags.dhp = flags.dhpmax = 1;
X }
X flags.dstr = 1;
X}
X
Xlosehp (n, knam)
Xregister n;
Xchar *knam;
X{
X u.uhp -= n;
X flags.dhp = 1;
X if (u.uhp <= 0)
X killer = knam;
X}
X
Xchar *
X setan (str)
Xregister char *str; /* a3 */
X{
X static char buffer[BUFSZ];
X
X sprintf (buffer, "a%s %s", index ("aeiou", *str) ? "n" : "", str);
X return buffer;
X}
X
Xweight (obj)
Xregister OBJECT obj;
X{
X switch (obj -> olet) {
X case '"':
X return 2;
X case '[':
X return 8;
X case '%':
X if (obj -> otyp)/* Not a food ration */
X case '*':
X return obj -> quan;
X case '?':
X return (obj -> quan * 3);
X case '!':
X return (obj -> quan << 1);
X case ')':
X if (obj -> otyp == W_TWOH_SWORD)
X return 4;
X if (obj -> otyp <= W_AMMUNITION)/* darst arrows etc */
X return (obj -> quan >> 1);
X case '/':
X return 3;
X case '_':
X case '=':
X return 1;
X default:
X pline ("Weight: bad(%d) object 0%o.", obj -> otyp,
X obj -> olet);
X return 0;
X }
X}
X
Xchar mlarge[] = "bCDdegIlmnoPSsTUwY',&";
X
Xhmon (monst, obj)
Xregister MONSTER monst;
Xregister OBJECT obj;
X{
X register tmp;
X
X if (!obj || obj == uwep && (obj -> otyp >= W_USE_AMMO ||
X obj -> otyp <= W_AMMUNITION))
X tmp = rnd (2);
X else {
X if (index (mlarge, monst -> data -> mlet)) {
X tmp = rnd (weapons[obj -> otyp].wldam);
X if (obj -> otyp == W_TWOH_SWORD)
X tmp += d (2, 6);
X else if (obj -> otyp == W_LONG_SWORD)
X tmp += rnd (4);
X }
X else {
X tmp = rnd (weapons[obj -> otyp].wsdam);
X if (obj -> otyp == W_FLAIL || obj -> otyp == W_MACE)
X tmp++;
X }
X tmp += obj -> spe;
X }
X tmp += u.udaminc + dbon ();
X if (u.uswallow) {
X if (monst -> data -> mlet == 'P')
X tmp++;
X }
X else if (tmp <= 0)
X tmp = 1;
X monst -> mhp -= tmp;
X return alive (monst);
X}
X
Xalive (monst)
Xregister MONSTER monst;
X{
X if (monst -> mhp > 0)
X return (MONALIVE);
X killed (monst);
X return (MONDEAD);
X}
SHAR_EOF
if test 10017 -ne "`wc -c 'hack.c'`"
then
echo shar: error transmitting "'hack.c'" '(should have been 10017 characters)'
fi
echo shar: extracting "'hack.debug.c'" '(214 characters)'
if test -f 'hack.debug.c'
then
echo shar: over-writing existing file "'hack.debug.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.debug.c'
X/*
X * Hack.debug.c
X *
X * Debug function, only exists when DEBUG if defined
X * Michiel and Fred
X */
X
X#include "hack.h"
X
X#ifdef DEBUG
Xdebug () {
X nomove ();
X pline( "You're in the debug function!" );
X}
X#endif DEBUG
SHAR_EOF
if test 214 -ne "`wc -c 'hack.debug.c'`"
then
echo shar: error transmitting "'hack.debug.c'" '(should have been 214 characters)'
fi
echo shar: extracting "'hack.do.c'" '(14139 characters)'
if test -f 'hack.do.c'
then
echo shar: over-writing existing file "'hack.do.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.do.c'
X/*
X * Hack.do.c
X */
X
X#include "hack.h"
X
Xextern char NOTHIN[], WCLEV[], *nomvmsg;
X
Xchar WELDED[] = "The %s is welded into your hand!";
X
X#define LETTER(ch) ((ch >= '@' && ch <= 'Z' ) || \
X (ch >= 'a' && ch <= 'z'))
X#define CURSED 1
X#define NOTCURSED 0
X#define MAXLEVEL 40
X
X#define SIZE( x ) sizeof( x )/sizeof( x[0] )
X
X/* Routines to do various user commands */
X
Xdoglow (num)
Xregister num;
X{
X pline ("Your %s glows %s for a %s.", (flags.dac) ?
X armors[uarm -> otyp].armnam : weapons[uwep -> otyp].wepnam,
X (num < 0) ?
X "black" : "green",
X (num * num == 1) ?
X "moment" : "while");
X}
X
Xdoread () {
X register OBJECT otmp;
X register MONSTER mtmp, mtmp2;
X register GOLD_TRAP gtmp;
X OBJECT otmp2, otmp3;
X int num, zx, zy, xtmp, ytmp;
X
X if (!(otmp = getobj ("?", "read"))) {
X nomove ();
X return;
X }
X pline ("As you read the scroll, it disappears.");
X
X /*
X Sometimes a scroll doesn't do anything
X */
X if (!rn2 (20)) {
X pline ("You can't read the dialect!");
X useup (otmp);
X return;
X }
X
X switch (otmp -> otyp) {
X
X case S_ENCH_ARMOR:
X if (!uarm) {
X nothin (otmp);
X return;
X }
X uarm -> cursed = 0;
X uarm -> spe++;
X u.uac--;
X flags.dac = 1;
X doglow (1);
X break;
X
X case S_DROP:
X/*
X * New scroll instead of scroll of monster confusion. This scroll
X * drops everything you have on you. And put it somewhere on the level
X * Michiel and Fred
X */
X pline ("Bloody hell, what's going on?");
X do {
X xtmp = rn2 (80);
X ytmp = rn2 (22);
X } while (levl[xtmp][ytmp].typ != ROOM);
X useup (otmp);
X oiden[S_DROP] |= SCRN;
X doring (uleft, OFF);
X /* Checked on existence in routine */
X doring (uright, OFF);
X for (otmp2 = invent; otmp2; otmp2 = otmp3) {
X otmp3 = otmp2 -> nobj;
X if (otmp2 == uarm || otmp2 == uarm2) {
X u.uac += otmp2 -> spe;
X flags.dac = 1;
X }
X otmp2 -> ox = xtmp;
X otmp2 -> oy = ytmp;
X subfrombill (otmp2);
X otmp -> unpaid = 0;
X otmp2 -> nobj = fobj;
X fobj = otmp2;
X }
X if (u.ugold) {
X gtmp = newgen ();
X gtmp -> gx = xtmp;
X gtmp -> gy = ytmp;
X gtmp -> gflag = (unsigned) u.ugold;
X gtmp -> ngen = fgold;
X fgold = gtmp;
X u.ugold = 0L;
X flags.dgold = 1;
X }
X uright = NULL;
X uleft = NULL;
X uwep = NULL;
X invent = NULL;
X uarm = NULL;
X uarm2 = NULL;
X levl[xtmp][ytmp].scrsym = fobj -> olet;
X levl[xtmp][ytmp].new = 0;
X return;
X
X case S_CURSE_LEV: /* Michiel */
X pline ("Your body begins to glow black.");
X docurse ();
X u.uhcursed = 1;
X break;
X
X case S_REM_CURSE:
X pline ("You feel like someone is helping you.");
X if (uleft)
X uleft -> cursed = 0;
X if (uright)
X uright -> cursed = 0;
X if (uarm)
X uarm -> cursed = 0;
X if (uarm2)
X uarm2 -> cursed = 0;
X if (uwep)
X uwep -> cursed = 0;
X break;
X
X case S_ENCH_WEP:
X case S_DAM_WEP:
X if (!uwep) {
X nothin (otmp);
X return;
X }
X num = 5 - otmp -> otyp;/* 4 or 6 */
X if (!rn2 (6))
X num <<= 1;
X uwep -> spe += num;
X if (num > 0)
X uwep -> cursed = 0;
X doglow (num);
X break;
X
X case S_CREAT_MON:
X makemon (0);
X mnexto (fmon);
X break;
X
X case S_GENOCIDE:
X pline ("You have found a scroll of genocide!");
X do {
X pline ("What monster do you want to genocide (Type the letter)? ");
X flags.topl = 0;
X getlin (buf);
X } while (strlen (buf) != 1 || !LETTER (*buf) ||
X /* a3 */ index (genocided, *buf));
X strcat (genocided, buf);
X for (mtmp = fmon; mtmp; mtmp = mtmp2) {
X mtmp2 = mtmp -> nmon;
X if (mtmp -> data -> mlet == *buf)
X cmdel (mtmp);
X }
X if (*buf == '@') {
X killer = "scroll of genocide";
X u.uhp = 0;
X }
X break;
X
X case S_DESTR_ARMOR:
X if (!uarm) {
X nothin (otmp);
X return;
X }
X pline ("Your armor turns to dust and falls to the floor!");
X u.uac += uarm -> spe;
X flags.dac = 1;
X useup (uarm);
X uarm = uarm2;
X uarm2 = 0;
X break;
X
X case S_LIGHT:
X litroom ();
X break;
X
X case S_TELEPORT:
X/*
X * Extended by Michiel and Fred:
X * One can jump between levels
X */
X pline ("The scroll turns into an elevator.");
X do {
X pline ("Which stock please? ");
X getlin (buf);
X num = atoi (buf);
X } while (num > MAXLEVEL - 3 && num != dlevel);
X if (!*buf)
X break;
X if (num <= 0)
X pline ("Don't fool around");
X else if (num == dlevel)
X tele ();
X else if (u.ufloat || u.ustuck || getinventory ("\"")) {
X nothin (otmp);
X pline ("The elevator vanishes");
X return;
X }
X else {
X home ();
X flush ();
X keepdogs (1);
X unCoff (COFF, 1);
X dosavelev ();
X if (num > dlevel) {
X dlevel = (num > maxdlevel) ?
X maxdlevel : num - 1;
X while (dlevel < num) {
X dodown ();
X levl[u.ux][u.uy].scrsym = '<';
X }
X }
X else {
X dlevel = num + 1;
X doup ();
X levl[u.ux][u.uy].scrsym = '>';
X }
X land ();
X losedogs ();
X setCon (CON);
X inshop ();/* a3: zie tele */
X }
X pline ("The elevator vanishes");
X break;
X
X case S_GOLD_DETEC:
X if (!fgold) {
X nothin (otmp);
X return;
X }
X cls ();
X for (gtmp = fgold; gtmp; gtmp = gtmp -> ngen)
X at (gtmp -> gx, gtmp -> gy, '$');
X prme ();
X pline ("You feel very greedy, and sense gold!");
X more ();
X docrt ();
X break;
X
X case S_IDENTIFY:
X pline ("This is an identify scroll.");
X useup (otmp);
X oiden[S_IDENTIFY] |= SCRN;
X otmp = getobj (0, "identify");
X if (otmp) {
X switch (otmp -> olet) {
X case '!':
X oiden[otmp -> otyp] |= POTN;
X break;
X case '?':
X oiden[otmp -> otyp] |= SCRN;
X break;
X case '/':
X oiden[otmp -> otyp] |= WANN;
X case '[':
X case ')':
X otmp -> known = 1;
X break;
X case '=':
X oiden[otmp -> otyp] |= RINN;
X if (otmp -> otyp >= R_GAIN_STR)
X otmp -> known = 1;
X break;
X }
X prinv (otmp);
X }
X return;
X
X case S_MAG_MAP:
X pline ("On this scroll is a map!");
X for (zy = 0; zy < 22; zy++)
X for (zx = 0; zx < 80; zx++) {
X if ((num = levl[zx][zy].typ) == SDOOR) {
X levl[zx][zy].typ = DOOR;
X atl (zx, zy, '+');
X }
X else if ((num >= WALL && num <= CORR) &&
X /* or DOOR; no SDOOR */
X !levl[zx][zy].seen)
X newunseen (zx, zy);
X else if (num >= 30 && num <= 41)
X newunseen (zx, zy);
X }
X newunseen (xupstair, yupstair);
X if (xdnstair)/* maze */
X newunseen (xdnstair, ydnstair);
X break;
X
X case S_FIRE:
X pline ("The scroll erupts in a tower of flame!");
X if (u.ufireres)
X pline ("You are uninjured.");
X else {
X num = rnd (6);
X losehp (num, "scroll of fire");
X u.uhpmax -= num;
X flags.dhpmax = 1;
X }
X break;
X
X default:
X pline ("Bad(%d)scroll", otmp -> otyp);
X impossible ();
X
X }
X if (!(oiden[otmp -> otyp] & SCRN)) {
X if (otmp -> otyp > S_CREAT_MON && (otmp -> otyp != S_LIGHT
X || !u.ublind)) {
X oiden[otmp -> otyp] |= SCRN;
X u.urexp += 10;
X }
X else if (!scrcall[otmp -> otyp])
X docall (otmp);
X }
X if (u.uhcursed && otmp -> otyp == S_REM_CURSE) {
X u.uhcursed = 0;
X pline ("Your body stops glowing black.");
X }
X useup (otmp);
X}
X
Xlitroom () {
X register zx, zy;
X
X if (!xdnstair || !dlevel) {
X pline (NOTHIN);
X return;
X }
X if (levl[u.ux][u.uy].typ == CORR) {
X if (!u.ublind)
X pline ("The corridor lights up around you, then fades.");
X return;
X }
X else if (!u.ublind)
X if (levl[u.ux][u.uy].lit)
X pline ("The room lights up around you.");
X else
X pline ("The room is lit.");
X if (levl[u.ux][u.uy].lit)
X return;
X if (levl[u.ux][u.uy].typ == DOOR) {
X if (levl[u.ux][u.uy + 1].typ == ROOM)
X zy = u.uy + 1;
X else if (levl[u.ux][u.uy - 1].typ == ROOM)
X zy = u.uy - 1;
X else
X zy = u.uy;
X if (levl[u.ux + 1][u.uy].typ == ROOM)
X zx = u.ux + 1;
X else if (levl[u.ux - 1][u.uy].typ == ROOM)
X zx = u.ux - 1;
X else
X zx = u.ux;
X }
X else {
X zx = u.ux;
X zy = u.uy;
X }
X for (seelx = u.ux; levl[seelx - 1][zy].typ % 2; seelx--);
X /* ROOM or WALL or DOOR */
X for (seehx = u.ux; levl[seehx + 1][zy].typ % 2; seehx++);
X for (seely = u.uy; levl[zx][seely - 1].typ % 2; seely--);
X for (seehy = u.uy; levl[zx][seehy + 1].typ % 2; seehy++);
X for (zy = seely; zy <= seehy; zy++)
X for (zx = seelx; zx <= seehx; zx++) {
X levl[zx][zy].lit = 1;
X if (!u.ublind && dist (zx, zy) > 2)
X prl (zx, zy);
X }
X}
X
Xdodrink () {
X register OBJECT otmp, objs;
X register MONSTER mtmp;
X register num;
X
X if (!(otmp = getobj ("!", "drink"))) {
X nomove ();
X return;
X }
X switch (otmp -> otyp) {
X
X case P_REST_STR:
X pline ("Wow! This makes you feel great!");
X if (u.ustr < u.ustrmax) {
X u.ustr = u.ustrmax;
X flags.dstr = 1;
X }
X break;
X
X case P_BOOZE:
X/* pline ("Ooph! This tastes like liquid fire!");
X u.uconfused += d (3, 8);
X if (u.uhp < u.uhpmax)
X losehp (-1, "");
X if (!rn2 (4)) {
X pline ("You pass out.");
X multi = -rnd (15);
X nomvmsg = "You awake with a headache.";
X } */
X pline("Your hands start glowing blue!");
X u.umconf=1;
X break;
X
X case P_INVIS:
X pline ("Gee! All of a sudden, you can't see yourself.");
X newsym (u.ux, u.uy);
X u.uinvis += rn1 (15, 31);
X break;
X
X case P_JUICE:
X pline ("This tastes like fruit juice.");
X lesshungry (20);
X break;
X
X case P_HEALING:
X pline ("You begin to feel better.");
X num = rnd (10);
X H:
X if (u.uhp + num > u.uhpmax) {
X u.uhp = ++u.uhpmax;
X if (otmp -> otyp == P_EXTRA_HEALING)
X u.uhp = ++u.uhpmax;
X flags.dhpmax = 1;
X }
X else
X u.uhp += num;
X flags.dhp = 1;
X if (u.ublind)
X u.ublind = 1;
X break;
X
X case P_FROZEN:
X pline ("Your feet are frozen to the floor!");
X nomul (-rn1 (10, 25));
X break;
X
X case P_MONDETEC:
X if (!fmon) {
X nothin (otmp);
X return;
X }
X cls ();
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon)
X at (mtmp -> mx, mtmp -> my, mtmp -> data -> mlet);
X killer = "monster";
X P:
X prme ();
X pline ("You sense the presence of %ss.", killer);
X more ();
X docrt ();
X break;
X
X case P_OBJDETEC:
X if (!fobj) {
X nothin (otmp);
X return;
X }
X cls ();
X for (objs = fobj; objs; objs = objs -> nobj)
X at (objs -> ox, objs -> oy, objs -> olet);
X killer = "object";
X goto P;
X
X case P_POISON:
X pline ("Yech! This stuff tastes like poison.");
X losestr (rn1 (4, 3));
X losehp (rnd (10), "poison potion");
X break;
X
X case P_CONF:
X pline ("Huh, What? Where am I?");
X u.uconfused += rn1 (7, 16);
X break;
X
X case P_GAIN_STR:
X if (u.ustr == 118) {
X pline ("You've had enough of it!");
X break;/* Michiel */
X }
X pline ("Wow do you feel strong!");
X if (u.ustr > 17)
X u.ustr += rnd (118 - u.ustr);
X else
X u.ustr++;
X if (u.ustr > u.ustrmax)
X u.ustrmax = u.ustr;
X flags.dstr = 1;
X break;
X
X case P_SPEED:
X pline ("You are suddenly moving much faster.");
X u.ufast += rn1 (10, 100);
X break;
X
X case P_BLIND:
X pline ("A cloud of darkness falls upon you.");
X u.ublind += rn1 (100, 250);
X unCoff (COFF, 0);
X break;
X
X case P_GAIN_LEV:
X num = rnd (10);
X u.uhpmax += num;
X u.uhp += num;
X if (u.ulevel < 14) {/* a3 */
X pline ("You feel more experienced.");
X u.uexp = (10 * pow (u.ulevel - 1)) + 1;
X pline (WCLEV, ++u.ulevel);
X flags.dulev = 1;
X flags.dexp = 1;
X }
X else
X pline ("You feel more capable.");
X flags.dhpmax = 1;
X flags.dhp = 1;
X break;
X
X case P_EXTRA_HEALING:
X pline ("You feel much better.");
X num = d (2, 20) + 1;
X goto H; /* a3 */
X
X default:
X pline ("Bad(%d)potion", otmp -> otyp);
X impossible ();
X }
X
X if (!(oiden[otmp -> otyp] & POTN)) {
X if (otmp -> otyp > P_BOOZE) {
X oiden[otmp -> otyp] |= POTN;
X u.urexp += 10;
X }
X else if (!potcall[otmp -> otyp])
X docall (otmp);
X }
X useup (otmp);
X}
X
Xnothin (obj)
Xregister OBJECT obj;
X{
X pline ("You have a strange feeling for a moment, then it passes.");
X if (obj -> olet == '?') {
X if ((!(oiden[obj -> otyp] & SCRN)) &&
X (!scrcall[obj -> otyp]))
X docall (obj);
X }
X else if ((!(oiden[obj -> otyp] & POTN)) &&
X (!potcall[obj -> otyp]))
X docall (obj);
X useup (obj);
X}
X
Xdodrop () {
X register OBJECT obj, otmp;
X register int num;
X
X if (!(obj = getobj (0, "drop"))) {
X nomove ();
X return;
X }
X if (obj -> quan > 1 && !obj -> unpaid) {
X pline ("How many do you want to drop (%d max) ?",
X obj -> quan);
X getlin (buf);
X num = atoi (buf);
X
X if (num > obj -> quan || (num <= 0 && *buf) ||
X *buf == 0) {
X if (num != 0)
X pline ("You can't drop that %s!",
X (num > 0) ? "many" : "few");
X nomove ();
X return;
X }
X if (num != obj -> quan) {
X otmp = newobj ();
X *otmp = *obj;/* Copies whole structure */
X obj -> quan = num;
X otmp -> quan -= num;
X obj -> nobj = otmp;
X }
X }
X if (obj == uarm || obj == uarm2 ||
X obj == uright || obj == uleft) {
X pline ("You cannot drop something you are wearing.");
X nomove ();
X return;
X }
X /* (a3) i.p.v. `if( obj==uwep) uwep=0;': */
X if (obj == uwep && uwepcursed ())
X return;
X dropit (obj);
X doname (fobj, buf);
X pline ("You dropped %s.", buf);
X subfrombill (obj);
X}
X
Xgemsdrop () {
X register OBJECT obj;
X register counting = 0;
X
X for (obj = invent; obj;) {
X if (obj -> olet == '*') {
X counting += obj -> quan;
X dropit (obj);
X subfrombill (obj);
X obj = invent;
X }
X else
X obj = obj -> nobj;
X }
X if (!counting) {
X nomove ();
X pline ("You ain't got no gems, Hacker!");
X }
X else
X pline ("You dropped %d gem%s.", counting,
X counting == 1 ? "" : "s");
X}
X
Xuwepcursed () { /* a3,drop or throw uwep */
X if (uwep -> cursed) {
X multi = 0; /* Dowield() */
X pline (WELDED, weapons[uwep -> otyp].wepnam);
X return CURSED;
X }
X uwep = 0;
X return NOTCURSED;
X}
X
Xgetinventory (string)
Xchar *string;
X{
X register OBJECT otmp;
X
X for (otmp = invent; otmp && !index (string, otmp -> olet); otmp =
X otmp -> nobj);
X return (otmp ? 1 : 0);
X}
X
Xdropit (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X
X if (obj == invent)
X invent = invent -> nobj;
X else {
X for (otmp = invent; otmp -> nobj != obj;
X otmp = otmp -> nobj);
X otmp -> nobj = obj -> nobj;
X }
X obj -> ox = u.ux;
X obj -> oy = u.uy;
X obj -> nobj = fobj;
X fobj = obj;
X if (u.uinvis)
X newsym (u.ux, u.uy);
X}
SHAR_EOF
if test 14139 -ne "`wc -c 'hack.do.c'`"
then
echo shar: error transmitting "'hack.do.c'" '(should have been 14139 characters)'
fi
# End of shell archive
exit 0peterb@pbear.UUCP (05/29/85)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# hack.do.misc.c
# hack.do.vars.h
# hack.do1.c
# hack.do_wear.c
# hack.dog.c
# hack.dog.h
# hack.eat.c
# hack.end.c
# hack.foods.h
# This archive created: Tue May 28 17:52:18 1985
export PATH; PATH=/bin:$PATH
echo shar: extracting "'hack.do.misc.c'" '(7647 characters)'
if test -f 'hack.do.misc.c'
then
echo shar: over-writing existing file "'hack.do.misc.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.do.misc.c'
X/*
X * Hack.do.misc.c
X */
X
X/* Routines to do various user commands */
X
X#include <signal.h>
X#include "hack.h"
X#include "hack.do.vars.h"
X /* (MT) has 'do' structures and lists */
X
Xextern char *getenv (), UMISS[], WELDED[];
X
X#define MAXLEVEL 40
X
XOBJECT loseone ();
X
Xint done1 ();
X
Xchar upxstairs[MAXLEVEL], upystairs[MAXLEVEL];
X
Xrhack (cmd)
Xregister char *cmd;
X{
X register FUNCTIONS * tlist = list;
X
X if (!cmd) {
X pline ("Rhack: 0");
X impossible ();
X return;
X }
X if (!*cmd || *cmd == -1)
X return; /* Probably interrupt? */
X if (movecm (cmd)) {
X if (multi)
X flags.mv = 1;
X domove ();
X return;
X }
X if (movecm (lowc (cmd))) {
X flags.run = 1;
X multi = 80;
X flags.mv = 1;
X domove ();
X return;
X }
X if (*cmd == 'f' && movecm (cmd + 1)) {
X flags.run = 2;
X multi = 80;
X flags.mv = 1;
X domove ();
X return;
X }
X if (*cmd == 'F' && movecm (lowc (cmd + 1))) {
X flags.run = 3;
X multi = 80;
X flags.mv = 1;
X domove ();
X return;
X }
X while (tlist -> f_char) {
X if (*cmd == tlist -> f_char) {
X (*(tlist -> f_funct)) ();
X return;
X }
X tlist++;
X }
X pline ("Unknown command '%s'", cmd);
X nomove ();
X}
X
Xdoredraw () {
X docrt ();
X nomove ();
X}
X
X/*
X * VARIABELE ARGUMENTS, but if not given the last argument will always
X * be a NULL. (Michiel)
X */
X/*VARARGS*/
Xhackexec (num, file, arg1, arg2, arg3, arg4, arg5, arg6)
Xregister int num;
Xregister char *file, *arg1;
Xchar *arg2, *arg3, *arg4, *arg5, *arg6;
X{
X nomove ();
X switch (fork ()) {
X case -1:
X pline ("Fork failed. Will try again.");
X hackexec (num, file, arg1, arg2, arg3, arg4,
X arg5, arg6);
X break;
X case 0:
X if (num) {
X signal (SIGINT, SIG_DFL);
X setuid (getuid ());
X hackmode (OFF);
X cls ();
X flush ();
X if (num == 2)
X chdir (getenv ("HOME"));
X }
X else
X signal (SIGINT, SIG_IGN);
X execl (file, file, arg1, arg2, arg3, arg4, arg5, arg6);
X panic (NOCORE, "%s: cannot execute.", file);
X break;
X default:
X signal (SIGINT, SIG_IGN);
X signal (SIGQUIT, SIG_IGN);
X wait (0);
X if (num) {
X hackmode (ON);
X docrt ();
X }
X signal (SIGINT, done1);
X signal (SIGQUIT, SIG_DFL);
X break;
X }
X}
X
Xdohelp () {
X hackexec (1, MORE, HELP, NULL);
X}
X
Xdosh () {
X register char *str;
X
X if (str = getenv ("SHELL"))
X hackexec (2, str, NULL);
X else
X hackexec (2, "/bin/sh", "-i", NULL);
X}
X
Xdowield () {
X register OBJECT wep;
X
X multi = 0;
X if (!(wep = getobj (")", "wield")))
X flags.move = 0;
X else if (uwep && uwep -> cursed)
X pline (WELDED, weapons[uwep -> otyp].wepnam);
X else {
X uwep = wep;
X if (uwep -> cursed)
X pline ("The %s welds itself to your hand!",
X weapons[uwep -> otyp].wepnam);
X else
X prinv (uwep);
X }
X}
X
Xddodown () {
X dostairs ("down");
X}
X
Xddoup () {
X dostairs ("up");
X}
X
Xdostairs (dir)
Xregister char *dir;
X{
X if (u.ustuck ||
X (*dir == 'd' && (u.ux != xdnstair || u.uy != ydnstair)) ||
X (*dir == 'u' && (u.ux != xupstair || u.uy != yupstair))) {
X pline ("You can't go %s here", dir);
X nomove ();
X return;
X }
X keepdogs (1);
X unCoff (COFF, 1);
X dosavelev ();
X if (*dir == 'd')
X dodown ();
X else
X doup ();
X losedogs ();
X if (u.ucham)
X rescham ();
X setCon (CON);
X if (u.uhcursed)
X docurse ();
X}
X
Xdosavelev () {
X register fd;
X
X glo (dlevel);
X fd = creat (lock, 0644);
X savelev (fd);
X close (fd);
X}
X
Xextern int uid;
X
Xchecklev (dir) /* Michiel: Geen geknoei */
Xregister char *dir;
X{
X if ((upxstairs[dlevel] != xupstair ||
X upystairs[dlevel] != yupstair) && !wizard) {
X clearlocks ();
X panic (NOCORE, "Way %s has been changed...", dir);
X }
X}
X
Xdodown () {
X register fd;
X
X glo (++dlevel);
X if ((fd = open (lock, 0)) < 0)
X mklev ();
X else {
X if (maxdlevel < dlevel)
X mklev ();/* Bad file */
X else
X getlev (fd);
X close (fd);
X checklev ("down");
X }
X if (maxdlevel < dlevel)
X maxdlevel = dlevel;/* Trapdoor/stairs */
X u.ux = xupstair;
X u.uy = yupstair;
X inshop ();
X}
X
Xdoup () {
X register fd;
X
X if (dlevel == 1)
X done (ESCAPED);
X glo (--dlevel);
X if ((fd = open (lock, 0)) < 0)
X panic (CORE, "Cannot open %s\n", lock);
X getlev (fd);
X close (fd);
X checklev ("up");
X u.ux = xdnstair;
X u.uy = ydnstair;
X}
X
Xm_call () {
X register OBJECT obj;
X
X obj = getobj ("?!=/", "call");
X if (obj)
X docall (obj);
X flags.move = 0;
X}
X
Xdocall (obj)
Xregister OBJECT obj;
X{
X register char *str, **str1;
X
X pline ("Call it:");
X getlin (buf);
X flags.topl = 0;
X if (!*buf)
X return;
X str = alloc (strlen (buf) + 1) -> Val;
X strcpy (str, buf);
X switch (obj -> olet) {
X case '_':
X free (str);
X return;
X case '?':
X str1 = &scrcall[obj -> otyp];
X break;
X case '!':
X str1 = &potcall[obj -> otyp];
X break;
X case '/':
X str1 = &wandcall[obj -> otyp];
X break;
X case '=':
X str1 = &ringcall[obj -> otyp];
X break;
X default:
X pline ("What a weird(%c %d)thing to call", obj -> olet, obj -> otyp);
X
X }
X if (*str1)
X free (*str1);
X *str1 = str;
X}
X
Xdonull () {
X}
X
XMONSTER bhit ();
X
Xdothrow () {
X register OBJECT obj;
X register MONSTER monst;
X register tmp;
X char x, y;
X
X obj = getobj ("#%)", "throw");
X /* One can also throw food */
X if (!obj || !getdir ()) {
X nomove ();
X return; /* Sets dx and dy to direction */
X }
X if (obj == uarm || obj == uarm2 || obj == uleft ||
X obj == uright) {
X pline ("You can't throw something you are wearing");
X return;
X }
X if (obj == uwep && uwepcursed ())
X return;
X monst = bhit (dx, dy, 8);
X x = dx;
X y = dy;
X obj = loseone (obj); /* Separate one out from list */
X if (monst) {
X if (obj -> olet == ')') {
X tmp = u.ulevel - 1 + monst -> data -> ac + abon ();
X if (obj -> otyp <= W_AMMUNITION) {
X if (!uwep || uwep -> otyp != obj -> otyp +
X 11)
X tmp -= 4;
X else {
X if (uwep -> cursed)
X tmp -= uwep -> spe;
X else
X tmp += uwep -> spe;
X }
X }
X else {
X if (obj -> cursed)
X tmp -= obj -> spe;
X else
X tmp += obj -> spe;
X }
X if (tmp >= rnd (20)) {
X if (hmon (monst, obj)) {
X hit (weapons[obj -> otyp].wepnam,
X monst);
X cutworm (monst, x, y, obj -> otyp);
X }
X else
X monst = 0;
X if (obj -> otyp <= W_AMMUNITION &&
X rn2 (2)) {
X freeobj (obj);
X if (!onbill (obj))
X ofree (obj);
X return;
X }
X }
X else
X miss (weapons[obj -> otyp].wepnam, monst);
X }
X else {
X psee (IT1, x, y, UMISS, monst -> data -> mname, NULL);
X if (obj -> olet == '%' && monst -> data -> mlet == 'd')
X if (tamedog (monst, obj))
X return;
X }
X/* Awake monster if sleeping */
X if (monst) {
X monst -> msleep = 0;
X if (monst == shopkeeper)
X setangry ();
X }
X }
X obj -> ox = x;
X obj -> oy = y;
X if (obj -> unpaid && inshproom (x, y))
X subfrombill (obj);
X if (!m_at (x, y))
X newsym (x, y);
X}
X
X/* Create a new object (at fobj) of multiplicity 1
X remove obj from invent if necessary */
XOBJECT loseone (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X
X if (!index ("/=", obj -> olet) && obj -> quan > 1) {
X obj -> quan--;
X otmp = newobj ();
X *otmp = *obj;
X otmp -> quan = 1;
X otmp -> unpaid = 0;/* Obj is still on the bill */
X otmp -> nobj = fobj;
X fobj = otmp;
X }
X else {
X if (obj == invent)
X invent = invent -> nobj;
X else {
X for (otmp = invent; otmp -> nobj != obj;
X otmp = otmp -> nobj);
X otmp -> nobj = obj -> nobj;
X }
X obj -> nobj = fobj;
X fobj = obj;
X }
X return (fobj);
X}
X
Xgetdir () {
X pline ("What direction?");
X flush ();
X *buf = getchar ();
X flags.topl = 0;
X return (movecm (buf));
X}
X
Xdocurse () {
X register MONSTER mtmp;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon) {
X mtmp -> msleep = 0;
X mtmp -> mtame = 0;
X }
X if (shopkeeper)
X shopkeeper -> angry = 1;
X if (vaultkeeper)
X vaultkeeper -> angry = 1;
X}
SHAR_EOF
if test 7647 -ne "`wc -c 'hack.do.misc.c'`"
then
echo shar: error transmitting "'hack.do.misc.c'" '(should have been 7647 characters)'
fi
echo shar: extracting "'hack.do.vars.h'" '(1033 characters)'
if test -f 'hack.do.vars.h'
then
echo shar: over-writing existing file "'hack.do.vars.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.do.vars.h'
X/*
X * Hack.do.vars.h
X */
X
Xint doredraw(), dodrop(), dodrink(), doread(),
X dosearch(), armwear(), dowearring(), doremarm(),
X doremring(), dopay(), save(), dowield(),
X ddoinv(), dozap(), m_call(), doset(),
X dowhatis(), dohelp(), doeat(), ddoup(),
X ddodown(), done1(), donull(), dothrow(),
X doshow(), dosh(), doreprint(), gemsdrop();
X
X#ifdef DEBUG
Xint debug();
X#endif DEBUG
X
XFUNCTIONS list[] = {
X '\020', doredraw, /* was '\014' */
X 'A', doreprint, /* Michiel: Repeat last message printed */
X#ifdef DEBUG
X 'D', debug,
X#endif DEBUG
X 'P', dowearring,
X 'Q', done1,
X 'R', doremring,
X 'G', gemsdrop,
X 'S', save,
X 'T', doremarm,
X 'W', armwear,
X 'a', doshow, /* Michiel: show everything you're wearing */
X 'c', m_call,
X 'd', dodrop,
X 'e', doeat,
X 'i', ddoinv,
X 'o', doset,
X 'p', dopay,
X 'q', dodrink,
X 'r', doread,
X 's', dosearch,
X 't', dothrow,
X 'w', dowield,
X 'z', dozap,
X '<', ddoup,
X '>', ddodown,
X '/', dowhatis,
X '?', dohelp,
X '!', dosh,
X '\n', donull,
X ' ', donull,
X 0, 0
X};
SHAR_EOF
if test 1033 -ne "`wc -c 'hack.do.vars.h'`"
then
echo shar: error transmitting "'hack.do.vars.h'" '(should have been 1033 characters)'
fi
echo shar: extracting "'hack.do1.c'" '(11115 characters)'
if test -f 'hack.do1.c'
then
echo shar: over-writing existing file "'hack.do1.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.do1.c'
X/*
X * Hack.do1.c
X */
X
X#include "hack.h"
X
Xextern char NOTHIN[], WAND[];
X
Xextern MONSTER shopkeeper;
XMONSTER vaultkeeper;
X
Xchar *wandeffect[] = {
X "magic missile",
X "bolt of fire",
X "sleep ray",
X "bolt of cold",
X "death ray",
X "bolt of confusion"
X};
X
X#define MAXLEVEL 40
X
Xchar vaultflag[MAXLEVEL];
X
XMONSTER bhit ();
X
X
X
X/* More various user do commands */
X
X
X
X
Xdozap () {
X register OBJECT obj;
X register MONSTER mtmp;
X char zx, zy;
X register num;
X
X if (!(obj = getobj ("/", "zap"))) {
X nomove ();
X return;
X }
X if (!obj -> spe) {
X pline (NOTHIN);
X return;
X }
X obj -> spe--;
X if (obj -> otyp <= Z_CREATE_MON) {
X switch (obj -> otyp) {
X
X case Z_LIGHT:
X if (dlevel)
X litroom ();
X else
X pline (NOTHIN);
X break;
X
X case Z_DETEC:
X if (!findit ())
X return;
X break;
X
X case Z_CREATE_MON:
X makemon (0);
X mnexto (fmon);
X break;
X }
X
X if (oiden[obj -> otyp] & WANN)
X return;
X u.urexp += 10;
X oiden[obj -> otyp] |= WANN;
X return;
X }
X if (!getdir ()) {
X obj -> spe++;
X nomove ();
X return;
X }
X if (obj -> otyp <= Z_TELEPORT) {
X if (mtmp = bhit (dx, dy, rn1 (8, 6))) {
X switch (obj -> otyp) {
X
X case Z_EXHAUST:
X pline ("You fight and fight and fight......");
X home ();
X flush ();
X sleep (2);
X flags.topl = 0;
X u.uhp -= mtmp -> mhp;
X if (u.uhp <= 0) {
X pseebl ("You cannot beat %s",
X mtmp -> data -> mname);
X pline ("You die....");
X done (DIED);
X }
X else {
X mtmp -> mhp = 0;
X flags.dhp = 1;
X killed (mtmp);
X }
X oiden[obj -> otyp] |= WANN;
X break;
X
X case Z_SLOW_MON:
X mtmp -> mspeed = MSLOW;
X break;
X
X case Z_SPEED_MON:
X mtmp -> mspeed = MFAST;
X break;
X
X case Z_UND_TUR:
X if (index (" WVZ&", mtmp -> data -> mlet)) {
X mtmp -> mhp -= rnd (8);
X if (alive (mtmp))
X mtmp -> mflee = 1;
X }
X break;
X
X case Z_POLYMORF:
X if (mtmp -> ale && !cansee (mtmp -> mx, mtmp -> my))
X break;
X if (mtmp == shopkeeper)
X shkdead ();/* Michiel */
X unstuck (mtmp);
X newcham (mtmp, &mon[rn2 (8)][rn2 (7)]);
X oiden[obj -> otyp] |= WANN;
X return;
X
X case Z_CAN:
X mtmp -> mcan = 1;
X break;
X
X case Z_TELEPORT:
X unstuck (u.ustuck);
X oiden[obj -> otyp] |= WANN;
X if (mtmp == shopkeeper)
X setangry ();/* FRED */
X else if (mtmp == vaultkeeper)
X mtmp -> angry = 1;
X rloc (mtmp);
X break;
X
X }
X }
X return;
X }
X if (obj -> otyp == Z_CLOSING) {
X PART * room;
X
X zx = u.ux + dx;
X zy = u.uy + dy;
X room = &levl[zx][zy];
X while (room -> typ >= CORR) {
X zx += dx;
X zy += dy;
X room = &levl[zx][zy];
X }
X if (room -> typ == DOOR || room -> typ == SDOOR) {
X pline ("The %sdoor closes forever.",
X room -> typ == SDOOR ? "secret " : "");
X oiden[obj -> otyp] |= WANN;
X room -> typ = WALL;
X newsym (zx, zy);
X }
X return;
X }
X if (obj -> otyp == Z_DIGGING) {
X /* This is further improved by Michiel and Fred */
X PART * room;
X int range = 1;
X
X zx = u.ux + dx;
X zy = u.uy + dy;
X num = ROOM;
X for (;;) {
X if (zx < 1 || zx > 78 || zy < 1 || zy > 21) {
X zx -= dx;
X zy -= dy;
X break;
X }
X atl (zx, zy, '*');
X at (zx, zy, '*');
X ++range;
X room = &levl[zx][zy];
X if (!xdnstair) {
X if (zx < 3 || zx > 76 || zy < 3 ||
X zy > 18)
X break;
X if (room -> typ == WALL) {
X room -> typ = ROOM;
X break;
X }
X }
X else if (room -> typ == POOL)
X goto check;
X else if (num == ROOM || num == 10) {
X if (room -> typ) {
X if (room -> typ == VAULT)
X vaultinit ();
X if (room -> typ != ROOM) {
X if (room -> typ == VAULT)
X room -> typ = ROOM;
X else
X if (room -> typ != CORR)
X room -> typ = DOOR;
X if (num == 10)
X break;
X num = 10;
X }
X }
X else
X room -> typ = CORR;
X }
X else {
X if (room -> typ == VAULT)
X vaultinit ();
X if (room -> typ % 4) {
X /* WALL,(S)DOOR,ROOM */
X room -> typ = DOOR;
X break;
X }
X else
X room -> typ = CORR;
X }
X check:
X newsym (zx, zy);
X zx += dx;
X zy += dy;
X }
X while (--range) {
X newsym (zx, zy);
X if (mtmp = m_at (zx, zy))
X pmon (mtmp);
X zx -= dx;
X zy -= dy;
X }
X }
X else
X buzz (obj -> otyp, u.ux, u.uy, dx, dy);
X oiden[obj -> otyp] |= WANN;
X}
X
Xhit (str, mtmp)
Xregister char *str;
Xregister MONSTER mtmp;
X{
X psee (THEIT2, mtmp -> mx, mtmp -> my, "%s hits %s", str,
X mtmp -> data -> mname);
X}
X
Xmiss (str, mtmp)
Xregister char *str;
Xregister MONSTER mtmp;
X{
X psee (THEIT2, mtmp -> mx, mtmp -> my, "%s misses %s", str,
X mtmp -> data -> mname);
X}
X
Xfindit () {
X char num, lx, hx, ly, hy;
X register char zx, zy;
X register GOLD_TRAP gtmp, gt1;
X
X for (lx = u.ux; levl[lx - 1][u.uy].typ % CORR; lx--);/* typ!=0 */
X /* WALL, SDOOR, DOOR, or ROOM (see hack.h) */
X
X for (hx = u.ux; levl[hx + 1][u.uy].typ % 4; hx++);
X for (ly = u.uy; levl[u.ux][ly - 1].typ % 4; ly--);
X for (hy = u.uy; levl[u.ux][hy + 1].typ % 4; hy++);
X num = 0;
X for (zy = ly; zy <= hy; zy++)
X for (zx = lx; zx <= hx; zx++) {
X if (levl[zx][zy].typ == SDOOR) {
X levl[zx][zy].typ = DOOR;
X atl (zx, zy, '+');
X num++;
X }
X else if (gtmp = g_at (zx, zy, ftrap)) {
X if (gtmp -> gflag == PIERC) {
X mkmonat (PM_PIERC, zx, zy);
X num++;
X deltrap (gtmp);
X }
X else if (gtmp -> gflag == MIMIC) {
X deltrap (gtmp);
X M:
X mkmonat (PM_MIMIC, zx, zy);
X num++;
X }
X else if (!gtmp -> gflag & SEEN) {
X gtmp -> gflag |= SEEN;
X atl (zx, zy, '^');
X num++;
X }
X }
X else if ((gtmp = g_at (zx, zy, fgold)) &&
X !gtmp -> gflag) {
X if (gtmp == fgold)
X fgold = gtmp -> ngen;
X else {
X for (gt1 = fgold; gt1 -> ngen !=
X gtmp; gt1 = gt1 -> ngen);
X gt1 -> ngen = gtmp -> ngen;
X }
X free (gtmp);
X goto M;
X }
X }
X return (num);
X}
X
X/* Sets dx,dy to the final position of the weapon thrown */
XMONSTER bhit (ddx, ddy, range) {
X register MONSTER mtmp;
X
X dx = u.ux;
X dy = u.uy;
X if (u.uswallow)
X return u.ustuck;/* a3 */
X while (range-- > 0) {
X dx += ddx;
X dy += ddy;
X if (mtmp = m_at (dx, dy))
X return (mtmp);
X if (levl[dx][dy].typ < CORR) {
X dx -= ddx;
X dy -= ddy;
X return (0);
X }
X }
X return (0);
X}
X
Xbuzz (type, sx, sy, ddx, ddy)
Xregister sx, sy;
X{
X PART * lev;
X register char range, let;
X register MONSTER mtmp;
X register wandeftype = type - 11;
X
X if (u.uswallow) {
X pline ("The %s rips into the %s.",
X wandeffect[wandeftype],
X u.ustuck -> data -> mname);
X zhit (u.ustuck, type);
X alive (u.ustuck);/* a3 */
X return;
X }
X range = rn1 (7, 7);
X if (ddx == ddy)
X let = '\\';
X else if (ddx && ddy)
X let = '/';
X else if (ddx)
X let = '-';
X else
X let = '|';
X while (range-- > 0) {
X sx += ddx;
X sy += ddy;
X if ((lev = &levl[sx][sy]) -> typ) {
X at (sx, sy, let);
X on (sx, sy);
X lev -> new = 1;
X }
X if (mtmp = m_at (sx, sy)) {
X if (mtmp == vaultkeeper)
X mtmp -> angry = 1;
X if (rnd (20) < 18 + mtmp -> data -> ac) {
X zhit (mtmp, type);
X if (alive (mtmp))
X hit (wandeffect[wandeftype],
X mtmp);
X range -= 2;
X }
X else
X miss (wandeffect[wandeftype], mtmp);
X }
X else if (sx == u.ux && sy == u.uy) {
X if (rnd (20) < 18 + u.uac) {
X range -= 2;
X flags.dhp = 1;/* Michiel */
X pline ("The %s hits you!",
X wandeffect[wandeftype]);
X switch (type) {
X case Z_MAG_MISSILE:
X u.uhp -= d (2, 6);
X break;
X case Z_FIRE:
X if (u.ufireres) {
X pline ("You don't feel hot!");
X break;
X }
X u.uhp -= d (6, 6);
X break;
X case Z_SLEEP:
X nomul (-rnd (25));
X break;
X case Z_COLD:
X if (u.ucoldres) {
X pline ("You don't feel cold!");
X break;
X }
X u.uhp -= d (6, 6);
X break;
X case Z_DEATH:
X u.uhp = 0;
X break;
X case Z_CONF_MON:
X u.uconfused = d (4, 6);
X }
X if (u.uhp <= 0)
X killer = wandeffect[wandeftype];
X }
X else
X pline ("The %s wizzes by you!",
X wandeffect[wandeftype]);
X }
X if (lev -> typ <= DOOR || lev -> typ == VAULT) {
X psee (0, sx, sy, "%s bounces!",
X wandeffect[wandeftype], NULL);
X ddx = -ddx;
X ddy = -ddy;
X range--;
X }
X }
X}
X
Xzhit (mtmp, type)
Xregister MONSTER mtmp;
Xregister type;
X{
X if (mtmp == shopkeeper)
X setangry ();
X switch (type) {
X case Z_MAG_MISSILE:
X mtmp -> mhp -= d (2, 6);
X break;
X case Z_FIRE:
X if (index ("Dg", mtmp -> data -> mlet))
X return;
X mtmp -> mhp -= d (6, 6);
X if (mtmp -> data -> mlet == 'Y')
X mtmp -> mhp -= 7;
X break;
X case Z_SLEEP:
X mtmp -> mfroz = 1;
X break;
X case Z_COLD:
X if (index ("Ygf", mtmp -> data -> mlet))
X return;
X if (mtmp -> data -> mlet == 'D')
X mtmp -> mhp -= 7;
X mtmp -> mhp -= d (6, 6);
X break;
X case Z_DEATH:
X if (index ("WVZ ", mtmp -> data -> mlet))
X return;
X mtmp -> mhp = 0;
X break;
X case Z_CONF_MON:
X if (mtmp == u.ustuck)
X return;
X mtmp -> mconf = 1;
X break;
X
X }
X}
X
Xdowhatis () {
X register fd;
X register char *str;
X
X
X pline ("Specify what? ");
X flags.topl = 0;
X getlin (buf);
X str = buf;
X while (*str == ' ')
X str++;
X nomove ();
X buf[52] = '\0';
X if (*(str + 1))
X pline ("One character please.");
X else if ((fd = open (DATA, 0)) < 0)
X pline ("Cannot open data file!");
X else {
X lseek (fd, (long) (*str * 51), 0);
X if (read (fd, buf, 51) > 0 && *buf != '\\')
X pline (buf);
X else
X pline ("Unknown symbol.");
X close (fd);
X }
X}
X
Xdoshow () { /* Michiel: Show everything you're wearing */
X nomove ();
X show (uarm2);
X show (uarm);
X show (uwep);
X show (uleft);
X show (uright);
X}
X
Xshow (otmp)
Xregister OBJECT otmp;
X{
X if (otmp)
X prinv (otmp);
X}
X
Xdosearch () {
X register char x, y;
X register GOLD_TRAP tgen;
X
X for (x = u.ux - 1; x < u.ux + 2; x++)
X for (y = u.uy - 1; y < u.uy + 2; y++)
X if (levl[x][y].typ == SDOOR && !rn2 (7)) {
X levl[x][y].typ = DOOR;
X atl (x, y, '+');
X nomul (0);
X }
X else {
X for (tgen = ftrap; tgen; tgen = tgen -> ngen)
X if (tgen -> gx == x && tgen -> gy == y &&
X (!rn2 (8) || ((!u.usearch) &&
X tgen -> gflag & SEEN))) {
X nomul (0);
X pline ("You find a%s", traps[tgen -> gflag & 037]);
X if ((tgen -> gflag & 037) ==
X PIERC) {
X deltrap (tgen);
X mkmonat (PM_PIERC, x, y);
X return;
X }
X if ((tgen -> gflag & 037) ==
X MIMIC) {
X deltrap (tgen);
X mkmonat (PM_MIMIC, x, y);
X return;
X }
X if (!(tgen -> gflag & SEEN)) {
X tgen -> gflag |= SEEN;
X atl (x, y, '^');
X }
X }
X }
X}
X
Xdoset () {
X pline ("Give one inventory per line? ");
X flush ();
X flags.oneline = (getchar () == 'y');
X nomove ();
X}
X
X
X
X/*
X * The whole vault was implemented by Fred and Michiel
X *
X */
X
X
Xstruct permonst treasurer = {
X "treasurer", '@', 15, 12, -1, 4, 8, 0
X};
X
Xvaultinit () {
X GOLD_TRAP gtmp;
X
X if (vaultflag[dlevel])
X return;
X vaultflag[dlevel] = 1;;
X makemon (&treasurer);
X vaultkeeper = fmon;
X for (gtmp = fgold; gtmp -> gflag < 10000; gtmp = gtmp -> ngen);
X fmon -> mx = gtmp -> gx;
X fmon -> my = gtmp -> gy;
X if (!u.ublind)
X pmon (fmon);
X}
SHAR_EOF
if test 11115 -ne "`wc -c 'hack.do1.c'`"
then
echo shar: error transmitting "'hack.do1.c'" '(should have been 11115 characters)'
fi
echo shar: extracting "'hack.do_wear.c'" '(3655 characters)'
if test -f 'hack.do_wear.c'
then
echo shar: over-writing existing file "'hack.do_wear.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.do_wear.c'
X/*
X * Hack.do_wear.c
X */
X
X#include "hack.h"
X
X#define CURSED 1
X#define NOTCURSED 0
X
Xoff_msg (otmp)
Xregister OBJECT otmp;
X{
X doname (otmp, buf);
X pline ("You were wearing %s.", buf);
X}
X
Xdoremarm () {
X register OBJECT oldarm = uarm;
X
X nomove ();
X if (!uarm) {
X pline ("Not wearing any armor.");
X return;
X }
X flags.move = 1;
X if (cursed (uarm))
X return;
X nomul (-armors[uarm -> otyp].delay);
X u.uac += uarm -> spe;
X uarm = uarm2;
X uarm2 = 0;
X off_msg (oldarm);
X flags.dac = 1;
X}
X
Xdoremring () {
X
X nomove ();
X if (!uleft && !uright) {
X pline ("Not wearing any ring.");
X return;
X }
X if (!uleft)
X dorr (&uright);
X else if (!uright)
X dorr (&uleft);
X else
X for (;;) {
X pline ("What ring, Right or Left? ");
X flush ();
X *buf = getchar ();
X flags.topl = 0;
X if (*buf == '\n' || *buf == '\033')
X return;
X if (*buf == 'l' || *buf == 'L') {
X dorr (&uleft);
X return;
X }
X if (*buf == 'r' || *buf == 'R') {
X dorr (&uright);
X return;
X }
X if (*buf == '?')
X doinv ("=", 0);
X }
X}
X
Xdorr (ring)
Xregister OBJECT * ring;
X{
X register OBJECT otmp = *ring;
X
X if (cursed (otmp))
X return;
X *ring = 0;
X doring (otmp, OFF);
X off_msg (otmp);
X}
X
Xcursed (otmp)
Xregister OBJECT otmp;
X{
X if (otmp -> cursed) {
X pline ("You can't. It appears to be cursed.");
X return (CURSED);
X }
X return (NOTCURSED);
X}
X
Xarmwear () {
X register OBJECT otmp;
X
X otmp = getobj ("[", "wear");
X if (!otmp) {
X nomove ();
X return;
X }
X if (uarm) {
X if (otmp -> otyp == A_ELVEN_CLOAK && !uarm2)
X uarm2 = uarm;
X else {
X pline ("You are already wearing some armor.");
X flags.move = 0;
X return;
X }
X }
X uarm = otmp;
X nomul (-armors[otmp -> otyp].delay);
X uarm -> known = 1;
X u.uac -= uarm -> spe;
X flags.dac = 1;
X}
X
Xdowearring () {
X register OBJECT otmp;
X
X otmp = getobj ("=", "wear");
X if (!otmp) {
XR:
X nomove ();
X return;
X }
X if (uleft && uright) {
X pline ("There are no more fingers to fill.");
X goto R;
X }
X if (otmp == uleft || otmp == uright) {
X pline ("You are already wearing that.");
X goto R;
X }
X if (uleft)
X uright = otmp;
X else if (uright)
X uleft = otmp;
X else
X while (!uright && !uleft) {
X pline ("What finger, Right or Left? ");
X flush ();
X *buf = getchar ();
X flags.topl = 0;
X if (*buf == 'l' || *buf == 'L')
X uleft = otmp;
X else if (*buf == 'r' || *buf == 'R')
X uright = otmp;
X }
X doring (otmp, ON);
X prinv (otmp);
X}
X
Xdoring (obj, eff)
Xregister OBJECT obj;
Xregister eff;
X{
X register tmp;
X
X if (!obj)
X return;
X tmp = obj -> spe;
X if (eff == OFF)
X tmp = -tmp;
X if (uleft && uright && uleft == uright &&
X obj -> otyp <= R_GAIN_STR)
X return;
X /* If wearing the same ring sometimes the flag must remain actif. */
X switch (obj -> otyp) {
X case R_TELE:
X u.utel = eff;
X case R_ADORNMENT:
X break;
X case R_REGEN:
X u.uregen = eff;
X break;
X case R_SEARCH:
X u.usearch = eff;
X break;
X case R_SEE_INV:
X u.ucinvis = eff;
X break;
X case R_STEALTH:
X u.ustelth = eff;
X break;
X case R_FLOAT:
X u.ufloat = eff;
X break;
X case R_POISON_RES:
X u.upres = eff;
X break;
X case R_AGGRAV_MON:
X u.uagmon = eff;
X break;
X case R_HUNGER:
X u.ufeed = eff;
X break;
X case R_FIRE_RES:
X u.ufireres = eff;
X break;
X case R_COLD_RES:
X u.ucoldres = eff;
X break;
X case R_SHAPE:
X u.ucham = eff;
X if (eff != OFF)
X rescham ();
X break;
X case R_GAIN_STR:
X u.ustr += tmp;
X u.ustrmax += tmp;
X flags.dstr = 1;
X break;
X case R_DAM_INC:
X u.udaminc += tmp;
X break;
X case R_PROTECTION:
X u.uac -= tmp;
X flags.dac = 1;
X break;
X default:
X pline ("Bad(%d)ring", obj -> otyp);
X impossible ();
X }
X}
SHAR_EOF
if test 3655 -ne "`wc -c 'hack.do_wear.c'`"
then
echo shar: error transmitting "'hack.do_wear.c'" '(should have been 3655 characters)'
fi
echo shar: extracting "'hack.dog.c'" '(9408 characters)'
if test -f 'hack.dog.c'
then
echo shar: over-writing existing file "'hack.dog.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.dog.c'
X/*
X * Hack.dog.c
X */
X
X#include "hack.h"
X#include "hack.dog.h"
X
X#define UNDEF 127 /* Some large number */
X#define EDOG(mp) ( (struct edog *)(&(mp->mextra[0])) )
X
Xextern struct permonst li_dog, dog, la_dog;
X
Xchar SADFEEL[] = "You have a sad feeling for a moment, then it passes";
X
Xmakedog () {
X if (makemon (&li_dog))
X return; /* Dogs were genocided */
X mnexto (fmon);
X initedog (fmon);
X}
X
Xinitedog (mtmp)
Xregister MONSTER mtmp;
X{
X mtmp -> mtame = 1;
X EDOG (mtmp) -> hungrytime = 1000 + moves;
X EDOG (mtmp) -> eattime = 0;
X EDOG (mtmp) -> droptime = 0;
X EDOG (mtmp) -> dropdist = 10000;
X EDOG (mtmp) -> apport = 10;
X EDOG (mtmp) -> carry = 0;
X}
X
X/* Attach the monsters that went down (or up) together with @ */
X
XMONSTER mydogs = 0;
X
Xlosedogs () {
X register MONSTER mtmp;
X
X while (mtmp = mydogs) {
X mydogs = mtmp -> nmon;
X mtmp -> nmon = fmon;
X fmon = mtmp;
X mnexto (mtmp);
X }
X}
X
Xkeepdogs (checkdist)
Xint checkdist;
X{
X register MONSTER mtmp;
X register PART * dr;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon)
X if (mtmp -> mtame) {
X if (checkdist && dist (mtmp -> mx, mtmp -> my) > 2) {
X mtmp -> mtame = 0;/* Dog becomes wild */
X mtmp -> mxlth = 0;
X continue;
X }
X relmon (mtmp);
X mtmp -> nmon = mydogs;
X mydogs = mtmp;
X dr = &levl[mtmp -> mx][mtmp -> my];
X if (dr -> scrsym == mtmp -> data -> mlet)
X dr -> scrsym = news0 (mtmp -> mx, mtmp -> my);
X /* We destroyed the link, so use recursion */
X keepdogs (checkdist);
X return; /* (admittedly somewhat primitive) */
X }
X}
X
X#define GDIST(x, y) ((x - gx)*(x - gx) + (y - gy)*(y - gy) )
X#define DDIST(x, y) ((x - omx)*(x - omx) + (y - omy)*(y - omy) )
X
Xdog_move (mtmp, after)
Xregister MONSTER mtmp;
X{
X register MONSTER mtmp2;
X register struct edog *edog = EDOG (mtmp);
X int nix, niy, omx, omy, appr, nearer, cnt, udist, zx, zy;
X register OBJECT obj;
X register GOLD_TRAP trap;
X char ddx, ddy, dogroom, uroom,
X gx = 0, gy = 0, gtyp;/* Current goal */
X
X if (moves <= edog -> eattime)
X return NOMOVE; /* Dog is still eating */
X omx = mtmp -> mx;
X omy = mtmp -> my;
X if (moves > edog -> hungrytime + 500 && !mtmp -> mconf) {
X mtmp -> mconf = 1;
X mtmp -> orig_hp /= 3;
X if (mtmp -> mhp > mtmp -> orig_hp)
X mtmp -> mhp = mtmp -> orig_hp;
X psee (0, omx, omy, "%s is confused from hunger",
X mtmp -> data -> mname);
X }
X else if (moves > edog -> hungrytime + 750 || mtmp -> mhp <= 0) {
X if (!psee (0, omx, omy, "%s dies from hunger",
X mtmp -> data -> mname))
X pline (SADFEEL);
X levlsym (omx, omy, mtmp -> data -> mlet);
X delmon (mtmp);
X return DEAD;
X }
X dogroom = inroom (omx, omy);
X uroom = inroom (u.ux, u.uy);
X udist = dist (omx, omy);
X
X/*
X * if we are carrying stg then we drop it (perhaps near @ )
X * Note: if apport == 1 then our behaviour is independent of udist
X */
X if (edog -> carry) {
X if (!rn2 (udist) || !rn2 (edog -> apport))
X if (rn2 (10) < edog -> apport) {
X relobj (mtmp);
X if (edog -> apport > 1)
X edog -> apport--;
X edog -> carry = 0;
X }
X }
X else {
X if (obj = o_at (omx, omy))
X if (rn2 (20) < edog -> apport + 3)
X if (rn2 (udist) || !rn2 (edog -> apport)) {
X edog -> carry = 1;
X freeobj (obj);
X levlsym (omx, omy, obj -> olet);
X stlobj (mtmp, obj);
X }
X }
X
X/* First we look for food */
X gtyp = UNDEF; /* No goal as yet */
X obj = fobj;
X while (obj) {
X if (obj -> olet == '%'
X && inroom (obj -> ox, obj -> oy) == dogroom
X && (gtyp == UNDEF || (gtyp != 1 && obj -> otyp == 1)
X || (((gtyp != 1 && obj -> otyp < 5)
X || (gtyp == 1 && obj -> otyp == 1))
X && DDIST (obj -> ox, obj -> oy) < DDIST (gx, gy)))) {
X gx = obj -> ox;
X gy = obj -> oy;
X gtyp = obj -> otyp;
X }
X else if ((gtyp == UNDEF || gtyp == 67) && dogroom >= 0
X && inroom (obj -> ox, obj -> oy) == dogroom
X && uroom == dogroom
X && !edog -> carry && edog -> apport > rn2 (8)) {
X gx = obj -> ox;
X gy = obj -> oy;
X gtyp = 66 + obj -> cursed;/* Random */
X }
X obj = obj -> nobj;
X }
X if (gtyp == UNDEF
X || (gtyp != 1 && gtyp != 66 && moves < edog -> hungrytime)) {
X if (dogroom < 0 || dogroom == uroom) {
X gx = u.ux;
X gy = u.uy;
X }
X else {
X int tmp = rooms[dogroom].fdoor;
X
X cnt = rooms[dogroom].doorct;
X gx = gy = 100;/* Random, far away */
X while (cnt--) {
X if (dist (gx, gy) > dist (doors[tmp].x,
X doors[tmp].y)) {
X gx = doors[tmp].x;
X gy = doors[tmp].y;
X }
X tmp++;
X
X }
X if (gy == 100)
X panic (CORE, "No doors nearby?");
X if (gx == omx && gy == omy) {
X gx = u.ux;
X gy = u.uy;
X }
X }
X appr = 0;
X if (udist >= 9)
X appr++;
X else if (mtmp -> mflee)
X appr--;
X if (after && udist <= 4 && gx == u.ux && gy == u.uy)
X return NOMOVE;
X if (udist > 1) {
X if (levl[u.ux][u.uy].typ < ROOM || !rn2 (4) ||
X (edog -> carry && rn2 (edog -> apport)))
X appr = 1;
X }
X/* If you have dog food he'll follow you more closely */
X if (appr == 0) {
X obj = invent;
X while (obj) {
X if (obj -> olet == '%' && obj -> otyp == 1) {
X appr = 1;
X break;
X }
X obj = obj -> nobj;
X }
X }
X }
X else
X appr = 1;
X if (mtmp -> mconf)
X appr = 0;
X nix = omx;
X niy = omy;
X cnt = 0;
X for (ddx = -1; ddx <= 1; ddx++)
X for (ddy = -1; ddy <= 1; ddy++) {
X if (!ddx && !ddy)
X continue;
X zx = omx + ddx;
X zy = omy + ddy;
X if (mtmp2 = m_at (zx, zy)) {
X if (mtmp2 -> data -> mhd >= mtmp -> data -> mhd + 2)
X continue;
X if (mtmp2 -> mtame)
X continue;
X if (after)
X return NOMOVE;
X /* Hit only once each move */
X if (hitmm (mtmp, mtmp2) == HIT && rn2 (4) &&
X hitmm (mtmp2, mtmp) == DEAD)
X return DEAD;
X return NOMOVE;
X }
X if (r_free (zx, zy, mtmp) && !(ddx && ddy
X && (levl[omx][omy].typ == DOOR
X || levl[zx][zy].typ == DOOR))) {
X/* M_at(zx,zy) is impossible here */
X
X/* Dog avoids unseen traps */
X if ((trap = g_at (zx, zy, ftrap))
X && !(trap -> gflag & SEEN) && rn2 (10))
X continue;
X
X/* Dog eschewes cursed objects but likes dog food */
X obj = fobj;
X while (obj) {
X if (obj -> ox != zx || obj -> oy != zy)
X goto nextobj;
X if (obj -> cursed)
X goto newdxy;
X if (obj -> olet == '%' &&
X (obj -> otyp == 1 || (obj -> otyp < 5 &&
X edog -> hungrytime <= moves))) {
X nix = zx;
X niy = zy;
X edog -> eattime = moves +
X foods[obj -> otyp].delay;
X edog -> hungrytime = moves + 5 *
X foods[obj -> otyp].nutrition;
X if (cansee (nix, niy)) {
X
X char buffer[BUFSZ];
X
X doname (obj, buffer);
X pline ("The %s ate %s.", mtmp -> data -> mname, buffer);
X }
X delobj (obj);
X/* perhaps this was a reward */
X edog -> apport += 200 / (edog -> dropdist + moves - edog -> droptime);
X goto newdogpos;
X }
X nextobj:
X obj = obj -> nobj;
X }
X
X nearer = GDIST (zx, zy) - GDIST (nix, niy);
X nearer *= appr;
X if (!nearer && !rn2 (++cnt) || nearer < 0
X || nearer > 0 && (omx == nix && omy ==
X niy && !rn2 (3) || !rn2 (12))) {
X nix = zx;
X niy = zy;
X if (nearer < 0)
X cnt = 0;
X }
X }
X newdxy: ;
X }
Xnewdogpos:
X if (nix != omx || niy != omy) {
X mtmp -> mx = nix;
X mtmp -> my = niy;
X }
X levlsym (omx, omy, mtmp -> data -> mlet);
X pmon (mtmp);
X return MOVE;
X}
X
Xhitmm (magr, mdef)
Xregister MONSTER magr, mdef;
X{
X register MONSTDATA pa = magr -> data;
X register MONSTDATA pd = mdef -> data;
X int hit;
X char tmp, vis;
X
X if (index ("Eay", magr -> data -> mlet))
X return NOMOVE;
X tmp = pd -> ac + pa -> mhd - 1;
X if (mdef -> mconf || mdef -> mfroz || mdef -> msleep) {
X tmp += 4;
X mdef -> msleep = 0;
X }
X hit = (tmp >= rnd (20));
X vis = (cansee (magr -> mx, magr -> my) &&
X cansee (mdef -> mx, mdef -> my));
X if (vis)
X pline ("The %s %s the %s.", pa -> mname,
X (hit) ? "hits" : "misses", pd -> mname);
X else
X pline ("You hear some noises %s.",
X (dist (magr -> mx, magr -> my) > 15) ? "in the distance"
X : "");
X if (hit) {
X if ((mdef -> mhp -= d (pa -> damn, pa -> damd)) <= 0) {
X if (vis)
X p2xthe ("%s is killed!", pd -> mname);
X else
X if (mdef -> mtame)
X pline (SADFEEL);
X unstuck (mdef);/* a3 */
X relobj (mdef);
X levlsym (mdef -> mx, mdef -> my, pd -> mlet);
X magr -> orig_hp += rnd (pd -> mhd + 1);
X if (magr -> mtame && magr -> orig_hp >
X pa -> mhd << 3) {
X if (pa == &li_dog)
X magr -> data = pa = &dog;
X else if (pa == &dog)
X magr -> data = pa = &la_dog;
X }
X delmon (mdef);
X hit = DEAD;
X }
X }
X return hit;
X}
X
X/* Return roomnumber or -1 */
Xinroom (x, y)
Xchar x, y;
X{
X register MKROOM * croom = &rooms[0];
X
X if (xdnstair && dlevel) /* a3 */
X while (croom -> hx >= 0) {
X if (croom -> hx >= x - 1 && croom -> lx <= x + 1
X && croom -> hy >= y - 1 && croom -> ly <= y + 1)
X return (croom - rooms);
X croom++;
X }
X return - 1; /* In corridor or in maze */
X}
X
X#define NOTTAME 0
X#define TAME 1
X
Xtamedog (mtmp, obj)
Xregister MONSTER mtmp;
Xregister OBJECT obj;
X{
X register MONSTER mtmp2;
X
X if (obj -> otyp >= 5 || mtmp -> mtame)
X return NOTTAME;
X psee (0, mtmp -> mx, mtmp -> my, "%s devours %s.",
X mtmp -> data -> mname, foods[obj -> otyp].foodnam);
X delobj (obj);
X mtmp2 = newmonst (sizeof (struct edog));
X *mtmp2 = *mtmp;
X mtmp2 -> mxlth = sizeof (struct edog);
X initedog (mtmp2);
X mtmp2 -> nmon = fmon;
X fmon = mtmp2;
X delmon (mtmp); /* %% */
X return TAME;
X}
SHAR_EOF
if test 9408 -ne "`wc -c 'hack.dog.c'`"
then
echo shar: error transmitting "'hack.dog.c'" '(should have been 9408 characters)'
fi
echo shar: extracting "'hack.dog.h'" '(375 characters)'
if test -f 'hack.dog.h'
then
echo shar: over-writing existing file "'hack.dog.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.dog.h'
X/*
X * Hack.dog.h
X */
X
Xstruct edog {
X unsigned hungrytime; /* At this time dog gets hungry */
X unsigned eattime; /* Dog is eating */
X unsigned droptime; /* Moment dog dropped object */
X unsigned dropdist; /* Dist of drpped obj from @ */
X unsigned apport; /* Amount of training */
X unsigned carry: 1; /* The dog is carrying sth */
X};
SHAR_EOF
if test 375 -ne "`wc -c 'hack.dog.h'`"
then
echo shar: error transmitting "'hack.dog.h'" '(should have been 375 characters)'
fi
echo shar: extracting "'hack.eat.c'" '(3170 characters)'
if test -f 'hack.eat.c'
then
echo shar: over-writing existing file "'hack.eat.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.eat.c'
X/*
X * hack.eat.c
X */
X
X#include "hack.h"
X
Xextern char *nomvmsg;
X
Xunsigned starved = 0; /* Michiel: after 30 times fainting you starve
X to death */
X
Xchar *hu_stat[4] = {
X " ",
X "Hungry ", /* Hunger texts used in main (each 8 chars
X long) */
X "Weak ",
X "Fainting"
X};
X
Xdoeat () {
X register OBJECT otmp;
X register FOOD ftmp;
X
X if (!(otmp = getobj ("%", "eat"))) {
X nomove ();
X return;
X }
X starved = 0;
X ftmp = &foods[otmp -> otyp];
X if (!rn2 (7)) {
X pline ("Blecch! Rotten food!");
X if (!rn2 (4)) {
X pline ("You feel rather light headed.");
X u.uconfused += d (2, 4);
X }
X else if (!rn2 (4) && !u.ublind) {
X pline ("Everything suddenly goes dark.");
X u.ublind = d (2, 10);
X unCoff (COFF, 0);
X }
X else if (!rn2 (3)) {
X pline ("The world spins and goes dark.");
X nomul (-rnd (10));
X nomvmsg = "You are conscious again";
X }
X lesshungry (ftmp -> nutrition >> 2);
X }
X else {
X multi = -ftmp -> delay;
X switch (otmp -> otyp) {
X
X case F_FOOD:
X if (u.uhunger < 500)
X pline ("That food really hit the spot!");
X else if (u.uhunger < 1000)
X pline ("That satiated your stomach!");
X else if (u.uhunger < 1500) {
X pline ("You're having a hard time getting all that food down.");
X multi -= 2;
X }
X else {
X pline ("You choke over your food.");
X more ();
X killer = ftmp -> foodnam;
X done (CHOKED);
X }
X lesshungry (ftmp -> nutrition);
X if (multi < 0)
X nomvmsg = "You finished your meal.";
X break;
X
X case F_TRIPE:
X pline ("Yak - dog food!");
X if (rn2 (2)) {
X pline ("You vomit.");
X lesshungry (-20);
X }
X else
X lesshungry (ftmp -> nutrition);
X break;
X
X default:
X pline ("That %s was delicious!", ftmp -> foodnam);
X lesshungry (ftmp -> nutrition);
X break;
X }
X }
X if (multi < 0 && !nomvmsg) {
X static char msgbuf[40];
X
X sprintf (msgbuf, "You finished eating your %s.",
X ftmp -> foodnam);
X nomvmsg = msgbuf;
X }
X useup (otmp);
X}
X
Xlesshungry (num) /* Eat stg or drink fruit juice */
Xregister num;
X{
X register newhunger;
X
X newhunger = u.uhunger + num;
X if (u.uhunger < 151 && newhunger > 150) {
X if (u.uhunger < 51 && u.ustr < u.ustrmax)
X losestr (-1);
X u.uhs = 0;
X goto Ldohs;
X }
X if (u.uhunger < 51 && newhunger > 50) {
X pline ("You only feel hungry now.");
X if (u.ustr < u.ustrmax)
X losestr (-1);
X u.uhs = 1;
X goto Ldohs;
X }
X if (u.uhunger <= 0 && newhunger < 50) {
X pline ("You feel weak now.");
X u.uhs = 2;
XLdohs:
X flags.dhs = 1;
X }
X u.uhunger = newhunger;
X}
X
Xgethungry () { /* Called in main */
X --u.uhunger;
X if ((u.uregen || u.ufeed) && moves % 2)
X u.uhunger--;
X if (u.uhunger <= 150 && !u.uhs) {
X pline ("You are beginning to feel hungry.");
X u.uhs = 1;
X goto Ldohs;
X }
X if (u.uhunger <= 50 && u.uhs == 1) {
X pline ("You are beginning to feel weak.");
X losestr (1);
X u.uhs = 2;
X goto Ldohs;
X }
X if (u.uhunger <= 0) {
X pline ("You faint from lack of food.");
X if (starved++ == 100) {
X pline ("You starve!");
X more ();
X done (STARVED);
X }
X nomul (-20);
X u.uhunger = rn1 (4, 22);
X if (u.uhs != 3) {
X u.uhs = 3;
X Ldohs:
X flags.dhs = 1;
X }
X }
X}
SHAR_EOF
if test 3170 -ne "`wc -c 'hack.eat.c'`"
then
echo shar: error transmitting "'hack.eat.c'" '(should have been 3170 characters)'
fi
echo shar: extracting "'hack.end.c'" '(4599 characters)'
if test -f 'hack.end.c'
then
echo shar: over-writing existing file "'hack.end.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.end.c'
X/*
X * Hack.end.c
X */
X
X#include "hack.h"
X#include <signal.h>
X
X#define MAXLEVEL 40
X
Xextern char plname[], *itoa (), *setan ();
X
Xextern int billct, rfile;
X
Xchar maxdlevel = 0, *strcat ();
X
Xchar *statxx[] = {
X "choked",
X "died",
X "starved",
X "drowned",
X "quit",
X "escaped"
X};
X
Xdone1 () {
X register char c;
X
X nomove ();
X signal (SIGINT, done1);
X pline ("Really quit?");
X flush ();
X if ((c = getchar ()) == 'y')
X done (QUIT);
X else if (c == 'S')
X hangup ();
X}
X
Xdone (status)
Xregister int status;
X{
X if (wizard && status != QUIT && status != ESCAPED) {
X u.ustr = (u.ustrmax += 2);
X u.uhp = (u.uhpmax += 10);
X u.uac--;
X if (uwep)
X uwep -> spe++;
X pline ("For some reason you are still alive.");
X nomove ();
X flags.botl = 1;
X return;
X }
X if (status == QUIT && u.uhp <= 0)
X status = DIED;
X if (billct)
X paybill ();
X clearlocks ();
X if (status < QUIT) { /* Not when quit or escaped */
X#ifndef DEBUG
X savebones ();
X#endif DEBUG
X outrip ();
X }
X hackmode (OFF);
X cls ();
X printf ("Goodbye %s...\n\n", plname);
X u.urexp += u.ugold;
X if (status == DIED) {
X strcpy (killer, setan (killer));
X u.urexp -= u.ugold / 10;
X }
X else
X killer = statxx[status];
X if (status == ESCAPED) {
X OBJECT otmp;
X
X u.urexp += 150;
X for (otmp = invent; otmp; otmp = otmp -> nobj) {
X if (otmp -> olet == '*')
X u.urexp += otmp -> quan * 10 * rnd (250);
X else if (otmp -> olet == '"')
X u.urexp += 25000;
X }
X printf ("You escaped from the dungeon");
X }
X else
X printf ("You %s on dungeon level %d,", statxx[status],
X dlevel);
X printf (" with %lu points\n", u.urexp);
X printf ("and %lu pieces of gold, after %u moves.\n",
X u.ugold, moves);
X printf ("You were level %d with a maximum of %d hit points when you %s.\n\n", u.ulevel, u.uhpmax, statxx[status]);
X topten ();
X flush ();
X exit (0);
X}
X
X#define NAMESIZE 8
X#define DEATHSIZE 40
X#define TOPPRINT 15 /* Aantal scores dat wordt afgedrukt */
X#define TOPLIST 25 /* Length of 'top ten' list */
X
Xtopten () {
X int tmp;
X struct recitem {
X long points;
X int level, maxlvl, hp, maxhp;
X char str[NAMESIZE + 1], death[DEATHSIZE + 1];
X } rec[TOPLIST + 1], *t1;
X register flg;
X
X for (t1 = rec; t1 < &rec[TOPLIST]; t1++)
X if (read (rfile, t1, sizeof (struct recitem)) <= 0)
X t1 -> points = 0;
X flg = 0;
X if (u.urexp > rec[TOPLIST - 1].points && !wizard) {
X signal (SIGINT, SIG_IGN);
X if (u.urexp > rec[TOPPRINT - 1].points)
X printf ("You made the top %d list!\n", TOPPRINT);
X if (lseek (rfile, 0L, 0) < 0)
X panic (CORE, "Cannot lseek on record file");
X
X/* Stick in new entry. NB: we save the last few
X entries that disappeared from the list */
X
X for (tmp = TOPLIST - 2; tmp >= 0 && rec[tmp].points <
X u.urexp; tmp--)
X rec[tmp + 1] = rec[tmp];
X tmp++; /* Point to right place */
X rec[tmp].points = u.urexp;
X rec[tmp].level = dlevel;
X rec[tmp].maxlvl = maxdlevel;
X rec[tmp].hp = u.uhp;
X rec[tmp].maxhp = u.uhpmax;
X strncpy (rec[tmp].str, plname, NAMESIZE);
X rec[tmp].str[NAMESIZE] = 0;
X strncpy (rec[tmp].death, killer, DEATHSIZE);
X rec[tmp].death[DEATHSIZE] = 0;
X flg++;
X }
X printf ("Number Points Name\n");
X for (t1 = rec, tmp = 1; t1 < &rec[TOPLIST]; tmp++, t1++) {
X char killed = 0;
X
X if (flg && t1 -> points)
X write (rfile, t1, sizeof (struct recitem));
X if (t1 >= &rec[TOPPRINT] || t1 -> points == 0)
X continue;
X printf ("%2d %6ld %8s ", tmp, t1 -> points, t1 -> str);
X if (*t1 -> death == 'e')
X printf ("escaped the dungeon [max level %d]", t1 -> maxlvl);
X else {
X switch (t1 -> death[1]) {
X case 'u':
X printf ("quit");
X break;
X case 'h':
X printf ("choked on his food");
X break;
X case 't':
X printf ("starved");
X break;
X case 'r':
X printf ("drowned");
X break;
X default:
X printf ("was killed");
X killed++;
X }
X printf (" on%s level %d",
X killed ? "" : " dungeon", t1 -> level);
X if (t1 -> maxlvl != t1 -> level)
X printf (" [%d]", t1 -> maxlvl);
X }
X if (killed)
X printf (" by %s", t1 -> death);
X putchar ('.');
X if (t1 -> maxhp)
X printf (" Hp: %s [%d]", (t1 -> hp > 0) ?
X itoa (t1 -> hp) : "-", t1 -> maxhp);
X putchar ('\n');
X }
X close (rfile);
X}
X
Xchar *
X itoa (a)
Xregister int a;
X{
X static char buffer[8];
X
X sprintf (buffer, "%d", a);
X return (buffer);
X}
X
Xclearlocks () {
X register x;
X
X signal (SIGINT, SIG_IGN);
X for (x = 1; x <= MAXLEVEL; x++) {
X glo (x);
X if (unlink (lock))
X break;
X }
X#ifdef DEBUG
X glo (0);
X unlink (lock);
X#endif DEBUG
X}
X
Xhangup () {
X save ();
X clearlocks ();
X exit (1);
X}
SHAR_EOF
if test 4599 -ne "`wc -c 'hack.end.c'`"
then
echo shar: error transmitting "'hack.end.c'" '(should have been 4599 characters)'
fi
echo shar: extracting "'hack.foods.h'" '(499 characters)'
if test -f 'hack.foods.h'
then
echo shar: over-writing existing file "'hack.foods.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.foods.h'
X/*
X * Hack.foods.h
X */
X
X/* Dog eats foods 0-4 but prefers 1 above 0, 2, 3, 4 */
X
Xstruct food foods[] = {
X { "food ration", 50, 5, 800 },
X { "tripe ration", 20, 1, 200 },
X { "pancake", 3, 1, 200 },
X { "dead lizard", 3, 0, 40 },
X { "cookie", 7, 0, 40 },
X { "orange", 3, 0, 80 },
X { "apple", 3, 0, 50 },
X { "pear", 3, 0, 50 },
X { "melon", 1, 0, 100 },
X { "banana", 3, 0, 80 },
X { "candy bar", 3, 0, 100 },
X { "egg", 1, 0, 80 },
X { "PROG ERROR", 100, 0, 0 }
X};
SHAR_EOF
if test 499 -ne "`wc -c 'hack.foods.h'`"
then
echo shar: error transmitting "'hack.foods.h'" '(should have been 499 characters)'
fi
# End of shell archive
exit 0peterb@pbear.UUCP (05/29/85)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# hack.monst.c
# hack.move.c
# hack.name.h
# hack.office.c
# hack.pri.c
# hack.rip.c
# hack.save.c
# hack.savelev.c
# hack.shk.c
# This archive created: Tue May 28 17:53:21 1985
export PATH; PATH=/bin:$PATH
echo shar: extracting "'hack.monst.c'" '(3125 characters)'
if test -f 'hack.monst.c'
then
echo shar: over-writing existing file "'hack.monst.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.monst.c'
X/*
X * Hack.monst.c
X */
X
X#include "hack.h"
X#include "hack.dog.h"
X
X/*
X * Unfortunately the syntax for structure initialization is
X * different on VAX and 11/45. Define VAX to get the VAX syntax
X */
X
X#define VAX
X
X#ifdef VAX
X
X#define SOSEP {
X#define SCSEP }
X#define GOSEP
X#define GMSEP
X#define GCSEP
X
X#else
X
X#define SOSEP
X#define SCSEP
X#define GOSEP {
X#define GMSEP },{
X#define GCSEP }
X
X#endif VAX
X
Xstruct permonst mon[8][7]={
X GOSEP
X SOSEP "bat", 'B',1,22,8,1,4,0 SCSEP,
X SOSEP "gnome", 'G',1,6,5,1,6,0 SCSEP,
X SOSEP "hobgoblin", 'H',1,9,5,1,8,0 SCSEP,
X SOSEP "jackal", 'J',0,12,7,1,2,0 SCSEP,
X SOSEP "kobold", 'K',1,6,7,1,4,0 SCSEP,
X SOSEP "leprechaun", 'L',1,15,8,1,5,0 SCSEP,
X SOSEP "giant rat", 'r',0,12,7,1,3,0 SCSEP,
X GMSEP
X SOSEP "acid blob", 'a',2,3,8,0,0,0 SCSEP,
X SOSEP "floating eye", 'E',2,1,9,0,0,0 SCSEP,
X SOSEP "homunculus", 'h',2,6,6,1,3,0 SCSEP,
X SOSEP "imp", 'i',2,6,2,1,4,0 SCSEP,
X SOSEP "orc", 'O',2,9,6,1,8,0 SCSEP,
X SOSEP "yellow light", 'y',3,15,0,0,0,0 SCSEP,
X SOSEP "zombie", 'Z',2,6,8,1,8,0 SCSEP,
X GMSEP
X SOSEP "giant ant", 'A',3,18,3,1,6,0 SCSEP,
X SOSEP "fog cloud", 'f',3,1,0,1,6,0 SCSEP,
X SOSEP "nymph", 'N',3,12,9,1,4,0 SCSEP,
X SOSEP "piercer", 'p',3,1,3,2,6,0 SCSEP,
X SOSEP "quasit", 'Q',3,15,3,1,4,0 SCSEP,
X SOSEP "quivering blob", 'q',3,1,8,1,8,0 SCSEP,
X SOSEP "violet fungi", 'v',3,1,7,1,4,0 SCSEP,
X GMSEP
X SOSEP "giant beetle", 'b',4,6,4,3,4,0 SCSEP,
X SOSEP "centaur", 'C',4,18,4,1,6,0 SCSEP,
X SOSEP "cockatrice", 'c',4,6,6,1,3,0 SCSEP,
X SOSEP "gelatinous cube",'g',4,6,8,2,4,0 SCSEP,
X SOSEP "jaguar", 'j',4,15,6,1,8,0 SCSEP,
X SOSEP "killer bee", 'k',4,6,4,2,4,0 SCSEP,
X SOSEP "snake", 'S',4,15,3,1,6,0 SCSEP,
X GMSEP
X SOSEP "freezing sphere",'F',2,13,4,0,0,0 SCSEP,
X SOSEP "owlbear", 'o',5,12,5,2,6,0 SCSEP,
X SOSEP "rust monster", 'R',5,18,3,0,0,0 SCSEP,
X SOSEP "giant scorpion", 's',5,15,3,1,4,0 SCSEP,
X SOSEP "teleporter", 't',5,3,5,1,7,0 SCSEP,
X SOSEP "wraith", 'W',5,12,5,1,6,0 SCSEP,
X SOSEP "long worm", 'w',6,3,5,2,5,0 SCSEP,
X GMSEP
X SOSEP "large dog", 'd',6,15,4,2,4,0 SCSEP,
X SOSEP "leocrotta", 'l',6,18,4,3,6,0 SCSEP,
X SOSEP "mimic", 'M',7,3,7,3,4,0 SCSEP,
X SOSEP "minotaur", 'm',6,12,6,2,8,0 SCSEP,
X SOSEP "troll", 'T',7,12,4,2,6,0 SCSEP,
X SOSEP "ugod", 'u',6,11,5,1,10,0 SCSEP,
X SOSEP "yeti", 'Y',5,15,6,1,6,0 SCSEP,
X GMSEP
X SOSEP "invisible stalker",'I',8,12,3,4,4,0 SCSEP,
X SOSEP "umber hulk", 'U',9,6,2,2,14,0 SCSEP,
X SOSEP "vampire", 'V',8,12,1,1,6,0 SCSEP,
X SOSEP "xorn", 'X',8,9,-2,4,6,0 SCSEP,
X SOSEP "xerp", 'x',7,6,3,2,4,0 SCSEP,
X SOSEP "zelomp", 'z',9,8,3,3,6,0 SCSEP,
X SOSEP "chameleon", ':',6,5,6,4,2,0 SCSEP,
X GMSEP
X SOSEP "dragon", 'D',20,9,-1,3,8,0 SCSEP,
X SOSEP "ettin", 'e',10,12,3,2,8,0 SCSEP,
X SOSEP "lurker above", '\'',10,3,3,0,0,0 SCSEP,
X SOSEP "neo-otyugh", 'n',11,6,0,1,3,0 SCSEP,
X SOSEP "trapper", ',',12,3,3,0,0,0 SCSEP,
X SOSEP "purple worm", 'P',20,9,-1,2,8,0 SCSEP,
X SOSEP "demon", '&',14,9,-4,1,6,0 SCSEP
X GCSEP
X};
Xstruct permonst /* _mon={0,0,0,0,0,0,0,0},*/
X li_dog={"little dog", 'd',2,18,6,1,6,sizeof(struct edog)},
X dog={"dog", 'd',4,16,5,1,6,sizeof(struct edog)},
X la_dog={"large dog", 'd',6,15,4,2,4,sizeof(struct edog)};
SHAR_EOF
if test 3125 -ne "`wc -c 'hack.monst.c'`"
then
echo shar: error transmitting "'hack.monst.c'" '(should have been 3125 characters)'
fi
echo shar: extracting "'hack.move.c'" '(11537 characters)'
if test -f 'hack.move.c'
then
echo shar: over-writing existing file "'hack.move.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.move.c'
X/*
X * Hack.move.c
X */
X
X#include "hack.h"
X
Xextern char STOPGLOW[], UMISS[], *setan ();
X
X
Xextern OBJECT addinv ();
X
Xchar seelx, seehx, seely, seehy;/* Corners of lit room */
X /* l for Low, h for High */
X
X#define ZOO 1
X#define GRAVEYARD 2
X#define SWAMP 3
X#define FORT_KNOX 4
X
X
X/* Contains move commands */
X
Xchar sdir[] = "hjklyubn";
Xshort xdir[8] = {
X -1, 0, 0, 1, -1, 1, -1, 1
X} ,
X ydir[8] = {
X 0, 1, -1, 0, -1, -1, 1, 1
X};
X
Xmovecm (cmd)
Xregister char *cmd;
X{
X register char *dp;
X
X if (!(dp = index (sdir, *cmd)))
X return 0;
X dx = xdir[dp - sdir];
X dy = ydir[dp - sdir];
X return 1;
X}
X
X
Xdomove () {
X char nx, ny, tmpx, tmpy, let;
X register MONSTER mtmp;
X register PART * tmpr, *ust;
X GOLD_TRAP gold, trap, gtm1;
X OBJECT otmp, obj;
X
X if (u.uswallow) {
X nx = u.ux;
X ny = u.uy;
X goto M;
X }
X /* n<letter> is used for u.u<letter> + d<letter> */
X if (u.uconfused) {
X do {
X dx = rn2 (3);
X dy = rn2 (3);
X dx--;
X dy--;
X tmpr = &levl[u.ux + dx][u.uy + dy];
X }
X while ((!dx && !dy) || tmpr -> typ < DOOR);
X }
X else
X tmpr = &levl[u.ux + dx][u.uy + dy];
X ust = &levl[u.ux][u.uy];
X tmpx = u.ux;
X tmpy = u.uy;
X nx = u.ux + dx;
X ny = u.uy + dy;
X if (trap = g_at (nx, ny, ftrap)) {
X if (trap -> gflag == MIMIC) {
X nomul (0);
X pline ("The door is actually a mimic.");
X deltrap (trap);
X if (makemon (PM_MIMIC)) {
X newsym (nx, ny);
X return;
X }
X if (m_at (nx, ny))
X mnexto (fmon);
X else {
X fmon -> mx = nx;
X fmon -> my = ny;
X }
X if (!u.ustuck)
X u.ustuck = fmon;
X pmon (fmon);
X return;
X }
X if (trap -> gflag & SEEN)
X nomul (0);
X }
X if (u.ustuck && (nx != u.ustuck -> mx || ny != u.ustuck -> my)) {
X pseebl ("You cannot escape from %s!",
X u.ustuck -> data -> mname);
X nomul (0);
X return;
X }
XM:
X if (mtmp = m_at (nx, ny)) {
X/* Attack monster */
X char tmp;
X register MONSTDATA mdat = mtmp -> data;
X
X tmp = u.ulevel - 1 + mdat -> ac + abon ();
X if (uwep) {
X tmp += uwep -> spe;
X if (uwep -> otyp == W_TWOH_SWORD)
X tmp--;
X else if (uwep -> otyp == W_DAGGER)
X tmp += 2;
X else if (uwep -> otyp == W_SPEAR && index ("XDne",
X mdat -> mlet))
X tmp += 2;
X }
X if (mtmp -> msleep) {
X mtmp -> msleep = 0;
X tmp += 2;
X }
X if (mtmp -> mfroz) {
X tmp += 4;
X if (!rn2 (10))
X mtmp -> mfroz = 0;
X }
X if (mtmp -> mflee)
X tmp += 2;
X if (u.utrap)
X tmp -= 3;
X if (mtmp == shopkeeper)
X setangry ();
X if (tmp < rnd (20) && !u.uswallow)
X pseebl (UMISS, mdat -> mname);
X else {
X/* We hit the monster; but: it might die! */
X
X if (hmon (mtmp, uwep)) {
X /* 0-destroy,1-hit */
X if (!u.uswallow && !rn2 (25) &&
X mtmp -> mhp < mtmp -> orig_hp >> 1) {
X/* You might be stucked at this point ! { FRED } */
X if (mtmp == u.ustuck)
X unstuck (mtmp);
X mtmp -> mflee = 1;
X }
X pseebl ("You hit %s!", mdat -> mname);
X if (u.umconf && !u.uswallow) {/* a3 */
X if (!u.ublind) {
X pline (STOPGLOW);
X pseebl ("The %s appears confused.", mdat -> mname);
X }
X mtmp -> mconf = 1;
X u.umconf = 0;
X }
X if (mtmp -> wormno)
X cutworm (mtmp, nx, ny,
X uwep -> otyp);
X switch (mdat -> mlet) {
X
X case 'a':
X if (rn2 (2)) {
X pline ("You are splashed by the blob's acid!");
X losehp (rnd (6), mdat -> mname);
X }
X if (!rn2 (6) && uwep) {
X pline ("Your %s corrodes!",
X weapons[uwep -> otyp].wepnam);
X --uwep -> spe;
X }
X break;
X
X case 'E':
X if (!u.ublind && rn2 (2)) {
X pline ("You are frozen by the floating eye's gaze!");
X nomul (rn1 (20, -20));
X return;
X }
X break;
X }
X }
X }
X nomul (0);
X return;
X }
X
X/* Not attacking an animal, so we try to move */
X if (u.utrap) {
X pline ((u.upit) ? "You are still in a pit." :
X "You are caught in a beartrap.");
X if (u.upit || (dx && dy) || !rn2 (5))
X u.utrap--;
X return;
X }
X if ((dx && dy && (tmpr -> typ == DOOR || ust -> typ == DOOR)) ||
X tmpr -> typ < DOOR || tmpr -> typ == VAULT) {
X /* 0, WALL, or SDOOR */
X flags.move = 0;
X nomul (0);
X return;
X }
X u.ux = nx; /* u.ux+=dx; u.uy+=dy; */
X u.uy = ny;
X nx += dx;
X ny += dy;
X if (flags.run)
X if (tmpr -> typ == DOOR ||
X (xupstair == u.ux && yupstair == u.uy) ||
X (xdnstair == u.ux && ydnstair == u.uy))
X nomul (0);
X if (tmpr -> typ >= 30 && tmpr -> typ <= 41) {
X for (otmp = invent; otmp; otmp = otmp -> nobj) {
X if (otmp -> otyp == tmpr -> typ && otmp -> olet == '_') {
X pline ("The door opens.");
X doname (otmp, buf);
X pline ("The %s vanishes.", buf);
X useup (otmp);
X tmpr -> typ = DOOR;
X break;
X }
X }
X if (!otmp) {
X if (rn2 (2))
X pline ("The door is locked!");
X else
X pline ("You cannot unlock the door!");
X u.ux -= dx;
X u.uy -= dy;
X return;
X }
X }
X if (ust -> scrsym == '@') {
X newsym (tmpx, tmpy);
X oldux = tmpx;
X olduy = tmpy;
X }
X if (!u.ublind) {
X if (ust -> lit) {
X if (tmpr -> lit) {
X if (tmpr -> typ == DOOR)
X prl1 (nx, ny);
X if (ust -> typ == DOOR)
X nose1 (tmpx - dx, tmpy - dy);
X }
X else {
X unCoff (UNC, 1);
X prl1 (nx, ny);
X }
X }
X else {
X if (tmpr -> lit)
X setCon (SETC);
X else {
X prl1 (nx, ny);
X if (tmpr -> typ == DOOR) {
X if (dy) {
X prl (u.ux - 1, u.uy);
X prl (u.ux + 1, u.uy);
X }
X else {
X prl (u.ux, u.uy - 1);
X prl (u.ux, u.uy + 1);
X }
X }
X }
X nose1 (tmpx - dx, tmpy - dy);
X }
X }
X else
X newunseen (tmpx, tmpy);
X if (!multi)
X pru ();
X while (gold = g_at (u.ux, u.uy, fgold)) {
X if (!gold -> gflag) {
X pline ("The chest was a mimic!");
X if (!makemon (PM_MIMIC)) {
X mnexto (fmon);
X u.ustuck = fmon;
X }
X nomul (0);
X }
X else {
X if (u.uhcursed) {
X pline ("You cannot pick up the gold!");
X break;
X }
X if (gold -> gflag == 1)
X gold -> gflag++;/* a3 */
X pline ("%u gold pieces", gold -> gflag);
X u.ugold += gold -> gflag;
X flags.dgold = 1;
X }
X if (gold == fgold)
X fgold = fgold -> ngen;
X else {
X for (gtm1 = fgold; gtm1 -> ngen != gold;
X gtm1 = gtm1 -> ngen);
X gtm1 -> ngen = gold -> ngen;
X }
X free (gold);
X if (flags.run)
X nomul (0);
X if (u.uinvis)
X newsym (u.ux, u.uy);
X }
X while (obj = o_at (u.ux, u.uy)) {
X for (otmp = invent, let = 0; otmp; otmp = otmp -> nobj)
X let += weight (otmp);
X let += weight (obj);
X if (let > 85) {
X pline ("You can't carry anything more.");
X if (flags.run)
X nomul (0);
X break;
X }
X if (let > 80)
X pline ("You have a little trouble lifting");
X if (!(obj -> cursed))
X obj -> cursed = u.uhcursed;
X freeobj (obj);
X addtobill (obj);/* Sets obj->unpaid if necessary */
X prinv (addinv (obj));
X /* Might merge it with other objects */
X if (u.uinvis)
X newsym (u.ux, u.uy);
X if (flags.run)
X nomul (0);
X }
X if (trap) {
X nomul (0);
X if (trap -> gflag & SEEN && !rn2 (5))
X pline ("You escape a%s.",
X traps[trap -> gflag & 037]);
X else {
X trap -> gflag |= SEEN;
X switch (((trap -> gflag) & 037)) {
X
X case SLPTRP:
X pline ("A cloud of gas puts you to sleep!");
X nomul (-rnd (25));
X break;
X
X case BEAR:
X u.utrap = rn1 (4, 4);
X u.upit = 0;
X pline ("A bear trap closes on your foot!");
X break;
X
X case PIERC:
X pline ("A piercer suddenly drops from the ceiling!");
X deltrap (trap);
X if (!makemon (PM_PIERC)) {
X mnexto (fmon);
X hitu (3, d (4, 6),
X "falling piercer");
X }
X break;
X
X case ARROW:
X pline ("An arrow shoots out at you!");
X hitu (8, rnd (6), "arrow");
X break;
X
X case TDOOR:
X if (!xdnstair) {
X pline ("A trap door in the ceiling opens and a rock falls on your head!");
X losehp (d (2, 10),
X "falling rock");
X break;
X }
X pline ("A trap door opens up under you!");
X if (u.ufloat || u.ustuck) {
X pline ("For some reason you don't fall in.");
X break;
X }
X more ();
X keepdogs (1);
X unCoff (COFF, 1);
X do {
X dosavelev ();
X dodown ();
X levl[u.ux][u.uy].scrsym = '<';
X } while (!rn2 (4) && xdnstair);
X land ();
X losedogs ();
X setCon (CON);
X inshop ();/* a3:zie tele */
X break;
X
X case DART:
X pline ("A little dart shoots out at you!");
X if (hitu (7, rnd (3), "little dart") &&
X !rn2 (6))
X poisoned ("dart", "poison dart");
X break;
X
X case TELE:
X newsym (u.ux, u.uy);
X tele ();
X break;
X
X case PIT:
X if (u.ufloat) {
X pline ("A pit opens up under you!");
X pline ("You don't fall in!");
X break;
X }
X pline ("You fall into a pit!");
X u.utrap = rn1 (6, 2);
X u.upit = 1;
X losehp (rnd (6), "pit");
X break;
X
X default:
X pline ("Bad(%d)trap", trap -> gflag);
X impossible ();
X }
X }
X }
X if (tmpr -> typ == DOOR && dlevel) {
X inshop ();
X switch (rooms[inroom (u.ux, u.uy)].rtype) {
X case ZOO:
X if (!u.uinzoo) {
X pline ("Welcome to the Zoo!");
X u.uinzoo++;
X }
X break;
X case GRAVEYARD:
X if (!u.uinyard) {
X pline ("Welcome to the Graveyard!");
X u.uinyard++;
X }
X break;
X case SWAMP:
X if (!u.uinswamp) {
X pline ("Welcome to the Swamp!");
X u.uinswamp++;
X }
X break;
X case FORT_KNOX:
X if (!u.uinknox) {
X pline ("Welcome to Fort Knox!");
X u.uinknox++;
X }
X break;
X default:
X break;/* Who knows what more may come */
X }
X }
X if (tmpr -> typ == CORR) {
X if (u.uinshop)
X inshop ();/* Outside shop now */
X u.uinzoo = 0; /* You left the Zoo ?? */
X u.uinyard = 0; /* You left the Graveyard ?? */
X u.uinswamp = 0; /* You left the Swamp ?? */
X u.uinknox = 0; /* You left Fort Knox ?? */
X }
X if (tmpr -> typ == POOL)
X if (!u.ufloat) {
X pline ("You fall into a pool!");
X pline ("You can't swim!");
X pline ("You drown...");
X more ();
X killer = "Pool of water";
X done (DROWNED);
X }
X}
X
X/* Stop running if we see something interesting */
Xlookaround () {
X register x, y, corrct = 0;
X register MONSTER mtmp;
X
X if (u.ublind || flags.run < 2)
X return;
X for (x = u.ux - 1; x <= u.ux + 1; x++)
X for (y = u.uy - 1; y <= u.uy + 1; y++) {
X if (x == u.ux && y == u.uy)
X continue;
X/* Note: we cannot call r_free: perhaps a M is hidden in the wall */
X if (!levl[x][y].typ)
X continue;
X if (mtmp = m_at (x, y))
X if (!mtmp -> mtame || (x == u.ux + dx &&
X y == u.uy + dy)) {
X nomul (0);
X return;
X }
X if (x == u.ux - dx && y == u.uy - dy)
X continue;
X if (mtmp)
X corrct++;
X else
X switch (levl[x][y].scrsym) {
X case '+':
X if (x == u.ux || y == u.uy) {
X nomul (0);
X return;
X }
X case '0':
X multi = 0;
X flags.run = 0;
X return;
X case '.':
X case '|':
X case '-':
X break;
X case '#':
X corrct++;
X break;
X default:
X nomul (0);
X return;
X }
X }
X if (corrct > 1 && flags.run == 2)
X nomul (0);
X}
X
Xnomul (nval)
Xregister nval;
X{
X if (multi < 0)
X return;
X if (flags.mv)
X pru ();
X multi = nval;
X flags.mv = 0;
X flags.run = 0;
X}
X
Xchar *
X parse () {
X static char inline[80];
X register foo;
X
X oldux = 0;
X olduy = 0;
X flags.move = 1;
X if (!u.uinvis)
X curs (u.ux, u.uy + 2);
X else
X home ();
X flush ();
X while ((foo = getchar ()) >= '0' && foo <= '9')
X multi += 10 * multi + foo - '0';
X if (multi) {
X multi--;
X save_cm = inline;
X }
X inline[0] = foo;
X inline[1] = 0;
X if (foo == 'f' || foo == 'F') {
X inline[1] = getchar ();
X inline[2] = 0;
X }
X if (flags.topl) {
X home ();
X cl_end ();
X flags.topl = 0;
X }
X return (inline);
X}
X
Xnomove () {
X multi = 0;
X flags.move = 0;
X}
SHAR_EOF
if test 11537 -ne "`wc -c 'hack.move.c'`"
then
echo shar: error transmitting "'hack.move.c'" '(should have been 11537 characters)'
fi
echo shar: extracting "'hack.name.h'" '(2094 characters)'
if test -f 'hack.name.h'
then
echo shar: over-writing existing file "'hack.name.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.name.h'
X/*
X * Hack.name.h
X */
X
X#define S_ENCH_ARMOR 0
X#define S_DROP 1
X#define S_CURSE_LEV 2
X#define S_REM_CURSE 3
X#define S_ENCH_WEP 4
X#define S_CREAT_MON 5
X#define S_DAM_WEP 6
X#define S_GENOCIDE 7
X#define S_DESTR_ARMOR 8
X#define S_LIGHT 9
X#define S_TELEPORT 10
X#define S_GOLD_DETEC 11
X#define S_IDENTIFY 12
X#define S_MAG_MAP 13
X#define S_FIRE 14
X
X#define P_REST_STR 0
X#define P_BOOZE 1
X#define P_INVIS 2
X#define P_JUICE 3
X#define P_HEALING 4
X#define P_FROZEN 5
X#define P_MONDETEC 6
X#define P_OBJDETEC 7
X#define P_POISON 8
X#define P_CONF 9
X#define P_GAIN_STR 10
X#define P_SPEED 11
X#define P_BLIND 12
X#define P_GAIN_LEV 13
X#define P_EXTRA_HEALING 14
X
X#define Z_LIGHT 0
X#define Z_DETEC 1
X#define Z_CREATE_MON 2
X#define Z_EXHAUST 3
X#define Z_SLOW_MON 4
X#define Z_SPEED_MON 5
X#define Z_UND_TUR 6
X#define Z_POLYMORF 7
X#define Z_CAN 8
X#define Z_TELEPORT 9
X#define Z_DIGGING 10
X#define Z_MAG_MISSILE 11
X#define Z_FIRE 12
X#define Z_SLEEP 13
X#define Z_COLD 14
X#define Z_DEATH 15
X#define Z_CONF_MON 16
X#define Z_CLOSING 17
X
X#define R_ADORNMENT 0
X#define R_TELE 1
X#define R_REGEN 2
X#define R_SEARCH 3
X#define R_SEE_INV 4
X#define R_STEALTH 5
X#define R_FLOAT 6
X#define R_POISON_RES 7
X#define R_AGGRAV_MON 8
X#define R_HUNGER 9
X#define R_FIRE_RES 10
X#define R_COLD_RES 11
X#define R_SHAPE 12
X#define R_GAIN_STR 13
X#define R_DAM_INC 14
X#define R_PROTECTION 15
X
X#define W_ARROW 0
X#define W_SL_BULLET 1
X#define W_CROSS_BOLT 2
X#define W_DART 3
X#define W_MACE 4
X#define W_AXE 5
X#define W_FLAIL 6
X#define W_LONG_SWORD 7
X#define W_TWOH_SWORD 8
X#define W_DAGGER 9
X#define W_SPEAR 10
X#define W_BOW 11
X#define W_SLING 12
X#define W_CROSSBOW 13
X
X#define W_USE_AMMO 11
X#define W_AMMUNITION 3
X
X#define A_PLATE 0
X#define A_SPLINT 1
X#define A_BANDED 2
X#define A_CHAIN 3
X#define A_SCALE 4
X#define A_RING 5
X#define A_STD_LEATHER 6
X#define A_LEATHER 7
X#define A_ELVEN_CLOAK 8
X
X#define F_FOOD 0
X#define F_TRIPE 1
X#define F_PANCAKE 2
X#define F_LIZARD 3
X#define F_COOKIE 4
X#define F_ORANGE 5
X#define F_APPLE 6
X#define F_PEAR 7
X#define F_MELON 8
X#define F_BANANA 9
X#define F_CANDY 10
X#define F_EGG 11
SHAR_EOF
if test 2094 -ne "`wc -c 'hack.name.h'`"
then
echo shar: error transmitting "'hack.name.h'" '(should have been 2094 characters)'
fi
echo shar: extracting "'hack.office.c'" '(499 characters)'
if test -f 'hack.office.c'
then
echo shar: over-writing existing file "'hack.office.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.office.c'
X/*
X * Hack.office.c
X */
X
Xstruct tm { /* see ctime(3) */
X int tm_sec;
X int tm_min;
X int tm_hour;
X int tm_mday;
X int tm_mon;
X int tm_year;
X int tm_wday;
X int tm_yday;
X int tm_isdst;
X};
X
X
X#define SUNDAY 0
X#define SATURDAY 6
X
Xextern struct tm *localtime ();
X
Xkantoor () {
X struct tm *s;
X long clock;
X
X time (&clock);
X s = localtime (&clock);
X return (s -> tm_wday != SUNDAY && s -> tm_wday != SATURDAY &&
X s -> tm_hour <= 17 && s -> tm_hour > 9);
X}
SHAR_EOF
if test 499 -ne "`wc -c 'hack.office.c'`"
then
echo shar: error transmitting "'hack.office.c'" '(should have been 499 characters)'
fi
echo shar: extracting "'hack.pri.c'" '(8808 characters)'
if test -f 'hack.pri.c'
then
echo shar: over-writing existing file "'hack.pri.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.pri.c'
X/*
X * Hack.pri.c
X */
X
X#include "hack.h"
X
Xchar scrlx, scrhx, scrly, scrhy;
X
Xextern short ospeed;
Xchar xcurses[200]; /* Contain's curser stuff */
Xchar *HO, *CL, *CE, *CM, *UP, *BC;
Xchar PC;
Xextern char *tgetstr (), *getenv (), *tgoto (), *malloc ();
Xint putch ();
X /* Corners of new area on screen */
Xextern char SAVEFILE[];
X
XCOORDINATES ou = {
X -1, 0
X}; /* Coordinates of @ on screen (if ou.x>=0) */
X
Xextern char *getenv (), *hu_stat[4];/* In eat.c */
X#ifdef NORMAL_IO
Xchar obuf[BUFSIZ];
X#endif NORMAL_IO
X
Xstartup () {
X char *bp = malloc (1024);
X char *atcurs = xcurses;
X
X if (tgetent (bp, getenv ("TERM")) <= 0)
X panic (NOCORE, "I know about many terminals but alas, not this one\n");
X PC = tgetflag ("pc");
X HO = tgetstr ("ho", &atcurs);
X CL = tgetstr ("cl", &atcurs);
X CE = tgetstr ("ce", &atcurs);
X UP = tgetstr ("up", &atcurs);
X if (!(BC = tgetstr ("bc", &atcurs))) {
X if (!tgetflag ("bs"))
X panic (NOCORE,
X "You don't have a backspaced terminal\n");
X BC = (char *) NULL;
X }
X if (!(CM = tgetstr ("cm", &atcurs)))
X panic (NOCORE, "Hack needs cursor addressible terminals\n");
X else if (!UP || !CL || tgetflag ("os"))
X panic (NOCORE, "Hack needs `up' and `cl' and no `os'\n");
X free (bp);
X#ifdef NORMAL_IO
X setbuf (stdout, obuf);
X#endif NORMAL_IO
X}
X
X/*VARARGS*/
Xpanic (coredump, str, a1, a2, a3, a4, a5, a6)
Xregister char *str;
X{
X home ();
X#ifdef NORMAL_IO
X printf ("ERROR: ", 10);
X#else
X WRITE ("ERROR: ", 10);
X#endif NORMAL_IO
X printf (str, a1, a2, a3, a4, a5, a6);
X hackmode (OFF);
X if (!unlink (SAVEFILE))
X printf ("Savefile removed.\n");
X flush ();
X if (coredump)
X abort ();
X exit (2);
X}
X
Xseeatl (x, y, c)
Xregister x, y, c;
X{
X if (cansee (x, y))
X atl (x, y, c);
X}
X
Xcls () {
X tputs (CL, 0, putch);
X curx = 1;
X cury = 1;
X ou.x = -1;
X flags.topl = 0;
X}
X
Xhome () {
X if (HO)
X tputs (HO, 0, putch);
X else
X tgoto (CM, 0, 0);
X curx = 1;
X cury = 1;
X}
X
Xatl (x, y, ch)
Xregister x, y;
X{
X register PART * crm = &levl[x][y];
X
X if (crm -> scrsym == ch)
X return;
X if (x < 0 || x > 79 || y < 0 || y > 21)
X panic (CORE, "atl(%d,%d,%c_%d_)", x, y, ch, ch);
X crm -> scrsym = ch;
X crm -> new = 1;
X on (x, y);
X}
X
Xon (x, y)
Xregister x, y;
X{
X if (flags.dscr) {
X if (x < scrlx)
X scrlx = x;
X else if (x > scrhx)
X scrhx = x;
X if (y < scrly)
X scrly = y;
X else if (y > scrhy)
X scrhy = y;
X }
X else {
X flags.dscr = 1;
X scrlx = scrhx = x;
X scrly = scrhy = y;
X }
X}
X
Xat (x, y, ch)
Xregister x, y;
Xregister char ch;
X{
X if (!ch || x < 0 || x > 79 || y < 0 || y > 21)
X panic (CORE, "at(%d %d,%d) at %d %d", x, y, ch,
X u.ux, u.uy);
X y += 2;
X curs (x, y);
X putchar (ch == '\t' ? ' ' : ch);
X curx++;
X}
X
Xprme () {
X if (!u.uinvis)
X at (u.ux, u.uy, '@');
X}
X
Xpru () {
X prl (u.ux, u.uy);
X}
X
Xprl (x, y) {
X register PART * room;
X register MONSTER mtmp;
X
X room = &levl[x][y];
X if (!room -> typ || (room -> typ < DOOR &&
X levl[u.ux][u.uy].typ == CORR))
X return;
X if ((mtmp = m_at (x, y)) && (!mtmp -> invis || u.ucinvis))
X atl (x, y,
X (mtmp -> wormno && (mtmp -> mx != x || mtmp -> my != y)) ?
X '~' :
X mtmp -> data -> mlet);
X else
X newunseen (x, y);
X}
X
Xnewunseen (x, y)
Xregister x, y;
X{
X if (!levl[x][y].seen) {
X levl[x][y].new = 1;
X on (x, y);
X }
X}
X
Xchar
X news0 (x, y)
Xregister x, y;
X{
X register OBJECT otmp;
X register GOLD_TRAP gtmp;
X PART * room;
X register char tmp;
X
X room = &levl[x][y];
X if (!u.ublind && (otmp = o_at (x, y)))
X tmp = otmp -> olet;
X else if (!u.ublind && g_at (x, y, fgold))
X tmp = '$';
X else if (gtmp = g_at (x, y, ftrap)) {
X if (gtmp -> gflag == MIMIC)
X tmp = '+';
X else if (gtmp -> gflag & SEEN)
X tmp = '^';
X else
X tmp = '.';
X }
X else if (room -> typ >= 30 && room -> typ <= 41)
X tmp = '0';
X else
X switch (room -> typ) {
X
X case SDOOR:
X case WALL:
X if ((room - 1) -> typ == WALL && (room + 1) -> typ
X == WALL)
X tmp = '|';
X else
X tmp = '-';
X break;
X
X case DOOR:
X tmp = '+';
X break;
X
X case ROOM:
X if (x == xupstair && y == yupstair)
X tmp = '<';
X else if (x == xdnstair && y == ydnstair)
X tmp = '>';
X else if (room -> lit || cansee (x, y) || u.ublind)
X tmp = '.';
X else
X tmp = ' ';
X break;
X
X case CORR:
X tmp = '#';
X break;
X
X case POOL:
X tmp = '}';
X break;
X case VAULT:
X tmp = '-';
X break;
X
X default:
X tmp = '`';
X impossible ();
X }
X return tmp;
X}
X
Xnewsym (x, y)
Xregister x, y;
X{
X atl (x, y, news0 (x, y));
X}
X
Xlevlsym (x, y, c)
Xregister x, y, c;
X{
X if (levl[x][y].scrsym == c)
X newsym (x, y);
X}
X
Xnosee (x, y)
Xregister x, y;
X{
X register PART * room;
X
X room = &levl[x][y];
X if (room -> scrsym == '.' && !room -> lit && !u.ublind) {
X if (room -> new && (x != oldux || y != olduy))
X room -> new = 0;
X else {
X room -> scrsym = ' ';
X room -> new = 1;
X on (x, y);
X }
X }
X}
X
Xprl1 (x, y)
Xregister x, y;
X{
X register count;
X
X if (dx) {
X if (dy) {
X prl (x - (dx << 1), y);
X prl (x - dx, y);
X prl (x, y);
X prl (x, y - dy);
X prl (x, y - (dy << 1));
X }
X else
X for (count = -1; count <= 1; ++count)
X prl (x, y + count);
X }
X else
X for (count = -1; count <= 1; ++count)
X prl (x + count, y);
X}
X
Xnose1 (x, y)
Xregister x, y;
X{
X register count;
X
X if (dx)
X if (dy) {
X nosee (x, u.uy);
X nosee (x, u.uy - dy);
X nosee (x, y);
X nosee (u.ux - dx, y);
X nosee (u.ux, y);
X }
X else
X for (count = -1; count <= 1; ++count)
X nosee (x, y + count);
X else
X for (count = -1; count <= 1; ++count)
X nosee (x + count, y);
X}
X
Xdoreprint () {
X nomove ();
X pline ("\200"); /* Michiel: Code for repeating last message */
X}
X
X/* VARARGS1 */
Xpline (line, arg1, arg2, arg3, arg4)
Xregister char *line;
X{
X char pbuf[BUFSZ];
X static char prevbuf[BUFSZ];
X
X if (index (line, '\200'))
X strcpy (pbuf, prevbuf);
X else {
X if (!index (line, '%'))
X strcpy (pbuf, line);
X else
X sprintf (pbuf, line, arg1, arg2, arg3, arg4);
X if (multi && !strcmp (pbuf, prevbuf))
X return;
X strcpy (prevbuf, pbuf);
X }
X if (flags.dscr)
X nscr ();
X if (flags.topl) {
X curs (savx, 1);
X more ();
X }
X flags.topl = 1;
X home ();
X cl_end ();
X printf (pbuf);
X savx = strlen (pbuf);
X curx = ++savx;
X}
X
Xprustr () {
X if (u.ustr > 18) {
X if (u.ustr > 117)
X printf ("18/00");
X else
X printf ("18/%02d", u.ustr - 18);
X }
X else
X printf ("%-5d", u.ustr);
X curx += 5;
X}
X
Xpmon (mtmp)
Xregister MONSTER mtmp;
X{
X if (!mtmp -> invis || u.ucinvis)
X seeatl (mtmp -> mx, mtmp -> my, mtmp -> data -> mlet);
X}
X
Xdocrt () {
X cls ();
X if (u.uswallow) {
X curs (u.ux - 1, u.uy - 1);
X printf ("/-\\");
X curs (u.ux - 1, u.uy);
X printf ("|@|");
X curs (u.ux - 1, u.uy + 1);
X printf ("\\-/");
X curx = u.ux + 2;
X }
X else
X donscrt (0, 0); /* a3 */
X bot ();
X}
X
Xnscr () {
X register umv;
X
X umv = ((ou.x < 0 && !u.uinvis) || (ou.x >= 0 &&
X (u.uinvis || ou.x != u.ux || ou.y != u.uy)));
X if (ou.x >= 0 && umv && !levl[ou.x][ou.y].new)
X newsym (ou.x, ou.y);
X donscrt (1, umv);
X}
X
Xdonscrt (mode, umv) { /* mode: 0- docrt(), 1- nscr() */
X register PART * room;
X register x, y, ly, hy, lx, hx;
X
X if (u.uinvis) {
X if (mode)
X ou.x = -1;
X }
X else {
X ou.x = u.ux;
X ou.y = u.uy;
X if (mode && umv)
X atl (ou.x, ou.y, '@');
X else {
X (room = &levl[ou.x][ou.y]) -> scrsym = '@';
X if (!mode)
X room -> seen = 1;
X else
X room -> new = 0;
X }
X }
X if (mode) {
X ly = scrly;
X hy = scrhy;
X lx = scrlx;
X hx = scrhx;
X }
X else {
X ly = 0;
X hy = 21;
X lx = 0;
X hx = 79;
X }
X for (y = ly; y <= hy; y++)
X for (x = lx; x <= hx; x++)
X if ((room = &levl[x][y]) -> new) {
X room -> new = 0;
X at (x, y, room -> scrsym);
X if (room -> scrsym == ' ') {
X room -> seen = 0;
X room -> scrsym = '.';
X }
X else
X room -> seen = 1;
X }
X else if (!mode)
X if (room -> seen)
X at (x, y, room -> scrsym);
X flags.dscr = 0;
X scrhx = 0;
X scrhy = 0;
X scrlx = 80;
X scrly = 22;
X}
X
Xbot () {
X flags.botl = 0;
X flags.dhp = 0;
X flags.dhpmax = 0;
X flags.dac = 0;
X flags.dstr = 0;
X flags.dgold = 0;
X flags.dhs = 0;
X curs (1, 24);
X printf ("Level %-4dGold %-7luHp%4d(%d)",
X dlevel, u.ugold, u.uhp, u.uhpmax);
X if (u.uhpmax < 10)
X printf (" ");
X else if (u.uhpmax < 100)
X putchar (' ');
X printf ("Ac %-5dStr ", u.uac);
X prustr ();
X printf (" Exp%3d/", u.ulevel);
X if (u.ulevel < 14)
X printf ("%-11u", u.uexp);
X else
X printf ("%-11s", "MAX++");
X printf ("%s", hu_stat[u.uhs]);
X curx = 78;
X}
X
Xcurs (x, y)
Xregister x, y;
X{
X if (y == cury && x == curx)
X return; /* Do nothing, gracefully */
X tputs (tgoto (CM, x - 1, y - 1), 0, putch);
X flush ();
X cury = y;
X curx = x;
X}
X
Xcl_end () {
X if (CE)
X tputs (CE, 0, putch);
X else {
X printf ("%80s", "");
X home ();
X }
X}
X
Xputch (c)
Xchar c;
X{
X#ifdef NORMAL_IO
X putchar (c);
X#else
X WRITE (&c, 1);
X#endif NORMAL_IO
X}
SHAR_EOF
if test 8808 -ne "`wc -c 'hack.pri.c'`"
then
echo shar: error transmitting "'hack.pri.c'" '(should have been 8808 characters)'
fi
echo shar: extracting "'hack.rip.c'" '(1346 characters)'
if test -f 'hack.rip.c'
then
echo shar: over-writing existing file "'hack.rip.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.rip.c'
X/*
X * Hack.rip.c
X */
X
X#include <time.h>
X#include "hack.h"
X
Xextern char plname[];
X
Xstatic char *rip[] = {
X " ----------",
X " / \\",
X " / REST \\",
X " / IN \\",
X " / PEACE \\",
X " / \\",
X " | |",
X " | |",
X " | killed by a |",
X " | |",
X " | 1001 |",
X " *| * * * | *",
X " _________)/\\\\_//(\\/(/\\)/\\//\\/|_)_______",
X 0
X};
X
Xoutrip () {
X register char **dp = rip;
X register struct tm *lt;
X long date;
X char buffer[BUFSZ];
X struct tm *localtime ();
X
X time (&date);
X lt = localtime (&date);
X cls ();
X strcpy (buffer, plname);
X center (6, buffer);
X sprintf (buffer, "%u Au", u.ugold);
X center (7, buffer);
X strcpy (buffer, killer);
X center (9, buffer);
X sprintf (buffer, "19%2d", lt -> tm_year);
X center (10, buffer);
X curs (1, 8);
X while (*dp)
X printf ("%s\n", *dp++);
X getret ();
X}
X
Xcenter (line, text)
Xregister int line;
Xregister char *text;
X{
X register char *ip, *op;
X
X ip = text;
X op = &rip[line][28 - ((strlen (text) + 1) >> 1)];
X while (*ip)
X *op++ = *ip++;
X}
SHAR_EOF
if test 1346 -ne "`wc -c 'hack.rip.c'`"
then
echo shar: error transmitting "'hack.rip.c'" '(should have been 1346 characters)'
fi
echo shar: extracting "'hack.save.c'" '(5888 characters)'
if test -f 'hack.save.c'
then
echo shar: over-writing existing file "'hack.save.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.save.c'
X/*
X * Hack.save.c
X */
X
X/*
X * The old version of save () didn't work at all. Many things are changed,
X * but some things are not implemented yet, like saving in a shop, or saving
X * while swallowed or stuck
X */
X
X#include "hack.h"
X#include "hack.dog.h"
X#include <signal.h>
X
X#define MAXLEVEL 40
X
Xextern char SAVEFILE[], nul[], upxstairs[MAXLEVEL],
X upystairs[MAXLEVEL], shlevel, vaultflag[MAXLEVEL];
Xextern long robbed;
Xextern unsigned starved;
Xextern COORDINATES shk, shd;
Xextern MONSTER shopkeeper;
Xextern MONSTER mydogs;
X
Xsave () {
X register fd, ofd, tmp;
X register OBJECT otmp, otmp2;
X MONSTER mtmp;
X int version = VERSION;
X
X nomove ();
X if (shopkeeper && inshproom (u.ux, u.uy)) {
X pline ("You are not allowed to save in a shop. (Continue or Quit)");
X return;
X }
X else if (u.ustuck || u.uswallow) {
X pline ("Not implemented when you're stuck or swallowed. (Continue or Quit)");
X return;
X }
X if ((fd = creat (SAVEFILE, 0644)) < 0) {
X pline ("Cannot creat save file. (Continue or Quit)");
X return;
X }
X signal (SIGINT, SIG_IGN);
X signal (SIGQUIT, SIG_IGN);
X
X bwrite (fd, &version, sizeof (version));
X keepdogs (0);
X savelev (fd);
X for (otmp = invent; otmp; otmp = otmp2) {
X bwrite (fd, otmp, sizeof (struct obj));
X if (otmp == uarm)
X bwrite (fd, "a", 1);
X else if (otmp == uarm2)
X bwrite (fd, "b", 1);
X else if (otmp == uwep)
X bwrite (fd, "w", 1);
X else if (otmp == uleft)
X bwrite (fd, "l", 1);
X else if (otmp == uright)
X bwrite (fd, "r", 1);
X else
X bwrite (fd, "n", 1);
X otmp2 = otmp -> nobj;
X ofree (otmp);
X }
X bwrite (fd, nul, sizeof (struct obj));
X bwrite (fd, &flags, sizeof (struct flag));
X bwrite (fd, &dlevel, sizeof dlevel);
X bwrite (fd, &moves, sizeof moves);
X bwrite (fd, &u, sizeof (struct you));
X bwrite (fd, genocided, sizeof genocided);
X bwrite (fd, upxstairs, sizeof upxstairs);
X bwrite (fd, upystairs, sizeof upystairs);
X bwrite (fd, vaultflag, sizeof vaultflag);
X
X savenames (fd);
X
X/* SHOP part */
X bwrite (fd, &shd, sizeof (struct coord));
X bwrite (fd, &shk, sizeof (struct coord));
X bwrite (fd, &shlevel, sizeof shlevel);
X bwrite (fd, &robbed, sizeof robbed);
X
X/* Various globals */
X bwrite (fd, &starved, sizeof starved);
X bwrite (fd, &seehx, sizeof seehx);
X bwrite (fd, &seelx, sizeof seelx);
X bwrite (fd, &seehy, sizeof seehy);
X bwrite (fd, &seely, sizeof seely);
X bwrite (fd, &dx, sizeof dx);
X bwrite (fd, &dy, sizeof dy);
X bwrite (fd, &maxdlevel, sizeof maxdlevel);
X
X/* And the dog(s) if any */
X for (mtmp = mydogs; mtmp; mtmp = mtmp -> nmon)
X bwrite (fd, mtmp, sizeof (struct monst) +
X sizeof (struct edog));
X bwrite (fd, nul, sizeof (struct monst) + sizeof (struct edog));
X
X callssave (fd);
X
X cls ();
X printf ("Saving level ");
X flush ();
X for (tmp = 1;; tmp++) {
X glo (tmp);
X if ((ofd = open (lock, 0)) < 0)
X break;
X getlev (ofd);
X close (ofd);
X savelev (fd);
X printf ("%2d - %s", tmp,
X (tmp % 10) ? "" : "\n ");
X flush ();
X unlink (lock);
X }
X
X close (fd);
X (*index (lock, '.')) = '\0';/* Remove main lock */
X unlink (lock);
X printf ("\n\nSee you around...\n");
X flush ();
X hackmode (OFF);
X exit (0);
X}
X
Xdorecover (fd)
Xregister fd;
X{
X register nfd, tmp;
X register OBJECT otmp, olast;
X MONSTER mtmp;
X int version;
X
X cls ();
X printf ("Starting up a suspended game....\n");
X flush ();
X mread (fd, &version, sizeof (version));
X if (version != VERSION) {
X printf ("Sorry, you're savefile is out of date.\n");
X printf ("I will have to remove it.\n");
X printf ("Type <space> to continue.");
X close (fd);
X unlink (SAVEFILE);
X flush ();
X while (getchar () != ' ');
X return - 1;
X }
X
X getlev (fd);
X
X invent = otmp = newobj ();
X while (1) {
X mread (fd, otmp, sizeof (struct obj));
X if (!otmp -> olet) {
X if (otmp == invent)
X invent = 0;
X else
X olast -> nobj = 0;
X ofree (otmp);
X break;
X }
X olast = otmp;
X olast -> nobj = otmp = newobj ();
X mread (fd, buf, 1);
X switch (*buf) {
X case 'w':
X uwep = olast;
X break;
X case 'r':
X uright = olast;
X break;
X case 'l':
X uleft = olast;
X break;
X case 'a':
X uarm = olast;
X break;
X case 'b':
X uarm2 = olast;
X case 'n':
X break;
X default:
X panic (CORE, "Error reading save file");
X }
X }
X mread (fd, &flags, sizeof (struct flag));
X mread (fd, &dlevel, sizeof dlevel);
X mread (fd, &moves, sizeof moves);
X mread (fd, &u, sizeof (struct you));
X mread (fd, genocided, sizeof genocided);
X mread (fd, upxstairs, sizeof upxstairs);
X mread (fd, upystairs, sizeof upystairs);
X mread (fd, vaultflag, sizeof vaultflag);
X
X restnames (fd);
X
X/* Restore shop part */
X mread (fd, &shd, sizeof (struct coord));
X mread (fd, &shk, sizeof (shk));
X mread (fd, &shlevel, sizeof shlevel);
X mread (fd, &robbed, sizeof robbed);
X
X/* Restore various globals */
X mread (fd, &starved, sizeof starved);
X mread (fd, &seehx, sizeof seehx);
X mread (fd, &seelx, sizeof seelx);
X mread (fd, &seehy, sizeof seehy);
X mread (fd, &seely, sizeof seely);
X mread (fd, &dx, sizeof dx);
X mread (fd, &dy, sizeof dy);
X mread (fd, &maxdlevel, sizeof maxdlevel);
X
X/* Let's try the dog again */
X while (1) {
X mtmp = newmonst (sizeof (struct edog));
X mread (fd, mtmp, sizeof (struct monst) +
X sizeof (struct edog));
X if (mtmp -> data == 0)
X break;
X else {
X mtmp -> nmon = mydogs;
X mydogs = mtmp;
X }
X }
X free (mtmp);
X
X callsrestore (fd);
X
X printf ("Restoring level ");
X flush ();
X for (tmp = 1;; tmp++) {
X if (getlev (fd))
X break;
X glo (tmp);
X if ((nfd = creat (lock, 0644)) < 0)
X panic (CORE, "Cannot open temp file %s!\n",
X lock);
X savelev (nfd);
X printf ("%2d - %s", tmp,
X (tmp % 10) ? "" : "\n ");
X flush ();
X close (nfd);
X }
X
X lseek (fd, (long) (sizeof (version)), 0);
X getlev (fd);
X close (fd);
X losedogs ();
X unlink (SAVEFILE);
X docrt ();
X return 1;
X}
SHAR_EOF
if test 5888 -ne "`wc -c 'hack.save.c'`"
then
echo shar: error transmitting "'hack.save.c'" '(should have been 5888 characters)'
fi
echo shar: extracting "'hack.savelev.c'" '(2130 characters)'
if test -f 'hack.savelev.c'
then
echo shar: over-writing existing file "'hack.savelev.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.savelev.c'
X/*
X * Hack.savelev.c
X */
X
Xsavelev (fd) {
X register MONSTER mtmp, mtmp2;
X register GOLD_TRAP gtmp, gtmp2;
X register OBJECT otmp, otmp2;
X register WORMSEGMENT wtmp, wtmp2;
X register tmp;
X int minusone = -1;
X
X if (fd < 0)
X panic (CORE, "Save on bad file!");
X bwrite (fd, levl, sizeof (levl));
X bwrite (fd, &moves, sizeof (unsigned));
X bwrite (fd, &xupstair, 1);
X bwrite (fd, &yupstair, 1);
X bwrite (fd, &xdnstair, 1);
X bwrite (fd, &ydnstair, 1);
X for (mtmp = fmon; mtmp; mtmp = mtmp2) {
X mtmp2 = mtmp -> nmon;
X bwrite (fd, &mtmp -> mxlth, sizeof (int));
X bwrite (fd, mtmp, mtmp -> mxlth + sizeof (struct monst));
X
X/* Michiel save stolen objects */
X if (mtmp -> mstole) {
X bwrite (fd, mtmp -> mstole, sizeof (struct stole));
X for (otmp = mtmp -> mstole -> sobj; otmp;
X otmp = otmp -> nobj)
X bwrite (fd, otmp, sizeof (struct obj));
X bwrite (fd, nul, sizeof (struct obj));
X free (mtmp -> mstole);
X }
X else
X bwrite (fd, nul, sizeof (struct stole));
X free (mtmp);
X }
X bwrite (fd, &minusone, sizeof (int));
X for (gtmp = fgold; gtmp; gtmp = gtmp2) {
X gtmp2 = gtmp -> ngen;
X bwrite (fd, gtmp, sizeof (struct gen));
X free (gtmp);
X }
X bwrite (fd, nul, sizeof (struct gen));
X for (gtmp = ftrap; gtmp; gtmp = gtmp2) {
X gtmp2 = gtmp -> ngen;
X bwrite (fd, gtmp, sizeof (struct gen));
X free (gtmp);
X }
X bwrite (fd, nul, sizeof (struct gen));
X for (otmp = fobj; otmp; otmp = otmp2) {
X otmp2 = otmp -> nobj;
X bwrite (fd, otmp, sizeof (struct obj));
X ofree (otmp);
X }
X bwrite (fd, nul, sizeof (struct obj));
X bwrite (fd, rooms, sizeof (rooms));
X bwrite (fd, doors, sizeof (doors));
X fgold = 0;
X ftrap = 0;
X fmon = 0;
X fobj = 0;
X bwrite (fd, wsegs, sizeof (wsegs));
X for (tmp = 1; tmp < 32; tmp++) {
X for (wtmp = wsegs[tmp]; wtmp; wtmp = wtmp2) {
X wtmp2 = wtmp -> nseg;
X bwrite (fd, wtmp, sizeof (struct wseg));
X }
X wsegs[tmp] = 0;
X }
X bwrite (fd, wgrowtime, sizeof (wgrowtime));
X shopkeeper = 0;
X}
X
Xbwrite (fd, loc, num)
Xregister fd, num;
Xregister char *loc;
X{
X if (write (fd, loc, num) != num)
X panic (CORE, "Cannot write %d bytes to file #%d", num,
X fd);
X}
SHAR_EOF
if test 2130 -ne "`wc -c 'hack.savelev.c'`"
then
echo shar: error transmitting "'hack.savelev.c'" '(should have been 2130 characters)'
fi
echo shar: extracting "'hack.shk.c'" '(10486 characters)'
if test -f 'hack.shk.c'
then
echo shar: over-writing existing file "'hack.shk.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.shk.c'
X/*
X * Hack.shk.c
X */
X
X#include "hack.h"
X
X#define BILLSZ 200
X#define ONBILL 1
X#define NOTONBILL 0
X#define GDIST(x, y) ((x - gx)*(x - gx) + (y - gy)*(y - gy) )
X
Xstruct {
X OBJECT op;
Xunsigned useup: 1;
Xunsigned bquan: 5;
X unsigned price;
X} bill[BILLSZ];
X
XMONSTER shopkeeper;
X
Xstruct permonst shk_pm = {
X "shopkeeper", '@', 10, 12, 0, 4, 8, 0
X};
X
Xlong robbed = 0, total;
X
X/*
X * shoproom = index in rooms; set by inshop()
X * shlevel = last level we initialized shopkeeper
X */
X
Xchar billct = 0, shoproom, shlevel;
Xchar *shopnam[] = {
X "engagement ring", "walking cane", "antique weapon",
X "delicatessen", "second hand book", "liquor",
X "used armor", "assorted antiques"
X};
X
XCOORDINATES shk, shd;
X /* Usual position shopkeeper;position shop door */
X
X#define SHOP_NAME shopnam[rooms[shoproom].rtype - 8]
X
Xshkdead () {
X shopkeeper = 0;
X rooms[shoproom].rtype = 0;
X setpaid ();
X}
X
Xsetpaid () {
X register tmp;
X register OBJECT obj;
X
X for (obj = invent; obj; obj = obj -> nobj)
X obj -> unpaid = 0;
X for (tmp = 0; tmp < billct; tmp++)
X if (bill[tmp].useup)
X ofree (bill[tmp].op);
X billct = 0;
X}
X
Xaddupbill () { /* Delivers result in total */
X register ct = billct;
X
X total = 0;
X while (ct--)
X total += bill[ct].price;
X}
X
Xinshproom (x, y)
Xregister x, y; /* a3 */
X{
X return (inroom (x, y) == shoproom);
X}
X
Xinshop () {
X register tmp = inroom (u.ux, u.uy);
X
X if (tmp < 0 || rooms[tmp].rtype < 8) {
X u.uinshop = 0;
X if (billct) {
X pline ("Somehow you escaped the shop without paying!");
X addupbill ();
X pline ("You stole for a total worth of %u zorkmids.",
X total);
X robbed += total;
X setpaid ();
X }
X }
X else {
X shoproom = tmp;
X if (shlevel != dlevel)
X shopinit ();
X if (!u.uinshop) {
X pline ("%s to Dirk's %s shop!",
X (shopkeeper -> angry) ?
X "You're not that welcome" : "Welcome",
X SHOP_NAME);
X ++u.uinshop;
X }
X }
X return (u.uinshop);
X}
X
X/* Called by useup and dothrow only */
Xonbill (obj)
Xregister OBJECT obj;
X{
X register tmp;
X
X for (tmp = 0; tmp < billct; tmp++)
X if (bill[tmp].op == obj) {
X bill[tmp].useup = 1;
X obj -> unpaid = 0;/* only for doinvbill */
X return (ONBILL);
X }
X return (NOTONBILL);
X}
X
Xdopay () {
X register unsigned tmp;
X char buffer[BUFSZ];
X
X multi = 0;
X if (!inshop ()) {
X flags.move = 0;
X pline ("You are not in a shop.");
X return;
X }
X
X if (!shopkeeper || !inshproom (shopkeeper -> mx,
X shopkeeper -> my)) {
X pline ("There is nobody here to receive your payment.");
X return;
X }
X if (!billct) {
X pline ("You do not owe the shopkeeper anything.");
X if (!u.ugold) {
X pline ("Moreover, you have no money.");
X return;
X }
X if (robbed) {
X pline ("But since the shop has been robbed recently");
X pline ("You %srepay the shopkeeper's expenses.", (u.ugold < robbed) ?
X "partially " : "");
X u.ugold -= robbed;
X if (u.ugold < 0)
X u.ugold = 0;
X flags.dgold = 1;
X robbed = 0;
X return;
X }
X if (shopkeeper -> angry) {
X pline ("But in order to appease the angry shopkeeper,");
X if (u.ugold >= 1000L) {
X tmp = 1000;
X pline ("You give him 1000 gold pieces.");
X }
X else {
X tmp = (int) u.ugold;
X pline ("You give him all your money.");
X }
X u.ugold -= (long) tmp;
X flags.dgold = 1;
X if (rn2 (3)) {
X pline ("The shopkeeper calms down.");
X shopkeeper -> angry = 0;
X }
X else
X pline ("The shopkeeper is as angry as ever.");
X }
X return;
X }
X
X while (billct) {
X billct--;
X bill[billct].op -> unpaid = 0;
X doname (bill[billct].op, buffer);
X tmp = bill[billct].price;
X if (shopkeeper -> angry)
X tmp += tmp / 3;
X if (u.ugold < tmp) {
X ++bill[billct].op -> unpaid;
X billct++;
X pline ("You don't have gold enough to pay %s.",
X buffer);
X return;
X }
X u.ugold -= tmp;
X flags.dgold = 1;
X pline ("You bought %s for %d gold pieces.", buffer, tmp);
X if (bill[billct].useup)
X ofree (bill[billct].op);
X }
X pline ("Thank you for shopping in Dirk's %s store!",
X SHOP_NAME);
X shopkeeper -> angry = 0;
X}
X
Xpaybill () { /* Called after dying (or quitting) with
X nonempty bill */
X if (shopkeeper) {
X addupbill ();
X if (total > u.ugold) {
X u.ugold = 0;
X if (invent)
X pline ("The shopkeeper comes and takes all your possessions.");
X }
X else {
X u.ugold -= total;
X pline ("The shopkeeper comes and takes the %d zorkmids you owed him.",
X total);
X }
X }
X more ();
X}
X
Xaddtobill (obj)
Xregister OBJECT obj;
X{
X if (!inshop ())
X return;
X if (billct == BILLSZ) {
X pline ("You got that for free!");
X return;
X }
X bill[billct].op = obj;
X bill[billct].bquan = obj -> quan;
X bill[billct].useup = 0;
X bill[billct++].price = getprice (obj);
X obj -> unpaid = 1;
X}
X
Xsubfrombill (obj)
Xregister OBJECT obj;
X{
X register tmp;
X register OBJECT otmp;
X
X if (!inshop ())
X return;
X for (tmp = 0; tmp < billct; tmp++)
X if (bill[tmp].op == obj) {
X obj -> unpaid = 0;
X if (bill[tmp].bquan != obj -> quan) {
X bill[tmp].op = otmp = newobj ();
X *otmp = *obj;
X otmp -> quan = (bill[tmp].bquan -=
X obj -> quan);
X bill[tmp].price = bill[tmp].price *
X otmp -> quan;
X bill[tmp].price = bill[tmp].price /
X (otmp -> quan + obj -> quan);
X bill[tmp].useup = 1;
X return;
X }
X billct--;
X bill[tmp] = bill[billct];
X return;
X }
X/* I dropped something of my own, wanting to sell it */
X if (shopkeeper -> msleep || shopkeeper -> mfroz ||
X !inshproom (shopkeeper -> mx, shopkeeper -> my) ||
X robbed || u.ux == shk.x && u.uy == shk.y ||
X u.ux == shd.x && u.uy == shd.y)
X return;
X tmp = getprice (obj);
X if (shopkeeper -> angry) {
X tmp /= 3;
X shopkeeper -> angry = 0;
X }
X else
X tmp >>= 1;
X if (tmp < 2)
X tmp = 2;
X u.ugold += tmp;
X flags.dgold = 1;
X doname (obj, buf);
X pline ("You sold %s and got %d gold pieces.", buf, tmp);
X}
X
Xdoinvbill () {
X register unsigned tmp, cnt = 0;
X
X for (tmp = 0; tmp < billct; tmp++)
X if (bill[tmp].useup) {
X if (!cnt && !flags.oneline) {
X getret ();
X cls ();
X printf ("\n\nUnpaid articles already used up:\n\n");
X }
X strcpy (buf, "* - ");
X doname (bill[tmp].op, &buf[5]);
X for (cnt = 0; buf[cnt]; cnt++);
X while (cnt < 50)
X buf[cnt++] = ' ';
X sprintf (&buf[cnt], " %5d zorkmids",
X bill[tmp].price);
X if (flags.oneline)
X pline (buf);
X else
X printf ("%s\n", buf);
X if (!cnt % 20)
X getret ();
X }
X}
X
Xgetprice (obj)
Xregister OBJECT obj;
X{
X register tmp, ac;
X
X switch (obj -> olet) {
X case '"':
X tmp = rnd (500);
X break;
X case '=':
X case '/':
X tmp = rnd (100);
X break;
X case '?':
X case '!':
X tmp = rnd (50);
X break;
X case '*':
X tmp = rnd (6);
X break;
X case '%':
X tmp = rnd (5 + 2000 / realhunger ());
X break;
X case '[':
X ac = obj -> spe;
X tmp = (100 + ac * ac * rnd (10 + ac)) / 10;
X break;
X case ')':
X if (obj -> otyp <= W_AMMUNITION)
X tmp = rnd (10);
X else if (obj -> otyp == W_LONG_SWORD || obj -> otyp ==
X W_TWOH_SWORD)
X tmp = rnd (150);
X else
X tmp = rnd (75);
X break;
X case '_':
X default:
X tmp = 1000;
X }
X return (10 * obj -> quan * tmp);
X}
X
Xrealhunger () { /* not completely foolproof (??) */
X register tmp = u.uhunger;
X register OBJECT otmp = invent;
X
X while (otmp) {
X if (otmp -> olet == '%' && !otmp -> unpaid)
X tmp += foods[otmp -> otyp].nutrition;
X otmp = otmp -> nobj;
X }
X return tmp;
X}
X
Xshopinit () {
X register MKROOM * sroom = &rooms[shoproom];
X register i, j, x, y;
X
X shlevel = dlevel;
X shd = doors[sroom -> fdoor];
X shk.x = shd.x;
X shk.y = shd.y;
X if (shk.x == sroom -> lx - 1)
X shk.x++;
X else if (shk.x == sroom -> hx + 1)
X shk.x--;
X else if (shk.y == sroom -> ly - 1)
X shk.y++;
X else if (shk.y == sroom -> hy + 1)
X shk.y--;
X else {
X sroom -> rtype = 0;
X pline ("Where is shopdoor?");
X impossible ();
X return;
X }
X if (shopkeeper)
X return; /* We have been on this level before */
X if (makemon (&shk_pm))
X panic (CORE, "Cannot create shopkeeper?");
X shopkeeper = fmon;
X shopkeeper -> angry = u.uhcursed;
X if (m_at (shk.x, shk.y) || (shk.x == u.ux && shk.y == u.uy)) {
X /* (a3)`mnexto(shopkeeper)' is fout gaan */
X prl (shk.x, shk.y);
X for (i = -1; i < 2; i++)
X for (j = -1; j < 2; j++)
X if (levl[x = shk.x + i][y = shk.y + j].typ ==
X ROOM)
X if (!m_at (x, y)) {
X fmon -> mx = x;
X fmon -> my = y;
X pmon (shopkeeper);
X return;
X }
X fmon -> mx = shk.x;
X fmon -> my = shk.y;
X return; /* bovenop een ander monster */
X }
X else {
X fmon -> mx = shk.x;
X fmon -> my = shk.y;
X }
X pmon (shopkeeper);
X}
X
Xsetangry () {
X if (shopkeeper -> data -> mlet == '@' && !shopkeeper -> angry) {
X pline ("The shopkeeper gets angry.");
X ++shopkeeper -> angry;
X }
X}
X
Xshk_move () {
X register MONSTER mtmp;
X char gx, gy, omx, omy, cnt, appr,
X nix, niy, ddx, ddy, zx, zy, num;
X
X omx = shopkeeper -> mx;
X omy = shopkeeper -> my;
X if (!u.uinshop && inshproom (omx, omy) &&
X levl[omx][omy].typ == ROOM)
X return NOMOVE;
X if (shopkeeper -> angry && dist (omx, omy) < 3) {
X hitu (shk_pm.mhd, d (shk_pm.damn, shk_pm.damd),
X shk_pm.mname);
X return NOMOVE;
X }
X appr = 1;
X if ((shopkeeper -> angry) && !u.uinvis) {
X gx = u.ux; /* Fred */
X gy = u.uy;
X }
X else if (shk.x == omx && shk.y == omy && !billct &&
X !shopkeeper -> angry &&
X (!robbed || (u.ux == shd.x && u.uy == shd.y)) &&
X dist (omx, omy) < 3) {
X appr = 0;
X gx = 0;
X gy = 0;
X }
X else {
X gx = shk.x;
X gy = shk.y;
X }
X cnt = 0;
X if (omx == gx && omy == gy)
X return NOMOVE;
X if (shopkeeper -> mconf)
X appr = 0;
X nix = omx;
X niy = omy;
X for (ddx = -1; ddx <= 1; ddx++)
X for (ddy = -1; ddy <= 1; ddy++) {
X zx = omx + ddx;
X zy = omy + ddy;
X num = levl[zx][zy].typ;/* a3 */
X if ((ddx || ddy) && (num == ROOM || !inshproom (omx, omy)
X && (num == CORR || num == DOOR)) &&
X (shopkeeper -> mconf ||
X ((zx != u.ux || zy != u.uy) && !m_at (zx, zy))) &&
X (!appr && !rn2 (++cnt) || appr && GDIST (zx, zy) <
X GDIST (nix, niy))) {
X nix = zx;
X niy = zy;
X }
X }
X if (nix != omx || niy != omy) {
X if (shopkeeper -> mconf && (mtmp = m_at (nix, niy))) {
X if (hitmm (shopkeeper, mtmp) == 1 && rn2 (3)
X && hitmm (mtmp, shopkeeper) == DEAD)
X return DEAD;
X return NOMOVE;
X }
X shopkeeper -> mx = nix;
X shopkeeper -> my = niy;
X/* The shopkeeper might have been turned into an X */
X levlsym (omx, omy, shopkeeper -> data -> mlet);
X pmon (shopkeeper);
X return MOVE;
X }
X return NOMOVE;
X}
SHAR_EOF
if test 10486 -ne "`wc -c 'hack.shk.c'`"
then
echo shar: error transmitting "'hack.shk.c'" '(should have been 10486 characters)'
fi
# End of shell archive
exit 0peterb@pbear.UUCP (05/29/85)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# hack.h
# hack.invent.c
# hack.invinit.c
# hack.io.c
# hack.lev.c
# hack.main.c
# hack.mkobj.c
# hack.mon.c
# hack.mon.do.c
# This archive created: Tue May 28 17:52:45 1985
export PATH; PATH=/bin:$PATH
echo shar: extracting "'hack.h'" '(6911 characters)'
if test -f 'hack.h'
then
echo shar: over-writing existing file "'hack.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.h'
X/*
X * Hack.h
X */
X
X/* #define NORMAL_IO */
X#ifdef NORMAL_IO
X
X#include <stdio.h>
X#define flush() fflush( stdout )
X
X#else
X
X#undef putchar
X#undef getchar
X#define NULL 0
X#define STDOUT 0 /* Defines print in I/O packet */
X
X#endif NORMAL_IO
X
X#include "envir.h"
X#include "hack.name.h"
Xchar *strchr();
X#define index(s,c) strchr(s,c)
X
Xlong pow ();
X
X#define BUFSZ 256
X
X
X/* Arguments for panic to give just an error message or a core dump */
X#define NOCORE 0
X#define CORE 1
X
X#define ON 1
X#define OFF 0
X
X#define WALL 1
X#define SDOOR 2
X#define DOOR 3
X#define CORR 4
X#define ROOM 5
X#define POOL 7
X#define VAULT 9
X
X#define TRAPNUM 9
X
X#define MSLOW 1
X#define MFAST 2
X
X#define BEAR 0
X#define ARROW 1
X#define DART 2
X#define TDOOR 3
X#define TELE 4
X#define PIT 5
X#define SLPTRP 6
X#define PIERC 7
X#define MIMIC 8
X#define SEEN 32
X
X#define UWEP 0
X#define UARM 1
X#define UARM2 2
X#define ULEFT 3
X#define URIGHT 4
X
X#define POTN 1
X#define SCRN 2
X#define WANN 4
X#define RINN 8
X
X#define UNC 1 /* unCoff(): */
X#define COFF 0
X
X#define SETC 1 /* setCon(): */
X#define CON 0
X
X#define IT1 1
X#define THEIT2 2 /* kluns */
X
X#define CHOKED 0
X#define DIED 1
X#define STARVED 2
X#define DROWNED 3
X#define QUIT 4 /* Michiel args how you died */
X#define ESCAPED 5
X
X#define NOMOVE 0
X#define MOVE 1
X#define DEAD 2
X
X#define MISS 0
X#define HIT 1
X#define KILL 2
X
X
X
Xtypedef struct func_tab {
X char f_char;
X int (*f_funct) ();
X} FUNCTIONS;
Xextern FUNCTIONS list[];
X
X
X
Xstruct rm {
X unsigned scrsym;
X unsigned typ;
X unsigned new: 1;
X unsigned seen: 1;
X unsigned lit: 1;
X};
Xtypedef struct rm PART;
Xextern PART levl[80][22];
X
X
X
X
Xstruct mkroom {
X char lx, hx, ly, hy, rtype, rlit, doorct, fdoor;
X};
Xtypedef struct mkroom MKROOM;
Xextern MKROOM rooms[15];
X
X
X
X#define DOORMAX 100
Xstruct coord {
X char x, y;
X};
Xtypedef struct coord COORDINATES;
Xextern COORDINATES doors[DOORMAX];
X
X
X
Xstruct food {
X char *foodnam, prob, delay;
X int nutrition;
X};
Xtypedef struct food *FOOD;
Xextern struct food foods[];
X
X
X
Xstruct armor {
X char *armnam, prob, delay, a_ac, a_can;
X};
Xtypedef struct armor *ARMOR;
Xextern struct armor armors[];
X
X
X
X
X
Xstruct weapon {
X char *wepnam, prob, wsdam, wldam;
X};
Xtypedef struct weapon *WEAPON;
Xextern struct weapon weapons[];
X
X
X
X
Xstruct permonst {
X char *mname, mlet, mhd, mmove, ac, damn, damd;
X unsigned pxlth;
X};
Xtypedef struct permonst *MONSTDATA;
Xextern struct permonst mon[8][7];
X#define PM_MIMIC &mon[5][2]
X#define PM_PIERC &mon[2][3]
X#define PM_DEMON &mon[7][6]
X#define PM_CHAM &mon[6][6]
X
X
X
X
Xstruct obj {
X struct obj *nobj;
X char otyp;
X int spe;
X unsigned ox: 7;
X unsigned oy: 5;
X unsigned olet: 7;
X unsigned quan: 5;
X unsigned known: 1;
X unsigned cursed: 1;
X unsigned unpaid: 1;
X};
Xtypedef struct obj *OBJECT;
Xextern OBJECT fobj, invent, uwep, uarm, uarm2, uleft, uright;
X
X
X
Xstruct stole {
X OBJECT sobj;
X unsigned sgold;
X};
Xtypedef struct stole *STOLE;
X
X
Xstruct monst {
X struct monst *nmon;
X MONSTDATA data;
X STOLE mstole;
X char mx, my;
X int mhp, orig_hp;
X unsigned invis: 1;
X unsigned cham: 1;
X unsigned angry: 1; /* Michiel: only for shopkeeper */
X unsigned ale: 1; /* Michiel: is it an ale?? */
X unsigned mspeed: 2;
X unsigned msleep: 1;
X unsigned mfroz: 1;
X unsigned mconf: 1;
X unsigned mflee: 1;
X unsigned mcan: 1;
X unsigned mtame: 1;
X unsigned wormno: 5;
X unsigned mxlth;
X char mextra[1];
X};
Xtypedef struct monst *MONSTER;
Xextern MONSTER fmon, shopkeeper, vaultkeeper;
Xextern struct permonst treasurer;
X
XMONSTER m_at ();
X
X
X
Xstruct wseg {
X struct wseg *nseg;
X char wx, wy;
X};
X
Xtypedef struct wseg *WORMSEGMENT;
X
X#define newseg() (alloc( sizeof(struct wseg) )->Wseg)
X
X
Xstruct gen {
X struct gen *ngen;
X char gx, gy;
X unsigned gflag;
X};
Xtypedef struct gen *GOLD_TRAP;
Xextern GOLD_TRAP fgold, ftrap;
X
XGOLD_TRAP g_at ();
XOBJECT o_at (), getobj ();
X
X
Xstruct flag {
X unsigned topl: 1;
X unsigned botl: 1;
X /* faint:1, screen:1, */
X unsigned oneline: 1;
X unsigned next: 1;
X unsigned move: 1;
X unsigned mv: 1;
X unsigned run: 2;
X unsigned dgold: 1;
X unsigned dhp: 1;
X unsigned dhpmax: 1;
X unsigned dstr: 1;
X unsigned dac: 1;
X unsigned dulev: 1;
X unsigned dexp: 1;
X unsigned dhs: 1;
X unsigned dscr: 1;
X};
Xtypedef struct flag FLAG;
Xextern FLAG flags;
X
Xstruct you {
X char ux, uy, ustr, ustrmax, udaminc, uac;
X int uhunger;
X unsigned ufast: 7;
X unsigned uconfused: 6;
X unsigned uinvis: 6;
X unsigned ulevel: 5;
X unsigned utrap: 3;
X unsigned upit: 1;
X unsigned uinshop: 1;
X unsigned uinzoo: 1;
X unsigned uinyard: 1;
X unsigned uinswamp: 1;
X unsigned uinknox: 1;
X unsigned umconf: 1;
X unsigned uhcursed: 1;
X unsigned ufireres: 1;
X unsigned ucoldres: 1;
X unsigned utel: 1;
X unsigned upres: 1;
X unsigned ustelth: 1;
X unsigned uagmon: 1;
X unsigned ufeed: 1;
X unsigned usearch: 1;
X unsigned ucinvis: 1;
X unsigned uregen: 1;
X unsigned ufloat: 1;
X unsigned uswallow: 1;
X unsigned uswldtim: 4;
X unsigned ucham: 1;
X unsigned uhs: 2;
X unsigned ublind;
X short uhp, uhpmax;
X long ugold, uexp, urexp;
X MONSTER ustuck;
X};
Xtypedef struct you YOU;
Xextern YOU u;
X
X
X
Xextern char *wepnam[], *pottyp[], *scrtyp[], *traps[],
X *wantyp[], *ringtyp[], *potcol[], *scrnam[],
X *wannam[], *rinnam[], wdam[], oiden[],
X *potcall[], *scrcall[], *wandcall[], *ringcall[],
X curx, cury, savx,
X xdnstair, ydnstair, xupstair, yupstair,
X seehx, seelx, seehy, seely,
X *save_cm, *killer, dlevel, maxdlevel,
X dx, dy, buf[], lock[],
X genocided[60], oldux, olduy, wizard;
X
Xextern unsigned moves;
X
Xextern multi;
X
X#define newmonst(xl) (alloc( xl + sizeof(struct monst) )->Mtmp )
X#define newobj() (alloc( sizeof(struct obj) )->Otmp )
X#define newgen() (alloc( sizeof(struct gen) )->Gtmp )
X#define newstole() (alloc( sizeof(struct stole) )->Stmp )
X
X
X#define CHAR_NULL (char *)NULL
X#define OBJ_NULL (struct obj *)NULL
X#define TRAP_NULL (struct gen *)NULL
X#define MON_NULL (struct monst *)NULL
X#define STOLE_NULL (struct stole *)NULL
X
X#ifndef SHOW
Xunion PTRS {
X GOLD_TRAP Gtmp;
X MONSTER Mtmp;
X OBJECT Otmp;
X STOLE Stmp;
X WORMSEGMENT Wseg;
X char *Val;
X};
X
Xextern union PTRS * alloc ();
X#endif SHOW
SHAR_EOF
if test 6911 -ne "`wc -c 'hack.h'`"
then
echo shar: error transmitting "'hack.h'" '(should have been 6911 characters)'
fi
echo shar: extracting "'hack.invent.c'" '(5532 characters)'
if test -f 'hack.invent.c'
then
echo shar: over-writing existing file "'hack.invent.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.invent.c'
X/*
X * Hack.invent.c
X */
X
X#include "hack.h"
X
X#define NOT_AT 0
X#define NO_OBJ 0
X
Xextern WORMSEGMENT wsegs[32];
X
Xextern OBJECT yourinvent0;
X
XOBJECT addinv (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X
X for (otmp = invent; otmp; otmp = otmp -> nobj) {
X if (otmp -> otyp == obj -> otyp && otmp -> olet == obj -> olet
X && !obj -> unpaid && !otmp -> unpaid &&
X ((obj -> otyp < F_COOKIE &&
X obj -> olet == ')' &&
X obj -> quan + otmp -> quan < 32 &&
X obj -> spe == otmp -> spe) ||
X index ("%?!*", otmp -> olet))) {
X otmp -> quan += obj -> quan;
X ofree (obj);
X return otmp;
X }
X if (!otmp -> nobj) {
X otmp -> nobj = obj;
X obj -> nobj = 0;
X return obj;
X }
X }
X invent = obj;
X obj -> nobj = 0;
X return obj;
X}
X
Xuseup (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X
X if (obj -> quan > 1) {
X obj -> quan--;
X return;
X }
X if (obj == invent)
X invent = invent -> nobj;
X else {
X for (otmp = invent; otmp -> nobj != obj;
X otmp = otmp -> nobj);
X otmp -> nobj = obj -> nobj;
X }
X if (!onbill (obj))
X ofree (obj);
X}
X
Xdelobj (obj)
Xregister OBJECT obj;
X{
X freeobj (obj);
X ofree (obj);
X}
X
Xofree (obj)
Xregister OBJECT obj;
X{
X if (obj > yourinvent0)
X free (obj);
X}
X
X/* Unlink obj from chain starting with fobj */
X
Xfreeobj (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X
X if (obj == fobj)
X fobj = fobj -> nobj;
X else {
X for (otmp = fobj; otmp -> nobj != obj; otmp = otmp -> nobj)
X if (!otmp)
X panic (CORE, "Try to free non-existing object");
X otmp -> nobj = obj -> nobj;
X }
X}
X
Xdeltrap (trap)
Xregister GOLD_TRAP trap;
X{
X register GOLD_TRAP gtmp;
X
X if (trap == ftrap)
X ftrap = ftrap -> ngen;
X else {
X for (gtmp = ftrap; gtmp -> ngen != trap;
X gtmp = gtmp -> ngen);
X gtmp -> ngen = trap -> ngen;
X }
X free (trap);
X}
X
XMONSTER m_at (x, y)
Xregister x, y;
X{
X register MONSTER mtmp;
X register WORMSEGMENT wtmp;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon) {
X if (mtmp -> mx == x && mtmp -> my == y)
X return (mtmp);
X if (mtmp -> wormno)
X for (wtmp = wsegs[mtmp -> wormno]; wtmp;
X wtmp = wtmp -> nseg)
X if (wtmp -> wx == x && wtmp -> wy == y)
X return (mtmp);
X }
X return (NOT_AT);
X}
X
XOBJECT o_at (x, y)
Xregister x, y;
X{
X register OBJECT otmp;
X
X for (otmp = fobj; otmp; otmp = otmp -> nobj)
X if (otmp -> ox == x && otmp -> oy == y)
X return (otmp);
X return (NOT_AT);
X}
X
XGOLD_TRAP g_at (x, y, ptr)
Xregister x, y;
Xregister GOLD_TRAP ptr;
X{
X while (ptr) {
X if (ptr -> gx == x && ptr -> gy == y)
X return (ptr);
X ptr = ptr -> ngen;
X }
X return (NOT_AT);
X}
X
XOBJECT getobj (let, word)
Xregister char *let, *word;
X{
X register OBJECT otmp;
X register char ilet, ilet1, ilet2;
X char buffer[BUFSZ], allowall = 0;
X register foo = 0, foo2;
X
X if (*let == '#') {
X let++;
X allowall++;
X }
X ilet = 'a';
X for (otmp = invent; otmp; otmp = otmp -> nobj) {
X if (!let || index (let, otmp -> olet))
X buffer[foo++] = ilet;
X if (ilet == 'z')
X ilet = 'A';
X else
X ilet++;
X }
X buffer[foo] = 0;
X if (foo > 5) { /* Compactify string */
X foo = foo2 = 1;
X ilet2 = buffer[0];
X ilet1 = buffer[1];
X while (ilet = buffer[++foo2] = buffer[++foo]) {
X if (ilet == ilet1 + 1) {
X if (ilet1 == ilet2 + 1)
X buffer[foo2 - 1] = ilet1 = '-';
X else if (ilet2 == '-') {
X buffer[--foo2] = ++ilet1;
X continue;
X }
X }
X ilet2 = ilet1;
X ilet1 = ilet;
X }
X }
X if (!foo && !allowall) {
X pline ("You don't have anything to %s.", word);
X return (NO_OBJ);
X }
X for (;;) {
X pline ((foo) ? "What do you want to %s [%s or ?]? " :
X "What do you want to %s? ", word, buffer);
X flags.topl = 0;
X flush ();
X ilet = getchar ();
X if (ilet == '\33' || ilet == ' ' || ilet == '\n')
X if (strcmp (word, "identify"))
X return (NO_OBJ);
X else
X continue;/* sukkel */
X if (ilet == '?')
X doinv (foo ? let : 0, 0);
X else {
X if (ilet >= 'A' && ilet <= 'Z')
X ilet += 26 - 'A';
X else
X ilet -= 'a';
X for (otmp = invent; otmp && ilet; ilet--,
X otmp = otmp -> nobj);
X if (!otmp) {
X pline ("You don't have that object.");
X continue;
X }
X break;
X }
X }
X if (!allowall && let && !index (let, otmp -> olet)) {
X pline ("That is a silly thing to %s.", word);
X return (NO_OBJ);
X }
X return (otmp);
X}
X
Xprinv (obj)
Xregister OBJECT obj;
X{
X register OBJECT otmp;
X register char ilet = 'a';
X
X for (otmp = invent; otmp != obj; otmp = otmp -> nobj)
X if (++ilet > 'z')
X ilet = 'A';
X prname (obj, ilet, 1);
X}
X
Xprname (obj, let, onelin)
Xregister OBJECT obj;
Xregister char let;
X{
X char li[BUFSZ];
X
X doname (obj, buf);
X sprintf (li, "%c - %s.", let, buf);
X if (onelin)
X pline (li);
X else
X printf ("%s\n", li);
X}
X
Xddoinv () {
X nomove ();
X if (!invent)
X pline ("You are empty handed.");
X else
X doinv (0, 1);
X}
X
X/*
X * Page inventory done by Fred
X *
X */
X
Xdoinv (str, opt)
Xregister char *str;
Xint opt;
X{
X register OBJECT otmp;
X register char ilet = 'a';
X register int count = 1;
X int ct = 0;
X
X if (!flags.oneline)
X for (otmp = invent; otmp; otmp = otmp -> nobj)
X if (!str || index (str, otmp -> olet))
X ct++;
X if (ct > 1)
X cls ();
X for (otmp = invent; otmp; otmp = otmp -> nobj) {
X if (!str || index (str, otmp -> olet)) {
X prname (otmp, ilet, ct <= 1);
X count++;
X }
X if (++ilet > 'z')
X ilet = 'A';
X if (!(count % 22) && otmp -> nobj) {
X getret ();
X cls (); /* M. F. Page listing */
X }
X }
X if (!str && opt)
X doinvbill ();
X if (ct > 1) {
X getret ();
X docrt ();
X }
X}
SHAR_EOF
if test 5532 -ne "`wc -c 'hack.invent.c'`"
then
echo shar: error transmitting "'hack.invent.c'" '(should have been 5532 characters)'
fi
echo shar: extracting "'hack.invinit.c'" '(649 characters)'
if test -f 'hack.invinit.c'
then
echo shar: over-writing existing file "'hack.invinit.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.invinit.c'
X/*
X * Hack.invinit.c
X */
X
X#include "hack.h"
X
X/*
X * struct obj {
X * struct obj *nobj;
X * char otyp, spe;
X * ox, oy, olet, quan, known, cursed, unpaid
X * };
X */
X
Xstruct obj arrows0 = {
X (struct obj *)0,
X W_ARROW, 0, 0, 0, ')', 25, 1, 0, 0 /* 25 +0 arrows */
X};
X
Xstruct obj bow0 = {
X &arrows0,
X W_BOW, 1, 0, 0, ')', 1, 1, 0, 0 /* +1 bow */
X};
X
Xstruct obj mace0 = {
X &bow0,
X W_MACE, 1, 0, 0, ')', 1, 1, 0, 0 /* +1 mace */
X};
X
Xstruct obj uarm0 = {
X &mace0,
X A_RING, 4, 0, 0, '[', 1, 1, 0, 0 /* +1 ring mail */
X};
X
Xstruct obj food0 = {
X &uarm0,
X F_FOOD, 0, 0, 0, '%', 2, 1, 0, 0 /* 2 food rations */
X};
X
Xstruct obj *yourinvent0 = &food0;
SHAR_EOF
if test 649 -ne "`wc -c 'hack.invinit.c'`"
then
echo shar: error transmitting "'hack.invinit.c'" '(should have been 649 characters)'
fi
echo shar: extracting "'hack.io.c'" '(1559 characters)'
if test -f 'hack.io.c'
then
echo shar: over-writing existing file "'hack.io.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.io.c'
X/*
X * Hack.io.c
X */
X
X#include "hack.h"
X#include <termio.h>
X
Xshort ospeed; /* Used by tputs */
X
Xgetlin (str)
Xregister char *str;
X{
X register char *ostr = str;
X
X flags.topl = 0;
X flush ();
X for (;;) {
X *str = getchar ();
X if (*str == '\b') {
X if (str != ostr) {
X str--;
X write (1, "\b \b", 3);
X }
X else
X write (1, "\7", 1);
X }
X else if (*str == '\n') {
X *str = 0;
X return;
X }
X else if (*str >= ' ') {
X write (1, str, 1);
X str++;
X }
X }
X}
X
Xgetret () {
X printf ("\nHit space to continue: ");
X flush ();
X while (getchar () != ' ');
X}
X
Xstruct termio ttyo;
Xh_io_init() {
X ioctl(1, TCGETA, &ttyo);
X}
X
X
X/*
X * Put together cbreak-mode and echo --- Michiel
X */
X
X int speed_table[] = { 0, 50, 75, 110, 134, 150, 200, 300, 600,
X 1200, 1800, 2400, 4800, 9600, 0, 0 };
X
Xhackmode (x)
Xregister x;
X{
X struct termio ttyp;
X
X ioctl (1, TCGETA, &ttyp);/* Use of basic functions */
X ospeed = ttyp.c_cflag & 017; /* mask out other bits */
X ospeed = speed_table[ospeed];
X if (x) {
X ttyp.c_lflag &= ~ (ECHO | ICANON);
X ttyp.c_cc[4]=0;
X ttyp.c_cc[5]=0; /* set min and time to 0 */
X }
X else {
X ttyp.c_lflag = ttyo.c_lflag; /* reset back to original */
X ttyp.c_cc[4]=ttyo.c_cc[4]; /* set EOF */
X ttyp.c_cc[5]=ttyo.c_cc[5]; /* set EOL */
X }
X if (ioctl (1, TCSETA, &ttyp) < 0) {
X printf ("ERROR: Cannot change tty");
X exit (1);
X }
X}
X
Xmore () {
X printf (" --More--");
X flush ();
X while (getchar () != ' ');
X flags.topl = 0;
X}
X
X#ifndef NORMAL_IO
Xgetchar () {
X char c;
X
X read (0, &c, 1);
X return (c);
X}
X#endif NORMAL_IO
SHAR_EOF
if test 1559 -ne "`wc -c 'hack.io.c'`"
then
echo shar: error transmitting "'hack.io.c'" '(should have been 1559 characters)'
fi
echo shar: extracting "'hack.lev.c'" '(4721 characters)'
if test -f 'hack.lev.c'
then
echo shar: over-writing existing file "'hack.lev.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.lev.c'
X/*
X * Hack.lev.c
X */
X
X#include "hack.h"
X#include <signal.h>
X
X#define MAXLEVEL 40
X#define ERROR 1
X#define OK 0
X
Xextern char *itoa (), nul[], upxstairs[MAXLEVEL], upystairs[MAXLEVEL];
X
Xextern WORMSEGMENT wsegs[32], wheads[32];
Xextern unsigned wgrowtime[32];
Xextern struct permonst pm_ghost;
X
X#include "hack.savelev.c"
X
Xstruct permonst pm_ale = {
X "giant eel", ';', 15, 6, -3, 3, 6, 0
X};
X
Xgetlev (fd) {
X register MONSTER mtmp;
X register GOLD_TRAP gtmp;
X register OBJECT otmp;
X register WORMSEGMENT wtmp;
X int tmp, xl;
X unsigned tmoves, omoves;
X STOLE stmp;
X
X if (fd < 0 || read (fd, levl, sizeof (levl)) != sizeof (levl))
X return ERROR;
X fmon = 0;
X fobj = 0;
X fgold = 0;
X ftrap = 0;
X shopkeeper = 0;
X vaultkeeper = 0;
X mread (fd, &omoves, sizeof (unsigned));
X mread (fd, &xupstair, 1);
X mread (fd, &yupstair, 1);
X mread (fd, &xdnstair, 1);
X mread (fd, &ydnstair, 1);
X if (omoves)
X tmoves = (moves > omoves) ? moves - omoves : 0;
X for (;;) {
X mread (fd, &xl, sizeof (int));
X if (xl == -1)
X break;
X mtmp = newmonst (xl);
X mread (fd, mtmp, xl + sizeof (struct monst));
X
X/* Michiel restore stolen objects */
X stmp = newstole ();
X mread (fd, stmp, sizeof (struct stole));
X if (stmp -> sgold || stmp -> sobj) {
X mtmp -> mstole = stmp;
X mtmp -> mstole -> sobj = 0;
X for (;;) {
X otmp = newobj ();
X mread (fd, otmp, sizeof (struct obj));
X if (!otmp -> olet)
X break;
X otmp -> nobj = mtmp -> mstole -> sobj;
X mtmp -> mstole -> sobj = otmp;
X }
X ofree (otmp);
X }
X else
X free (stmp);
X/* Regenerate animals if you've been on another level */
X if (omoves) {
X if (!index (genocided, mtmp -> data -> mlet)) {
X if (index ("ViT", mtmp -> data -> mlet))
X mtmp -> mhp += mtmp -> mhp + tmoves;
X else
X mtmp -> mhp += tmoves / 20;
X if (mtmp -> mhp > mtmp -> orig_hp)
X mtmp -> mhp = mtmp -> orig_hp;
X if (mtmp -> data -> mlet == '@') {
X if (*mtmp -> data -> mname == 's')
X shopkeeper = mtmp;
X else if (*mtmp -> data -> mname == 'v')
X vaultkeeper = mtmp;
X }
X mtmp -> nmon = fmon;
X fmon = mtmp;
X }
X }
X else { /* Convert code from MKLEV */
X if (mtmp -> mhp == 10)
X mtmp -> data = &pm_ghost;
X else if (mtmp -> ale)
X mtmp -> data = &pm_ale;
X else
X mtmp -> data = &mon[mtmp -> mhp][mtmp -> orig_hp];
X if (mtmp -> data -> mlet == 'D')
X mtmp -> mhp = 80;
X else
X mtmp -> mhp = mtmp -> data -> mhd ?
X d (mtmp -> data -> mhd, 8) : rnd (4);
X mtmp -> orig_hp = mtmp -> mhp;
X mtmp -> cham = (mtmp -> data -> mlet == ':');
X mtmp -> invis = (mtmp -> data -> mlet == 'I');
X if (mtmp -> data -> mlet == 'w' &&
X getwn (mtmp))
X initworm (mtmp);
X mtmp -> nmon = fmon;
X fmon = mtmp;
X }
X }
X for (;;) {
X gtmp = newgen ();
X mread (fd, gtmp, sizeof (struct gen));
X if (!gtmp -> gx)
X break;
X gtmp -> ngen = fgold;
X fgold = gtmp;
X }
X for (;;) {
X mread (fd, gtmp, sizeof (struct gen));
X if (!gtmp -> gx)
X break;
X gtmp -> ngen = ftrap;
X ftrap = gtmp;
X gtmp = newgen ();
X }
X free (gtmp);
X for (;;) {
X otmp = newobj ();
X mread (fd, otmp, sizeof (struct obj));
X if (!otmp -> olet)
X break;
X otmp -> nobj = fobj;
X fobj = otmp;
X }
X ofree (otmp);
X mread (fd, rooms, sizeof (rooms));
X mread (fd, doors, sizeof (doors));
X if (!omoves)
X return OK; /* From MKLEV */
X mread (fd, wsegs, sizeof (wsegs));
X for (tmp = 1; tmp < 32; tmp++)
X if (wsegs[tmp]) {
X wheads[tmp] = wsegs[tmp] = wtmp = newseg ();
X for (;;) {
X mread (fd, wtmp, sizeof (struct wseg));
X if (!wtmp -> nseg)
X break;
X wheads[tmp] -> nseg = wtmp = newseg ();
X wheads[tmp] = wtmp;
X }
X }
X mread (fd, wgrowtime, sizeof (wgrowtime));
X return OK;
X}
X
Xmread (fd, buffer, len)
Xregister fd, len;
Xregister char *buffer;
X{
X register rlen;
X
X if ((rlen = read (fd, buffer, len)) != len)
X panic (CORE, "Read %d instead of %d bytes from file #%d\n",
X rlen, len, fd);
X}
X
Xmklev () {
X register fd;
X char type[2];
X
X#ifndef DEBUG
X if (getbones ()) {
X sleep (2);
X goto Z;
X }
X#endif DEBUG
X if (flags.next) {
X flags.next = 0;
X type[0] = 'b';
X }
X else if (dlevel < rn1 (3, MAXLEVEL - 3))
X type[0] = 'a';
X else {
X type[0] = 'n';
X flags.next = 1;
X }
X type[1] = '\0';
X hackexec (0, "./mklev", lock, type, itoa (dlevel), genocided,
X wizard ? "w" : "", NULL);
X if ((fd = open (lock, 0)) < 0) {
X pline ("Can't open %s! Second try.", lock);
X flush ();
X hackexec (0, "./mklev", lock, type, itoa (dlevel), genocided,
X wizard ? "w" : "", NULL);
X if ((fd = open (lock, 0)) < 0)
X panic (NOCORE, "Mklev error no level");
X }
X getlev (fd);
X close (fd);
XZ:
X if (!upxstairs[dlevel] && !upystairs[dlevel]) {
X upxstairs[dlevel] = xupstair;
X upystairs[dlevel] = yupstair;
X }
X}
SHAR_EOF
if test 4721 -ne "`wc -c 'hack.lev.c'`"
then
echo shar: error transmitting "'hack.lev.c'" '(should have been 4721 characters)'
fi
echo shar: extracting "'hack.main.c'" '(5621 characters)'
if test -f 'hack.main.c'
then
echo shar: over-writing existing file "'hack.main.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.main.c'
X/*
X * Hack.main.c
X */
X
X#include <signal.h>
X#include "hack.h"
X
X#define exception( id ) ( id == uid )
X#define HUISJES 2201
X#define WILDE 2216
X
Xextern char *hu_stat[4], *getenv (), *malloc (), *parse ();
X
Xint rfile;
X
XCOORDINATES doors[DOORMAX];
X
XPART levl[80][22];
XMKROOM rooms[15];
XMONSTER fmon = 0;
XGOLD_TRAP fgold = 0, ftrap = 0;
XFLAG flags;
XYOU u;
XOBJECT fobj = 0, invent, uwep, uarm,
Xuarm2 = 0, uright = 0, uleft = 0;
X
Xextern OBJECT yourinvent0;
Xextern struct obj mace0, uarm0;
X
Xchar nul[20]; /* Contains zeros */
X/* Lock contains 'pid'.dlevel */
Xchar plname[10], lock[16], wizard,
X curx, cury, savx,
X xupstair, yupstair, xdnstair, ydnstair,
X *save_cm = 0, *killer, *nomvmsg, dlevel = 0,
X dx, dy, buf[BUFSZ], genocided[60],
X SAVEFILE[37] = SAVEDIR;
X
Xunsigned moves = 1;
X
Xint multi = 0, done1 (), hangup (), hackpid;
Xint uid;
X
Xmain (argc, argv)
Xchar *argv[];
X{
X int fd;
X char *getlogin();
X register char *yourname = getlogin ();
X
X uid = getuid ();
X /*
X * Check on UID's
X */
X
X/* if (kantoor () && !exception (HUISJES) && !exception (WILDE)) {
X printf ("Sorry, You can't play hack now\n" );
X flush ();
X exit (0);
X } */
X
X if (!access (LOCK, 0) && strcmp (WIZARD, yourname)) {
X printf ("Sorry, I'm busy with debugging.\nTry again later.\n");
X flush ();
X exit (0);
X }
X h_io_init(); /* grab copy of termio struct */
X strncpy (plname, yourname, sizeof (plname) - 1);
X#ifdef WIZARD
X while (argc > 1 && **++argv == '-') {
X switch (argv[0][1]) {
X case 'w':
X if (!exception (HUISJES) && !exception (WILDE) && strcmp (yourname, WIZARD))
X printf ("Sorry\n");
X else {
X strcpy (plname, "wizard");
X wizard++;
X }
X break;
X default:
X printf ("Unknown option: %s\n", *argv);
X }
X flush ();
X }
X#endif WIZARD
X
X if (chdir (PLAYGROUND) < 0)
X panic (NOCORE, "Cannot chdir to %s!", PLAYGROUND);
X if ((rfile = open (RECORD, 2)) < 0)
X panic (NOCORE, "Can't open %s!", RECORD);
X setuid (getuid ());
X umask (0);
X srand (hackpid = getpid ());
X startup ();
X signal (SIGHUP, hangup);
X signal (SIGINT, done1);
X hackmode (ON);
X if (!wizard) {
X cls ();
X flush ();
X }
X strcat (SAVEFILE, plname);
X fd = open (SAVEFILE, 0);
X if (fd >= 0) {
X if (dorecover (fd) < 0)
X goto normalplay;
X flags.move = 0;
X }
X else {
Xnormalplay:
X shuffle ();
X invent = yourinvent0;
X uwep = &mace0;
X uarm = &uarm0;
X u.uac = 6; /* 10 - uarm->spe */
X u.ulevel = 1;
X u.uhunger = 900;
X u.uhpmax = u.uhp = 12;
X u.ustrmax = u.ustr = rn2 (20) ? 16 : rn1 (7, 14);
X flags.move = 1;
X dodown (); /* a3 */
X cls ();
X setCon (SETC);
X flags.botl = 1;
X makedog ();
X }
X for (;;) {
X if (flags.move) {
X if (!u.ufast || moves % 2 == 0) {
X if (fmon)
X movemon ();
X if (!rn2 (70)) {
X makemon (0);
X fmon -> mx = 0;
X fmon -> my = 0;
X rloc (fmon);
X seeatl (fmon -> mx, fmon -> my,
X fmon -> data -> mlet);
X }
X }
X if (u.ufast && !--u.ufast)
X pline ("You feel yourself slowing down");
X if (u.uconfused && !--u.uconfused)
X pline ("You feel less confused now");
X if (u.ublind && !--u.ublind) {
X pline ("You can see again");
X if (!u.uswallow)
X setCon (SETC);
X }
X if (u.uinvis && !--u.uinvis) {
X if (!u.uswallow)
X on (u.ux, u.uy);
X pline ("You are no longer invisible");
X }
X ++moves;
X if (u.uhp <= 0) {
X pline ("You die...");
X more ();
X done (DIED);
X }
X if (u.uhp < u.uhpmax) {
X if (u.ulevel > 9) {
X if (u.uregen || moves % 3 == 0) {
X flags.dhp = 1;
X u.uhp +=
X rnd (u.ulevel - 9);
X if (u.uhp > u.uhpmax)
X u.uhp = u.uhpmax;
X }
X }
X else if (u.uregen || moves %
X (22 - (u.ulevel << 1)) == 0) {
X flags.dhp = 1;
X u.uhp++;
X }
X }
X if (u.utel && !rn2 (85))
X tele ();
X if (u.usearch)
X dosearch ();
X gethungry ();
X }
X flags.move = 1;
X if (flags.dscr && !flags.mv)
X nscr ();
X if (flags.botl)
X bot ();
X else if (flags.dgold) {
X flags.dgold = 0;
X curs (16, 24);
X curx = 21;
X printf ("%-5u", u.ugold);
X }
X if (flags.dhp) {
X flags.dhp = 0;
X curs (26, 24);
X curx = 29;
X printf ("%3d", u.uhp);
X }
X if (flags.dhpmax) {
X flags.dhpmax = 0;
X curs (30, 24);
X printf ("%d)", u.uhpmax);
X if (u.uhpmax < 100)
X putchar (' ');
X curx = (u.uhpmax < 10) ? 33 : 34;
X }
X if (flags.dac) {
X flags.dac = 0;
X curs (37, 24);
X printf ("%-3d", u.uac);
X curx = 40;
X }
X if (flags.dstr) {
X flags.dstr = 0;
X curs (46, 24);
X prustr ();
X curx = 51;
X }
X if (flags.dulev) {
X flags.dulev = 0;
X curs (57, 24);
X printf ("%2d", u.ulevel);
X curx = 59;
X }
X if (flags.dexp) {
X flags.dexp = 0;
X curs (60, 24);
X if (u.ulevel < 14)
X printf ("%-5u", u.uexp);
X else
X printf ("MAX++");
X curx = 65;
X }
X if (flags.dhs) {
X flags.dhs = 0;
X curs (71, 24);
X printf (hu_stat[u.uhs]);
X curx = 79;
X }
X if (multi < 0) {
X if (!++multi) {
X pline (nomvmsg ? nomvmsg :
X "You can move again.");
X nomvmsg = 0;
X }
X }
X else {
X if (multi) {
X lookaround ();
X if (!multi) {
X flags.move = 0;
X continue;
X }
X if (flags.mv) {
X if (multi < 80 && !--multi) {
X flags.mv = 0;
X flags.run = 0;
X }
X domove ();
X }
X else {
X --multi;
X rhack (save_cm);
X }
X }
X else
X rhack (parse ());
X }
X }
X}
X
Xglo (n)
Xregister n; /* Construct the string `hackpid.n' */
X{
X/*
X register char *tf = lock;
X
X while( *tf && *tf != '.' )
X tf++;
X *tf++ = '.';
X sprintf( tf, "%d", n );
X*/
X sprintf (lock, "%d.%d", hackpid, n);
X}
X
Ximpossible () {
X pline ("Program in disorder - perhaps you'd better Quit");
X}
X
SHAR_EOF
if test 5621 -ne "`wc -c 'hack.main.c'`"
then
echo shar: error transmitting "'hack.main.c'" '(should have been 5621 characters)'
fi
echo shar: extracting "'hack.mkobj.c'" '(4439 characters)'
if test -f 'hack.mkobj.c'
then
echo shar: over-writing existing file "'hack.mkobj.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.mkobj.c'
X/*
X * Hack.mkobj.c
X */
X
X#include "hack.h"
X#include "hack.vars.h"
X
Xmkfood () {
X register FOOD fp;
X register i = rn2 (100);
X
X fp = &foods[0];
X while ((i -= fp -> prob) >= 0)
X fp++;
X return (fp - foods);
X}
X
Xmkarm () {
X register ARMOR ap;
X register i = rn2 (100);
X
X ap = &armors[0];
X while ((i -= ap -> prob) >= 0)
X ap++;
X return (ap - armors);
X}
X
Xmkwep () {
X register WEAPON wp;
X register i = rn2 (100);
X
X wp = &weapons[0];
X while ((i -= wp -> prob) >= 0)
X wp++;
X return (wp - weapons);
X}
X
Xchar mkobjstr[] = "))[[!!!!????%%%%//=**";
X
Xmkobj (let)
Xregister let;
X{
X register OBJECT otmp;
X
X otmp = newobj ();
X otmp -> nobj = fobj;
X fobj = otmp;
X otmp -> known = 0;
X otmp -> cursed = 0;
X otmp -> spe = 0;
X otmp -> unpaid = 0;
X otmp -> quan = 1;
X if (!let)
X let = mkobjstr[rn2 (sizeof (mkobjstr) - 1)];
X otmp -> olet = let;
X switch (let) {
X
X case ')':
X otmp -> otyp = mkwep ();
X if (otmp -> otyp <= W_AMMUNITION)
X otmp -> quan = rn1 (6, 6);
X if (!rn2 (11))
X otmp -> spe = rnd (3);
X else if (!rn2 (10)) {
X otmp -> cursed = 1;
X otmp -> spe = -rnd (3);
X }
X break;
X
X case '*':
X otmp -> otyp = rn2 (SIZE (potcol));
X otmp -> quan = rn2 (6) ? 1 : 2;
X break;
X
X case '[':
X otmp -> otyp = mkarm ();
X if (!rn2 (8))
X otmp -> cursed = 1;
X if (!rn2 (10))
X otmp -> spe = rnd (3);
X else if (!rn2 (9)) {
X otmp -> spe = -rnd (3);
X otmp -> cursed = 1;
X }
X otmp -> spe += 10 - armors[otmp -> otyp].a_ac;
X break;
X
X case '!':
X otmp -> otyp = rn2 (SIZE (pottyp));
X break;
X
X case '?':
X otmp -> otyp = rn2 (SIZE (scrtyp));
X break;
X
X case '%':
X otmp -> otyp = mkfood ();
X otmp -> quan = rn2 (6) ? 1 : 2;
X break;
X
X case '/':
X otmp -> otyp = rn2 (SIZE (wantyp));
X if (otmp -> otyp == Z_DEATH)
X otmp -> otyp = rn2 (SIZE (wantyp));
X otmp -> spe = rn1 (5, (otmp -> otyp <= Z_CREATE_MON) ?
X 11 : 4);
X /* detection and light and create monster */
X break;
X
X case '=':
X otmp -> otyp = rn2 (SIZE (ringtyp));
X if (otmp -> otyp >= R_GAIN_STR) {
X if (!rn2 (3)) {
X otmp -> spe = -rnd (2);
X otmp -> cursed = 1;
X break;
X }
X else
X otmp -> spe = rnd (2);
X }
X else if (otmp -> otyp == R_TELE ||
X otmp -> otyp == R_AGGRAV_MON ||
X otmp -> otyp == R_HUNGER)
X otmp -> cursed = 1;
X break;
X
X default:
X panic (CORE, "Impossible mkobj");
X }
X}
X
Xshufl (base, num)
Xregister char *base[];
Xregister num;
X{
X char **tmp, *tmp1;
X int curnum;
X
X for (curnum = num - 1; curnum > 0; curnum--) {
X tmp = &base[rn2 (curnum)];
X tmp1 = *tmp;
X *tmp = base[curnum];
X base[curnum] = tmp1;
X }
X}
X
Xshuffle () {
X shufl (wannam, SIZE (wantyp));
X shufl (potcol, SIZE (potcol));
X shufl (rinnam, SIZE (ringtyp));
X shufl (scrnam, SIZE (scrtyp));
X}
X
Xsavenames (fd)
Xregister fd;
X{
X bwrite (fd, oiden, sizeof oiden);
X bwrite (fd, potcol, sizeof potcol);
X bwrite (fd, scrnam, sizeof scrnam);
X bwrite (fd, wannam, sizeof wannam);
X bwrite (fd, rinnam, sizeof rinnam);
X}
X
Xrestnames (fd)
Xregister fd;
X{
X mread (fd, oiden, sizeof oiden);
X mread (fd, potcol, sizeof potcol);
X mread (fd, scrnam, sizeof scrnam);
X mread (fd, wannam, sizeof wannam);
X mread (fd, rinnam, sizeof rinnam);
X}
X
X/* Restore the names we have given to things */
Xcallsrestore (fd)
Xregister fd;
X{
X restcalls (fd, potcall, SIZE (pottyp));
X restcalls (fd, wandcall, SIZE (wantyp));
X restcalls (fd, ringcall, SIZE (ringtyp));
X restcalls (fd, scrcall, SIZE (scrtyp));
X}
X
X/* Save things we have given names to */
Xcallssave (fd)
Xregister fd;
X{
X savecalls (fd, potcall, SIZE (pottyp));
X savecalls (fd, wandcall, SIZE (wantyp));
X savecalls (fd, ringcall, SIZE (ringtyp));
X savecalls (fd, scrcall, SIZE (scrtyp));
X}
X
Xsavecalls (fd, strings, max)
Xchar *strings[];
Xregister int max, fd;
X{
X register teller;
X
X for (teller = 0; teller < max; ++teller) {
X if (strings[teller])
X bwrite (fd, strings[teller],
X strlen (strings[teller]) + 1);
X else
X bwrite (fd, "\0", 1);
X }
X}
X
Xrestcalls (fd, strings, max)
Xregister int fd, max;
Xchar *strings[];
X{
X register teller;
X char *str;
X int cnt;
X char buffer[BUFSZ];
X
X str = NULL;
X for (teller = 0; teller < max; ++teller) {
X cnt = -1;
X do {
X ++cnt;
X mread (fd, str, 1);
X buffer[cnt] = *str;
X } while (*str != '\0');
X if (cnt) {
X strings[teller] = alloc (strlen (buffer) + 1) -> Val;
X strcpy (strings[teller], buffer);
X }
X }
X}
SHAR_EOF
if test 4439 -ne "`wc -c 'hack.mkobj.c'`"
then
echo shar: error transmitting "'hack.mkobj.c'" '(should have been 4439 characters)'
fi
echo shar: extracting "'hack.mon.c'" '(10311 characters)'
if test -f 'hack.mon.c'
then
echo shar: over-writing existing file "'hack.mon.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.mon.c'
X/*
X * Hack.mon.c
X */
X
X/* Contains various monster routines */
X
X#include "hack.h"
X
Xextern char WCLEV[], STOPGLOW[];
X
Xdist (x, y)
Xregister x, y;
X{
X x -= u.ux;
X y -= u.uy;
X return (x * x + y * y);
X}
X
Xr_free (x, y, mtmp)
Xregister x, y;
Xregister MONSTER mtmp;
X{
X if (mtmp -> ale)
X return (levl[x][y].typ == POOL);
X else
X return (levl[x][y].typ > SDOOR &&
X (x != u.ux || y != u.uy) && levl[x][y].typ < POOL);
X /* DOOR,CORR,ROOM */
X}
X
X
X/* Puts m next to u, or anywhere if there isn't room there */
Xmnexto (mtmp)
XMONSTER mtmp;
X{
X register x, y, z;
X struct {
X char zx, zy;
X } foo[15], *tfoo;
X int range;
X
X tfoo = foo;
X range = 1;
X do { /* Full kludge action */
X for (y = 0; y < 2; y++)
X for (x = u.ux - range; x <= u.ux + range; x++) {
X z = range;
X if (!y)
X z = -z;
X if (test (x, z += u.uy)) {
X tfoo -> zx = x;
X tfoo++ -> zy = z;
X if (tfoo == &foo[15])
X goto foofull;
X }
X }
X for (x = 0; x < 2; x++)
X for (y = u.uy + 1 - range; y < u.uy + range;
X y++) {
X z = range;
X if (!x)
X z = -z;
X if (test (z += u.ux, y)) {
X tfoo -> zx = z;
X tfoo++ -> zy = y;
X if (tfoo == &foo[15])
X goto foofull;
X }
X }
X range++;
X } while (tfoo == foo);
Xfoofull:
X tfoo = &foo[rn2 (tfoo - foo)];
X mtmp -> mx = tfoo -> zx;
X mtmp -> my = tfoo -> zy;
X pmon (mtmp);
X if (mtmp -> data -> mlet == 'w')
X initworm (mtmp);
X}
X
Xrloc (mtmp)
XMONSTER mtmp;
X{
X register tx, ty;
X register char ch = mtmp -> data -> mlet;
X
X if (ch == 'w' && mtmp -> mx)
X return; /* Do not relocate worms */
X levlsym (mtmp -> mx, mtmp -> my, ch);
X if (mtmp -> ale) {
X do {
X tx = rn1 (77, 2);
X ty = rn2 (22);
X /* until CORR,DORR,or ROOM; or... */
X } while (levl[tx][ty].typ != POOL || m_at (tx, ty) ||
X (tx == u.ux && ty == u.uy));
X }
X else {
X do {
X tx = rn1 (77, 2);
X ty = rn2 (22);
X /* until CORR,DORR,or ROOM; or... */
X } while (levl[tx][ty].typ < DOOR || m_at (tx, ty) ||
X (tx == u.ux && ty == u.uy)
X || levl[tx][ty].typ >= 7);
X }
X mtmp -> mx = tx;
X mtmp -> my = ty;
X pmon (mtmp);
X if (ch == 'w')
X initworm (mtmp);
X}
X
Xtest (x, y) {
X if (x <= 0 || x > 78 || y <= 0 || y > 20)
X return 0;
X if (m_at (x, y) || levl[x][y].typ < DOOR || levl[x][y].typ >= 7)
X return 0;
X return 1;
X}
X
Xpoisoned (string, pname)
Xregister char *string, *pname;
X{
X pseebl ("%s was poisoned!", string);
X if (u.upres) {
X pline ("The poison doesn't seem to affect you.");
X return;
X }
X
X switch (rn2 (6)) {
X case 0:
X u.uhp = 0;
X break;
X case 1:
X case 2:
X case 3:
X losestr (rn1 (3, 3));
X break;
X case 4:
X case 5:
X losehp (rn1 (10, 6), pname);
X return;
X }
X
X if (u.uhp <= 0)
X killer = pname;
X}
X
Xsteal (mtmp)
XMONSTER mtmp;
X{
X register OBJECT otmp, ot1;
X register tmp;
X
X for (otmp = invent, tmp = 0; otmp -> nobj; otmp = otmp -> nobj, tmp++);
X
X tmp = rn2 (tmp);
X otmp = invent;
X if (!tmp)
X invent = invent -> nobj;
X else {
X for (; otmp && tmp; tmp--, otmp = otmp -> nobj);
X ot1 = otmp -> nobj;
X otmp -> nobj = ot1 -> nobj;/* rm obj from invent */
X otmp = ot1;
X }
X if (otmp == uarm || otmp == uarm2) {
X u.uac += otmp -> spe;
X if (otmp == uarm)
X uarm = uarm2;
X uarm2 = 0;
X flags.dac = 1;
X }
X else if (otmp == uwep)
X uwep = 0;
X else if (otmp == uleft) {
X uleft = 0;
X doring (otmp, OFF);
X }
X else if (otmp == uright) {
X uright = 0;
X doring (otmp, OFF);
X }
X doname (otmp, buf);
X pline ("She stole %s.", buf);
X stlobj (mtmp, otmp);
X}
X
Xstlobj (mtmp, otmp)
Xregister MONSTER mtmp;
Xregister OBJECT otmp;
X{
X otmp -> nobj = 0; /* Michiel: dog and two objects? */
X if (mtmp -> mstole) {
X otmp -> nobj = mtmp -> mstole -> sobj;
X mtmp -> mstole -> sobj = otmp;
X return;
X } /* Michiel save stolen object */
X else {
X mtmp -> mstole = newstole ();
X mtmp -> mstole -> sobj = otmp;
X mtmp -> mstole -> sgold = 0;
X }
X}
X
Xdelmon (mtmp)
Xregister MONSTER mtmp;
X{
X unstuck (mtmp); /* a3 */
X relmon (mtmp);
X if (mtmp == shopkeeper)
X shkdead ();
X if (mtmp == vaultkeeper) {
X mtmp -> data -> mmove = -1;
X vaultkeeper = 0;
X }
X if (mtmp -> wormno)
X wormdead (mtmp);
X free (mtmp);
X}
X
Xrelmon (mtmp)
Xregister MONSTER mtmp;
X{
X register MONSTER mtmp2;
X
X if (mtmp == fmon)
X fmon = fmon -> nmon;
X else {
X for (mtmp2 = fmon; mtmp2 -> nmon != mtmp; mtmp2 = mtmp2 -> nmon);
X mtmp2 -> nmon = mtmp -> nmon;
X }
X}
X
X/* Release the objects the killed animal has stolen */
Xrelobj (mtmp)
Xregister MONSTER mtmp;
X{
X register GOLD_TRAP gtmp;
X register tmp = 0;
X OBJECT otmp, otmp2;
X
X if (mtmp -> mstole) { /* Michiel drop stolen obj or gold */
X if (mtmp -> mstole -> sgold)
X tmp = mtmp -> mstole -> sgold;
X else {
X otmp = mtmp -> mstole -> sobj;
X do {
X otmp -> ox = mtmp -> mx;
X otmp -> oy = mtmp -> my;
X otmp2 = otmp;
X otmp = otmp -> nobj;
X } while (otmp);
X otmp2 -> nobj = fobj;
X fobj = mtmp -> mstole -> sobj;
X if (mtmp -> data -> mlet != 'd')
X seeatl (otmp -> ox, otmp -> oy, otmp -> olet);
X }
X free (mtmp -> mstole);
X mtmp -> mstole = NULL;
X }
X if (mtmp -> data -> mlet == 'L') {
X gtmp = newgen ();
X gtmp -> ngen = fgold;
X gtmp -> gx = mtmp -> mx;
X gtmp -> gy = mtmp -> my;
X if (dlevel)
X gtmp -> gflag = tmp + d (dlevel, 30);
X else
X gtmp -> gflag = tmp + d (maxdlevel, 30);
X fgold = gtmp;
X seeatl (mtmp -> mx, mtmp -> my, '$');
X }
X}
X
X/* a3 */
Xunstuck (mtmp)
Xregister MONSTER mtmp;
X{
X if (mtmp == u.ustuck) {
X if (u.uswallow) {
X u.uswallow = 0;
X u.uswldtim = 0;
X docrt ();
X setCon (SETC);/* Try a3 */
X }
X u.ustuck = 0;
X }
X}
X
Xkilled (mtmp)
Xregister MONSTER mtmp;
X{
X register tmp;
X
X unstuck (mtmp);
X levlsym (mtmp -> mx, mtmp -> my, mtmp -> data -> mlet);
X if (mtmp -> cham)
X mtmp -> data = (PM_CHAM);
X pseebl ("You destroy %s!", mtmp -> data -> mname);
X if (!u.ublind && u.umconf) {
X pline (STOPGLOW);
X u.umconf = 0;
X }
X tmp = mtmp -> data -> mhd;
X tmp *= tmp;
X ++tmp;
X if (mtmp -> data -> ac < 3)
X tmp += (7 - mtmp -> data -> ac) << 1;
X if (index ("AcsSDXaeRTVWU&In:P", mtmp -> data -> mlet))
X tmp += mtmp -> data -> mhd << 1;
X if (index ("DeV&P", mtmp -> data -> mlet))
X tmp += 7 * mtmp -> data -> mhd;
X if (mtmp -> data -> mhd > 6)
X tmp += 50;
X if (mtmp -> ale)
X tmp += 1000;
X relobj (mtmp);
X if ((index ("NTV&", mtmp -> data -> mlet) || !rn2 (5)) && !mtmp -> ale
X && levl[mtmp -> mx][mtmp -> my].typ > SDOOR) {
X /* Mimic in wall? */
X mkobj (0);
X fobj -> ox = mtmp -> mx;
X fobj -> oy = mtmp -> my;
X if (!u.ublind)
X atl (mtmp -> mx, mtmp -> my, fobj -> olet);
X }
X delmon (mtmp);
X u.urexp += tmp << 2;
X u.uexp += tmp;
X flags.dexp = 1;
X while (u.uexp >= 10L * pow (u.ulevel - 1)) {
X pline (WCLEV, ++u.ulevel);
X tmp = rnd (10);
X if (tmp < 3)
X tmp = rnd (10);
X u.uhpmax += tmp;
X u.uhp += tmp;
X flags.dhp = 1;
X flags.dhpmax = 1;
X flags.dulev = 1;
X }
X}
X
X#define TBLIND 5
X#define NOTEST 6
X
X/*VARARGS*/
Xpsee (mode, x, y, str, name, arg)/* Str bevat %s */
Xregister char *str, *name, *arg;
X{
X char *a1, *a2;
X
X a1 = "the %s";
X a2 = "the %s";
X if (mode == TBLIND) {
X if (u.ublind)
X a1 = "it";
X }
X else if (mode != NOTEST && !cansee (x, y))
X switch (mode) {
X case IT1:
X a1 = "it";
X break;
X case THEIT2:
X a2 = "it";
X break;
X case 0:
X return 0;
X default:
X pline ("Bad(%d) mode in psee", mode);
X }
X sprintf (buf, str, a1, a2);
X if (*buf >= 'a' && *buf <= 'z')
X *buf += 'A' - 'a';
X pline (buf, name, arg);
X return 1;
X}
X
X/*VARARGS*/
Xp2xthe (str, name, arg)
Xregister char *str, *name, *arg;
X{
X psee (NOTEST, 0, 0, str, name, arg);
X}
X
Xpseebl (str, name)
Xregister char *str, *name;
X{
X psee (TBLIND, 0, 0, str, name, NULL);
X}
X
Xrescham () { /* Force all chameleons to become normal */
X register MONSTER mtmp;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon)
X if (mtmp -> cham) {
X mtmp -> cham = 0;
X if (u.uswallow && u.ustuck == mtmp) {
X unstuck (mtmp);
X mnexto (mtmp);
X }
X newcham (mtmp, PM_CHAM);
X }
X}
X
X/* Make a chameleon look like a new monster */
Xnewcham (mtmp, mdat)
Xregister MONSTER mtmp;
Xregister MONSTDATA mdat;
X{
X register mhp, hpn, hpd;
X
X if (mdat == mtmp -> data)
X return; /* Still the same monster */
X if (u.uswallow && mdat -> mlet == 'w')
X return;
X if (mtmp -> wormno)
X wormdead (mtmp);/* Throw tail away */
X hpn = mtmp -> mhp;
X hpd = mtmp -> data -> mhd << 3;
X mtmp -> data = mdat;
X mtmp -> invis = 0;
X mtmp -> mtame = 0;
X mhp = mdat -> mhd << 3;
X/* New hp: same fraction of max as before */
X mtmp -> mhp = 2 + (hpn * mhp) / hpd;
X hpn = mtmp -> orig_hp;
X mtmp -> orig_hp = 2 + (hpn * mhp) / hpd;
X if (mdat -> mlet == 'I') {
X ++mtmp -> invis;
X if (cansee (mtmp -> mx, mtmp -> my))
X prl (mtmp -> mx, mtmp -> my);
X }
X if (mdat -> mlet == 'w' && getwn (mtmp))
X initworm (mtmp);
X if (u.uswallow && mtmp == u.ustuck &&
X !index (",'P", mdat -> mlet)) {
X unstuck (mtmp);
X mnexto (mtmp);
X }
X pmon (mtmp);
X}
X
Xmakemon (ptr)
Xregister MONSTDATA ptr;
X{
X register MONSTER mtmp;
X
X if (!ptr) {
X do
X ptr = &mon[rn2 (dlevel / 3 + 1) % 8][rn2 (7)];
X while (index (genocided, ptr -> mlet));
X }
X else {
X if (index (genocided, ptr -> mlet)) {
X if (!u.ublind)
X p2xthe ("%s vanishes!", ptr -> mname);
X return 1;
X }
X }
X mtmp = newmonst (ptr -> pxlth);
X mtmp -> nmon = fmon;
X fmon = mtmp;
X mtmp -> mstole = 0;
X mtmp -> invis = 0;
X mtmp -> cham = 0;
X mtmp -> msleep = 0;
X mtmp -> mfroz = 0;
X mtmp -> mconf = 0;
X mtmp -> mflee = 0;
X mtmp -> mtame = 0;
X mtmp -> mspeed = 0;
X mtmp -> mcan = 0;
X mtmp -> angry = 0;
X mtmp -> mxlth = 0;
X mtmp -> ale = 0;
X mtmp -> data = ptr;
X switch (ptr -> mlet) {
X case 'I':
X ++mtmp -> invis;
X break;
X case 'L':
X mtmp -> msleep = u.uhcursed;
X break;
X case ':':
X ++mtmp -> cham;
X if (!u.ucham)
X newcham (mtmp, &mon[rn1 (6, 2)][rn2 (7)]);
X break;
X case ';':
X mtmp -> ale = 1;
X break;
X }
X if (ptr -> mlet != 'w' || !getwn (mtmp))
X mtmp -> wormno = 0;
X mtmp -> mhp = rnd (4);
X if (ptr -> mhd)
X mtmp -> mhp = d (ptr -> mhd, 8);
X mtmp -> orig_hp = mtmp -> mhp;
X return 0;
X}
X
Xsomegold () {
X return ((u.ugold < 100L) ? u.ugold :
X (u.ugold > 10000L) ? rnd (10000) : rnd ((int) u.ugold));
X}
X
Xmkmonat (ptr, x, y)
Xregister MONSTDATA ptr;
Xregister x, y;
X{
X if (makemon (ptr))
X return;
X if (x == u.ux && y == u.uy)
X mnexto (fmon);
X else {
X atl (x, y, ptr -> mlet);
X fmon -> mx = x;
X fmon -> my = y;
X }
X}
SHAR_EOF
if test 10311 -ne "`wc -c 'hack.mon.c'`"
then
echo shar: error transmitting "'hack.mon.c'" '(should have been 10311 characters)'
fi
echo shar: extracting "'hack.mon.do.c'" '(12240 characters)'
if test -f 'hack.mon.do.c'
then
echo shar: over-writing existing file "'hack.mon.do.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.mon.do.c'
X/*
X * Hack.mon.do.c
X */
X
X/* Contains monster control routines */
X
X#include "hack.h"
X
Xextern MONSTER bhit ();
X
Xmovemon () {
X register MONSTER mtmp, mtmp2;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp2) {
X mtmp2 = mtmp -> nmon;
X if (mtmp -> mspeed != MSLOW || moves % 2 == 0)
X if (dochug (mtmp))
X continue;/* Monster died */
X if (mtmp -> mspeed == MFAST)
X if (dochug (mtmp))
X continue;
X
X/* If we left the room: make monsters invis, even if they didn't move */
X
X if (!cansee (mtmp -> mx, mtmp -> my))
X levlsym (mtmp -> mx, mtmp -> my, mtmp -> data -> mlet);
X if (mtmp -> wormno && mtmp -> data -> mlet == 'w')
X wormsee (mtmp -> wormno);
X }
X}
X
Xjustswld (mtmp)
Xregister MONSTER mtmp;
X{
X newsym (mtmp -> mx, mtmp -> my);
X mtmp -> mx = u.ux;
X mtmp -> my = u.uy;
X u.ustuck = mtmp;
X at (u.ux, u.uy, mtmp -> data -> mlet);
X pseebl ("%s swallows you!", mtmp -> data -> mname);
X more ();
X u.uswallow = 1;
X docrt ();
X}
X
Xyouswld (mtmp, dam, die)
Xregister MONSTER mtmp;
Xregister dam, die;
X{
X pseebl ("%s digests you!", killer = mtmp -> data -> mname);
X if (dam > 0) {
X u.uhp -= dam;
X flags.dhp = 1;
X }
X if (u.uswldtim++ == die) {
X pline ("It totally digests you!");
X u.uhp = 0;
X }
X}
X
Xx2hitu (mlev, x, name)
Xregister mlev, x;
Xregister char *name; /* a3 */
X{
X register i;
X
X for (i = 0; i < 2; i++)
X hitu (mlev, (x < 0) ? d (2, x) : (x == 0) ? d (3, 4) :
X rnd (x), name);
X}
X
Xdochug (mtmp)
Xregister MONSTER mtmp;
X{
X register MONSTDATA mdat;
X register tmp = 0, ctmp;
X
X if (mtmp -> mhp <= 0 && !mtmp -> mtame)
X return 1; /* Killed by dog or ? */
X if (mtmp -> cham && !rn2 (6))
X newcham (mtmp, &mon[rn1 (6, 2)][rn2 (7)]);
X mdat = mtmp -> data;
X /*
X if( mdat->mhd < 0 )
X panic( CORE, "Bad(%d)monster %c", mdat->mhd,
X mdat->mlet );
X */
X if ((moves % 20 == 0 || index ("ViT", mdat -> mlet)) &&
X mtmp -> mhp < mtmp -> orig_hp)
X mtmp -> mhp++; /* Regenerate monsters */
X if (mtmp -> mfroz)
X return 0; /* Frozen monsters don't do anything */
X if (mtmp -> msleep) {
X /* Wake up a monster, or get out of here */
X if (cansee (mtmp -> mx, mtmp -> my) && !u.ustelth &&
X (!rn2 (7) || u.uagmon))
X mtmp -> msleep = 0;
X else
X return 0;
X }
X
X/* Confused monsters get unconfused with small probability */
X
X if (mtmp -> mconf && !rn2 (50))
X mtmp -> mconf = 0;
X if (mdat -> mmove >= rnd (12) && (mtmp -> mflee || mtmp -> mconf ||
X dist (mtmp -> mx, mtmp -> my) > 2 || mtmp -> mtame ||
X mtmp == shopkeeper) && (tmp = m_move (mtmp, 0)) &&
X mdat -> mmove <= 12)
X return (tmp == 2);
X /* Move monsters and exit if rate<=12 */
X if (tmp == 2)
X return 1; /* Monster died moving */
X
X if (!index ("Ea", mdat -> mlet) && dist (mtmp -> mx, mtmp -> my) < 3
X && !mtmp -> mtame && mtmp != shopkeeper && u.uhp > 0) {
X nomul (tmp = 0);
X if (u.uswallow) {
X if (mtmp != u.ustuck)
X if (mdat -> mmove - 12 > rnd (12))
X tmp = m_move (mtmp, 1);
X }
X else if (!index ("&DyF", mdat -> mlet)) {
X if (mtmp -> ale && cansee (mtmp -> mx, mtmp -> my)) {
X mtmp -> invis = 0;
X pmon (mtmp);
X }
X tmp = hitu (mdat -> mhd, d (mdat -> damn, mdat -> damd),
X mdat -> mname);
X }
X
X/* Increase chance of hitting (no damage) for L and R */
X if (index ("LR", mdat -> mlet) && hitu (5, 0, mdat -> mname))
X tmp++;
X
X ctmp = (tmp && !mtmp -> mcan && (!uarm ||
X armors[uarm -> otyp].a_can < rnd (3)));
X
X switch (mdat -> mlet) {
X
X case ';':
X if (mtmp -> mcan)
X break;
X if (!u.ustuck && !rn2 (20)) {
X p2xthe ("%s swings itself around you!",
X mdat -> mname);
X u.ustuck = mtmp;
X }
X else if (u.ustuck == mtmp && ctmp) {
X p2xthe ("%s drowns you...", mdat -> mname);
X more ();
X done (DROWNED);
X }
X break;
X
X case '&':
X if (!mtmp -> mcan && !rn2 (15)) {
X makemon (PM_DEMON);
X mnexto (fmon);
X }
X else {
X x2hitu (10, -6, mdat -> mname);
X x2hitu (10, 3, mdat -> mname);
X hitu (10, rn1 (4, 2), mdat -> mname);
X }
X break;
X
X case ',':
X case '\'':
X if (u.uswallow)
X if (mdat -> mlet == ',')
X youswld (mtmp, 4 + u.uac, 5);
X else
X youswld (mtmp, rnd (6), 7);
X else if (tmp)
X justswld (mtmp);
X break;
X
X case 'A':
X if (ctmp && rn2 (2)) {
X pline ("You feel weaker!");
X losestr (1);
X }
X break;
X
X case 'C':
X case 'Y':
X hitu (4, rnd (6), mdat -> mname);
X break;
X
X case 'c':
X if (ctmp && !rn2 (5)) {
X pline ("You get turned to stone!");
X u.uhp = 0;
X }
X break;
X
X case 'D':
X if (rn2 (6) || mtmp -> mcan) {
X hitu (10, d (3, 10), mdat -> mname);
X x2hitu (10, 8, mdat -> mname);
X break;
X }
X pseebl ("%s breathes fire!", mdat -> mname);
X buzz (Z_FIRE, mtmp -> mx, mtmp -> my,
X u.ux - mtmp -> mx,
X u.uy - mtmp -> my);
X break;
X
X case 'd':
X hitu (6, d (2, 4), mdat -> mname);
X break;
X
X case 'e':
X hitu (10, d (3, 6), mdat -> mname);
X break;
X
X case 'F':
X if (mtmp -> mcan)
X break;
X pseebl ("%s explodes!", mdat -> mname);
X if (u.ucoldres)
X pline ("You don't seem affected by it.");
X else {
X if (17 - (u.ulevel >> 1) > rnd (20)) {
X pline ("You get blasted!");
X tmp = 6;
X }
X else {
X pline ("You duck the blast...");
X tmp = 3;
X }
X losehp (d (tmp, 6), mdat -> mname);
X }
X cmdel (mtmp);
X return 1;
X
X case 'g':
X if (!ctmp || multi < 0 || rn2 (6))
X break;
X pseebl ("You are frozen by %ss juices", "cube'");
X nomul (-rnd (10));
X break;
X
X case 'h':
X if (!ctmp || multi < 0 || rn2 (5))
X break;
X pseebl ("You are put to sleep by %ss bite!",
X "homunculus'");
X nomul (-rnd (10));
X break;
X
X case 'j':
X tmp = hitu (4, rnd (3), mdat -> mname);
X tmp &= hitu (4, rnd (3), mdat -> mname);
X if (tmp)
X x2hitu (4, 4, mdat -> mname);
X break;
X
X case 'k':
X if ((hitu (4, rnd (4), mdat -> mname) || !rn2 (3))
X && ctmp)
X poisoned ("bee's sting", mdat -> mname);
X break;
X
X case 'L':
X if (ctmp && u.ugold && rn2 (2)) {
X u.ugold -= (ctmp = somegold ());
X pline ("Your purse feels lighter.");
X flags.dgold = 1;
X
X /* Michiel save stolen gold */
X if (mtmp -> mstole)
X mtmp -> mstole -> sgold += ctmp;
X else {
X mtmp -> mstole = newstole ();
X mtmp -> mstole -> sobj = 0;
X mtmp -> mstole -> sgold = ctmp;
X }
X mtmp -> mflee = 1;
X rloc (mtmp);
X }
X break;
X
X case 'N':
X if (ctmp && invent && rn2 (2)) {
X steal (mtmp);
X rloc (mtmp);
X mtmp -> mflee = 1;
X }
X break;
X
X case 'n':
X x2hitu (11, -6, mdat -> mname);
X break;
X
X case 'o':
X hitu (5, rnd (6), mdat -> mname);
X /* tmp= ?? */
X if (hitu (5, rnd (6), mdat -> mname) && ctmp &&
X !u.ustuck && rn2 (2)) {
X u.ustuck = mtmp;
X pseebl ("%s has grabbed you!",
X mdat -> mname);
X u.uhp -= d (2, 8);
X break;
X }
X if (u.ustuck == mtmp) {
X pline ("You are being crushed.");
X u.uhp -= d (2, 8);
X }
X break;
X
X case 'P':
X if (u.uswallow)
X youswld (mtmp, d (2, 4), 12);
X else if (ctmp && !rn2 (4))
X justswld (mtmp);
X else
X hitu (15, d (2, 4), mdat -> mname);
X break;
X
X case 'Q':
X x2hitu (3, 2, mdat -> mname);
X break;
X
X case 'R':
X if (ctmp && uarm && uarm -> otyp < A_STD_LEATHER
X && uarm -> spe > -2) {
X pline ("Your armor rusts!");
X --uarm -> spe;
X u.uac++;
X flags.dac = 1;
X }
X break;
X
X case 'S':
X if (ctmp && !rn2 (8))
X poisoned ("snake's bite", mdat -> mname);
X break;
X
X case 's':
X if (tmp && !rn2 (8))
X poisoned ("scorpion's sting",
X mdat -> mname);
X x2hitu (5, 8, mdat -> mname);
X break;
X
X case 'T':
X x2hitu (6, 6, mdat -> mname);
X break;
X
X case 'U':
X x2hitu (9, 0, mdat -> mname);/* 0: d(3,4) */
X break;
X
X case 'v':
X if (ctmp && !u.ustuck)
X u.ustuck = mtmp;
X break;
X
X case 'V':
X if (tmp)
X u.uhp -= 4;
X if (rn2 (3))
X break;
X V:
X if (ctmp) {/* hit by V or W */
X if (u.ulevel > 1)
X pline ("Goodbye level %d.",
X u.ulevel--);
X else
X u.uhp = 0;
X ctmp = rnd (10);
X u.uhp -= ctmp;
X u.uhpmax -= ctmp;
X u.uexp = 10L * pow (u.ulevel - 1) - 1L;
X flags.dhp = 1;
X flags.dhpmax = 1;
X flags.dulev = 1;
X flags.dexp = 1;
X }
X break;
X
X case 'W':
X if (rn2 (5))
X break;
X goto V;
X case 'w':
X if (tmp)
X wormhit (mtmp);
X break;
X case 'X':
X for (tmp = 0; tmp < 3; tmp++)
X hitu (8, rnd (3), mdat -> mname);
X break;
X
X case 'y':
X if (mtmp -> mcan)
X break;
X cmdel (mtmp);
X if (!u.ublind) {
X pline ("You are blinded by a blast of light!");
X u.ublind = d (4, 12);
X unCoff (COFF, 0);
X }
X return 1;
X } /* switch */
X
X if (u.uhp <= 0)
X killer = mdat -> mname;
X }
X else if (mtmp -> ale && cansee (mtmp -> mx, mtmp -> my)) {
X mtmp -> invis = 1;
X newsym (mtmp -> mx, mtmp -> my);
X }
X/* Extra movement for fast monsters */
X if (mdat -> mmove - 12 > rnd (12))
X tmp = m_move (mtmp, 1);
X return (tmp == 2);
X}
X
Xcmdel (mtmp)
Xregister MONSTER mtmp;
X{
X register char mx = mtmp -> mx, my = mtmp -> my;
X
X delmon (mtmp);
X if (cansee (mx, my))
X newsym (mx, my);
X}
X
Xinrange (mtmp)
Xregister MONSTER mtmp;
X{
X int zx, zy;
X register char tx = u.ux - mtmp -> mx, ty = u.uy - mtmp -> my;
X
X/* This mess figures out if the person is within 8 */
X if ((!tx && abs (ty) < 8) || (!ty && abs (tx) < 8) ||
X (abs (tx) == abs (ty) && abs (tx) < 8)) {
X if (tx == 0)
X zx = 0;
X else
X zx = tx / abs (tx);
X if (ty == 0)
X zy = 0;
X else
X zy = ty / abs (ty);
X/* If we don't save dx and dy a capital move may screw up: */
X tx = dx;
X ty = dy;
X if (bhit (zx, zy, 8) == mtmp)
X buzz (Z_FIRE, mtmp -> mx, mtmp -> my, dx, dy);
X dx = zx;
X dy = zy;
X }
X}
X
Xm_move (mtmp, after)
Xregister MONSTER mtmp;
X{
X register MONSTER mtmp2;
X register nix, niy, omx, omy, appr, nearer, cnt, zx, zy;
X char ddx, ddy, mmoved = 0;
X
X/* My dog gets a special treatment */
X if (mtmp -> mtame)
X return dog_move (mtmp, after);
X
X if (u.uswallow)
X return (1); /* a3 */
X/* Likewise for shopkeeper */
X if (mtmp == shopkeeper)
X return shk_move ();
X if (mtmp == vaultkeeper && !mtmp -> angry)
X return (0);
X
X if (mtmp -> data -> mlet == 't' && !rn2 (19)) {
X if (rn2 (2)) {
X ddx = mtmp -> mx;
X ddy = mtmp -> my;
X mnexto (mtmp);/* Doesn't change old position */
X levlsym (ddx, ddy, 't');
X }
X else
X rloc (mtmp);/* Rloc does */
X return 1;
X }
X if (!mtmp -> mcan)
X switch (mtmp -> data -> mlet) {
X case 'D':
X inrange (mtmp);
X break;
X case 'U':
X if (!rn2 (10) && !u.uconfused &&
X cansee (mtmp -> mx, mtmp -> my)) {
X pline ("You are confused!");
X u.uconfused = d (3, 4);
X }
X if (!mtmp -> mflee && u.uswallow &&
X u.ustuck != mtmp)
X return 1;
X }
X appr = 1;
X if (mtmp -> mflee)
X appr = -1;
X if (mtmp -> mconf || u.uinvis || (index ("BI", mtmp -> data -> mlet) &&
X !rn2 (3)))
X appr = 0;
X omx = mtmp -> mx;
X omy = mtmp -> my;
X nix = omx;
X niy = omy;
X cnt = 0;
X for (ddx = -1; ddx <= 1; ddx++)
X for (ddy = -1; ddy <= 1; ddy++)
X if (r_free (zx = omx + ddx, zy = omy + ddy, mtmp)
X && (ddx || ddy)
X && !(ddx && ddy && (levl[omx][omy].typ == DOOR ||
X levl[zx][zy].typ == DOOR))) {
X if (!mtmp -> mconf && m_at (zx, zy))
X continue;
X nearer = (dist (zx, zy) < dist (nix, niy));
X if ((appr > 0 && nearer) || (appr < 0 &&
X !nearer) ||
X (!mmoved && mtmp -> wormno) ||
X (!appr && !rn2 (++cnt))) {
X nix = zx;
X niy = zy;
X mmoved++;
X }
X }
X if (mmoved) {
X if (mtmp -> mconf && (mtmp2 = m_at (nix, niy))) {
X if (hitmm (mtmp, mtmp2) == 1 && rn2 (4) &&
X hitmm (mtmp2, mtmp) == 2)
X return 2;
X return 0;
X }
X if (!mtmp -> ale) {
X mtmp -> mx = nix;
X mtmp -> my = niy;
X }
X else if (levl[nix][niy].typ == POOL) {
X mtmp -> mx = nix;
X mtmp -> my = niy;
X }
X
X if (mtmp -> wormno && mtmp -> data -> mlet == 'w')
X worm_move (mtmp);
X }
X else {
X if (!rn2 (10) && index ("tNL", mtmp -> data -> mlet)) {
X rloc (mtmp);
X return 0;
X }
X if (mtmp -> wormno)
X worm_nomove (mtmp);
X }
X if (mmoved || !cansee (omx, omy))
X levlsym (omx, omy, mtmp -> data -> mlet);
X pmon (mtmp);
X return (mmoved);
X}
SHAR_EOF
if test 12240 -ne "`wc -c 'hack.mon.do.c'`"
then
echo shar: error transmitting "'hack.mon.do.c'" '(should have been 12240 characters)'
fi
# End of shell archive
exit 0peterb@pbear.UUCP (05/29/85)
#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# hack.str.c
# hack.vars.h
# hack.weapons.h
# hack.worm.c
# mklev.c
# mklev.make.c
# mklev.mkobj.c
# mklev.svlev.c
# rnd.c
# show.c
# string.s
# This archive created: Tue May 28 17:53:52 1985
export PATH; PATH=/bin:$PATH
echo shar: extracting "'hack.str.c'" '(2444 characters)'
if test -f 'hack.str.c'
then
echo shar: over-writing existing file "'hack.str.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.str.c'
X/*
X * Hack.str.c
X */
X
X/*
X * strprint() : Cheap alternative for sprintf() and printf(), by
X * Fred and Michiel. If you want the normal io just define NORMAL_IO
X */
X
X
X#include "hack.h"
X
X#ifndef NORMAL_IO
X
X#define ARINDEX 512
Xstatic char output_buffer[ARINDEX];
Xstatic arcount = 0;
X
Xchar *litoa();
X
X/*VARARGS10*/
Xstrprint( dest, src, argptr )
Xregister char *dest, *src;
Xregister int *argptr;
X{
X register kar;
X register char *string;
X register field;
X int negated;
X int printflag = 0;
X static char extra[512];
X
X if ( dest == STDOUT ) {
X dest = extra;
X printflag++;
X }
X
X while( *src ) {
X if ( *src == '%' ) {
X field = 0;
X negated = 0;
X if ( *++src == '-' )
X ++negated;
X else
X --src;
X while( *++src & 060 && *src <= '9' )
X field = 10*field + ( *src & 017 );
X if ( (kar = *src) == '%' )
X *dest++ = '%';
X else if ( kar == 'c' )
X *dest++ = (char)*argptr++;
X else {
X switch ( kar ) {
X
X case 'd' :
X case 'u' :
X string = litoa((long)(*argptr++));
X break;
X case 'l' :
X kar = *(++src);
X string = litoa( *(((long*) argptr)++) );
X break;
X case 's' :
X string = (char *)(*argptr++);
X break;
X default :
X strcpy( string, "%'" );
X }
X if ( field )
X field -= strlen( string );
X if ( field > 0 && !negated )
X while( --field >= 0 )
X *dest++ = ' ';
X while( *dest++ = *string++ )
X ;
X dest--; /* Remove '\0' character */
X if ( field > 0 && negated )
X while( --field >= 0 )
X *dest++ = ' ';
X }
X src++;
X }
X else
X *dest++ = *src++;
X }
X *dest = 0;
X if ( printflag ) {
X WRITE( extra, strlen(extra) );
X }
X}
X
Xchar *
Xlitoa( l_arg )
Xlong l_arg;
X{
X static char string[20];
X register int i = 0;
X register char *str2 = string;
X char pipo[20];
X
X if ( !l_arg )
X return( "0" );
X if ( l_arg < 0L ) {
X *str2++ = '-';
X l_arg = -l_arg;
X }
X
X while( l_arg ) {
X pipo[i++] = (int)( l_arg % 10L + '0');
X l_arg /= 10L;
X }
X while( --i >= 0 ) /* Michiel */
X *str2++ = pipo[i];
X *str2 = '\0';
X return( string );
X}
X
XWRITE( string , length )
Xregister char *string;
Xregister length;
X{
X if ( arcount + length >= ARINDEX )
X flush();
X strcat( output_buffer, string );
X arcount += length;
X}
X
Xflush()
X{
X write( 1, output_buffer, arcount );
X arcount = 0;
X output_buffer[0] = 0;
X}
X
Xputchar ( c )
X{
X WRITE( &c, 1 );
X}
X
Xprintf( fmt, args )
X{
X strprint( STDOUT, fmt, &args );
X}
X
Xsprintf( buffer, fmt, args )
X{
X strprint( buffer, fmt, &args );
X}
X#endif NORMAL_IO
SHAR_EOF
if test 2444 -ne "`wc -c 'hack.str.c'`"
then
echo shar: error transmitting "'hack.str.c'" '(should have been 2444 characters)'
fi
echo shar: extracting "'hack.vars.h'" '(2824 characters)'
if test -f 'hack.vars.h'
then
echo shar: over-writing existing file "'hack.vars.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.vars.h'
X/*
X * Hack.vars.h
X */
X
X#define SIZE(x) (sizeof x)/(sizeof x[0])
X
Xchar NOTHIN[] = "Nothing Happens",
X WCLEV[] = "Welcome to level %d.",
X STOPGLOW[] = "Your hands stop glowing blue.",
X UMISS[] = "You miss %s.";
X
X
Xchar *traps[] = {
X " bear trap",
X "n arrow trap",
X " dart trap",
X " trapdoor",
X " teleportation trap",
X " pit",
X " sleeping gas trap",
X " piercer",
X " mimic"
X};
X
X#include "hack.foods.h"
X#include "hack.armors.h"
X#include "hack.weapons.h"
X
Xchar *pottyp[] = {
X "restore strength",
X "confuse monster",
X "invisibility",
X "fruit juice",
X "healing",
X "paralysis",
X "monster detection",
X "object detection",
X "sickness",
X "confusion",
X "gain strength",
X "speed",
X "blindness",
X "gain level",
X "extra healing"
X};
X
X
X
Xchar *potcol[] = {
X "ebony",
X "magenta",
X "clear",
X "brilliant blue",
X "sky blue",
X "emerald",
X "dark green",
X "ruby",
X "purple-red",
X "swirly",
X "white",
X "yellow",
X "purple",
X "puce",
X "pink",
X "smokey",
X "glowing",
X "bubbly",
X "orange"
X};
X
Xchar *potcall[SIZE (pottyp)];
X
X /* SCROLLS */
X
Xchar *scrtyp[] = {
X "enchant armor",
X "losing",
X "curse levels",
X "remove curse",
X "enchant weapon",
X "create monster",
X "damage weapon",
X "genocide",
X "destroy armor",
X "light",
X "transportation",
X "gold detection",
X "identify",
X "magic mapping",
X "fire"
X};
X
X
Xchar *scrnam[] = {
X "VELOX NEB",
X "FOOBIE BLETCH",
X "TEMOV",
X "GARVEN DEH",
X "ZELGO MER",
X "ANDOVA BEGARIN",
X "ELAM EBOW",
X "KERNOD WEL",
X "THARR",
X "VENZAR BORGAVVE",
X /* "ELBIB YLOH", */
X "VERR YED HORRE",
X "JUYED AWK YACC",
X "HACKEM MUCHE",
X "LEP GEX VEN ZEA",
X "DAIYEN FOOELS"
X};
Xchar *scrcall[SIZE (scrtyp)];
X
X
X /* WANDS */
X
Xchar *wantyp[] = {
X "light",
X "secret door + trap detection",
X "create monster",
X "exhaustion",
X "slow monster",
X "speed monster",
X "undead turning",
X "polymorph",
X "cancellation",
X "teleport monster",
X "digging",
X "magic missile",
X "fire",
X "sleep",
X "cold",
X "death",
X "confusion",
X "door closing"
X};
X
X
Xchar *wannam[] = {
X "oak",
X "ebony",
X "runed",
X "long",
X "short",
X "curved",
X "steel",
X "aluminium",
X "iron",
X "marble",
X "pine",
X "maple",
X "brass",
X "silver",
X "copper",
X "balsa",
X "zinc",
X "platinum"
X};
Xchar *wandcall[SIZE (wantyp)];
X
X
X /* RINGS */
X
Xchar *ringtyp[] = {
X "adornment",
X "teleportation",
X "regeneration",
X "searching",
X "see invisible",
X "stealth",
X "floating",
X "poison resistance",
X "aggravate monster",
X "hunger",
X "fire resistance",
X "cold resistance",
X "protection from shape-changers",
X "gain strength",
X "increase damage",
X "protection"
X};
X
X
Xchar *rinnam[] = {
X "blackened",
X /* "ivory", */
X "granite",
X "silver",
X "ruby",
X "jade",
X "diamond",
X "copper",
X "gold",
X "shining",
X "tiger eye",
X "agate",
X "moonstone",
X "sapphire",
X "pearl",
X "topaz",
X /* "black onix", */
X "wired"
X};
X
Xchar *ringcall[SIZE (ringtyp)], oiden[40], oldux, olduy;
SHAR_EOF
if test 2824 -ne "`wc -c 'hack.vars.h'`"
then
echo shar: error transmitting "'hack.vars.h'" '(should have been 2824 characters)'
fi
echo shar: extracting "'hack.weapons.h'" '(537 characters)'
if test -f 'hack.weapons.h'
then
echo shar: over-writing existing file "'hack.weapons.h'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.weapons.h'
X/*
X * Hack.weapons.h
X */
X
X/*
X * weapons 0-4 come several at a time
X * weapons 0-2 are shot using 11-13
X */
X
Xstruct weapon weapons[] = {
X { "arrow", 7, 6, 6 },
X { "sling bullet", 7, 4, 6 },
X { "crossbow bolt", 7, 4, 6 },
X { "dart", 7, 3, 2 },
X { "mace", 7, 6, 6 },
X { "axe", 7, 6, 4 },
X { "flail", 7, 6, 4 },
X { "long sword", 9, 8,12 },
X { "two handed sword", 7,10, 6 },
X { "dagger", 7, 4, 3 },
X { "spear", 7, 6, 8 },
X { "bow", 7, 4, 6 },
X { "sling", 7, 6, 6 },
X { "crossbow", 7, 4, 6 },
X { "PROG ERROR", 100, 0, 0 }
X };
SHAR_EOF
if test 537 -ne "`wc -c 'hack.weapons.h'`"
then
echo shar: error transmitting "'hack.weapons.h'" '(should have been 537 characters)'
fi
echo shar: extracting "'hack.worm.c'" '(3953 characters)'
if test -f 'hack.worm.c'
then
echo shar: over-writing existing file "'hack.worm.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'hack.worm.c'
X/*
X * Hack.worm.c
X */
X
X#include "hack.h"
X
X/* Linked list, tail first */
XWORMSEGMENT wsegs[32], wheads[32];
X
Xunsigned wgrowtime[32];
X
Xgetwn (mtmp)
XMONSTER mtmp;
X{
X register tmp;
X
X for (tmp = 1; tmp < 32; tmp++)
X if (!wsegs[tmp]) {
X mtmp -> wormno = tmp;
X return 1;
X }
X return 0; /* Level infested with worms */
X}
X
Xinitworm (mtmp)
XMONSTER mtmp;
X{
X register WORMSEGMENT wtmp;
X register tmp = mtmp -> wormno;
X
X if (!tmp)
X return;
X wheads[tmp] = wsegs[tmp] = wtmp = newseg ();
X wgrowtime[tmp] = 0;
X wtmp -> wx = mtmp -> mx;
X wtmp -> wy = mtmp -> my;
X wtmp -> nseg = 0;
X}
X
Xworm_move (mtmp)
XMONSTER mtmp;
X{
X register WORMSEGMENT wtmp, whd;
X register tmp = mtmp -> wormno;
X
X wtmp = newseg ();
X wtmp -> wx = mtmp -> mx;
X wtmp -> wy = mtmp -> my;
X wtmp -> nseg = 0;
X whd = wheads[tmp];
X whd -> nseg = wtmp;
X wheads[tmp] = wtmp;
X seeatl (whd -> wx, whd -> wy, '~');
X if (wgrowtime[tmp] <= moves) {
X if (!wgrowtime[tmp])
X wgrowtime[tmp] = moves + rnd (5);
X else
X wgrowtime[tmp] += 2 + rnd (15);
X mtmp -> orig_hp++;
X mtmp -> mhp++;
X return;
X }
X whd = wsegs[tmp];
X wsegs[tmp] = whd -> nseg;
X remseg (whd);
X}
X
Xworm_nomove (mtmp)
Xregister MONSTER mtmp;
X{
X register tmp;
X register WORMSEGMENT wtmp;
X
X tmp = mtmp -> wormno;
X wtmp = wsegs[tmp];
X if (wtmp == wheads[tmp])
X return;
X wsegs[tmp] = wtmp -> nseg;
X remseg (wtmp);
X mtmp -> mhp--; /* Orig_hp not changed! */
X}
X
Xwormdead (mtmp)
Xregister MONSTER mtmp;
X{
X register tmp = mtmp -> wormno;
X register WORMSEGMENT wtmp, wtmp2;
X
X if (!tmp)
X return;
X for (wtmp = wsegs[tmp]; wtmp; wtmp = wtmp2) {
X wtmp2 = wtmp -> nseg;
X remseg (wtmp);
X }
X wsegs[tmp] = 0;
X}
X
Xwormhit (mtmp)
Xregister MONSTER mtmp;
X{
X register tmp = mtmp -> wormno;
X register MONSTDATA mdat = mtmp -> data;
X register WORMSEGMENT wtmp;
X
X if (!tmp)
X return; /* Worm without tail */
X for (wtmp = wsegs[tmp]; wtmp; wtmp = wtmp -> nseg)
X hitu (mdat -> mhd, 1, mdat -> mname);
X}
X
Xwormsee (tmp)
Xregister tmp;
X{
X register WORMSEGMENT wtmp;
X
X for (wtmp = wsegs[tmp]; wtmp -> nseg; wtmp = wtmp -> nseg)
X if (!cansee (wtmp -> wx, wtmp -> wy))
X levlsym (wtmp -> wx, wtmp -> wy, '~');
X}
X
Xcutworm (mtmp, x, y, weptyp)
Xregister MONSTER mtmp;
Xregister char x, y;
Xregister unsigned weptyp;
X{
X register WORMSEGMENT wtmp, wtmp2;
X register MONSTER mtmp2;
X register tmp, tmp2;
X
X if (mtmp -> mx == x && mtmp -> my == y)
X return; /* Hit headon */
X
X/* Cutting goes best with axe or sword */
X tmp = rnd (20);
X if (weptyp == 7 || weptyp == 8 || weptyp == 5)
X tmp += 5;
X if (tmp < 16)
X return;
X
X/* If tail then worm just loses a tail segment */
X tmp = mtmp -> wormno;
X wtmp = wsegs[tmp];
X if (wtmp -> wx == x && wtmp -> wy == y) {
X wsegs[tmp] = wtmp -> nseg;
X remseg (wtmp);
X return;
X }
X
X/* Cut the worm in two halves */
X mtmp2 = newmonst (0);
X *mtmp2 = *mtmp;
X
X/* Sometimes the tail end dies */
X if (rn2 (8) || !getwn (mtmp2)) {/* Michiel was rn2(3) */
X free (mtmp2);
X tmp2 = 0;
X }
X else {
X tmp2 = mtmp2 -> wormno;
X wsegs[tmp2] = wsegs[tmp];
X wgrowtime[tmp2] = 0;
X }
X do {
X if (wtmp -> nseg -> wx == x && wtmp -> nseg -> wy == y) {
X if (tmp2)
X wheads[tmp2] = wtmp;
X wsegs[tmp] = wtmp -> nseg -> nseg;
X remseg (wtmp -> nseg);
X wtmp -> nseg = 0;
X if (tmp2) {
X pline ("You cut the worm in half.");
X mtmp2 -> orig_hp = mtmp2 -> mhp =
X d (mtmp2 -> data -> mhd, 8);
X mtmp2 -> mx = wtmp -> wx;
X mtmp2 -> my = wtmp -> wy;
X mtmp2 -> nmon = fmon;
X fmon = mtmp2;
X pmon (mtmp2);
X }
X else {
X pline ("You cut off part of the worm's tail.");
X remseg (wtmp);
X }
X mtmp -> mhp >>= 1;
X return;
X }
X wtmp2 = wtmp -> nseg;
X if (!tmp2)
X remseg (wtmp);
X wtmp = wtmp2;
X } while (wtmp -> nseg);
X panic (CORE, "Cannot find worm segment");
X}
X
Xremseg (wtmp)
Xregister WORMSEGMENT wtmp;
X{
X levlsym (wtmp -> wx, wtmp -> wy, '~');
X free (wtmp);
X}
SHAR_EOF
if test 3953 -ne "`wc -c 'hack.worm.c'`"
then
echo shar: error transmitting "'hack.worm.c'" '(should have been 3953 characters)'
fi
echo shar: extracting "'mklev.c'" '(9468 characters)'
if test -f 'mklev.c'
then
echo shar: over-writing existing file "'mklev.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'mklev.c'
X/*
X * Mklev.c
X */
X
X#define NORMAL_IO
X#include "hack.h"
X
Xchar *tfile, *tspe, **args, nul[20];
X
X#include "mklev.svlev.c"
X
Xchar mmon[8][8] = {
X "BGHJKLr",
X "aEhiOyZ",
X "AfNpQqv",
X "bCcgjkS",
X "FoRstWw",
X "dlMmTuY",
X "IUVXxz:",
X "De'n,P&"
X};
X
X#define MAZX ((rnd(37) << 1) + 1)
X#define MAZY ((rnd(8) << 1) + 1)
X
X#define somex() rn1( croom->hx - croom->lx + 1, croom->lx )
X#define somey() rn1( croom->hy - croom->ly + 1, croom->ly )
X
X#define NOT_HERE 0
X
XPART levl[80][22];
X
XMONSTER fmon;
XOBJECT fobj;
XGOLD_TRAP fgold, ftrap;
X
XMKROOM rooms[15], *croom, *troom;
X
XCOORDINATES doors[DOORMAX];
X
Xint doorindex = 0, nroom, comp ();
X
Xchar dlevel, *geno, goldseen,
X xdnstair, xupstair, ydnstair, yupstair,
X wizard, nxcor, x, y,
X dx, dy, tx, ty;
X /* For corridors and other things... */
X
X#define RUIN 5
X#define MAZE 6
X
Xmain (argc, argv)
Xchar *argv[];
X{
X char lowy, lowx;
X register unsigned tryct;
X
X if (argc < 6)
X panic ("Too few arguments!!");
X args = argv;
X tfile = argv[1];
X tspe = argv[2];
X dlevel = atoi (argv[3]);
X if (dlevel >= 30)
X dlevel = 30;
X geno = argv[4];
X wizard = (*argv[5] == 'w');
X srand (getpid ());
X/* for( lowy=2;lowy<19;lowy++) for( lowx=2;lowx<77;lowx++ )
X levl[lowx][lowy].typ = 0; * /
X
X/*
X * a: normal;
X * b: maze;
X * n: next level will be maze
X */
X if (*tspe == 'b') {
X makemaz ();
X savelev ();
X exit (1);
X }
X
X/* Construct the rooms */
X croom = rooms;
X tryct = 0;
X while (nroom < 7) {
X for (lowy = rn1 (3, 3); lowy < 15; lowy += rn1 (2, 4))
X for (lowx = rn1 (3, 4); lowx < 70; lowx +=
X rn1 (2, 7)) {
X if (++tryct > 10000) {
X printf ("tryct overflow\n");
X goto jumpout;
X }
X if ((lowy += rn1 (5, -2)) < 3)
X lowy = 3;
X else if (lowy > 16)
X lowy = 16;
X if (levl[lowx][lowy].typ)
X continue;
X if (maker (lowx, rn1 (9, lowx + 2), lowy,
X rn1 (4, lowy + 2)) && nroom > 13)
X goto jumpout;
X }
X }
Xjumpout:
X croom -> hx = -1;
X
X/* For each room: put things inside */
X for (croom = rooms; croom -> hx > 0; croom++) {
X
X/* Put a sleeping monster inside */
X if (!rn2 (3))
X makemon (1, somex (), somey ());
X
X/* Put traps and mimics inside */
X goldseen = 0;
X while (!rn2 (8 - (dlevel / 6)))
X mktrap (0, 0);
X if (!goldseen && !rn2 (3))
X mkgold (0, somex (), somey ());
X tryct = 0;
X if (!rn2 (3))
X do {
X mkobj (0);
X levl[fobj -> ox = somex ()][fobj -> oy = somey ()].scrsym = fobj -> olet;
X if (tryct++ > 100) {
X printf ("tryct overflow4\n");
X break;
X }
X } while (!rn2 (5));
X }
X tryct = 0;
X do {
X if (++tryct > 1000)
X panic ("Cannot make dnstairs\n");
X croom = &rooms[rn2 (nroom)];
X xdnstair = somex ();
X ydnstair = somey ();
X } while ((*tspe == 'n' &&
X (xdnstair % 2 == 0 || ydnstair % 2 == 0)) ||
X g_at (xdnstair, ydnstair, ftrap));
X levl[xdnstair][ydnstair].scrsym = '>';
X troom = croom;
X do {
X if (++tryct > 2000)
X panic ("Cannot make upstairs\n");
X croom = &rooms[rn2 (nroom)];
X xupstair = somex ();
X yupstair = somey ();
X } while (croom == troom || m_at (xupstair, yupstair) ||
X o_at (xupstair, yupstair) ||
X g_at (xupstair, yupstair, ftrap));
X levl[xupstair][yupstair].scrsym = '<';
X qsort (rooms, nroom, sizeof (MKROOM), comp);
X croom = rooms;
X troom = croom + 1;
X nxcor = 0;
X mkpos ();
X do
X makecor (x + dx, y + dy);
X while (croom -> hx > 0 && troom -> hx > 0);
X if ((dlevel < 10 && rn2 (2)) || (dlevel > 9 && !rn2 (3)) ||
X wizard)
X mkshop ();
X if (dlevel > 7 && !rn2 (6))
X mkzoo ();
X else if (dlevel > 11 && !rn2 (6) || wizard)
X mkyard ();
X else if ((dlevel > 18 && !rn2 (6)))
X mkswamp ();
X else if ((dlevel > 8 && !rn2 (8)) || wizard)
X mk_knox ();
X savelev ();
X}
X
Xcomp (xcoord, ycoord)
Xregister MKROOM * xcoord, *ycoord;
X{
X if (xcoord -> lx < ycoord -> lx)
X return - 1;
X return (xcoord -> lx > ycoord -> lx);
X}
X
Xmkpos () {
X if (troom -> hx < 0 || croom -> hx < 0)
X return;
X if (troom -> lx > croom -> hx) {
X x = croom -> hx + 1;
X dx = 1;
X tx = troom -> lx - 1;
X }
X else if (troom -> hy < croom -> ly) {
X y = croom -> ly - 1;
X dy = -1;
X dx = 0;
X ty = troom -> hy + 1;
X }
X else if (troom -> hx < croom -> lx) {
X x = croom -> lx - 1;
X dx = -1;
X tx = troom -> hx + 1;
X }
X else {
X y = croom -> hy + 1;
X dy = 1;
X dx = 0;
X ty = troom -> ly - 1;
X }
X if (dx) {
X dy = 0;
X y = croom -> ly + rn2 (croom -> hy - croom -> ly + 1);
X ty = troom -> ly + rn2 (troom -> hy - troom -> ly + 1);
X }
X else {
X x = croom -> lx + rn2 (croom -> hx - croom -> lx + 1);
X tx = troom -> lx + rn2 (troom -> hx - troom -> lx + 1);
X }
X if (levl[x + dx][y + dy].typ) {
X if (nxcor)
X newloc ();
X else {
X dodoor (x, y, croom);
X x += dx;
X y += dy;
X }
X return;
X }
X dodoor (x, y, croom);
X}
X
Xdodoor (doorx, doory, aroom)
Xregister int doorx, doory;
Xregister MKROOM * aroom;
X{
X register MKROOM * broom;
X register int tmp;
X
X if ((tmp = levl[doorx - 1][doory].typ) == DOOR || tmp == SDOOR)
X return;
X if ((tmp = levl[doorx + 1][doory].typ) == DOOR || tmp == SDOOR)
X return;
X if ((tmp = levl[doorx][doory - 1].typ) == DOOR || tmp == SDOOR)
X return;
X if ((tmp = levl[doorx][doory + 1].typ) == DOOR || tmp == SDOOR)
X return;
X if (levl[doorx][doory].typ != WALL || doorindex >= DOORMAX)
X return;
X if (!rn2 (8))
X levl[doorx][doory].typ = SDOOR;
X else {
X levl[doorx][doory].scrsym = '+';
X levl[doorx][doory].typ = DOOR;
X }
X aroom -> doorct++;
X broom = aroom + 1;
X if (broom -> hx < 0)
X tmp = doorindex;
X else
X for (tmp = doorindex; tmp > broom -> fdoor; tmp--) {
X doors[tmp].x = doors[tmp - 1].x;
X doors[tmp].y = doors[tmp - 1].y;
X }
X doorindex++;
X doors[tmp].x = doorx;
X doors[tmp].y = doory;
X for (; broom -> hx >= 0; broom++)
X broom -> fdoor++;
X}
X
Xnewloc () {
X register int tryct = 0;
X
X ++croom;
X ++troom;
X if (nxcor || croom -> hx < 0 || troom -> hx < 0) {
X if (nxcor++ > rn1 (nroom, 4)) {
X croom = &rooms[nroom];
X return;
X }
X do {
X if (++tryct > 100) {
X printf ("tryct overflow5\n");
X croom = &rooms[nroom];
X return;
X }
X croom = &rooms[rn2 (nroom)];
X troom = &rooms[rn2 (nroom)];
X }
X while (croom == troom || (troom == croom + 1 &&
X !rn2 (3)));
X }
X mkpos ();
X}
X
Xmove (xdir, ydir, dir)
Xregister int *xdir, *ydir, dir;
X{
X switch (dir) {
X case 0:
X --(*xdir);
X break;
X case 1:
X (*ydir)++;
X break;
X case 2:
X (*xdir)++;
X break;
X case 3:
X --(*ydir);
X break;
X }
X}
X
Xokay (xx, yy, dir)
Xint xx, yy;
Xregister int dir;
X{
X move (&xx, &yy, dir);
X move (&xx, &yy, dir);
X if (xx < 3 || yy < 3 || xx > 17 || yy > 75 || levl[yy][xx].typ != 0)
X return 0;
X return 1;
X}
X
Xmaker (lowx, hix, lowy, hiy)
Xchar lowx, hix, lowy, hiy;
X{
X register PART * ltmp, *lmax;
X register int tmpx;
X
X if (hix > 75)
X hix = 75;
X if (hiy > 18)
X hiy = 18;
X for (tmpx = lowx - 4; tmpx < hix + 5; tmpx++)
X for (ltmp = &levl[tmpx][lowy - 3],
X lmax = &levl[tmpx][hiy + 4];
X ltmp != lmax; ltmp++)
X if (ltmp -> typ)
X return 0;
X if (10 > rnd (dlevel)) {
X for (tmpx = lowx - 1; tmpx < hix + 2; tmpx++)
X for (ltmp = &levl[tmpx][lowy - 1],
X lmax = &levl[tmpx][hiy + 2];
X ltmp != lmax; ltmp++)
X ltmp -> lit = 1;
X }
X croom -> lx = lowx;
X croom -> hx = hix;
X croom -> ly = lowy;
X croom -> hy = hiy;
X croom -> rtype = 0;
X croom -> doorct = 0;
X croom -> fdoor = 0;
X croom++;
X for (tmpx = lowx - 1; tmpx <= hix + 1; tmpx++) {
X ltmp = &levl[tmpx][lowy - 1];
X lmax = &levl[tmpx][hiy + 1];
X ltmp -> scrsym = '-';
X ltmp -> typ = WALL;
X while (++ltmp != lmax) {
X if (tmpx >= lowx && tmpx <= hix) {
X ltmp -> scrsym = '.';
X ltmp -> typ = ROOM;
X }
X else {
X ltmp -> scrsym = '|';
X ltmp -> typ = WALL;
X }
X }
X ltmp -> scrsym = '-';
X ltmp -> typ = WALL;
X }
X /*
X -------
X |.....|
X |.....| (This sort of room is made) (a3)
X |.....|
X -------
X */
X ++nroom;
X return 1;
X}
X
Xmakecor (nx, ny)
Xregister int nx, ny;
X{
X register PART * crm;
X register int dix, diy;
X
X if (nxcor && !rn2 (35)) {
X newloc ();
X return;
X }
X dix = abs (nx - tx);
X diy = abs (ny - ty);
X if (nx == 79 || !nx || !ny || ny == 21) {
X if (nxcor) {
X newloc ();
X return;
X }
X printf ("something went wrong. we try again...\n");
X execl ("./mklev", args[0], tfile, tspe, args[3],
X args[4], 0);
X panic ("cannot execute ./mklev\n");
X }
X if (dy && dix > diy) {
X dy = 0;
X dx = (nx > tx) ? -1 : 1;
X }
X else if (dx && diy > dix) {
X dx = 0;
X dy = (ny > ty) ? -1 : 1;
X }
X crm = &levl[nx][ny];
X if (!crm -> typ) {
X crm -> typ = CORR;
X crm -> scrsym = '#';
X x = nx;
X y = ny;
X return;
X }
X if (crm -> typ == CORR) {
X x = nx;
X y = ny;
X return;
X }
X if (nx == tx && ny == ty) {
X dodoor (nx, ny, troom);
X newloc ();
X return;
X }
X if (x + dx != nx || y + dy != ny)
X return;
X if (dx) {
X dy = 1;
X if (ty < ny || levl[nx + dx][ny - 1].typ != ROOM)
X dy = -1;
X dx = 0;
X }
X else {
X dx = 1;
X if (tx < nx || levl[nx - 1][ny + dy].typ != ROOM)
X dx = -1;
X dy = 0;
X }
X}
X
XMONSTER m_at (monx, mony)
Xregister int monx, mony;
X{
X register MONSTER mtmp;
X
X for (mtmp = fmon; mtmp; mtmp = mtmp -> nmon)
X if (mtmp -> mx == monx && mtmp -> my == mony)
X return (mtmp);
X return (NOT_HERE);
X}
X
XOBJECT o_at (objx, objy)
Xregister int objx, objy;
X{
X register OBJECT obj;
X
X for (obj = fobj; obj; obj = obj -> nobj)
X if (obj -> ox == objx && obj -> oy == objy)
X return (obj);
X return (NOT_HERE);
X}
X
XGOLD_TRAP g_at (gtx, gty, ptr)
Xregister int gtx, gty;
Xregister GOLD_TRAP ptr;
X{
X while (ptr) {
X if (ptr -> gx == gtx && ptr -> gy == gty)
X return (ptr);
X ptr = ptr -> ngen;
X }
X return NOT_HERE;
X}
SHAR_EOF
if test 9468 -ne "`wc -c 'mklev.c'`"
then
echo shar: error transmitting "'mklev.c'" '(should have been 9468 characters)'
fi
echo shar: extracting "'mklev.make.c'" '(11782 characters)'
if test -f 'mklev.make.c'
then
echo shar: over-writing existing file "'mklev.make.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'mklev.make.c'
X/*
X * Mklev.make.c
X */
X
X#define ZOO 1
X#define GRAVEYARD 2
X#define SWAMP 3
X#define FORT_KNOX 4
X#define MAZE 6
X
X#define NORMAL_IO
X#include "hack.h"
X
Xextern char mmon[8][8];
X
X#define MAZX ((rnd(37) << 1) + 1)
X#define MAZY ((rnd(8) << 1) + 1)
X
X#define somex() rn1( croom->hx - croom->lx + 1, croom->lx )
X#define somey() rn1( croom->hy - croom->ly + 1, croom->ly )
X
Xextern PART levl[80][22];
X
Xextern MONSTER fmon;
Xextern OBJECT fobj;
Xextern GOLD_TRAP fgold, ftrap;
X
Xextern MKROOM rooms[15], *croom;
X
Xextern COORDINATES doors[DOORMAX];
X
Xextern int doorindex, nroom, comp ();
X
Xextern char dlevel, *geno, goldseen,
X xdnstair, xupstair, ydnstair, yupstair,
X wizard, nxcor, x, y,
X dx, dy, tx, ty;
X /* For corridors and other things... */
X
Xmakemaz () {
X
X/* This is all Kenny's fault. He seems to have his x and y reversed */
X
X int xx, yy, a, q, sp, dir, dirs[5], stack[200];
X register int zx, zy;
X register OBJECT otmp;
X
X for (xx = 2; xx < 19; xx++)
X for (yy = 2; yy < 77; yy++) {
X if (xx % 2 == 0 || yy % 2 == 0)
X levl[yy][xx].typ++;/* WALL==1 */
X }
X zx = MAZY;
X zy = MAZX;
X sp = 1;
X stack[1] = 100 * zx + zy;
X while (sp) {
X xx = stack[sp] / 100;
X yy = stack[sp] % 100;
X levl[yy][xx].typ = 2;
X q = 0;
X for (a = 0; a < 4; a++)
X if (okay (xx, yy, a))
X dirs[q++] = a;
X if (q) {
X dir = dirs[rn2 (q)];
X move (&xx, &yy, dir);
X levl[yy][xx].typ = 0;
X move (&xx, &yy, dir);
X stack[++sp] = 100 * xx + yy;
X }
X else
X sp--;
X }
X for (xx = 2; xx < 77; xx++)
X for (yy = 2; yy < 19; yy++) {/* This was mine */
X if (levl[xx][yy].typ == WALL)
X levl[xx][yy].scrsym = '-';
X else {
X levl[xx][yy].typ = ROOM;
X levl[xx][yy].scrsym = '.';
X }
X }
X for (xx = rn1 (8, 11); xx; xx--) {
X mkobj (0);
X levl[(fobj -> ox = MAZX)][(fobj -> oy = MAZY)].scrsym = fobj -> olet;
X }
X for (xx = rn1 (5, 7); xx; xx--)
X makemon (1, MAZX, MAZY);
X for (xx = rn1 (6, 7); xx; xx--)
X mkgold (0, MAZX, MAZY);
X for (xx = rn1 (6, 7); xx; xx--)
X mktrap (0, 1);
X levl[(xupstair = MAZX)][(yupstair = MAZY)].scrsym = '<';
X levl[zy][zx].scrsym = '"';
X otmp = newobj ();
X otmp -> nobj = fobj;
X fobj = otmp;
X otmp -> ox = zy;
X otmp -> oy = zx;
X otmp -> olet = '"';
X xdnstair = 0;
X ydnstair = 0;
X}
X
X/* Make a trap somewhere (in croom if mazeflag=0) */
Xmktrap (num, mazeflag)
Xregister int num, mazeflag;
X{
X register GOLD_TRAP gtmp;
X register int nopierc;
X int nomimic, fakedoor, fakegold, tryct = 0;
X
X gtmp = newgen ();
X if (!num || num >= TRAPNUM) {
X nopierc = (dlevel < 4);
X nomimic = (dlevel < 9 || goldseen);
X gtmp -> gflag = rn2 (TRAPNUM - nopierc - nomimic);
X/* Note: PIERC = 7, MIMIC = 8, TRAPNUM = 9 */
X }
X else
X gtmp -> gflag = num;
X fakedoor = (gtmp -> gflag == MIMIC && rn2 (2) && !mazeflag);
X fakegold = (gtmp -> gflag == MIMIC && !fakedoor);
X do {
X if (++tryct > 200) {
X printf ("tryct overflow7\n");
X free (gtmp);
X return;
X }
X if (mazeflag) {
X gtmp -> gx = MAZX;
X gtmp -> gy = MAZY;
X }
X else if (!fakedoor) {
X gtmp -> gx = somex ();
X gtmp -> gy = somey ();
X }
X else {
X if (rn2 (2)) {
X if (rn2 (2))
X gtmp -> gx = croom -> hx + 1;
X else
X gtmp -> gx = croom -> lx - 1;
X gtmp -> gy = somey ();
X }
X else {
X if (rn2 (2))
X gtmp -> gy = croom -> hy + 1;
X else
X gtmp -> gy = croom -> ly - 1;
X gtmp -> gx = somex ();
X }
X }
X } while (g_at (gtmp -> gx, gtmp -> gy, (fakegold) ? fgold : ftrap));
X if (!fakegold) {
X gtmp -> ngen = ftrap;
X ftrap = gtmp;
X }
X else {
X gtmp -> gflag = 0;
X gtmp -> ngen = fgold;
X fgold = gtmp;
X goldseen++;
X }
X if (mazeflag && !rn2 (10) && gtmp -> gflag < PIERC)
X gtmp -> gflag |= SEEN;
X if (fakedoor)
X num = '+';
X else if (fakegold)
X num = '$';
X else
X return;
X levl[gtmp -> gx][gtmp -> gy].scrsym = num;
X}
X
Xmkgold (num, goldx, goldy)
Xregister int num;
X{
X register GOLD_TRAP gtmp;
X
X gtmp = newgen ();
X gtmp -> ngen = fgold;
X levl[gtmp -> gx = goldx][gtmp -> gy = goldy].scrsym = '$';
X gtmp -> gflag = (num) ? num : 1 + rnd (dlevel + 2) * rnd (30);
X fgold = gtmp;
X}
X
X/*VARARGS*/
Xpanic (str, arg1, arg2)
Xregister char *str;
X{
X fprintf (stderr, "\nMKLEV ERROR: ");
X fprintf (stderr, str, arg1, arg2);
X abort ();
X}
X
Xmakemon (sl, monx, mony)
Xregister int sl, monx, mony;
X{
X register MONSTER mtmp;
X register int tryct = 0;
X
X mtmp = newmonst (0);
X mtmp -> mstole = STOLE_NULL;
X mtmp -> msleep = sl;
X mtmp -> mx = monx;
X mtmp -> my = mony;
X mtmp -> mfroz = 0;
X mtmp -> mconf = 0;
X mtmp -> mflee = 0;
X mtmp -> mspeed = 0;
X mtmp -> mtame = 0;
X mtmp -> angry = 0;
X mtmp -> mxlth = 0;
X mtmp -> wormno = 0;
X mtmp -> ale = 0;
X if (levl[monx][mony].typ == POOL) {
X mtmp -> ale = 1;
X mtmp -> invis = 1;
X }
X else {
X do {
X if (++tryct > 100) {
X printf ("tryct overflow8\n");
X free (mtmp);
X return;
X }
X mtmp -> mhp = rn2 (dlevel / 3 + 1) % 8;
X mtmp -> orig_hp = rn2 (7);
X } while (index (geno, mmon[mtmp -> mhp][mtmp -> orig_hp]));
X }
X mtmp -> nmon = fmon;
X fmon = mtmp;
X}
X
X
Xchar shtypes[] = "=/)%?!["; /* 8 shoptypes: 7 specialised, 1 mixed */
Xchar shprobs[] = {
X 3, 3, 5, 5, 10, 10, 14, 50
X}; /* Their probabilities */
X
Xmkshop () {
X register MKROOM * sroom;
X register int sh, sx, sy, i;
X register char let;
X
X for (sroom = &rooms[0];; sroom++) {
X if (sroom -> hx < 0)
X return;
X if (ch_upstairs (sroom) || ch_dnstairs (sroom))
X continue;
X if (sroom -> doorct == 1)
X break;
X }
X for (i = rn2 (100), let = 0; (i -= shprobs[let]) >= 0; let++)
X if (!shtypes[let])
X break; /* Superfluous */
X sroom -> rtype = 8 + let;
X let = shtypes[let];
X sh = sroom -> fdoor;
X for (sx = sroom -> lx; sx <= sroom -> hx; sx++)
X for (sy = sroom -> ly; sy <= sroom -> hy; sy++) {
X if (sx == sroom -> lx && doors[sh].x == sx - 1 ||
X sx == sroom -> hx && doors[sh].x == sx + 1 ||
X sy == sroom -> ly && doors[sh].y == sy - 1 ||
X sy == sroom -> hy && doors[sh].y == sy + 1)
X continue;
X mkobj (let);
X levl[fobj -> ox = sx][fobj -> oy = sy].scrsym =
X fobj -> olet;
X }
X}
X
Xmkzoo () {
X register MKROOM * zroom;
X register int zx, zy;
X
X for (;;) {
X zroom = &rooms[rn2 (nroom)];
X if (zroom -> hx < 0 || zroom -> rtype >= 8 ||
X ch_upstairs (zroom))
X continue;/* Niet in kamer met terugweg */
X break; /* Kamer gevonden */
X }
X zroom -> rtype = ZOO;
X for (zx = zroom -> lx; zx <= zroom -> hx; zx++)
X for (zy = zroom -> ly; zy <= zroom -> hy; zy++) {
X if (!m_at (zx, zy)) {
X mkgold (0, zx, zy);
X makemon (1, zx, zy);
X }
X }
X}
X
X
Xmkyard () {
X register MKROOM * yroom;
X register int yx, yy;
X
X for (;;) {
X yroom = &rooms[rn2 (nroom)];
X if (yroom -> hx < 0 || yroom -> rtype >= 8 ||
X ch_upstairs (yroom))
X continue;/* Niet in kamer met terugweg */
X break; /* Kamer gevonden */
X }
X yroom -> rtype = GRAVEYARD;
X for (yx = yroom -> lx; yx <= yroom -> hx; yx++)
X for (yy = yroom -> ly; yy <= yroom -> hy; yy++) {
X if (!mymakemon (yx, yy)) {
X if (fmon -> mhp == 7)
X mymakemon (yx, yy);
X /* Not so many demons */
X mkgold (0, yx, yy);
X if (fmon -> mhp != 1) {
X mkobj (0);
X if (rn2 (8))
X fobj -> cursed = 1;
X levl[fobj -> ox = yx][fobj -> oy = yy].scrsym = fobj -> olet;
X }
X }
X }
X}
X
X#define NOMON 1
X#define MON 0
X
Xmymakemon (monx, mony) {
X register MONSTER mtmp;
X register int tryct = 0;
X register int tmp = 0;
X
X if (m_at (monx, mony))
X return NOMON;
X mtmp = newmonst (0);
X mtmp -> mstole = STOLE_NULL;
X mtmp -> msleep = 1;
X mtmp -> mx = monx;
X mtmp -> my = mony;
X mtmp -> mfroz = 0;
X mtmp -> mconf = 0;
X mtmp -> mflee = 0;
X mtmp -> mspeed = 0;
X mtmp -> mtame = 0;
X mtmp -> angry = 0;
X mtmp -> mxlth = 0;
X mtmp -> wormno = 0;
X do {
X if (++tryct > 1000) {
X printf ("tryct overflow yard\n");
X free (mtmp);
X return NOMON;
X }
X tmp = putyard (mtmp);
X } while (index (geno, mmon[mtmp -> mhp][mtmp -> orig_hp]) || tmp);
X mtmp -> nmon = fmon;
X fmon = mtmp;
X return 0;
X}
X
Xputyard (mtmp)
XMONSTER mtmp;
X{
X switch (rn2 (5)) {
X case 0:
X mtmp -> mhp = 1;/* level 3 */
X mtmp -> orig_hp = 6;/* ZOMBIE */
X break;
X case 1:
X if (dlevel < 18)
X return NOMON;
X mtmp -> mhp = 6;/* level 18 */
X mtmp -> orig_hp = 2;/* VAMPIRE */
X break;
X case 2:
X mtmp -> mhp = 4;/* level 12 */
X mtmp -> orig_hp = 5;/* Wraith */
X break;
X case 3:
X if (dlevel < 21)
X return NOMON;
X mtmp -> mhp = 7;/* level 21 */
X mtmp -> orig_hp = 6;/* DEMON */
X break;
X case 4:
X mtmp -> mhp = 10;/* altijd */
X mtmp -> orig_hp = 10;/* GHOST */
X break;
X default:
X mtmp -> mhp = rn2 (dlevel / 3 + 1) % 8;
X mtmp -> orig_hp = rn2 (7);
X }
X return MON;
X}
X
Xmkswamp () {
X register MKROOM * zroom;
X register int zx, zy;
X register int first = 0;
X
X for (;;) {
X zroom = &rooms[rn2 (nroom)];
X if (zroom -> hx < 0)
X return;
X if (ch_upstairs (zroom) || ch_dnstairs (zroom))
X continue;
X if (zroom -> hx < 0 || zroom -> rtype >= 8)
X continue;
X /* Niet in kamer met terugweg of weg naar beneden */
X break; /* Kamer gevonden */
X }
X zroom -> rtype = SWAMP;
X for (zx = zroom -> lx; zx <= zroom -> hx; zx++)
X for (zy = zroom -> ly; zy <= zroom -> hy; zy++) {
X if ((zx + zy) % 2 && !o_at (zx, zy) &&
X !g_at (zx, zy, fgold) && !m_at (zx, zy) &&
X ch_doors (zx, zy)) {
X levl[zx][zy].typ = POOL;
X levl[zx][zy].scrsym = '}';
X if (!first) {
X makemon (0, zx, zy);
X ++first;
X }
X else if (!rn2 (4))
X makemon (0, zx, zy);
X }
X }
X}
X
Xch_doors (zx, zy)
Xregister int zx, zy;
X{
X register int xx, yy;
X register int status = 1;
X
X for (xx = zx - 1; xx <= zx + 1; xx++)
X for (yy = zy - 1; yy <= zy + 1; yy++) {
X if (levl[xx][yy].typ == DOOR)
X status = 0;
X else if (levl[xx][yy].typ == SDOOR) {
X levl[xx][yy].typ = DOOR;
X levl[xx][yy].scrsym = '+';
X status = 0;
X }
X }
X return status;
X}
X
Xmk_knox () {
X register MKROOM * kroom;
X register int kx, ky;
X register int tmp = 10000;
X OBJECT otmp;
X MONSTER mtmp;
X GOLD_TRAP gtmp;
X
X for (kroom = &rooms[0];; ++kroom) {
X if (kroom -> hx < 0)
X return;
X if (ch_upstairs (kroom) || ch_dnstairs (kroom))
X continue;
X if ((kroom -> rtype >= 8 || kroom -> rtype <= SWAMP)
X && kroom -> rtype)
X /* Shop or Zoo or Graveyard or Swamp */
X continue;
X if (kroom -> hx - kroom -> lx <= 3 || kroom -> hy - kroom -> ly <= 3)
X continue;
X break;
X }
X kroom -> rtype = FORT_KNOX;
X kx = ((kroom -> hx - kroom -> lx) / 2) + kroom -> lx;
X ky = ((kroom -> hy - kroom -> ly) / 2) + kroom -> ly;
X for (tx = kx - 1; tx <= kx + 1; ++tx)
X for (ty = ky - 1; ty <= ky + 1; ++ty) {
X if (tx == kx && ty == ky)
X continue;
X if ((otmp = o_at (tx, ty))) {
X otmp -> ox = kx;
X otmp -> oy = ky;
X }
X if ((mtmp = m_at (tx, ty)))
X delmon (mtmp);
X if ((gtmp = g_at (tx, ty, fgold))) {
X tmp += gtmp -> gflag;
X delgen (gtmp, fgold);
X }
X if ((gtmp = g_at (tx, ty, ftrap)))
X delgen (gtmp, ftrap);
X levl[tx][ty].typ = VAULT;
X levl[tx][ty].scrsym = (ty == ky) ? '|' : '-';
X }
X mkgold (tmp, kx, ky);
X}
X
Xch_upstairs (mroom)
Xregister MKROOM * mroom;
X{
X return (mroom -> lx <= xupstair && xupstair <= mroom -> hx &&
X mroom -> ly <= yupstair && yupstair <= mroom -> hy);
X}
X
Xch_dnstairs (mroom)
Xregister MKROOM * mroom;
X{
X return (mroom -> lx <= xdnstair && xdnstair <= mroom -> hx &&
X mroom -> ly <= ydnstair && ydnstair <= mroom -> hy);
X}
X
Xdelmon (mtmp)
Xregister MONSTER mtmp;
X{
X register MONSTER mtmp2;
X
X if (mtmp == fmon)
X fmon = fmon -> nmon;
X else {
X for (mtmp2 = fmon; mtmp2 -> nmon != mtmp;
X mtmp2 = mtmp2 -> nmon);
X mtmp2 -> nmon = mtmp -> nmon;
X }
X}
X
Xdelgen (gtmp, key)
Xregister GOLD_TRAP gtmp, key;
X{
X register GOLD_TRAP gtmp2;
X
X if (gtmp == key)
X key = key -> ngen;
X else {
X for (gtmp2 = key; gtmp2 -> ngen != gtmp;
X gtmp2 = gtmp2 -> ngen);
X gtmp2 -> ngen = gtmp -> ngen;
X }
X}
SHAR_EOF
if test 11782 -ne "`wc -c 'mklev.make.c'`"
then
echo shar: error transmitting "'mklev.make.c'" '(should have been 11782 characters)'
fi
echo shar: extracting "'mklev.mkobj.c'" '(2350 characters)'
if test -f 'mklev.mkobj.c'
then
echo shar: over-writing existing file "'mklev.mkobj.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'mklev.mkobj.c'
X/*
X * Mklev.mkobj.c
X */
X
X#define NORMAL_IO
X#include "hack.h"
X#include "hack.vars.h"
X
Xmkfood () {
X register FOOD fp;
X register i = rn2 (100);
X
X fp = &foods[0];
X while ((i -= fp -> prob) >= 0)
X fp++;
X return (fp - foods);
X}
X
Xmkarm () {
X register ARMOR ap;
X register i = rn2 (100);
X
X ap = &armors[0];
X while ((i -= ap -> prob) >= 0)
X ap++;
X return (ap - armors);
X}
X
Xmkwep () {
X register WEAPON wp;
X register i = rn2 (100);
X wp = &weapons[0];
X while ((i -= wp -> prob) >= 0)
X wp++;
X return (wp - weapons);
X}
X
Xchar mkobjstr[] = "))[[!!!!????%%%%//=**";
X
Xmkobj (let)
Xregister let;
X{
X register OBJECT otmp;
X
X otmp = newobj ();
X otmp -> nobj = fobj;
X fobj = otmp;
X otmp -> known = 0;
X otmp -> cursed = 0;
X otmp -> spe = 0;
X otmp -> unpaid = 0;
X otmp -> quan = 1;
X if (!let)
X let = mkobjstr[rn2 (sizeof (mkobjstr) - 1)];
X otmp -> olet = let;
X switch (let) {
X
X case ')':
X otmp -> otyp = mkwep ();
X if (otmp -> otyp <= W_AMMUNITION)
X otmp -> quan = rn1 (6, 6);
X if (!rn2 (11))
X otmp -> spe = rnd (3);
X else if (!rn2 (10)) {
X otmp -> cursed = 1;
X otmp -> spe = -rnd (3);
X }
X break;
X
X case '*':
X otmp -> otyp = rn2 (SIZE (potcol));
X otmp -> quan = rn2 (6) ? 1 : 2;
X break;
X
X case '[':
X otmp -> otyp = mkarm ();
X if (!rn2 (8))
X otmp -> cursed = 1;
X if (!rn2 (10))
X otmp -> spe = rnd (3);
X else if (!rn2 (9)) {
X otmp -> spe = -rnd (3);
X otmp -> cursed = 1;
X }
X otmp -> spe += 10 - armors[otmp -> otyp].a_ac;
X break;
X
X case '!':
X otmp -> otyp = rn2 (SIZE (pottyp));
X break;
X
X case '?':
X otmp -> otyp = rn2 (SIZE (scrtyp));
X break;
X
X case '%':
X otmp -> otyp = mkfood ();
X otmp -> quan = rn2 (6) ? 1 : 2;
X break;
X
X case '/':
X otmp -> otyp = rn2 (SIZE (wantyp));
X if (otmp -> otyp == Z_DEATH)
X otmp -> otyp = rn2 (SIZE (wantyp));
X otmp -> spe = rn1 (5, (otmp -> otyp <= Z_CREATE_MON) ?
X 11 : 4);
X break;
X
X case '=':
X otmp -> otyp = rn2 (SIZE (ringtyp));
X if (otmp -> otyp >= R_GAIN_STR) {
X if (!rn2 (3)) {
X otmp -> spe = -rnd (2);
X otmp -> cursed = 1;
X }
X else
X otmp -> spe = rnd (2);
X }
X else if (otmp -> otyp == R_TELE ||
X otmp -> otyp == R_AGGRAV_MON ||
X otmp -> otyp == R_HUNGER)
X otmp -> cursed = 1;
X break;
X
X default:
X panic ("impossible mkobj");
X }
X}
SHAR_EOF
if test 2350 -ne "`wc -c 'mklev.mkobj.c'`"
then
echo shar: error transmitting "'mklev.mkobj.c'" '(should have been 2350 characters)'
fi
echo shar: extracting "'mklev.svlev.c'" '(1617 characters)'
if test -f 'mklev.svlev.c'
then
echo shar: over-writing existing file "'mklev.svlev.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'mklev.svlev.c'
X/*
X * Mklev.savelev.c
X */
X
Xsavelev () {
X register int fd;
X register MONSTER mtmp, mtmp2;
X register GOLD_TRAP gtmp, gtmp2;
X register OBJECT otmp, otmp2;
X int minusone = -1;
X
X if ((fd = creat (tfile, 0644)) < 0)
X panic ("Cannot create %s\n", tfile);
X bwrite (fd, levl, sizeof (levl));
X bwrite (fd, nul, sizeof (unsigned));
X bwrite (fd, (char *) & xupstair, 1);
X bwrite (fd, (char *) & yupstair, 1);
X bwrite (fd, (char *) & xdnstair, 1);
X bwrite (fd, (char *) & ydnstair, 1);
X for (mtmp = fmon; mtmp; mtmp = mtmp2) {
X mtmp2 = mtmp -> nmon;
X bwrite (fd, &mtmp -> mxlth, sizeof (int));
X bwrite (fd, mtmp, mtmp -> mxlth + sizeof (struct monst));
X
X/* Michiel save stolen objects */
X bwrite (fd, nul, sizeof (struct stole));
X }
X bwrite (fd, &minusone, sizeof (int));
X for (gtmp = fgold; gtmp; gtmp = gtmp2) {
X gtmp2 = gtmp -> ngen;
X bwrite (fd, gtmp, sizeof (struct gen));
X free (gtmp);
X }
X bwrite (fd, nul, sizeof (struct gen));
X for (gtmp = ftrap; gtmp; gtmp = gtmp2) {
X gtmp2 = gtmp -> ngen;
X bwrite (fd, gtmp, sizeof (struct gen));
X free (gtmp);
X }
X bwrite (fd, nul, sizeof (struct gen));
X for (otmp = fobj; otmp; otmp = otmp2) {
X otmp2 = otmp -> nobj;
X bwrite (fd, otmp, sizeof (struct obj));
X free (otmp);
X }
X bwrite (fd, nul, sizeof (struct obj));
X bwrite (fd, rooms, sizeof (rooms));
X bwrite (fd, doors, sizeof (doors));
X fgold = TRAP_NULL;
X ftrap = TRAP_NULL;
X fmon = MON_NULL;
X fobj = OBJ_NULL;
X}
X
X/*NOSTRICT*/
Xbwrite (fd, loc, num)
Xregister int fd, num;
Xregister char *loc;
X{
X if (write (fd, loc, num) != num)
X panic ("Cannot write %d bytes to file #%d", num, fd);
X}
SHAR_EOF
if test 1617 -ne "`wc -c 'mklev.svlev.c'`"
then
echo shar: error transmitting "'mklev.svlev.c'" '(should have been 1617 characters)'
fi
echo shar: extracting "'rnd.c'" '(404 characters)'
if test -f 'rnd.c'
then
echo shar: over-writing existing file "'rnd.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'rnd.c'
X/*
X * Rnd.c
X */
X
X#define RND(x) ((rand() >> 3) % x)
X
Xunsigned int rand(); /* it only returns 0 - 2**15 values, all POSITIVE */
X
Xrn1 (x, y)
Xregister x, y;
X{
X return (RND (x) + y);
X}
X
Xrn2 (x)
Xregister x;
X{
X return (RND (x));
X}
X
Xrnd (x)
Xregister x;
X{
X return (RND (x) + 1);
X}
X
Xd (n, x)
Xregister n, x;
X{
X register tmp = n;
X
X while (n--)
X tmp += RND (x);
X return tmp;
X}
SHAR_EOF
if test 404 -ne "`wc -c 'rnd.c'`"
then
echo shar: error transmitting "'rnd.c'" '(should have been 404 characters)'
fi
echo shar: extracting "'show.c'" '(6304 characters)'
if test -f 'show.c'
then
echo shar: over-writing existing file "'show.c'"
fi
sed 's/^X//' << \SHAR_EOF > 'show.c'
X/*
X * Showlevel.c
X */
X
X#define NORMAL_IO
X#define SHOW
X#include "hack.h"
X
XPART levl[80][22];
X
Xchar mmon[8][8] = {
X "BGHJKLr",
X "aEhiOyZ",
X "AfNpQqv",
X "bCcgjkS",
X "FoRstWw",
X "dlMmTuY",
X "IUVXxz:",
X "De'n,P&"
X};
X
Xchar stairs[4], mbuf[1000], obuf[BUFSIZ];
X
Xunsigned omoves;
Xextern char *setan ();
X
Xmain (argc, argv)
Xint argc;
Xchar **argv;
X{
X register fd;
X register MONSTER mtmp = (MONSTER) mbuf;
X char buffer[100];
X struct stole stmp;
X struct obj otmp;
X char buf[BUFSZ];
X int xl;
X
X setbuf (stdout, obuf);
X if (!strcmp (argv[1], "-r")) {
X showrecord ();
X exit (0);
X }
X if (!strcmp (argv[1], "-d")) {
X delrecord ();
X exit (0);
X }
X while (--argc) {
X printf ("Next file is %s\n", argv[argc]);
X if ((fd = open (argv[argc], 0)) < 0) {
X printf ("Cannot open %s\n", argv[argc]);
X getret ();
X continue;
X }
X if (read (fd, levl, sizeof levl) != sizeof levl) {
X printf ("Error reading level\n");
X getret ();
X continue;
X }
X show ();
X mread (fd, &omoves, sizeof (unsigned));
X mread (fd, stairs, 4);
X mread (fd, &xl, sizeof (int));
X printf ("Show Monsters? (%sSpecified) ", omoves ? "Not " : "");
X fflush (stdout);
X gets (buffer);
X if (strcmp (buffer, "y"))
X continue;
X while (xl != -1) {
X mread (fd, mtmp, xl + sizeof (struct monst));
X mread (fd, &stmp, sizeof (struct stole));
X if (!omoves) {
X if (mtmp -> mhp == 10 && mtmp -> orig_hp == 10)
X printf ("\' \'");
X else if (mtmp -> mhp == 9 && mtmp -> orig_hp == 9)
X printf ("Ale");
X else
X printf ("%c",
X mmon[mtmp -> mhp][mtmp -> orig_hp]);
X printf (" at [%d,%d]", mtmp -> mx, mtmp -> my);
X }
X else {
X printf ("monster at [%d,%d]", mtmp -> mx, mtmp -> my);
X if (stmp.sgold || stmp.sobj) {
X printf (" stole ");
X if (stmp.sgold)
X printf ("%u goldpieces", stmp.sgold);
X for (;;) {
X mread (fd, &otmp,
X sizeof (struct obj));
X if (!otmp.olet)
X break;
X doname (otmp.olet, buf);
X printf (" %s", buf);
X }
X }
X }
X if (mtmp -> msleep)
X printf (" SLEEP");
X if (mtmp -> invis)
X printf (" INVIS");
X if (mtmp -> cham)
X printf (" CHAM");
X if (mtmp -> mspeed)
X printf (" MSPEED");
X if (mtmp -> mconf)
X printf (" MCONF");
X if (mtmp -> mflee)
X printf (" MFLEE");
X if (mtmp -> mcan)
X printf (" MCAN");
X if (mtmp -> mtame)
X printf (" TAME");
X if (mtmp -> angry)
X printf (" MANGRY");
X if (mtmp -> wormno)
X printf (" WORM[%d]", mtmp -> wormno);
X if (mtmp -> mxlth)
X printf (" +%d extra", mtmp -> mxlth);
X if (mtmp -> mfroz)
X printf (" FROZ");
X putchar ('\n');
X mread (fd, &xl, sizeof (int));
X }
X getret ();
X }
X}
X
Xmread (fd, buf, n) {
X register nn;
X
X if ((nn = read (fd, buf, n)) != n) {
X printf ("error: read %d instead of %d bytes\n", nn, n);
X exit (2);
X }
X}
X
Xshow () {
X register i, j;
X
X for (j = 0; j < 22; j++)
X for (i = 0; i < 80; i++)
X pch (levl[i][j].scrsym);
X printf ("*** ");
X}
X
Xpch (ch)
Xchar ch;
X{
X putchar (ch ? ch : '_');
X}
X
Xextern char *malloc ();
X
Xchar *
X alloc (num)
Xregister num;
X{
X register char *val;
X
X if (!(val = malloc (num)))
X error ("Cannot get %d bytes", num);
X return val;
X}
X
Xerror (s) {
X printf (s);
X putchar ('\n');
X fflush (stdout);
X exit (1);
X}
X
Xextern char *itoa ();
X
X#define NAMESIZE 8
X#define DEATHSIZE 40
X
Xstruct recitem {
X long points;
X int level, maxlvl, hp, maxhp;
X char str[NAMESIZE + 1], death[DEATHSIZE + 1];
X} record;
X
Xshowrecord () {
X register killed;
X register place = 0;
X register rfile;
X
X if ((rfile = open (RECORD, 0)) < 0)
X error ("Cannot open %s", RECORD);
X printf ("Number Points Name\n");
X while (read (rfile, &record, sizeof (struct recitem)) > 0) {
X printf ("%2d %6lu %8s ", ++place, record.points,
X record.str);
X killed = 0;
X if (*record.death == 'e')
X printf ("escaped the dungeon [max level %d]",
X record.maxlvl);
X else {
X switch (record.death[1]) {
X case 'u':
X printf ("quit");
X break;
X case 'h':
X printf ("choked in his/her food");
X break;
X case 't':
X printf ("starved");
X break;
X case 'r':
X printf ("drowned");
X break;
X default:
X printf ("was killed");
X killed++;
X }
X
X printf (" on%s level %d", killed ? "" : " dungeon", record.level);
X
X if (record.maxlvl != record.level)
X printf (" [%d]", record.maxlvl);
X }
X if (killed)
X printf (" by %s", record.death);
X putchar ('.');
X if (record.maxhp)
X printf (" Hp: %s [%d]", (record.hp > 0) ?
X itoa (record.hp) : "-", record.maxhp);
X putchar ('\n');
X }
X close (rfile);
X}
X
Xint deleted[45];
X
Xdelrecord () {
X register int fd, fd2;
X int count = 0;
X
X printf ("Delete (Terminate with a zero): ");
X fflush (stdout);
X fd = open (RECORD, 0);
X fd2 = creat (".Temp", 0777);
X if (fd < 0 || fd2 < 0) {
X printf ("Cannot open files!\n");
X exit (2);
X }
X do {
X scanf ("%d", &count);
X ++deleted[count];
X } while (count);
X fprintf (stderr, "Deleted nr");
X count = 1;
X while (read (fd, &record, sizeof (struct recitem)) > 0) {
X if (!deleted[count])
X write (fd2, &record, sizeof (struct recitem));
X else
X fprintf (stderr, " %d", count);
X ++count;
X }
X putc ('\n', stderr);
X close (fd);
X close (fd2);
X execl ("/bin/mv", "mv", ".Temp", RECORD, NULL);
X}
X
Xchar *
X itoa (a)
Xregister int a;
X{
X static char buf[8];
X
X sprintf (buf, "%d", a);
X return (buf);
X}
X
Xdoname (let, buf)
Xregister char let;
Xregister char *buf;
X{
X switch (let) {
X
X case '"':
X strcpy (buf, "The amulet of Frobozz");
X break;
X
X case '%':
X strcpy (buf, "some food");
X break;
X
X case ')':
X strcpy (buf, "a weapon");
X break;
X
X case '[':
X strcpy (buf, "armor");
X break;
X
X case '!':
X strcpy (buf, "a potion");
X break;
X
X case '?':
X strcpy (buf, "a scroll");
X break;
X
X case '/':
X strcpy (buf, "a wand");
X break;
X
X case '=':
X strcpy (buf, "a ring");
X break;
X
X case '*':
X strcpy (buf, "a gem");
X break;
X
X default:
X sprintf (buf, "a glorkum %c(0%o)", let, let);
X }
X}
X
Xgetret () {
X printf ("AHit j<return>k to continue");
X fflush (stdout);
X while (getchar () != '\n');
X}
SHAR_EOF
if test 6304 -ne "`wc -c 'show.c'`"
then
echo shar: error transmitting "'show.c'" '(should have been 6304 characters)'
fi
echo shar: extracting "'string.s'" '(2574 characters)'
if test -f 'string.s'
then
echo shar: over-writing existing file "'string.s'"
fi
sed 's/^X//' << \SHAR_EOF > 'string.s'
X .text
X .globl _strcpy
X_strcpy:
X~~m=.
X| sub ax,ax | tell csv that I don't have any locals
X| call csv | check stack crash, save bp, si & di
X push bp
X mov bp,sp
X push di
X push si
X~dst=4
X~src=6
X~cnt=8
X mov si,*~src(bp) | load si with source pointer
X mov di,*~dst(bp) | load di with destination pointer
X mov bx, di | save address to return
XL25: | start of loop
X movb al, (si) | fetch source char in al
X movb (di), al | place in destination
X inc si | increment source pointer
X inc di | increment destination pointer
X andb al, al | set the flags
X jnz L25 | Loop until zf=1
X mov ax, bx | return destination pointer
X jmp cret | and return to caller.
X
X .globl _strncpy
X_strncpy:
X| sub ax,ax | tell csv I don't have any local variables
X| call csv | save si, di, bp, check for collision
X push bp
X mov bp,sp
X push di
X push si
X mov si,*~src(bp) | load source operand
X mov di,*~dst(bp) | load destination operand
X mov cx,*~cnt(bp) | load count
X mov bx,di | save address of source for return
X cmp cx,0 | see if cx set
X je L27 | loop out if so.
XL26: movb al,(si) | fetch ahcecter to move
X movb (di),al | store it.
X inc di | increment destination
X and al, al | set flags
X jz L28 | if char is null, skip
X inc si | increment of source (this will null pad)
XL28: loop L26 | loop until count is 0
XL27: mov ax, bx | get address of dest in ax
X jmp cret | and return it to caller.
X
X .globl _strchr
X
X_strchr:
X mov bx, sp | usr bx as adr register
X mov ax, *4(bx) | fetch charecter in al
X mov bx, *2(bx) | fetch address in bx
X j L31 | skip to start of while loop
X
XL29:
X cmpb al, ah | see if charecters match
X je L30 | jmp out if true
X inc bx | move to next charecter in string
X
XL31:
X movb ah,(bx) | fetch charecter in ah
X andb ah, ah | set flags on that char
X jnz L29 | if not end of string, loop up
X sub ax, ax | else at end of string,
X ret | return with NULL in ax
X
XL30: mov ax, bx | if found char, exit with
X ret | address in ax
X
X .data
SHAR_EOF
if test 2574 -ne "`wc -c 'string.s'`"
then
echo shar: error transmitting "'string.s'" '(should have been 2574 characters)'
fi
# End of shell archive
exit 0