1
2
3 defines()
4 {
5
6 struct room
7 {
8 char *contents;
9 char *id;
10 };
11
12
13 extern struct room dungeon[34];
14 extern char *cause[8], *effect[8], *species[4], *bad_response, *gold[14], *treasure[16];
15 extern char *frog[42], *hint[16], *royal[6], *curse[6], *sss[10], *monster[7], *noise[7];
16 extern char *command[52], *pad, *qpad, *dots;
17 extern char *strength, *intelligence, *dexterity;
18
19 strength = "STRENGTH";
20 intelligence = "INTELLIGENCE";
21 dexterity = "DEXTERITY";
22 pad = " ";
23 qpad = " ";
24 dots = ".....";
25
26 dungeon[0].contents = "AN EMPTY ROOM";
27 dungeon[0].id = ".";
28 dungeon[1].contents = "THE ENTRANCE";
29 dungeon[1].id = "E";
30 dungeon[2].contents = "STAIRS GOING UP";
31 dungeon[2].id = "U";
32 dungeon[3].contents = "STAIRS GOING DOWN";
33 dungeon[3].id = "D";
34 dungeon[4].contents = "A POOL";
35 dungeon[4].id = "P";
36 dungeon[5].contents = "A CHEST";
37 dungeon[5].id = "C";
38 dungeon[6].contents = "GOLD PIECES";
39 dungeon[6].id = "G";
40 dungeon[7].contents = "FLARES";
41 dungeon[7].id = "F";
42 dungeon[8].contents = "A WARP";
43 dungeon[8].id = "W";
44 dungeon[9].contents = "A SINKHOLE";
45 dungeon[9].id = "S";
46 dungeon[10].contents = "A CRYSTAL ORB";
47 dungeon[10].id = "O";
48 dungeon[11].contents = "A BOOK";
49 dungeon[11].id = "B";
50 dungeon[12].contents = "A KOBOLD";
51 dungeon[12].id = "M";
52 dungeon[13].contents = "AN ORC";
53 dungeon[13].id = "M";
54 dungeon[14].contents = "A GOBLIN";
55 dungeon[14].id = "M";
56 dungeon[15].contents = "AN OGRE";
57 dungeon[15].id = "M";
58 dungeon[16].contents = "A TROLL";
59 dungeon[16].id = "M";
60 dungeon[17].contents = "A HARPY";
61 dungeon[17].id = "M";
62 dungeon[18].contents = "A CYCLOPS";
63 dungeon[18].id = "M";
64 dungeon[19].contents = "A MINOTAUR";
65 dungeon[19].id = "M";
66 dungeon[20].contents = "A GARGOYLE";
67 dungeon[20].id = "M";
68 dungeon[21].contents = "A CHIMERA";
69 dungeon[21].id = "M";
70 dungeon[22].contents = "A BALROG";
71 dungeon[22].id = "M";
72 dungeon[23].contents = "A DRAGON";
73 dungeon[23].id = "M";
74 dungeon[24].contents = "A VENDOR";
75 dungeon[24].id = "V";
76 dungeon[25].contents = "THE RED RUBY";
77 dungeon[25].id = "T";
78 dungeon[26].contents = "THE NORN STONE";
79 dungeon[26].id = "T";
80 dungeon[27].contents = "THE PALE PEARL";
81 dungeon[27].id = "T";
82 dungeon[28].contents = "THE OPAL EYE";
83 dungeon[28].id = "T";
84 dungeon[29].contents = "THE GREEN GEM";
85 dungeon[29].id = "T";
86 dungeon[30].contents = "THE BLUE FLAME";
87 dungeon[30].id = "T";
88 dungeon[31].contents = "THE PALANTIR";
89 dungeon[31].id = "T";
90 dungeon[32].contents = "THE SILMARIL";
91 dungeon[32].id = "T";
92 dungeon[33].contents = "\000";
93 dungeon[33].id = "?";
94
95 cause[0] = "NO WEAPON";
96 effect[0] = " SANDWICH";
97 cause[1] = "DAGGER";
98 effect[1] = " STEW";
99 cause[2] = "MACE";
100 effect[2] = " SOUP";
101 cause[3] = "SWORD";
102 effect[3] = " BURGER";
103 cause[4] = "NO ARMOR";
104 effect[4] = " ROAST";
105 cause[5] = "LEATHER";
106 effect[5] = " FILET";
107 cause[6] = "CHAINMAIL";
108 effect[6] = " TACO";
109 cause[7] = "PLATE";
110 effect[7] = " PIE";
111
112 species[0] = "HOBBIT";
113 species[1] = "ELF";
114 species[2] = "HUMAN";
115 species[3] = "DWARF";
116
117 bad_response = " ** PLEASE!!! CHOOSE A REASONABLE RESPONSE.";
118
119 gold[0] = "ENGLISH SOVEREIGNS";
120 gold[1] = "ARGENTINE PESOS";
121 gold[2] = "SWISS DUCATS";
122 gold[3] = "MEXICAN ESCUDOS";
123 gold[4] = "PERUVIAN SOLES";
124 gold[5] = "AMERICAN EAGLES";
125 gold[6] = "SPANISH DOUBLOONS";
126 gold[7] = "FRENCH FRANCS";
127 gold[8] = "GERMAN DUCATS";
128 gold[9] = "TURKISH PIASTRES";
129 gold[10] = "INDIAN MOHURS";
130 gold[11] = "AUSTRIAN KRONES";
131 gold[12] = "RUSSIAN ROUBLES";
132 gold[13] = "POLISH ZLOTYCHS";
133
134 treasure[0] = "Red Ruby";
135 treasure[1] = "Norn Stone";
136 treasure[2] = "Pale Pearl";
137 treasure[3] = "Opal Eye";
138 treasure[4] = "Green Gem";
139 treasure[5] = "Blue Flame";
140 treasure[6] = "Palantir";
141 treasure[7] = "Silmaril";
142 treasure[8] = "RED RUBY";
143 treasure[9] = "NORN STONE";
144 treasure[10] = "PALE PEARL";
145 treasure[11] = "OPAL EYE";
146 treasure[12] = "GREEN GEM";
147 treasure[13] = "BLUE FLAME";
148 treasure[14] = "PALANTIR";
149 treasure[15] = "SILMARIL";
150
151 frog[0] = " CRICKET";
152 frog[1] = " STRIPED CHORUS";
153 frog[2] = " SPRING PEEPER";
154 frog[3] = " COMMON TREE";
155 frog[4] = " GOPHER";
156 frog[5] = " BULL";
157 frog[6] = " PICKEREL";
158 frog[7] = " LEOPARD";
159 frog[8] = " WOOD";
160 frog[9] = " NARROW-MOUTHED";
161 frog[10] = " PLAINS";
162 frog[11] = " GREEN";
163 frog[12] = " CANYON";
164 frog[13] = "n AMERICAN";
165 frog[14] = " GARDEN";
166 frog[15] = " COMMON MUSK";
167 frog[16] = " YELLOW MUD";
168 frog[17] = "n ALLIGATOR SNAPPING";
169 frog[18] = " COMMON SNAPPING";
170 frog[19] = " MAP";
171 frog[20] = " CAROLINA BOX";
172 frog[21] = "n ORNATE BOX";
173 frog[22] = " FALSE MAP";
174 frog[23] = " WESTERN PAINTED";
175 frog[24] = "n ELEGANT SLIDER";
176 frog[25] = "n EARLESS";
177 frog[26] = " COLLARED";
178 frog[27] = " ROUGH-SCALED";
179 frog[28] = " TEXAS HORNED";
180 frog[29] = " SHORT-HORNED";
181 frog[30] = " BROWN";
182 frog[31] = " COAL";
183 frog[32] = " FIVE-LINED";
184 frog[33] = " SONORAN";
185 frog[34] = " PRAIRIE";
186 frog[35] = "FROG";
187 frog[36] = "FROG";
188 frog[37] = "TOAD";
189 frog[38] = "TURTLE";
190 frog[39] = "TURTLE";
191 frog[40] = "LIZARD";
192 frog[41] = "SKINK";
193
194 hint[0] = "Physical attacks rarely kill Gargoyles";
195 hint[1] = "Lizards and Skinks have gold for you";
196 hint[2] = "It's dangerous to keep too much gold";
197 hint[3] = "Go chase someone who can give you a race";
198 hint[4] = "Many thanks to Joseph Power & Verne Walrafen";
199 hint[5] = "Dragons are magical creatures";
200 hint[6] = "Report any problems to Ms. Bird";
201 hint[7] = "Leslie Bird (nightflyte@gmail.com)";
202 hint[8] = "Gems are much nicer than gold";
203 hint[9] = "Copy this PUBLIC DOMAIN game for your friends";
204 hint[10] = "Only the quick afoot survive";
205 hint[11] = "Do I look like a FROG? Put me down";
206 hint[12] = "You might have to kiss a lot of frogs";
207 hint[13] = "Watch out for WITCHES...wicked and good";
208 hint[14] = "There are three royal siblings";
209 hint[15] = "Knowledge of ZOT's small gift proves WIN";
210
211 royal[0] = "UGLY";
212 royal[1] = "5 YEAR OLD";
213 royal[2] = "HANDSOME";
214 royal[3] = "PLAIN";
215 royal[4] = "OLD MAID";
216 royal[5] = "BEAUTIFUL";
217
218 curse[0] = "LETHARGY.";
219 curse[1] = "THE LEECH.";
220 curse[2] = "FORGETFULNESS.";
221 curse[3] = "lethargy.";
222 curse[4] = "the leech.";
223 curse[5] = "forgetfulness.";
224
225 sss[0] = "\000";
226 sss[1] = "SS";
227 sss[2] = "FEMALE ";
228 sss[3] = "MALE ";
229 sss[4] = "NORTH";
230 sss[5] = "SOUTH";
231 sss[6] = "EAST";
232 sss[7] = "WEST";
233 sss[8] = "GOOD";
234 sss[9] = "EVIL";
235
236 monster[0] = "Harpy";
237 monster[1] = "Gargoyle";
238 monster[2] = "Dragon";
239 monster[3] = "Frog";
240 monster[4] = "Toad";
241 monster[5] = "Lizard";
242 monster[6] = "Skink";
243
244 noise[0] = "a scream";
245 noise[1] = "footsteps";
246 noise[2] = "a CRAZY programmer";
247 noise[3] = "frogs croaking";
248 noise[4] = "faint rustling noises";
249 noise[5] = "see a BAT fly by";
250 noise[6] = "find a VERY dead frog";
251
252 command[0] = "*NO";
253 command[1] = "YYES";
254 command[2] = "*YES";
255 command[3] = "NNO";
256 command[4] = "*ELF";
257 command[5] = "DDWARF";
258 command[6] = "MHUMAN";
259 command[7] = "HHOBBIT";
260 command[8] = "*LEATHER";
261 command[9] = "CCHAINMAIL";
262 command[10] = "PPLATE";
263 command[11] = "*SWORD";
264 command[12] = "NNONE";
265 command[13] = "DDAGGER";
266 command[14] = "MMACE";
267 command[15] = "******";
268 command[16] = "NNORTH";
269 command[17] = "EEAST";
270 command[18] = "SSOUTH";
271 command[19] = "WWEST";
272 command[20] = "LLOOK";
273 command[21] = "UUP";
274 command[22] = "DDOWN";
275 command[23] = "MMAP";
276 command[24] = "HHELP";
277 command[25] = "FFLARE";
278 command[26] = "CCATCH";
279 command[27] = "KKISS";
280 command[28] = "IDRINK";
281 command[29] = "RRELEASE";
282 command[30] = "OOPEN";
283 command[31] = "GGAZE";
284 command[32] = "TTELEPORT";
285 command[33] = "ZZOT";
286 command[34] = "QQUIT";
287 command[35] = "/";
288 command[36] = "*IGNORE";
289 command[37] = "TTRADE";
290 command[38] = "AATTACK";
291 command[39] = "******";
292 command[40] = "AATTACK";
293 command[41] = "BBRIBE";
294 command[42] = "CCAST";
295 command[43] = "RRETREAT";
296 command[44] = "DDEATH";
297 command[45] = "FFIREBALL";
298 command[46] = "WWEBB";
299 command[47] = "******";
300 command[48] = "MMALE";
301 command[49] = "FFEMALE";
302 command[50] = "*NEW";
303 command[51] = "OOLD";
304
305 return 0;
306 }