Home | History | Annotate | Line # | Download | only in adventure
hdr.h revision 1.10
      1  1.10       agc /*	$NetBSD: hdr.h,v 1.10 2003/08/07 09:36:50 agc Exp $	*/
      2   1.2       cgd 
      3   1.1       jtc /*-
      4   1.1       jtc  * Copyright (c) 1991, 1993
      5   1.1       jtc  *	The Regents of the University of California.  All rights reserved.
      6   1.1       jtc  *
      7   1.1       jtc  * The game adventure was originally written in Fortran by Will Crowther
      8   1.1       jtc  * and Don Woods.  It was later translated to C and enhanced by Jim
      9   1.1       jtc  * Gillogly.  This code is derived from software contributed to Berkeley
     10   1.1       jtc  * by Jim Gillogly at The Rand Corporation.
     11   1.1       jtc  *
     12   1.1       jtc  * Redistribution and use in source and binary forms, with or without
     13   1.1       jtc  * modification, are permitted provided that the following conditions
     14   1.1       jtc  * are met:
     15   1.1       jtc  * 1. Redistributions of source code must retain the above copyright
     16   1.1       jtc  *    notice, this list of conditions and the following disclaimer.
     17   1.1       jtc  * 2. Redistributions in binary form must reproduce the above copyright
     18   1.1       jtc  *    notice, this list of conditions and the following disclaimer in the
     19   1.1       jtc  *    documentation and/or other materials provided with the distribution.
     20  1.10       agc  * 3. Neither the name of the University nor the names of its contributors
     21   1.1       jtc  *    may be used to endorse or promote products derived from this software
     22   1.1       jtc  *    without specific prior written permission.
     23   1.1       jtc  *
     24   1.1       jtc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     25   1.1       jtc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     26   1.1       jtc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     27   1.1       jtc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     28   1.1       jtc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     29   1.1       jtc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     30   1.1       jtc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     31   1.1       jtc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     32   1.1       jtc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     33   1.1       jtc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     34   1.1       jtc  * SUCH DAMAGE.
     35   1.1       jtc  *
     36   1.1       jtc  *	@(#)hdr.h	8.1 (Berkeley) 5/31/93
     37   1.1       jtc  */
     38   1.1       jtc 
     39   1.1       jtc /*   ADVENTURE -- Jim Gillogly, Jul 1977
     40   1.1       jtc  * This program is a re-write of ADVENT, written in FORTRAN mostly by
     41   1.1       jtc  * Don Woods of SAIL.  In most places it is as nearly identical to the
     42   1.1       jtc  * original as possible given the language and word-size differences.
     43   1.1       jtc  * A few places, such as the message arrays and travel arrays were changed
     44   1.1       jtc  * to reflect the smaller core size and word size.  The labels of the
     45   1.1       jtc  * original are reflected in this version, so that the comments of the
     46   1.1       jtc  * fortran are still applicable here.
     47   1.1       jtc  *
     48   1.1       jtc  * The data file distributed with the fortran source is assumed to be called
     49   1.1       jtc  * "glorkz" in the directory where the program is first run.
     50   1.7   hubertf  *
     51   1.7   hubertf  * The original FORTRAN version can be found at
     52   1.7   hubertf  * <URL:ftp://ftp.gmd.de/if-archive/games/source/advent-original.tar.gz>.
     53   1.1       jtc  */
     54   1.1       jtc 
     55   1.1       jtc /* hdr.h: included by c advent files */
     56   1.1       jtc 
     57   1.5   hubertf #include <signal.h>
     58   1.5   hubertf 
     59   1.8   hubertf extern int     datfd;			/* message file descriptor */
     60   1.8   hubertf extern volatile sig_atomic_t delhit;
     61   1.8   hubertf extern int     yea;
     62   1.4     lukem extern char data_file[];	/* Virtual data file */
     63   1.1       jtc 
     64   1.1       jtc #define TAB     011
     65   1.1       jtc #define LF      012
     66   1.6   hubertf #define FLUSHLINE do { int flushline_ch; while ((flushline_ch = getchar()) != EOF && flushline_ch != '\n'); } while (0)
     67   1.1       jtc #define FLUSHLF   while (next()!=LF)
     68   1.1       jtc 
     69   1.8   hubertf extern int     loc, newloc, oldloc, oldlc2, wzdark, gaveup, kq, k, k2;
     70   1.8   hubertf extern char   *wd1, *wd2;		/* the complete words */
     71   1.8   hubertf extern int     verb, obj, spk;
     72   1.1       jtc extern int blklin;
     73   1.8   hubertf extern int     saveday, savet, mxscor, latncy;
     74   1.1       jtc 
     75   1.4     lukem #define SHORT 50		/* How short is a demo game? */
     76   1.1       jtc 
     77   1.4     lukem #define MAXSTR  20		/* max length of user's words */
     78   1.1       jtc 
     79   1.4     lukem #define HTSIZE  512		/* max number of vocab words */
     80   1.8   hubertf extern struct hashtab {		/* hash table for vocabulary */
     81   1.4     lukem 	int     val;		/* word type &index (ktab) */
     82   1.4     lukem 	char   *atab;		/* pointer to actual string */
     83   1.4     lukem }       voc[HTSIZE];
     84   1.4     lukem #define SEED 1815622		/* "Encryption" seed */
     85   1.1       jtc 
     86   1.1       jtc struct text
     87   1.4     lukem 	{
     88   1.4     lukem 		char   *seekadr;/* Msg start in virtual disk */
     89   1.4     lukem 		int     txtlen;	/* length of msg starting here */
     90   1.4     lukem 	};
     91   1.1       jtc 
     92   1.1       jtc #define RTXSIZ  205
     93   1.8   hubertf extern	struct text rtext[RTXSIZ];	/* random text messages */
     94   1.1       jtc 
     95   1.1       jtc #define MAGSIZ  35
     96   1.8   hubertf extern	struct text mtext[MAGSIZ];	/* magic messages */
     97   1.1       jtc 
     98   1.8   hubertf extern	int     clsses;
     99   1.1       jtc #define CLSMAX  12
    100   1.8   hubertf extern	struct text ctext[CLSMAX];	/* classes of adventurer */
    101   1.8   hubertf extern	int     cval[CLSMAX];
    102   1.1       jtc 
    103   1.8   hubertf extern	struct text ptext[101];		/* object descriptions */
    104   1.1       jtc 
    105   1.4     lukem #define LOCSIZ  141			/* number of locations */
    106   1.8   hubertf extern	struct text ltext[LOCSIZ];	/* long loc description */
    107   1.8   hubertf extern	struct text stext[LOCSIZ];	/* short loc descriptions */
    108   1.1       jtc 
    109   1.8   hubertf extern	struct travlist {		/* direcs & conditions of travel */
    110   1.4     lukem 		struct travlist *next;	/* ptr to next list entry */
    111   1.4     lukem 		int     conditions;	/* m in writeup (newloc / 1000) */
    112   1.4     lukem 		int     tloc;		/* n in writeup (newloc % 1000) */
    113   1.4     lukem 		int     tverb;		/* the verb that takes you there */
    114   1.4     lukem 	}      *travel[LOCSIZ], *tkk;	/* travel is closer to keys(...) */
    115   1.1       jtc 
    116   1.8   hubertf extern	int     atloc[LOCSIZ];
    117   1.1       jtc 
    118   1.8   hubertf extern	int     plac[101];		/* initial object placement */
    119   1.8   hubertf extern	int     fixd[101], fixed[101];	/* location fixed? */
    120   1.1       jtc 
    121   1.8   hubertf extern	int     actspk[35];		/* rtext msg for verb <n> */
    122   1.1       jtc 
    123   1.8   hubertf extern	int     cond[LOCSIZ];		/* various condition bits */
    124   1.1       jtc 
    125   1.4     lukem 	extern int setbit[16];		/* bit defn masks 1,2,4,... */
    126   1.1       jtc 
    127   1.8   hubertf extern	int     hntmax;
    128   1.8   hubertf extern	int     hints[20][5];		/* info on hints */
    129   1.8   hubertf extern	int     hinted[20], hintlc[20];
    130   1.1       jtc 
    131   1.8   hubertf extern	int     place[101], prop[101], links[201];
    132   1.8   hubertf extern	int     abb[LOCSIZ];
    133   1.1       jtc 
    134   1.8   hubertf extern	int     maxtrs, tally, tally2;	/* treasure values */
    135   1.1       jtc 
    136   1.1       jtc #define FALSE   0
    137   1.1       jtc #define TRUE    1
    138   1.1       jtc 
    139   1.8   hubertf extern	int     keys, lamp, grate, cage, rod, rod2, steps,	/* mnemonics */
    140   1.4     lukem 	        bird, door, pillow, snake, fissur, tablet, clam, oyster,
    141   1.4     lukem 	        magzin, dwarf, knife, food, bottle, water, oil, plant, plant2,
    142   1.4     lukem 	        axe, mirror, dragon, chasm, troll, troll2, bear, messag,
    143   1.4     lukem 	        vend, batter, nugget, coins, chest, eggs, tridnt, vase,
    144   1.4     lukem 	        emrald, pyram, pearl, rug, chain, spices, back, look, cave,
    145   1.4     lukem 	        null, entrnc, dprssn, enter, stream, pour, say, lock, throw,
    146   1.4     lukem 	        find, invent;
    147   1.4     lukem 
    148   1.8   hubertf extern	int     chloc, chloc2, dseen[7], dloc[7],	/* dwarf stuff */
    149   1.4     lukem 	        odloc[7], dflag, daltlc;
    150   1.4     lukem 
    151   1.8   hubertf extern	int     tk[21], stick, dtotal, attack;
    152   1.8   hubertf extern	int     turns, lmwarn, iwest, knfloc, detail,	/* various flags and
    153   1.4     lukem 							 * counters */
    154   1.4     lukem 	        abbnum, maxdie, numdie, holdng, dkill, foobar, bonus, clock1,
    155   1.4     lukem 	        clock2, saved, closng, panic, closed, scorng;
    156   1.1       jtc 
    157   1.9  christos extern	int     demo, limit;
    158   1.1       jtc 
    159   1.3  christos #define DECR(a,b,c,d,e) decr(a+'+',b+'-',c+'#',d+'&',e+'%')
    160