8 #define PIRATE NDWARVES /* must be NDWARVES-1 when zero-origin */
9 #define DALTLC 18 /* alternate dwarf location; low room */
13 typedef struct lcg_state
15 unsigned long a, c, m, x;
18 typedef long token_t; /* word token - someday this will be char[TOKLEN+1] */
19 typedef long vocab_t; /* index into a vocabulary array */
60 long abbrev[LOCSIZ+1];
62 long dseen[NDWARVES+1];
63 long dloc[NDWARVES+1];
64 long odloc[NDWARVES+1];
65 long fixed[NOBJECTS+1];
66 long link[NOBJECTS*2 + 1];
67 long place[NOBJECTS+1];
68 long hinted[HNTSIZ+1];
69 long hintlc[HNTSIZ+1];
70 long prop[NOBJECTS+1];
73 extern struct game_t game;
75 extern long LNLENG, LNPOSN, PARMS[];
76 extern char rawbuf[LINESIZE], INLINE[LINESIZE+1], MAP1[], MAP2[];
79 extern lcg_state lcgstate;
81 /* b is not needed for POSIX but harmless */
82 #define READ_MODE "rb"
83 #define WRITE_MODE "wb"
85 extern void SPEAK(vocab_t);
86 extern void PSPEAK(vocab_t,int);
87 extern void RSPEAK(vocab_t);
88 extern void SETPRM(long,long,long);
90 extern bool fGETIN(FILE *,token_t*,token_t*,token_t*,token_t*);
91 #define GETIN(input,WORD1,WORD1X,WORD2,WORD2X) fGETIN(input,&WORD1,&WORD1X,&WORD2,&WORD2X)
93 extern long YES(FILE *,vocab_t,vocab_t,vocab_t);
94 extern long GETTXT(bool,bool,bool);
95 extern token_t MAKEWD(long);
97 extern void fPUTTXT(token_t,long*,long);
98 #define PUTTXT(WORD,STATE,CASE) fPUTTXT(WORD,&STATE,CASE)
100 extern void SHFTXT(long,long);
101 extern void TYPE0(void);
103 extern void fSAVWDS(long*,long*,long*,long*,long*,long*,long*);
104 #define SAVWDS(W1,W2,W3,W4,W5,W6,W7) fSAVWDS(&W1,&W2,&W3,&W4,&W5,&W6,&W7)
105 extern void fSAVARR(long*,long);
106 #define SAVARR(ARR,N) fSAVARR(ARR,N)
107 extern void fSAVWRD(long,long*);
108 #define SAVWRD(OP,WORD) fSAVWRD(OP,&WORD)
110 extern long VOCAB(long,long);
111 extern void DSTROY(long);
112 extern void JUGGLE(long);
113 extern void MOVE(long,long);
114 extern long PUT(long,long,long);
115 extern void CARRY(long,long);
116 extern void DROP(long,long);
117 extern long ATDWRF(long);
118 extern long SETBIT(long);
119 extern bool TSTBIT(long,int);
120 extern long RNDVOC(long,long);
121 extern void BUG(long);
122 extern void MAPLIN(FILE *);
123 extern void TYPE(void);
124 extern void MPINIT(void);
126 extern void fSAVEIO(long,long,long*);
127 #define SAVEIO(OP,IN,ARR) fSAVEIO(OP,IN,ARR)
128 extern void DATIME(long*, long*);
130 extern long MOD(long,long);
132 extern void set_seed(long);
133 extern unsigned long get_next_lcg_value(void);
134 extern long randrange(long);
135 extern void score(long);
137 /* vocabulary items */
138 extern long AMBER, ATTACK, AXE, BACK, BATTER, BEAR,
139 BIRD, BLOOD, BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST,
140 CLAM, COINS, DOOR, DPRSSN, DRAGON, DWARF, EGGS,
141 EMRALD, ENTER, ENTRNC, FIND, FISSUR, FOOD, GRATE, HINT, INVENT,
142 JADE, KEYS, KNIFE, LAMP, LOCK, LOOK, MAGZIN, MESSAG, MIRROR, NUGGET, NUL,
143 OGRE, OIL, OYSTER, PANIC, PEARL, PILLOW, PLANT, PLANT2, PYRAM,
144 RESER, ROD, ROD2, RUBY, RUG, SAPPH, SAY, SCORE, SECT, SIGN, SNAKE,
145 STEPS, STICK, STREAM, THROW, TRIDNT, TROLL, TROLL2,
146 URN, VASE, VEND, VOLCAN, WATER;
148 extern long I, J, K, L, MAXDIE, SPK, V1, V2, VRSION, WD1, WD1X, WD2, WD2X;