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