![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to aard.ddl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / games / aard|
Return to aard.ddl CVS log | Up to [CSRG BSD Unix] / 43BSD / games / aard |
1.1 root 1: {*** ROUTINE DECLARATIONS ***}
2:
3: ROUTINE inside;
4: ROUTINE ei8;
5: ROUTINE cdrop;
6: ROUTINE ctake;
7: ROUTINE exitg;
8: ROUTINE skore;
9: ROUTINE darkq;
10: ROUTINE darkt;
11: ROUTINE objl;
12: ROUTINE objs;
13: ROUTINE onlmp;
14: ROUTINE scord;
15: ROUTINE ratng;
16: ROUTINE ratnx;
17: ROUTINE scads;
18:
19: {*** GLOBALS ***}
20:
21: kludge = 2;
22: onoff = 2;
23: signed = 2;
24: tlakst = 2;
25: fedmky = 2;
26: ropstf = 2;
27: readl = 3;
28: wellbt = 2;
29: cutflg = 2;
30: earplg = 3;
31: tookbt = 2;
32: movbl = 1;
33: darkbt = 2;
34: rtied = 3;
35: stond = 2;
36: killd = 2;
37: wiped = 2;
38: blokd = 2;
39: tooky = 2;
40: abrad = 3;
41: hitbr = 2;
42: dugbt = 2;
43: debug = 10;
44: VISIT = 11;
45:
46: rarea = 19;
47: pfound = 17;
48: pplace = 18;
49: pscore = 17;
50: pmax = 18;
51: ratvl = 19;
52: weight = 20;
53:
54: Myloc = 15;
55:
56: {*** DEAD-END ROUTINES ***}
57:
58:
59: cg = ($say "Can't go that way.
60: ");
61:
62: tosml = ($say "The hole is too small for you to fit through.
63: ");
64:
65: dumdir = ($say "I don't know which direction that is.
66: ");
67:
68: tohigh = ($say "The hole is too high for you to reach.
69: ");
70:
71: nothe = ($say "This section is not implemented yet.\n");
72:
73: {*** MUSEUM ROOMS ***}
74:
75: NOUN mrm1;
76: NOUN mrm2;
77: NOUN mrm3;
78: NOUN mrm4;
79: NOUN mrm5;
80: NOUN mrm6;
81:
82: {*** INDIAN ROOMS ***}
83:
84: NOUN irm1;
85: NOUN irm2;
86: NOUN irm3;
87: NOUN irm4;
88: NOUN irm5;
89: NOUN irm6;
90: NOUN irm7;
91: NOUN irm8;
92: NOUN irm9;
93: NOUN irm10;
94: NOUN irm11;
95: NOUN irm12;
96: NOUN irm13;
97: NOUN irm14;
98: NOUN irm15;
99: NOUN irm16;
100: NOUN irm17;
101: NOUN irm18;
102: NOUN irm19;
103: NOUN irm20;
104: NOUN irm21;
105: NOUN irm22;
106: NOUN irm23;
107:
108: {*** PREHISTORIC ROOMS ***}
109:
110: NOUN prehs;
111: NOUN prm1(prehs);
112: prm1(darkbt) = 1;
113: NOUN prm2(prehs);
114: NOUN prm3(prehs);
115: NOUN prm4(prehs);
116: NOUN prm5(prehs);
117: prm5(darkbt) = 1;
118: NOUN prm6(prehs);
119: prm6(darkbt) = 1;
120: NOUN prm7(prehs);
121: prm7(darkbt) = 1;
122: NOUN prm8(prehs);
123: prm8(darkbt) = 1;
124: NOUN prm9(prehs);
125: NOUN prm10(prehs);
126: NOUN prm11(prehs);
127: NOUN prm12(prehs);
128: NOUN prm13(prehs);
129: NOUN prm14(prehs);
130: NOUN prm15(prehs);
131: NOUN prm16(prehs);
132: NOUN prm17(prehs);
133: prm17(darkbt) = 1;
134: NOUN prm18(prehs);
135: prm18(darkbt) = 1;
136: NOUN prm19(prehs);
137: prm19(darkbt) = 1;
138: NOUN prm20(prehs);
139: prm20(darkbt) = 1;
140: NOUN prm21(prehs);
141: NOUN prm22(prehs);
142: NOUN prm23(prehs);
143:
144: NOUN .ME;
145: .ME(SDESC) = ($exit 0);
146: .ME(LDESC) = ($exit 0);
147:
148: {*** PREPOSITIONS ***}
149:
150: PREP into;
151:
152: {*** OBJECTS ***}
153:
154: NOUN poster(irm1);
155: poster(LDESC) = ($say "A brightly colored poster is painted on the wall.\n");
156: poster(SDESC) = ($say "propaganda poster");
157:
158:
159: NOUN pen(mrm2);
160: pen(movbl) = 1;
161: pen(weight) = 1;
162: pen(LDESC) = ($say "There is a ball-point pen here.\n");
163: pen(SDESC) = ($say "ball-point pen");
164:
165: NOUN paper(mrm2);
166: release = paper;
167: form = paper;
168: paper(movbl) = 1;
169: paper(weight) = 1;
170: paper(LDESC) = (($eq ($prop paper readl) 0) :
171: ($say "There is a slip of paper here.\n"))
172: (($eq ($prop paper readl) 1) :
173: ($say "There is a release form here.\n"));
174: paper(SDESC) = (($eq ($prop paper readl) 0) : ($say "slip of paper"))
175: (($eq ($prop paper readl) 1) : ($say "release form"));
176:
177: NOUN spices(irm6);
178: spices(movbl) = 1;
179: spices(weight) = 3;
180: spices(LDESC) = ($say "There is a bag of spices here.\n");
181: spices(SDESC) = ($say "spices");
182: spices(rarea) = 1;
183: spices(pfound) = 5;
184: spices(pplace) = 9;
185:
186: NOUN rupees(irm7);
187: coins=rupees;
188: rupees(movbl) = 1;
189: rupees(weight) = 5;
190: rupees(LDESC) = ($say "There is a bag of rupees (Indian coins) here.\n");
191: rupees(SDESC) = ($say "rupees (coins)");
192: rupees(rarea) = 1;
193: rupees(pfound) = 5;
194: rupees(pplace) = 15;
195:
196: NOUN coconut(irm3);
197: coconut(movbl) = 1;
198: coconut(weight) = 3;
199: coconut(LDESC) = ($say "There is a large coconut here.\n");
200: coconut(SDESC) = ($say "coconut");
201:
202: NOUN rope(mrm1);
203: rope(movbl) = 1;
204: rope(weight) = 3;
205: rope(LDESC) = (($eq ($prop rope ropstf) 0):
206: ($say "There is a coil of rope here.\n"))
207: (($eq ($prop rope ropstf) 1) :
208: ($say "There is a long piece of rope here, magically
209: rising up in mid-air.\n"));
210: rope(SDESC) = ($say "rope");
211:
212: NOUN clarinet(irm2);
213: clarinet(movbl) = 1;
214: clarinet(weight) = 2;
215: clarinet(LDESC) = ($say "There is a clarinet here.\n");
216: clarinet(SDESC) = ($say "clarinet");
217:
218: NOUN cobra(irm22);
219: cobra(LDESC) = ($say "There is a king cobra at the bottom of the pit.\n");
220: cobra(SDESC) = ($say "cobra");
221: snake = cobra;
222: elapid = cobra;
223:
224: NOUN river;
225:
226: NOUN statue;
227:
228: NOUN banana(irm3);
229: banana(movbl) = 1;
230: banana(weight) = 2;
231: banana(LDESC) = ($say "There is a banana here.\n");
232: banana(SDESC) = ($say "banana");
233:
234: NOUN peel;
235: peel(movbl) = 1;
236: peel(weight) = 1;
237: peel(LDESC) = ($say "On the ground, there is a banana peel.\n");
238: peel(SDESC) = ($say "banana peel");
239:
240: NOUN vishnu;
241:
242: NOUN mara;
243:
244: NOUN lakshmi;
245:
246: NOUN crocodile;
247:
248: NOUN rhino(irm13);
249: rhino(LDESC) = (($eq ($prop rhino cutflg) 1) :
250: ($say "There is a rhino sleeping here with his horn removed.\n"))
251: (($eq ($prop rhino cutflg) 0) :
252: ($say "There is a rhinoceros sleeping in the corner.\n"))
253: (($eq ($prop rhino earplg) 1) :
254: ($say "There are two pieces of cotton stuck in his ears.\n"));
255: rhino(SDESC) = ($say "sleeping rhino");
256:
257: NOUN saw(irm2);
258: saw(movbl) = 1;
259: saw(weight) = 2;
260: saw(LDESC) = ($say "There is a hack-saw on the ground.\n");
261: saw(SDESC) = ($say "hack-saw");
262: hacksaw = saw;
263:
264: NOUN horn;
265: horn(movbl) = 1;
266: horn(weight) = 2;
267: horn(LDESC) = ($say "There is a rhinoceros horn here.\n");
268: horn(SDESC) = ($say "rhino horn");
269: horn(rarea) = 1;
270: horn(pfound) = 14;
271: horn(pplace) = 7;
272:
273: NOUN cotton;
274: cotton(movbl) = 1;
275: cotton(weight) = 1;
276: cotton(LDESC) = ($say "There is a large wad of cotton on the ground.\n");
277: cotton(SDESC) = ($say "cotton");
278:
279: NOUN lattice(irm13);
280: lattice(LDESC) = ($exit 0);
281: lattice(SDESC) = ($exit 0);
282:
283: NOUN monkey(irm20);
284: monkey(LDESC) = ($say "There is a sacred temple monkey here.\n");
285: monkey(SDESC) = ($say "a monkey");
286:
287: NOUN tandoori;
288: oven = tandoori;
289:
290: NOUN comb(irm14);
291: comb(movbl) = 1;
292: comb(weight) = 1;
293: comb(LDESC) = ($say "There is an expertly carved jade comb here.\n");
294: comb(SDESC) = ($say "jade comb");
295: comb(rarea) = 1;
296: comb(pfound) = 7;
297: comb(pplace) = 6;
298:
299: NOUN ruby(irm17);
300: ruby(movbl) = 1;
301: ruby(weight) = 2;
302: ruby(LDESC) = ($say "There is a crimson ruby here.\n");
303: ruby(SDESC) = ($say "ruby");
304: ruby(rarea) = 1;
305: ruby(pfound) = 8;
306: ruby(pplace) = 7;
307:
308: NOUN bowl(irm21);
309: bowl(movbl) = 1;
310: bowl(weight) = 3;
311: bowl(LDESC) = ($say "There is a crystal bowl here.\n");
312: bowl(SDESC) = ($say "bowl");
313: bowl(rarea) = 1;
314: bowl(pfound) = 10;
315: bowl(pplace) = 10;
316:
317: NOUN bracelet(irm23);
318: bracelet(movbl) = 1;
319: bracelet(weight) = 1;
320: bracelet(LDESC) = ($say
321: "There is a golden bracelet in the shape of a snake here.\n");
322: bracelet(SDESC) = ($say "bracelet");
323: bracelet(rarea) = 1;
324: bracelet(pfound) = 11;
325: bracelet(pplace) = 6;
326:
327: NOUN shovel(mrm1);
328: shovel(movbl) = 1;
329: shovel(weight) = 3;
330: shovel(LDESC) = ($say
331: "There is a shovel here.\n");
332: shovel(SDESC) = ($say "shovel");
333:
334: NOUN ears;
335:
336: NOUN pole;
337:
338: NOUN amber(prm3);
339: amber(movbl) = 1;
340: amber(weight) = 2;
341: amber(LDESC) = ($say "There is a polished piece of amber here.\n");
342: amber(SDESC) = ($say "amber");
343: amber(rarea) = 2;
344: amber(pfound) = 12;
345: amber(pplace) = 6;
346:
347: NOUN lamp(mrm1);
348: lamp(movbl) = 1;
349: lamp(weight) = 3;
350: lamp(LDESC) = ($say "There is a carbide-flame lamp here.\n");
351: lamp(SDESC) = ($say "lamp");
352:
353: NOUN grate;
354:
355: NOUN nugget;
356: gold = nugget;
357: nugget(movbl) = 1;
358: nugget(weight) = 4;
359: nugget(LDESC) = ($say "There is a gold nugget lying on the ground.\n");
360: nugget(SDESC) = ($say "gold nugget");
361: nugget(rarea) = 2;
362: nugget(pfound) = 13;
363: nugget(pplace) = 7;
364:
365: NOUN axe(prm1);
366: axe(movbl) = 1;
367: axe(weight) = 1;
368: axe(LDESC) = ($say "There is an stone-age axe here.\n");
369: axe(SDESC) = ($say "axe");
370:
371: NOUN spear(prm17);
372: spear(movbl) = 1;
373: spear(weight) = 2;
374: spear(LDESC) = (($eq ($prop spear tooky) 1) :
375: ($say "There is a Neanderthal hunting spear here.\n"))
376: (($eq ($prop spear tooky) 0) :
377: ($say
378: "There is a Neanderthal hunting spear stuck in the ground.\n"));
379: spear(SDESC) = ($say "spear");
380:
381: NOUN plant(prm2);
382: plant(movbl) = 1;
383: plant(weight) = 4;
384: plant(LDESC) = ($say "There is a strange looking potted plant here.\n");
385: plant(SDESC) = ($say "plant");
386:
387: NOUN smilodon; {Putty tat}
388: sabre = smilodon;
389: smilo = smilodon;
390:
391: NOUN troglodyte;
392: trogl = troglodyte;
393:
394: NOUN cheese(prm4);
395: cheese(movbl) = 1;
396: cheese(weight) = 1;
397: cheese(LDESC) = ($say
398: "There is a piece of Swiss cheese here. (Aged 1,000,000 years).
399: ");
400: cheese(SDESC) = ($say "cheese");
401:
402: NOUN towel(prm4);
403: towel(movbl) = 1;
404: towel(weight) = 2;
405: towel(LDESC) = ($say "There is an old towel here.\n");
406: towel(SDESC) = ($say "towel");
407:
408: NOUN mammoth(prm14);
409: mammoth(LDESC) = ($say
410: "There is a large wooly mammoth blocking the path to the south.\n");
411: mammoth(SDESC) = ($say "mammoth");
412: elephant = mammoth;
413: pachyderm = mammoth;
414:
415: NOUN feet;
416:
417: NOUN diamond(prm12);
418: diamond(movbl) = 1;
419: diamond(weight) = 1;
420: diamond(LDESC) = ($say "There is a small diamond here.\n");
421: diamond(SDESC) = ($say "diamond");
422: diamond(rarea) = 2;
423: diamond(pfound) = 7;
424: diamond(pplace) = 8;
425:
426: NOUN ivory(prm15);
427: ivory(movbl) = 1;
428: ivory(weight) = 2;
429: ivory(LDESC) = ($say "There is a piece of ivory here.\n");
430: ivory(SDESC) = ($say "ivory");
431: ivory(rarea) = 2;
432: ivory(pfound) = 9;
433: ivory(pplace) = 8;
434:
435: NOUN pendant;
436: pendant(movbl) = 1;
437: pendant(weight) = 2;
438: pendant(LDESC) = ($say "There is a ancient pendant here.\n");
439: pendant(SDESC) = ($say "pendant");
440: pendant(rarea) = 2;
441: pendant(pfound) = 14;
442: pendant(pplace) = 4;
443:
444: NOUN cairn;
445: skulls = cairn;
446:
447: NOUN bear(prm19);
448: bear(LDESC) = ($say "There is a ferocious cave bear blocking your path to the
449: north.\n");
450: bear(SDESC) = ($say "cave bear");
451:
452: NOUN necklace(prm20);
453: necklace(movbl) = 1;
454: necklace(weight) = 1;
455: necklace(LDESC) = ($say "There is a pearl necklace here.\n");
456: necklace(SDESC) = ($say "necklace");
457: necklace(rarea) = 2;
458: necklace(pfound) = 13;
459: necklace(pplace) = 6;
460:
461: NOUN Tyranosaur;
462: Tyran = Tyranosaur;
463:
464: NOUN ring(prm23);
465: ring(movbl) = 1;
466: ring(weight) = 1;
467: ring(LDESC) = ($say "There is a large diamond ring here.\n");
468: ring(SDESC) = ($say "ring");
469: ring(rarea) = 2;
470: ring(pfound) = 13;
471: ring(pplace) = 10;
472:
473: NOUN hole;
474:
475: NOUN newspaper(mrm1);
476: newspaper(movbl) = 1;
477: newspaper(weight) = 1;
478: newspaper(LDESC) = ($say "There is a copy of a newspaper here.\n");
479: newspaper(SDESC) = ($say "newspaper");
480:
481: NOUN crack;
482: NOUN shaft;
483:
484: {*** VERBS ***}
485:
486: VERB sign;
487: VERB read;
488: VERB throw;
489: VERB drop;
490: VERB take;
491: VERB play;
492: VERB quit;
493: VERB look;
494: VERB inventory;
495: i=inventory;l=look;
496: VERB touch;
497: VERB eat;
498: VERB swim;
499: VERB feed;
500: VERB score;
501: VERB abracadabra;
502: VERB dig;
503: VERB cut;
504: VERB plug;
505: VERB tie;
506: VERB untie;
507: VERB on;
508: VERB off;
509: VERB light;
510: VERB open;
511: VERB close;
512: VERB wipe;
513: VERB shake;
514: VERB xyzzy;
515: VERB jamb;
516: VERB save, restore;
517: save (ACTION) = ($spec 4 0 0 0 0);
518: restore (ACTION) = ($spec 5 0 0 0 0);
519: plugh = xyzzy;
520: clean = wipe;
521: shut = close;
522: peruse = read;
523: chuck = throw;
524: hurl = throw;
525: toss = throw;
526: heave = throw;
527: put = drop;
528: discard = drop;
529: get = take;
530: grab = take;
531: push = touch;
532: pet = touch;
533: devour = eat;
534: consume = eat;
535: wade = swim;
536: ford = swim;
537: shazam = abracadabra;
538: hocus = abracadabra;
539: abra = abracadabra;
540: excavate = dig;
541: remove = cut;
542: end = quit;
543: bye = quit;
544:
545: {*** FUNNY OBJECT ROUTINES ***}
546:
547: poster(ACTION) =
548: (($eq ($verb) read) :
549: ($say
550: " Write your own Adventures! TRW is proud to announce
551: the availability of Dungeon Definition Language (DDL),
552: a meta-adventure language. Used by Aardvarks worldwide!
553: send mail to urban for information.\n\n")
554: ($exit 1)
555: )
556: ($say "You can't do much with a painted poster.\n")
557: ($exit 1)
558: ;
559:
560: paper(ACTION) = (($eq ($verb) sign) :
561: (($eq ($prop paper signed) 1) :
562: ($say "You already signed it.\n")
563: ($exit 1))
564: (($ne ($loc pen) .ME) :
565: ($say "You don't have anything to write with.\n")
566: ($exit 1))
567: (($ne ($loc paper) .ME) :
568: ($say "You don't have the release with you.\n")
569: ($exit 1))
570: ($setp paper signed 1)
571: (($eq ($loc .ME) mrm3) : ($say
572: "In a blinding flash of light, a stone archway appears in the east wall!\n")
573: ($exit 1))
574: (($eq ($loc .ME) mrm5) :
575: ($say "The grate magically disappears into thin air.\n")
576: ($exit 1))
577: ($say "You hear strange noises in the nearby rooms.\n")
578: ($exit 1))
579: (($eq ($verb) read) :
580: (($ne ($loc paper) .ME) :
581: ($say "You don't have the paper with you.\n")
582: ($exit 1))
583: ($say
584: " THIS CONTRACT LIMITS OUR LIABILITY
585: READ IT
586:
587: I, the undersigned, will not hold the AARDVARK, the UCLA Computer
588: Science Department, Locus, the UCLA Computer Club, Bell Labs, UC Berkeley,
589: TRW, Interactive Systems, or the Digital Equipment Corporation responsible
590: for any injuries or deaths due to my executing this program.\n")
591: ($setp paper readl 1)($exit 1));
592:
593: spices(ACTION) = (($and ($eq ($verb) throw) ($eq ($loc .ME) irm8)) :
594: ($say "The bag of spices lands on the other side of the river.
595: ")
596: ($move spices irm9)($exit 1))
597: (($eq ($verb) eat) :
598: ($say "Munch, Munch Munch. It needed a little more salt.\n")
599: ($move spices .ALL)
600: ($exit 1) )
601: (($and ($eq ($verb) throw) ($eq ($loc .ME) irm9)) :
602: ($say "The bag of spices gets intercepted by one of the
603: crocodiles, who promptly swallows it.\n")($move spices .ALL)
604: ($exit 1));
605:
606: rupees(ACTION) = (($and ($eq ($verb) throw)
607: ($or ($eq ($loc .ME) irm8) ($eq ($loc .ME) irm9))) :
608: ($say
609: "The bag is too heavy to throw across the river. It lands in the middle
610: of the river and sinks to the bottom.\n")($move rupees .ALL)
611: ($exit 1));
612:
613: coconut(ACTION) = (($and ($eq ($loc .ME) irm19) ($eq ($verb) drop)) :
614: (($ne ($loc coconut) .ME) :($exit 0))
615: (($eq ($prop rupees wellbt) 0) :
616: ($say "The water in the well rises.\n")
617: ($move coconut irm19) ($exit 1))
618: ($say "The water level in the well slowly rises.
619: Magically floating on the water is a bag of rupees.\n")
620: ($setp rupees wellbt 0)
621: ($move rupees irm19)
622: ($move coconut irm19) ($exit 1))
623: (($and ($eq ($verb) eat) ($eq ($loc coconut) .ME)) :
624: ($say "The coconut is too large for you to consume.\n")
625: ($exit 1) );
626:
627: clarinet(ACTION) = (($and ($eq ($verb) play) ($eq ($loc clarinet) .ME)) :
628: (($eq ($loc .ME) irm22) :
629: (($eq ($loc cobra) irm22) :
630: ($say "Your clarinet playing sounds so poor that the cobra
631: slithers off in terror.\n")
632: ($move cobra .ALL) ($exit 1)))
633: (($eq ($loc .ME) irm16) :
634: (($eq ($loc rope) irm16) :
635: (($eq ($prop rope ropstf) 0) :
636: ($say "The rope magically extends itself up into the air.\n")
637: ($setp rope ropstf 1)($exit 1))))
638: ($say "Benny Goodman you ain't.\n")
639: ($exit 1));
640:
641: rope(ACTION) = (($eq ($prop rope ropstf) 1) :
642: (($eq ($verb) take) :
643: ($setp rope ropstf 0))($exit 0))
644: (($or ($eq ($loc .ME) prm2) ($eq ($loc .ME) prm3)) :
645: (($eq ($prop rope rtied) 1) :
646: (($eq ($verb) take) :
647: ($say "You have to untie the rope first.\n") ($exit 1))
648: (($eq ($verb) tie) :
649: ($say "It's already tied, turkey.\n") ($exit 1))
650: (($eq ($verb) untie) :
651: (($eq ($loc .ME) prm2) :
652: ($move rope .ME) ($setp rope rtied 0)
653: ($say "You untie the rope and coil it up.\n"))
654: (($eq ($loc .ME) prm3) :
655: ($say "It's tied down at the other end.\n"))
656: ($exit 1)))
657: (($eq ($prop rope rtied) 0) :
658: (($eq ($verb) tie) :
659: (($eq ($loc .ME) prm2) :
660: ($say "You tie one end of the rope around the pole, the other
661: end dangles down into the canyon.\n")
662: ($move rope .ALL)
663: ($setp rope rtied 1) ($exit 1))
664: ($say "I see nothing to tie it onto.\n") ($exit 1))
665: (($eq ($verb) untie) :
666: ($say "It's already untied.\n"))))
667: (($eq ($loc .ME) prm3) :
668: (($eq ($verb) take) : ($say
669: "You can't take it, the other end is tied down.\n") ($exit 1))
670: (($eq ($verb) untie) : ($say
671: "the knot is on the other end.\n") ($exit 1)));
672:
673: river(ACTION) = (($and ($ne ($loc .ME) irm8) ($ne ($loc .ME) irm9)) :
674: ($say "I see no river here.\n")($exit 1))
675: (($eq ($verb) take) :
676: ($say "I can't do that.\n") ($exit 1));
677:
678: cobra(ACTION) = (($and ($eq ($verb) take) ($eq ($loc .ME) ($loc cobra))) :
679: ($say "That would be a poor idea.\n")($exit 1));
680:
681: crocodile(ACTION) = (($eq ($verb) take) :
682: ($say "I can't get to any crocodiles from here.\n")
683: ($exit 1));
684:
685: cmara = (($eq ($verb) take) :
686: ($say "The statue is too heavy for you to carry.\n")
687: ($exit 1));
688: claks = (($and ($or ($eq ($verb) take) ($eq ($verb) touch))
689: ($eq ($prop statue tlakst) 0)) :
690: ($say
691: "The statue slides away very easily, revealing a secret passage.\n")
692: ($setp statue tlakst 1)($exit 1));
693: mara(ACTION) = (($eq ($loc .ME) irm10) : (cmara));
694: vishnu(ACTION) = (($eq ($loc .ME) irm11) : (cmara));
695: lakshmi(ACTION) = (($eq ($loc .ME) irm12) : (claks));
696: statue(ACTION) = (($or ($eq ($loc .ME) irm10) ($eq ($loc .ME) irm11)) :
697: (cmara)
698: ($say "That won't accomplish anything.\n")
699: ($exit 1))
700: (($eq ($loc .ME) irm12) : (claks)
701: ($say "I don't see how you can do that to a statue.\n")
702: ($exit 1));
703:
704: banana(ACTION) = (($eq ($loc banana) .ME) :
705: (($eq ($verb) eat) :
706: ($say "You eat the banana, peel and all.\n")
707: ($move banana .ALL)
708: ($exit 1)))
709: (($eq ($loc .ME) irm20) :
710: (($eq ($verb) drop) :
711: ($say "The monkey picks up the banana, eats it, and discards
712: the banana-peel. As soon as the monkey finishes eating
713: the banana, a bolt of lighting hits the stone slab and
714: cracks it open.\n")
715: ($setp monkey fedmky 1)
716: ($move banana .ALL)
717: ($move peel irm20) ($exit 1)));
718:
719: horn(ACTION) = (($eq ($prop rhino cutflg) 1) : ($exit 0))
720: (($eq ($loc .ME) irm13) :
721: (($eq ($verb) take) :
722: ($say "It is still attached to the rhino.\n")
723: ($exit 1))
724: (($eq ($verb) cut) :
725: (($ne ($loc saw) .ME) :
726: ($say "You don't have something to cut the horn with.\n")
727: ($exit 1))
728: (($eq ($prop rhino earplg) 1) :
729: ($say "You cut the horn off without waking up the rhino.\n")
730: ($setp rhino cutflg 1)
731: ($move horn irm13) ($exit 1))
732: ($say "The noise of the sawing wakes up the rhinoceros who
733: tramples you to death because you disturbed his beauty sleep.\n")
734: (exitg)));
735:
736: lattice(ACTION) = (($eq ($loc .ME) irm13) :
737: (($eq ($verb) take) :
738: (($eq ($prop rhino earplg) 1) :
739: ($say "You successfully take the lattice without waking the
740: rhino. Unfortunately, the lattice was the structure which supported the roof
741: of the room, and the ceiling comes crashing down upon you and breaks every
742: bone in your body.\n"))
743: (($eq ($prop rhino earplg) 0) :
744: ($say "As you take the lattice, a large part of the bamboo
745: falls down. The noise caused by the falling bamboo scares the sleeping
746: rhinoceros who tramples you in his panicked exit from the room.\n"))
747: (exitg)));
748:
749: monkey(ACTION) = (($eq ($loc .ME) irm20) :
750: (($eq ($verb) feed) :
751: (($eq ($loc banana) .ME) :
752: ($say "The monkey takes your banana, peels it, eats it,
753: and throws away the banana peel. As soon as he finishes eating
754: the banana, there is a rumble from the depths of the earth and
755: a crack appears in the stone slab.\n")
756: ($setp monkey fedmky 1)
757: ($move banana .ALL)
758: ($move peel irm20) ($exit 1))));
759:
760: cotton(ACTION) = (($eq ($loc .ME) irm13) :
761: (($and ($eq ($verb) drop) ($eq ($iobj) ears)) :
762: ($say
763: "You stick the wads of cotton into the rhino's ears.\n")
764: ($move cotton .ALL)
765: ($setp rhino earplg 1)
766: ($exit 1)))
767: (($eq ($loc cotton) .ALL):
768: (($eq ($loc .ME) irm13):
769: (($eq ($verb) take) :
770: ($say "OK\n")
771: ($move cotton .ME)
772: ($setp rhino earplg 0)
773: ($exit 1))));
774:
775: pole(ACTION) = (($and ($eq ($loc .ME) prm2) ($eq ($verb) take)) :
776: ($say "The pole is firmly cemented into the ground.\n")
777: ($exit 1));
778:
779: lamp(ACTION) = (($eq ($verb) light) : (onlmp) ($exit 1));
780:
781: oven(ACTION) = (($and ($eq ($loc .ME) irm4) ($eq ($verb) open)) :
782: ($say "The door of the oven doesn't budge.\n")
783: ($exit 1));
784:
785: grate(ACTION) = (($and ($eq ($prop paper signed) 0)
786: ($eq ($loc .ME) mrm5)) :
787: (($or ($eq ($verb) open) ($eq ($verb) take)) :
788: ($say
789: "The grate appears to be firmly cemented into the wall.\n")
790: ($exit 1))
791: (($eq ($verb) shut) :
792: ($say "The grate is already shut.\n")($exit 1)));
793:
794: weapo = (($eq ($verb) throw) :
795: (($and ($eq ($prop bear hitbr) 0) ($eq ($loc .ME) prm19)) :
796: ($say "The axe bounces harmlessly off of the bear.\n")
797: ($move axe prm19) ($exit 1))
798: (($eq ($loc .ME) prm14) :
799: ($say "The weapon that you just threw imbeds itself deep into the
800: skull of the mammoth and is covered by the mammoth's long fur so that it
801: can't be seen. The mammoth just stares back at you blankly.\n")
802: ($move ($dobj) .ALL) ($exit 1))
803: (($or ($eq ($loc .ME) irm8) ($eq ($loc .ME) irm9)) :
804: ($say "You miss the crocodile and your weapon sinks into the river.\n")
805: ($move ($dobj) .ALL) ($exit 1))
806: (($eq ($loc .ME) irm13):
807: ($say "Your weapon bounces harmlessly off of the rhino.\n")
808: ($move ($dobj) irm13) ($exit 1))
809: (($and ($eq ($loc .ME) prm6) ($eq ($prop smilo stond) 0)) :
810: ($say "The sabre-tooth catches your weapon in its mouth and promptly
811: swallows it.\n") ($move ($dobj) .ALL) ($exit 1))
812: (($and ($eq ($loc .ME) prm8) ($eq ($prop trogl killd) 0)) :
813: ($say "You hit the troglodyte, who, screaming in pain, drops the
814: gold nugget and falls over the cliff.\n") ($setp trogl killd 1)
815: ($move ($dobj) .ALL)
816: ($move nugget prm8) ($exit 1)));
817:
818: spear(ACTION) = (($eq ($loc spear) .ME) :
819: (($ne ($loc .ME) prm19) :
820: (weapo))
821: (($eq ($loc .ME) prm19) :
822: (($eq ($verb) throw) :
823: ($say
824: "You repeatedly throw your spear at the bear. Eventually, he gets
825: bored and wanders off.\n")
826: ($move bear .ALL)
827: ($move spear prm19)
828: ($setp bear hitbr 1) ($exit 1) )))
829: (($eq ($loc .ME) prm17) :
830: (($eq ($verb) take) :
831: (($eq ($prop spear tooky) 0) :
832: ($say
833: "You hear a loud roar as an avalanche blocks the path to your north.\n")
834: ($move spear .ME)
835: ($setp spear tooky 1) ($exit 1))))
836: (($eq ($verb) shake) :
837: ($say "I don't see any playwrights here.\n"))
838: (($and ($eq ($loc .ME) prm23) ($eq ($verb) take)) :
839: ($say
840: "As soon as you take the spear, the Tyranosaurus Rex closes his mouth and
841: swallows you.\n") (exitg));
842:
843: axe(ACTION) = (($eq ($loc axe) .ME) : (weapo));
844:
845: smilo(ACTION) = (($and ($eq ($loc .ME) prm6) ($eq ($verb) take)) :
846: ($say "You must be dumber than you look.\n")
847: ($exit 1));
848:
849: troglodyte(ACTION) = (($and ($eq ($loc .ME) prm8) ($eq ($verb) take)) :
850: ($say "The troglodyte does not look like he wants to be
851: carried.\n") ($exit 1));
852:
853: plant(ACTION) = (($eq ($loc .ME) prm6) :
854: (($or ($eq ($verb) throw) ($eq ($verb) drop)) :
855: (($eq ($prop smilo stond) 0) :
856: ($say
857: "The plant you were holding turns out to be primo grade catnip. The
858: sabre-tooth cat grabs the plant and runs off purring loudly.\n")
859: ($move plant .ALL)
860: ($setp smilo stond 1) ($exit 1))))
861: (($eq ($verb) eat) :
862: ($say
863: "You completely eat the plant and now feel quite nauseous.\n")
864: ($move plant .ALL) ($exit 1));
865:
866: nugget(ACTION) = (($and ($eq ($verb) take)
867: ($eq ($prop trogl killd) 0)) :
868: ($say "He ain't gonna let you take it.\n")($exit 1));
869:
870: cheese(ACTION) = (($eq ($verb) eat) :
871: ($say "You eat the cheese, but nothing peculiar happens.\n")
872: ($move cheese .ALL) ($exit 1))
873: (($and ($eq ($verb) drop) ($eq ($loc .ME) prm14)) :
874: ($say
875: "As soon as you drop the cheese, a mouse runs out of the hole in the east
876: wall and takes it. This scares the mammoth who runs off in terror.\n")
877: ($setp mammoth blokd 1)
878: ($move mammoth .ALL)
879: ($move cheese .ALL) ($exit 1));
880:
881: mammoth(ACTION) = (($eq ($loc mammoth) ($loc .ME)) :
882: (($eq ($verb) feed) :
883: ($say "He doesn't look hungry.\n")($exit 1))
884: (($eq ($verb) take) : ($say
885: "He doesn't look too easy to carry.\n") ($exit 1)));
886:
887: feet(ACTION) = (($eq ($verb) wipe) :
888: (($ne ($loc towel) .ME) :
889: ($say "You don't have something to wipe them with.\n")
890: ($exit 1))
891: ($say "You just cleaned off your feet.\n")
892: ($setp feet wiped 0) ($exit 1))
893: (($eq ($verb) touch) :
894: ($say "You can't without bending your knees.\n"));
895:
896: cairn(ACTION) = (($eq ($loc .ME) prm18) :
897: ($say
898: "How dare you do such a thing. Any idiot with just the slightest knowledge
899: of prehistoric etiquette knows that you aren't supposed to do anything to
900: a cairn.\n") ($exit 1) );
901:
902: bear(ACTION) = (($eq ($loc .ME) prm19) :
903: (($eq ($verb) take) :
904: (($eq ($prop bear hitbr) 0) :
905: ($say
906: "The bear is a little too bulky to carry.\n")($exit 1))));
907:
908: Tyranosaur(ACTION) = (($and ($ne ($loc .ME) prm22) ($ne ($loc .ME) prm23)) :
909: ($say
910: "What? One of those things hasn't existed in several million years.\n"));
911:
912: hole(ACTION) = (($eq ($loc .ME) prm14) :
913: ($say "That hole is too small to do anything with.\n")
914: ($exit 1))
915: (($eq ($loc .ME) irm19) :
916: (($eq ($verb) drop) :
917: (($eq ($iobj) hole) :
918: ($say "It falls back out of the hole.\n")
919: ($exit 1))))
920: (($eq ($loc .ME) irm6) :
921: (($eq ($verb) drop) :
922: (($eq ($iobj) hole) :
923: (($eq ($dobj) spices) :
924: (($ne ($loc spices) .ME) :
925: ($say "You ain't got it with you.\n")
926: ($exit 1))
927: ($say "The bag of spices rips against the jagged sides of the shaft and
928: almost all of the spices get blown away in the wind.\n")
929: ($move spices .ALL)
930: ($exit 1))
931: (($eq ($dobj) rupees) :
932: (($ne ($loc rupees) .ME) :
933: ($say "You ain't got the coins with you.\n")
934: ($exit 1))
935: ($say "The rupees fall down the shaft into the darkness below. You
936: eventually hear a barely audible splash.\n")
937: ($setp rupees wellbt 1)
938: ($move rupees .ALL)
939: ($exit 1))
940: ($say "That doesn't fit in the hole.\n")
941: ($exit 1)
942: )))
943: ($say "I do not see any holes here.\n");
944:
945: newspaper(ACTION) = (($and ($eq ($verb) read) ($eq ($loc newspaper) .ME)) :
946: ($say
947: " DAILY GNUS
948: Vol 2. 25 AUGUST
949:
950: ")
951: ($say
952: "Spies in the far reaches of the Museum have reported that new construction
953: is now taking place.\n\n")
954: ($say
955: "Again, Adventurers are reminded that restocking of the museum sections will
956: be greatly rewarded.\n\n"
957: )($exit 1));
958:
959: crack(ACTION) = (($eq ($verb) jamb) :
960: ($say "The only climbable cracks in this place are A4.\n")
961: ($exit 1))
962: ($say "I can't figure that out. I'm not as smart as I am
963: cracked up to be.\n")($exit 1);
964:
965: shaft(ACTION) = (($eq ($verb) jamb) :
966: ($say "Try jamb crack (How do you jamb a shaft?)\n")
967: ($exit 1));
968:
969: {*** DIRECTIONS ***}
970:
971: VERB north;
972: VERB south;
973: VERB east;
974: VERB west;
975: VERB up;
976: VERB down;
977: VERB in;
978: VERB out;
979: n=north;
980: s=south;
981: e=east;
982: w=west;
983: u=up;
984: d=down;
985: enter = in;
986: exit=out;
987: leave=out;
988: climb=up;
989:
990: {*** VERB ROUTINES ***}
991:
992: plug(ACTION) = (($eq ($loc .ME) irm13) :
993: (($eq ($loc cotton) .ME) :
994: ($say
995: "You stick the cotton into the rhino's ears.\n")
996: ($move cotton .ALL)
997: ($setp rhino earplg 1)
998: ($exit 1)))
999: ($say "I don't quite understand what you mean.\n");
1000:
1001: dig(ACTION) = (($ne ($loc shovel) .ME) :
1002: ($say "You don't have something to dig with.\n")
1003: ($exit 1))
1004: (($eq ($loc .ME) irm9) :
1005: (($eq ($prop cotton tookbt) 0) : ($setp cotton tookbt 1)
1006: ($say "You find some cotton buried in the sand.\n")
1007: ($move cotton irm9)($exit 0))
1008: ($say "OK\n") ($exit 0))
1009: (($eq ($loc .ME) prm17) :
1010: (($eq ($prop pendant dugbt) 0) : ($setp pendant dugbt 1)
1011: ($say "You find an ancient pendant buried in the grave.\n")
1012: ($move pendant prm17) ($exit 0))
1013: ($say "You dig some but you don't find anything.\n")
1014: ($exit 0))
1015: ($say "The ground is too hard to dig into.\n");
1016:
1017: cantdo = ($say "I don't believe I can do that.\n");
1018: sign(ACTION) = (cantdo);
1019: play(ACTION) = (cantdo);
1020:
1021: arolg = ($say "It will probably cost you an arm or a leg to feed that.\n")
1022: ($exit 1);
1023: feed(ACTION) = (($or ($eq ($loc .ME) irm8) ($eq ($loc .ME) irm9)) :
1024: (($eq ($dobj) crocodile) :
1025: (arolg)))
1026: (($and ($eq ($loc .ME) prm19) ($eq ($dobj) bear)) :
1027: (($eq ($prop bear hitbr) 0) :
1028: (arolg)))
1029: (($and ($eq ($loc .ME) prm6) ($eq ($dobj) smilo)) :
1030: (($eq ($prop smilo stond) 0) :
1031: (arolg)))
1032: (($or ($eq ($loc .ME) prm22) ($eq ($loc .ME) prm23)) :
1033: (($eq ($dobj) Tyran) : (arolg)))
1034: ($say "I don't quite understand what you mean.\n");
1035:
1036: cut(ACTION) = (cantdo);
1037:
1038: read(ACTION) = ($say "I don't see any text here that I can read.\n");
1039:
1040: throw(ACTION) = (cdrop);
1041:
1042: touch(ACTION) = ($say "That doesn't seem to accomplish much.\n");
1043:
1044: eat(ACTION) = ($say "I think I just lost my appetite.\n");
1045:
1046: abracadabra(ACTION) = (($ne prehs ($loc ($loc .ME))) :
1047: ($say
1048: "That phrase hasn't worked in at least ten thousand years.\n")
1049: ($exit 0))
1050: (($ne ($loc .ME) prm17) :
1051: ($say "Nothing happens.\n") ($exit 0))
1052: (($eq ($prop spear tooky) 1) :
1053: (($eq ($prop spear abrad) 0) :
1054: ($setp spear abrad 1)
1055: ($say "The rubble gets magically cleared away.\n")
1056: ($exit 0)))
1057: ($say "Nothing much happens.\n");
1058:
1059: tie(ACTION) = ($say "It is impossible to tie a knot in that right now. \n");
1060:
1061: untie(ACTION) = ($say "I don't quite understand what you mean.\n");
1062:
1063: on(ACTION) = (($eq ($prop lamp onoff) 1) :
1064: ($say "The lamp is already on.\n") ($exit 1))
1065: (onlmp) ($exit 1);
1066:
1067: off(ACTION) = (($ne ($loc lamp) .ME) :
1068: ($say "You don't have the lamp with you.\n")
1069: ($exit 1))
1070: (($eq ($prop lamp onoff) 0) :
1071: ($say "The lamp is already off.\n")
1072: ($exit 1))
1073: ($setp lamp onoff 0)
1074: ($say "The lamp is now off.\n");
1075:
1076: light(ACTION) = ($say "I don't know how to light that.\n");
1077:
1078: open(ACTION) = ($say "That thing is un-openable.\n");
1079:
1080: close(ACTION) = ($say "I don't quite understand what you mean.\n" );
1081:
1082: swim(ACTION) = (($eq ($loc .ME) irm8) :
1083: (ei8) ($exit 0))
1084: (($eq ($loc .ME) irm9) :
1085: (ei8) ($move .ME irm8) ($exit 0))
1086: ($say "I don't see enough water here to even wade in.\n");
1087:
1088: wipe(ACTION) = ($say "I don't quite comprehend what you are saying.\n");
1089:
1090: shake(ACTION) = ($say "That probably won't accomplish much.\n");
1091:
1092: jamb(ACTION) = ($say "I don't quite comprehend what you mean.\n");
1093:
1094: xyzzy(ACTION) = ($say
1095: "You are transported to a room where you are faced by a wizard who points to
1096: you and says, ''Them's fighting words!'' You immediately get attacked by
1097: all sorts of denizens of the museum: there is a cobra chewing on your leg,")
1098: ($say "
1099: a troglodyte is bashing your brains out with a gold nugget, a crocodile is
1100: removing large chunks of flesh from you, a rhinoceros is goring you with his
1101: horn, a sabre-tooth cat is busy trying to disembowel you, you are being")
1102: ($say "
1103: trampled by a large mammoth, a vampire is sucking you dry, a Tyranosaurus
1104: Rex is sinking his six inch long fangs into various parts of your anatomy,
1105: a large bear is dismembering your body, a gargoyle is bouncing up and")
1106: ($say "
1107: down on your head, a burly troll is tearing you limb from limb, several
1108: dire wolves are making mince meat out of your torso, and the wizard is about
1109: to transport you to the corner of Westwood and Broxton.\n")
1110: ($say "Oh dear, you seem to have gotten yourself killed, as well.\n")
1111: (skore) (ratng) (ratnx) ($spec 3 0 0 0 0);
1112:
1113: score(ACTION) = (skore)(ratng);
1114: skore = ($say "You scored")
1115: ($num ($prop .ME pscore))
1116: ($say "out of")
1117: ($num ($prop .ME pmax))
1118: ($say "possible points.\n");
1119:
1120: ratng = ($setp .ME ratvl 0)
1121: (($ne ($prop .ME pscore) 0) :
1122: ($setp .ME ratvl ($quotient ($times ($prop .ME pscore) 8)
1123: ($prop .ME pmax))))
1124: ($say "That gives you a ranking of ")
1125: (($eq ($prop .ME ratvl) 0) :
1126: ($say "junior beginning adventurer.\n"))
1127: (($eq ($prop .ME ratvl) 1) :
1128: ($say "senior beginning adventurer.\n"))
1129: (($eq ($prop .ME ratvl) 2) :
1130: ($say "intermediate adventurer.\n"))
1131: (($eq ($prop .ME ratvl) 3) :
1132: ($say "expert adventurer.\n"))
1133: (($eq ($prop .ME ratvl) 4) :
1134: ($say "junior master adventurer.\n"))
1135: (($eq ($prop .ME ratvl) 5) :
1136: ($say "master adventurer.\n"))
1137: (($eq ($prop .ME ratvl) 6) :
1138: ($say "senior master adventurer.\n"))
1139: (($eq ($prop .ME ratvl) 7) :
1140: ($say "life master adventurer.\n"))
1141: (($eq ($prop .ME ratvl) 8) :
1142: ($say "super-stud adventurer.\n"));
1143:
1144: ratnx = (($eq ($prop .ME ratvl) 8) :
1145: ($say "CONGRATULATIONS.\n") ($spec 3 0 0 0 0))
1146: ($say "To achieve the next higher rating, you need to score")
1147: ($setp .ME ratvl ($plus ($prop .ME ratvl) 1))
1148: ($setp .ME ratvl ($times ($prop .ME ratvl) ($prop .ME pmax)))
1149: ($setp .ME ratvl ($quotient ($prop .ME ratvl) 8))
1150: ($setp .ME ratvl ($plus ($prop .ME ratvl) 1))
1151: ($setp .ME ratvl ($minus ($prop .ME ratvl) ($prop .ME pscore)))
1152: ($num ($prop .ME ratvl))
1153: ($say "more points.\n");
1154:
1155: objl = (($eq %1 0) : ($exit 0))
1156: (objl ($link %1))
1157: (($ldesc %1));
1158:
1159: objs = (($eq %1 0) : ($exit 0))
1160: (objs ($link %1))
1161: (($eq %1 .ME) : ($exit 0))
1162: (($eq ($prop .ME kludge) 1) : ($say "You can see:\n")
1163: ($setp .ME kludge 0))
1164: (($sdesc %1))
1165: ($say "\n");
1166:
1167: LLOOK = (($ldesc ($loc .ME)))
1168: (objl ($cont ($loc .ME)));
1169:
1170: SLOOK = (($sdesc ($loc .ME)))
1171: ($setp .ME kludge 1)
1172: (objs ($cont ($loc .ME)));
1173:
1174: LOOK = ( ($prop ($loc .ME) VISIT) :
1175: (($ne @Myloc ($loc .ME)) : (SLOOK)) :
1176: (($ne @Myloc ($loc .ME)) :
1177: (LLOOK) ($setp ($loc .ME) VISIT 1))
1178: )
1179: ($setg Myloc ($loc .ME))
1180: ($say "> ");
1181:
1182: START = ($setp .ME pmax 250)
1183: ($setp .ME debug 0)
1184: ($move .ME mrm1)
1185: ($spec 7 "/home/urban/.aard.words" 0 0 0)
1186: ($sdem LOOK);
1187:
1188: quit(ACTION) = (skore) (ratng) (ratnx) ($spec 3 0 0 0 0);
1189:
1190: look(ACTION) = (LLOOK);
1191:
1192: take(ACTION) = (ctake);
1193: scale = ($setp .ME weight 0)
1194: (($ne ($cont .ME) 0) :
1195: ($setg 12 ($cont .ME)) (scads));
1196: scads = (($ne @12 0):
1197: ($setp .ME weight ($plus ($prop .ME weight) ($prop @12 weight)))
1198: ($setg 12 ($link @12))
1199: (scads));
1200: ctake = (scale)
1201: (($ne ($loc .ME) ($loc ($dobj))):
1202: ($say "I don't see that item here.\n")($exit 0))
1203: (($eq ($prop ($dobj) movbl) 0) :
1204: ($say "That thing is too heavy to carry.\n")($exit 0))
1205: (($gt ($plus ($prop ($dobj) weight) ($prop .ME weight)) 20) :
1206: ($say
1207: "You are carrying too much. You will have to at least drop something first.
1208: ") ($exit 0))
1209: ($setp .ME weight ($plus ($prop ($dobj) weight) ($prop .ME weight)))
1210: ($say "OK\n") ($move ($dobj) .ME)
1211: (($eq ($prop ($dobj) rarea) 0 ) : ($exit 0))
1212: ($setp .ME pscore ($plus ($prop .ME pscore) ($prop ($dobj) pfound)))
1213: ($setp ($dobj) pfound 0);
1214:
1215: drop(ACTION) = (cdrop);
1216: cdrop = (($ne ($loc ($dobj)) .ME) :
1217: ($say "You don't have it with you.\n")($exit 0))
1218: (($eq ($loc .ME) prm21) :
1219: ($say "OK, it falls further down into the crack.\n")
1220: ($move ($dobj) prm22) ($exit 1))
1221: ($say "OK\n") ($move ($dobj) ($loc .ME))
1222: (($eq ($prop ($dobj) rarea) 0 ) : ($exit 0))
1223: (($eq ($prop ($dobj) rarea) 2) : (($eq ($loc .ME) mrm5) :
1224: (scord)))
1225: (($eq ($prop ($dobj) rarea) 1): (($eq ($loc .ME) mrm3) :
1226: (scord)));
1227:
1228: scord =
1229: ($setp .ME pscore ($plus ($prop .ME pscore) ($prop ($dobj) pplace)))
1230: ($setp ($dobj) pplace 0);
1231:
1232: inventory(ACTION) = ($say "You are carrying:\n")
1233: (($eq ($cont .ME) 0):($say "Nothing\n")($exit 1))
1234: ($setg 12 ($cont .ME)) (inside);
1235: inside = (($ne @12 0) : (($sdesc @12)) ($say "\n")
1236: ($setg 12 ($link @12)) (inside));
1237:
1238: {*** ROOM DESCRIPTIONS ***}
1239:
1240: mrm1(LDESC) = ($say "You are standing outside the north entrance of a large
1241: brick building. Inscribed above the doorway, appear the
1242: text: 'AARDVARK'S MUSEUM -- GATEWAY TO ADVENTURELAND'.
1243: ");
1244: mrm1(SDESC) = ($say "Museum entrance
1245: ");
1246:
1247: mrm2(LDESC) = ($say "You are in a large rotunda of an old museum. Doors lead
1248: to the north, south, east, and west, and a narrow stairway
1249: in the north-east corner of the room leads down.
1250: ");
1251: mrm2(SDESC) = ($say "Museum rotunda
1252: ");
1253:
1254: mrom3a = ($say "You are in a dimly lit room containing an empty display case.
1255: A portion of a vandalized sign above the case reads:
1256: 'ARTIFACTS OF ANCIENT INDIA -- Several of these items,
1257: including the sacred rhinoceros horn, the deadly ...'.
1258: The rest of the sign is unreadable.
1259: ");
1260: mrm3(LDESC) = (mrom3a)
1261: (($eq ($prop paper signed) 0) : ($say
1262: "To the west, you can look through a large door into the rotunda
1263: of the museum. On the east wall of the hall there is an outline
1264: of an arch.
1265: "))
1266: (($eq ($prop paper signed) 1) : ($say
1267: "Through the door to the west, you can see part of the rotunda
1268: of the museum. To the east, there is a stone archway.
1269: "));
1270: mrm3(SDESC) = ($say "East wing of the museum
1271: ");
1272:
1273: mrm4(LDESC) = ($say "You are in a non-descript room with absolutely
1274: nothing in it. A hollow voice says ''This room is unavailable for use at this
1275: time. Please leave through the doorway to your north.''
1276: ");
1277: mrm4(SDESC) = ($say "Closed room
1278: ");
1279:
1280: mrom5 = ($say "You are standing before a large empty display case in a poorly
1281: lit basement-like room. Encircling the room high on the walls appear the text
1282: ''HALL OF PREHISTORY.'' A stairway leads up, and in the south wall, there is
1283: a small hole");
1284: mrm5(LDESC) = (mrom5)
1285: (($eq ($prop paper signed) 1) :
1286: ($say ".\n"))
1287: (($eq ($prop paper signed) 0) :
1288: ($say " covered by a grate.\n"));
1289: mrm5(SDESC) = ($say "Hall of Prehistory.\n");
1290:
1291: mrm6(LDESC) = ($say
1292: "You are wandering through a dense forest past twisted birch trees
1293: rising toward the sky in contorted agony. Enormous skeletons of burned
1294: out sycamores are scattered throughout the area, and gnarled stumps of")
1295: ($say
1296: "\nonce proud oak trees make the appearance of the forest even more
1297: disturbing. Nothing is stirring, a pall of death seems to hang over the
1298: forest like a blanket, and you can't seem to figure out which direction\n")
1299: ($say "is which.\n");
1300: mrm6(SDESC) = ($say "You are lost in the forest.\n");
1301:
1302: irm1(LDESC) = ($say "You are at the top of a highly ornate spiral stairway.
1303: A wing of the museum can be seen to the west. The room is moist
1304: and damp, and the scent of cumin and saffron fills the air.
1305: ");
1306: irm1(SDESC) = ($say "Top of spiral stairway
1307: ");
1308:
1309: irm2(LDESC) = ($say "You are in an east-west passage at the bottom of
1310: a spiral stairway. A slight breeze blows from east to west.
1311: ");
1312: irm2(SDESC) = ($say "Bottom of spiral stairway
1313: ");
1314:
1315: irm3(LDESC) = ($say "You are standing in a deserted Indian marketplace.
1316: Although it seems to have once been a bustling area,
1317: there is very little left here. Most of the vacant
1318: booths form an alley running north, and a small path
1319: goes east.
1320: ");
1321: irm3(SDESC) = ($say "Marketplace
1322: ");
1323:
1324: irm4(LDESC) = ($say "You are in a small kitchen adjoining the marketplace.
1325: Most of the furniture in the room has been broken, and all
1326: of the pottery once used for cooking has been stolen. In the
1327: north-west corner, there is a tandoori oven. A door to the
1328: south leads back out to the marketplace, and a trap-door
1329: leads down to what appears to be a murky basement.
1330: ");
1331: irm4(SDESC) = ($say "Kitchen
1332: ");
1333:
1334: irm5(LDESC) = ($say "You are in a cellar which apparently has been used to
1335: store spices. Empty racks line all the walls of the room,
1336: and everything in the room seems to be blanketed in a thin
1337: layer of dust. An unreachable hole appears in the ceiling
1338: and exits lead to the north, south, and east.
1339: ");
1340: irm5(SDESC) = ($say "Spice cellar
1341: ");
1342:
1343: irm6(LDESC) = ($say "You are in a small cave-like room apparently once used
1344: for the cultivation of mushrooms. You find the smell of
1345: this room slightly displeasing. There are exits to the
1346: south and west, and there is a small hole in the
1347: north wall, through which you can see a long vertical
1348: shaft with jagged sides.
1349: ");
1350: irm6(SDESC) = ($say "Mushroom room
1351: ");
1352:
1353: irm7(LDESC) = ($say "You are in an abandoned warehouse-like room which,
1354: though once used for storage, is now predominantly full of
1355: rubble. Exits lead to the north and east.
1356: ");
1357: irm7(SDESC) = ($say "Warehouse
1358: ");
1359:
1360: irm8(LDESC) = ($say "You are standing on a rocky beach on the west bank
1361: of a slow-moving subterranean river. Several large
1362: crocodiles are lazily sleeping at the north end of the river.
1363: A path leads to the west.
1364: ");
1365: irm8(SDESC) = ($say "West bank of river
1366: ");
1367:
1368: irm9(LDESC) = ($say "You are on a sandy beach on the east bank of a crocodile
1369: infested river. A roughly hewn stairway in the rock leads up
1370: far beyond your range of vision.
1371: ");
1372: irm9(SDESC) = ($say "East bank of river
1373: ");
1374:
1375: irm10(LDESC) = ($say "You are in a room containing an enormous statue of
1376: Mara, Hindu goddess and consort to Vishnu. Passages lead
1377: to the east, west, and south, and a roughly hewn stairway
1378: seems to go down to an area further underground.
1379: ");
1380: irm10(SDESC) =($say "In front of Mara's statue
1381: ");
1382:
1383: irm11(LDESC) = ($say "You are standing in front of a gigantic statue of the
1384: Hindu god Vishnu. Passages lead north and south, and it appears
1385: that you can squeeze through a narrow crack in the western wall.
1386: ");
1387: irm11(SDESC) = ($say "In front of Vishnu's statue
1388: ");
1389:
1390: irom12a = ($say "You are in a room containing an enormous statue of
1391: Lakshmi, Hindu goddess and consort to Vishnu.
1392: ");
1393: irm12(LDESC) = (irom12a)
1394: (($eq ($prop statue tlakst) 0) : ($say
1395: "Passages lead to the north and east.
1396: "))
1397: (($eq ($prop statue tlakst) 1) : ($say
1398: "Passages lead to the east and north, and on the west wall
1399: there is a hole large enough to crawl through.
1400: "));
1401: irm12(SDESC) = ($say "In front of Lakshmi's statue
1402: ");
1403:
1404: irm13(LDESC) = ($say "You are in what would appear to be a totally man-made
1405: cave. The walls are covered with bamboo shafts cut and
1406: tied together to form a very complex lattice pattern.
1407: An extremely narrow passage leads east, and there is a
1408: large door to the south.
1409: ");
1410: irm13(SDESC) = ($say "Bamboo Room
1411: ");
1412:
1413: irm14(LDESC) = ($say "You are in a small room with a very low ceiling. The
1414: only exit is to the east.
1415: ");
1416: irm14(SDESC) = ($say "Flat Room
1417: ");
1418:
1419: irm15(LDESC) = ($say "You are standing in the center of a large dome-like
1420: room. Exits lead to the north, east, and west, and around the perimeter of
1421: the room appear the words 'ABRACADABRA -- VARUNA SUCKS COCONUTS.'
1422: ");
1423: irm15(SDESC) = ($say "Inside Dome
1424: ");
1425:
1426: irm16(LDESC) = ($say
1427: "You are at the base of a tall naturally formed shaft.
1428: On all sides, you are surrounded by gigantic basalt columns
1429: towering above you in a serpentine manner, as if great
1430: likenesses of Vasuki himself. Passages lead to the north,
1431: east, and west, and above you appears a small ledge.
1432: ");
1433: irm16(SDESC) = ($say "Vertical Shaft
1434: ");
1435:
1436: irm17(LDESC) = ($say
1437: "You are on a small ledge high above the base of a large
1438: shaft. There is a rope seemingly standing rigid allowing you to
1439: climb down, but the climb above you seems quite dificult.
1440: ");
1441: irm17(SDESC) = ($say "On small ledge
1442: ");
1443:
1444: irm18(LDESC) = ($say
1445: "You are in a small room which smells strongly of
1446: incense. Stone archways lead to the south, and east, and
1447: a smaller passage leads to the west. You also hear some
1448: chanting and Sitar music in the background.
1449: ");
1450: irm18(SDESC) = ($say "Incense room
1451: ");
1452:
1453: irm19(LDESC) = ($say
1454: "You are at the holy well of Varuna, the water god. The well is in the
1455: middle of the room, leading straight down into some water far below.
1456: Legend has it that those who climb down into the well suffer a fate
1457: worse than death, so it is advisable not to go down. In the
1458: ceiling, there is a round hole")
1459: (($eq ($prop rupees wellbt) 1) :
1460: ($say " and the water in the well appears to have
1461: been disturbed recently.\n"))
1462: (($eq ($prop rupees wellbt) 0) :
1463: ($say ".\n"));
1464: irm19(SDESC) = ($say "Varuna's well
1465: ");
1466:
1467: irom20a = ($say
1468: "You are at the entrance to Siva's temple.
1469: ");
1470: irm20(LDESC) = (irom20a)
1471: (($eq ($prop monkey fedmky) 1) : ($say
1472: "A passage leads back to the west, and a crack in a huge stone slab allows
1473: one to proceed east.
1474: "))
1475: (($eq ($prop monkey fedmky) 0) : ($say
1476: "A passage leads back to the west, but the entrance to the temple is blocked
1477: by a huge stone slab.
1478: "));
1479: irm20(SDESC) = ($say "Entrance to Siva's temple
1480: ");
1481:
1482: irm21(LDESC) = ($say
1483: "You are standing in front of Siva's altar, a small stone slab in front of
1484: a large monolith. The exit is to the west.
1485: ");
1486: irm21(SDESC) = ($say "Siva's Altar
1487: ");
1488:
1489: irm22(LDESC) = ($say
1490: "You are standing at the top of a six-foot deep snake pit. The walls of the
1491: room are covered with bas relief figures of cobras, kraits, and other
1492: miscellaneous elapids. Exits lead to the west and south, through archways
1493: ringed by pythons carved into the rock.
1494: ");
1495: irm22(SDESC) = ($say "Top of Snake pit
1496: ");
1497:
1498: irm23(LDESC) = ($say
1499: "You are at the bottom of a snake pit. The only direction it appears you
1500: can go is back out.
1501: ");
1502: irm23(SDESC) =($say "Bottom of snake pit
1503: ");
1504:
1505: prm1(LDESC) = (darkq) ($say
1506: "You are in the north-south corridor of an ancient paleolithic cave. Its
1507: low ceiling is covered with paintings of wild game which have faded due to
1508: the passing of time.\n");
1509: prm1(SDESC) = (darkq)($say "North-south corridor.\n");
1510:
1511: prm2(LDESC) = ($say
1512: "You are standing on a ledge above the floor of a subterranean canyon
1513: running east-west. Shafts of sunlight penetrate through cracks in the
1514: ceiling high above, washing the room with an alabaster murkiness;
1515: casting shadows on the weathered rocks which have lain undisturbed
1516: for countless centuries. A small crawlway leads north, and there is a
1517: short, stout pole sticking out of the ground.")
1518: (($eq ($prop rope rtied) 1) : ($say " A section of rope is tied
1519: around the pole, with the other end hanging down into the canyon.\n"))
1520: (($eq ($prop rope rtied) 0) : ($say "\n"));
1521:
1522: prm2(SDESC) = ($say "Above East-west canyon.\n");
1523:
1524: prm3(LDESC) = ($say
1525: "You are at the bottom of a canyon running east-west. The passage to the
1526: east is blocked by rubble, so it appears that the only direction you can
1527: go is west. A rope dangles down from above.\n");
1528: prm3(SDESC) = ($say "East end of canyon.\n");
1529:
1530: prm4(LDESC) = ($say
1531: "You are standing in front of a limestone cavern, the entrance of which looks
1532: like a gaping mouth of a grotesque monster. It appears that you can enter
1533: the cave to your south, or go either direction in the east-west canyon that
1534: you are in.\n");
1535: prm4(SDESC) = ($say "Entrance to limestone cavern.\n");
1536:
1537: prm5(LDESC) = (darkq) ($say
1538: "You are in a very narrow room which probably was once much larger.
1539: However, it appears that a recent cave-in has closed off much of the
1540: room to the east. To your north, there is a corridor which apparently
1541: leads back out, and in the eastern wall, there is a hole which you can
1542: probably crawl through.\n");
1543: prm5(SDESC) = (darkq) ($say "Narrow room in cave.\n");
1544:
1545: prm6(LDESC) = (darkq) (($eq ($prop smilo stond) 0) : ($say
1546: "You are standing above a shallow pit which is empty except for a
1547: large smilodon (sabre-tooth tiger) which is growling at you menacingly.
1548: The only other direction it looks like you can go is back out through a
1549: small hole in the rubble forming the west wall of the room you are in.\n"))
1550: (($eq ($prop smilo stond) 1) : ($say
1551: "You are standing above an empty shallow pit. There is a small hole in the
1552: west wall of the room you are in.\n"));
1553: prm6(SDESC) = (darkq) ($say "Above shallow pit.\n");
1554:
1555: prm7(LDESC) = (darkq) ($say
1556: "You are standing on the loose gravel of a shallow pit. An exit leads
1557: south, and above you, there is a small ledge which you can climb up to.\n");
1558: prm7(SDESC) = (darkq) ($say "In shallow pit.\n");
1559:
1560: trogf = (($eq ($prop trogl killd) 0) :
1561: ($say " and there is an angry
1562: troglodyte here holding a large gold nugget under his arm"))
1563: ($say ".\n");
1564: trgfs = (($eq ($prop trogl killd) 0) :
1565: ($say "There is an angry troglodyte holding a gold nugget here.\n"));
1566: prm8(LDESC) = (darkq) ($say
1567: "You are standing near the west rim of sheer cliff which drops down into a deep
1568: almost bottomless abyss. A passage leads north") (trogf);
1569: prm8(SDESC) = (darkq) ($say "West rim of canyon.\n") (trgfs);
1570:
1571: prm9(LDESC) = ($say
1572: "You are at the junction of two canyons. The larger one runs east-west
1573: and the smaller one runs north.\n");
1574: prm9(SDESC) = ($say "Canyon junction\n");
1575:
1576: prm10(LDESC) = ($say
1577: "You are standing on a shale slab tilted from west to east at about a
1578: forty-five degree angle. At the east end of the slab, there is a short
1579: drop into what appears to be a lake. Above you and to the west, it appears
1580: that there is some more explorable terrain, and the canyon leads back to
1581: to the south. The air is quite warm, and there is a slight scent similar
1582: to asphalt in the air.\n");
1583: prm10(SDESC) = ($say "On shale slab.\n");
1584:
1585: prm11(LDESC) = ($say
1586: "You are standing in the south end of a short canyon running north-south.
1587: The ground below your feet is littered with flakes of a dark rock, which
1588: seems to comprise most of the surrounding canyon walls. There is a path to
1589: your north, and a steep slope down and to the east.\n");
1590: prm11(SDESC) = ($say "Canyon full of rubble.\n");
1591:
1592: prm12(LDESC) = ($say
1593: "You are standing in the north end of a short canyon. The ground is
1594: covered with a thin film of oil which apppears to be seeping out of
1595: a crack in the earth. The only apparent direction you can go is south.\n");
1596: prm12(SDESC) = ($say "Oily end of canyon.\n");
1597:
1598: prm13(LDESC) = ($say "You are standing in what was once a tributary into
1599: the now-extinct river which formed the large canyon in this area. There
1600: is a streambed running to the south, and you can also go east and west.\n");
1601: prm13(SDESC) = ($say "End of dry river bed.\n");
1602:
1603: prm14(LDESC) = ($say
1604: "You are standing in a narrow north-south canyon with a river bed running
1605: down the middle of it. There is a semicirular shaped hole at the base of
1606: the eastern wall.\n");
1607: prm14(SDESC) = ($say "In narrow part of river bed.\n");
1608:
1609: prm15(LDESC) = ($say
1610: "You are at the base of three water-eroded cliffs to your south, east and
1611: west. It appears that a U-shaped waterfall once flowed into this area, and
1612: exited out to the north.\n");
1613: prm15(SDESC) = ($say "Below dried waterfall.\n");
1614:
1615: prm16(LDESC) = ($say
1616: "You are in a section of the canyon where much of the rock appears to be
1617: primarily sandstone. Water has apparently flowed out of a cave to your
1618: north into three-foot wide crack in the ground. A substantial amount of
1619: rubble blocks your way west, and the rest of the canyon winds east.\n");
1620: prm16(SDESC) = ($say "Sandstone area.\n");
1621:
1622: prm17(LDESC) = (darkq) ($say
1623: "You are standing in front of the freshly dug gravesite of a Nearderthal
1624: hunter. There is an exit to your south, and it seems that more of the
1625: cave can be explored to the north.\n")
1626: (($and ($eq ($prop spear tooky) 1) ($eq ($prop spear abrad) 0)) :
1627: ($say "However, a large amount of rubble blocks that path.\n"));
1628: prm17(SDESC) = (darkq)($say "Neanderthal's gravesite\n");
1629:
1630: prm18(LDESC) = (darkq) ($say
1631: "You are in a narrow room of a north-south running cave. A large cairn of
1632: prehistoric cave bear skulls is piled high in one corner of the room.
1633: There are exits to the north and south.\n");
1634: prm18(SDESC) = (darkq) ($say "In front of cave bear cairn.\n");
1635:
1636: prm19(LDESC) = (darkq) ($say
1637: "You are in a large cavern room with a high ceiling. Cracks in the walls
1638: lead in all directions but none of them seem to lead anywhere. There are
1639: however, two major paths to the north and the south.\n");
1640: prm19(SDESC) = (darkq) ($say
1641: "Large Cavern room.\n");
1642:
1643: prm20(LDESC) = (darkq) ($say
1644: "You are in a room which was the site of a recent cave-in. It appears to
1645: be futile to go any other direction except south.\n");
1646: prm20(SDESC) = (darkq) ($say "Cave-in site.\n");
1647:
1648: prm21(LDESC) = ($say
1649: "You are in a crack in the earth which seems to have been formed by an ancient
1650: earthquake. Various strata in the rock of different darkness seem to indicate
1651: that much time has passed since the formation of the rock at the lower end of
1652: this crack. It seems that you can chimney up back out of the crack, or climb
1653: further down into it.\n");
1654: prm21(SDESC) = ($say "In large crack.\n");
1655:
1656: prm22(LDESC) = ($say
1657: "You are standing on a narrow ledge about twenty-five feet above the ground.
1658: Aside from going back up, the only other direction you can go is to step off
1659: the ledge to the west into the mouth of the large Tyranosaurus Rex waiting to
1660: swallow you whole.\n");
1661: prm22(SDESC) = ($say
1662: "On ledge in front of Tyranosaurus Rex.\n");
1663:
1664: prm23(LDESC) = ($say
1665: "You are standing inside the mouth of a Tyranosaurus Rex, whose jaws are
1666: being held open by a spear wedged length-wise in his mouth. Various pieces
1667: of former adventurers can be found among the six-inch long teeth here.
1668: You can step back out of the Tyranosaur onto the small ledge, or go
1669: further down into the Tyranosaur and get digested.\n");
1670: prm23(SDESC) = ($say "Inside mouth of Tyranosaur.\n");
1671:
1672: {*** FUNNY TRANSITION ROUTINES ***}
1673:
1674: exitg = ($say "Oh dear, you seem to have gotten yourself killed.\n")
1675: (skore)
1676: (ratng)
1677: (ratnx)
1678: (($eq ($prop .ME debug) 0) : ($spec 3 0 0 0 0));
1679:
1680: em3 = (($eq ($prop paper signed) 0):(cg) ($exit 0))
1681: ($move .ME irm1);
1682:
1683: ei8 = (($eq ($loc spices) .ME) : ($say
1684: "The savory blend of spices and human wakes up the sleeping crocodiles who
1685: decide to have you for breakfast.
1686: ") (exitg))
1687: (($eq ($loc rupees) .ME) : ($say
1688: "The weight of the coins pulls you underwater and you eventually drown.
1689: ") (exitg))
1690: ($say "You manage to get across the river, just as the crocodiles
1691: begin to stir.
1692: ")($move .ME irm9);
1693:
1694: wi12 = (($eq ($prop statue tlakst) 0) : (cg) ($exit 0))
1695: ($move .ME irm14);
1696:
1697: ui16 = (($eq ($prop rope ropstf) 0) : (cg) ($exit 0))
1698: ($say "You scramble up the rope and get to the ledge.
1699: ") ($move .ME irm17);
1700:
1701: ui17 = ($say "Are you a rock climber? \n")
1702: (($eq ($yorn) 0) : ($say "Then you better not try it.\n")
1703: ($exit 0))
1704: ($say "That climb is rated 5.11. Do you still want to try it?\n")
1705: (($eq ($yorn) 0) : ($say "Wise move.\n") ($exit 0))
1706: ($say "Half way up, you fall off a 1/32 inch wide ledge and
1707: plummet to your death.\n") (exitg);
1708:
1709: di19 = ($say "You magically get transported to the corner of Westwood and
1710: Broxton, where you are doomed to spend the rest of eternity surrounded by
1711: chanting Hare-Krishnas. (That'll teach you not to believe legends.)\n")
1712: ($spec 3 0 0 0 0);
1713:
1714: ei20 = (($eq ($prop monkey fedmky) 0):(cg)($exit 0))
1715: ($move .ME irm21);
1716:
1717: wi21 = (($eq ($loc peel) irm20) : ($say
1718: "As you leave the temple, you slip on a banana peel and break your neck.\n")
1719: (exitg)) ($move .ME irm20);
1720:
1721: di22 = (($eq ($loc cobra) irm22) : ($say
1722: "The cobra takes a bite at your unprotected leg and injects an
1723: unhealthy dose of neurotoxin. You start to lose your senses, your
1724: cognitive abilities, an yer rekcogiskdfsdk.\n")
1725: (exitg))($move .ME irm23);
1726:
1727: sm5 = (($eq ($prop paper signed) 0) :
1728: ($say "You bumped into the grate.\n")
1729: ($exit 0))
1730: ($move .ME prm1);
1731:
1732: dp2 = (($eq ($prop rope rtied) 0) :
1733: ($say "It is too dangerous to climb down without a rope.\n")
1734: ($exit 0))
1735: (($and ($eq ($loc lamp) .ME) ($eq ($prop lamp onoff) 1)) :
1736: ($say "Half-way down the rope, the carbide lamp burns through the
1737: rope above you and you plummet to your death.\n" )
1738: (exitg))
1739: ($say "You climb down the rope without any problems.\n")
1740: ($move .ME prm3);
1741:
1742: ep5 = (($eq ($loc spear) .ME) :
1743: ($say "You can't fit the spear you are carrying through that crack.\n")
1744: ($exit 1))
1745: ($move .ME prm6);
1746:
1747: ep8 = ($say "You fall off the cliff and plummet several hundred feet to your
1748: death.\n") (exitg);
1749:
1750: dp6 = (($eq ($prop smilo stond) 0) :
1751: ($say "As soon as you reach the bottom of the pit, the sabre-tooth
1752: tiger tears you to shreads.\n") (exitg))
1753: ($move .ME prm7);
1754:
1755: ep10 = ($say "You fall into the lake, which actually turns out to be a
1756: tar-pit covered with a thin layer of rain water. You eventually sink and
1757: get fossilized.\n") (exitg);
1758:
1759: ep11 = (($eq ($prop feet wiped) 0) :
1760: ($move .ME prm10) ($exit 1))
1761: ($say "As you walk down the slab, your feet slip and you tumble
1762: off the slab.\n")(ep10);
1763:
1764: sp12 = ($say "You find your feet to be quite slippery as you walk.\n")
1765: ($setp feet wiped 1)
1766: ($move .ME prm11);
1767:
1768: sp14 = (($eq ($prop mammoth blokd) 0) :
1769: ($say "The mammoth keeps you from going that way.\n")
1770: ($exit 1))
1771: ($move .ME prm15);
1772:
1773: np17 = (($and ($eq ($prop spear tooky) 1) ($eq ($prop spear abrad) 0)) :
1774: ($say
1775: "The rubble keeps you from going in that direction.\n")($exit 1))
1776: ($move .ME prm18);
1777:
1778: np19 = (($eq ($prop bear hitbr) 0) :
1779: ($say "The bear keeps you from going that direction.\n")
1780: ($exit 1))
1781: ($move .ME prm20);
1782:
1783: wp22 = (($eq ($loc spear) .ME) :
1784: ($say "The spear that you were carrying lodges in the tyranosaur's
1785: mouth.\n") ($move spear prm23)($move .ME prm23))
1786: (($eq ($loc spear) prm23) :
1787: ($move .ME prm23))
1788: (($and ($ne ($loc spear) .ME) ($ne ($loc spear) prm23)) :
1789: ($say "The tyranosaur crushes you in his jaw and then swallows you.\n")
1790: (exitg));
1791:
1792: dp23 = ($say "You slide down the gullet of the tyranosaur and get
1793: digested alive.\n") (exitg);
1794:
1795: dm6 = ($say "After wandering around in the forest for a while, you eventually
1796: find your way out.\n")($move .ME mrm1);
1797:
1798: darkq = (($or ($and ($ne ($loc .ME) ($loc lamp)) ($ne ($loc lamp) .ME))
1799: ($eq ($prop lamp onoff) 0 )) :
1800: ($say "It's too dark to see anything in here.\n")
1801: ($exit 1));
1802:
1803: darkt = (($or ($and ($ne ($loc .ME) ($loc lamp)) ($ne ($loc lamp) .ME))
1804: ($eq ($prop lamp onoff) 0)) :
1805: (($pct 50) : ($say
1806: "While stumbling around in the darkness, you trip and impale yourself on a
1807: stalagmite.\n")(exitg)));
1808:
1809: onlmp = (($ne ($loc lamp) .ME) :
1810: ($say "You don't have the lamp with you.\n")
1811: ($exit 1))
1812: (($eq ($prop lamp onoff) 0) :
1813: ($say "A blue flame now flickers out of the lantern.\n")
1814: ($setp lamp onoff 1)
1815: ($exit 1));
1816:
1817: {*** TRANSITIONS ***}
1818:
1819: mrm1(ACTION) = ($setv n s e w u d in out 0 0)
1820: ($hit .ME mrm6 mrm2 mrm6 mrm6 0 0 mrm2 0 0 0)
1821: ($miss 0 0 0 0 cg cg 0 dumdir 0 0);
1822:
1823: mrm2(ACTION) = ($setv n s e w u d in out 0 0)
1824: ($hit .ME mrm1 mrm4 mrm3 mrm4 0 mrm5 0 0 0 0)
1825: ($miss 0 0 0 0 cg 0 dumdir dumdir 0 0);
1826:
1827: mrm3(ACTION) = ($setv n s e w u d in out 0 0)
1828: ($hit .ME 0 0 0 mrm2 0 0 0 0 0 0)
1829: ($miss cg cg em3 0 cg cg dumdir dumdir 0 0);
1830:
1831: mrm4(ACTION) = ($setv n s e w u d in out 0 0)
1832: ($hit .ME mrm2 0 0 0 0 0 0 mrm2 0 0)
1833: ($miss 0 cg cg cg cg cg cg 0 0 0);
1834:
1835: mrm5(ACTION) = ($setv n s e w u d in out 0 0)
1836: ($hit .ME 0 0 0 0 mrm2 0 0 0 0 0)
1837: ($miss cg sm5 cg cg 0 cg dumdir dumdir 0 0);
1838:
1839: mrm6(ACTION) = ($setv n s e w u d in out 0 0)
1840: ($hit .ME 0 0 0 0 0 0 0 0 0 0)
1841: ($miss dm6 dm6 dm6 dm6 cg cg dumdir dm6 0 0);
1842:
1843: irm1(ACTION) = ($setv n s e w u d in out 0 0)
1844: ($hit .ME 0 0 0 mrm3 0 irm2 0 0 0 0)
1845: ($miss cg cg cg 0 cg 0 dumdir dumdir 0 0);
1846:
1847: irm2(ACTION) = ($setv n s e w u d in out 0 0)
1848: ($hit .ME 0 0 irm10 irm3 irm1 0 0 0 0 0)
1849: ($miss cg cg 0 0 0 cg dumdir dumdir 0 0);
1850:
1851: irm3(ACTION) = ($setv n s e w u d in out 0 0)
1852: ($hit .ME irm4 0 irm2 0 0 0 0 0 0 0)
1853: ($miss 0 cg 0 cg cg cg dumdir dumdir 0 0);
1854:
1855: irm4(ACTION) = ($setv n s e w u d in out 0 0)
1856: ($hit .ME 0 irm3 0 0 0 irm5 0 irm3 0 0)
1857: ($miss cg 0 cg cg cg 0 dumdir 0 0 0);
1858:
1859: irm5(ACTION) = ($setv n s e w u d in out 0 0)
1860: ($hit .ME irm6 irm7 irm8 0 0 0 0 0 0 0)
1861: ($miss 0 0 0 cg tohigh cg dumdir dumdir 0 0);
1862:
1863: irm6(ACTION) = ($setv n s e w u d in out 0 0)
1864: ($hit .ME 0 irm5 0 irm7 0 0 0 0 0 0)
1865: ($miss tosml 0 cg 0 cg cg dumdir dumdir 0 0);
1866:
1867: irm7(ACTION) = ($setv n s e w u d in out 0 0)
1868: ($hit .ME irm5 0 irm6 0 0 0 0 0 0 0)
1869: ($miss 0 cg 0 cg cg cg dumdir dumdir 0 0);
1870:
1871: irm8(ACTION) = ($setv n s e w u d in out 0 0)
1872: ($hit .ME 0 0 0 irm5 0 0 0 irm5 0 0)
1873: ($miss cg cg ei8 0 cg cg dumdir 0 0 0);
1874:
1875: irm9(ACTION) = ($setv n s e w u d in out 0 0)
1876: ($hit .ME 0 0 0 irm8 irm10 0 0 irm10 0 0)
1877: ($miss cg cg cg 0 0 cg dumdir 0 0 0);
1878:
1879: irm10(ACTION) = ($setv n s e w u d in out 0 0)
1880: ($hit .ME 0 irm11 irm22 irm2 0 irm9 0 0 0 0)
1881: ($miss cg 0 0 0 cg 0 dumdir dumdir 0 0);
1882:
1883: irm11(ACTION) = ($setv n s e w u d in out 0 0)
1884: ($hit .ME irm10 irm12 0 irm13 0 0 0 0 0 0)
1885: ($miss 0 0 cg 0 cg cg cg cg 0 0);
1886:
1887: irm12(ACTION) = ($setv n s e w u d in out 0 0)
1888: ($hit .ME irm11 0 irm15 0 0 0 0 0 0 0)
1889: ($miss 0 cg 0 wi12 cg cg dumdir dumdir 0 0);
1890:
1891: irm13(ACTION) = ($setv n s e w u d in out 0 0)
1892: ($hit .ME 0 irm15 irm11 0 0 0 0 0 0 0)
1893: ($miss cg 0 0 cg cg cg dumdir dumdir 0 0);
1894:
1895: irm14(ACTION) = ($setv n s e w u d in out 0 0)
1896: ($hit .ME 0 0 irm12 0 0 0 0 irm12 0 0)
1897: ($miss cg cg 0 cg cg cg dumdir 0 0 0);
1898:
1899: irm15(ACTION) = ($setv n s e w u d in out 0 0)
1900: ($hit .ME irm13 0 irm16 irm12 0 0 0 0 0 0)
1901: ($miss 0 cg 0 0 cg cg dumdir dumdir 0 0);
1902:
1903: irm16(ACTION) = ($setv n s e w u d in out 0 0)
1904: ($hit .ME irm22 0 irm18 irm15 0 0 0 0 0 0)
1905: ($miss 0 cg 0 0 ui16 cg dumdir dumdir 0 0);
1906:
1907: irm17(ACTION) = ($setv n s e w u d in out 0 0)
1908: ($hit .ME 0 0 0 0 0 irm16 0 0 0 0)
1909: ($miss cg cg cg cg ui17 0 dumdir dumdir 0 0);
1910:
1911: irm18(ACTION) = ($setv n s e w u d in out 0 0)
1912: ($hit .ME 0 irm19 irm20 irm16 0 0 0 0 0 0)
1913: ($miss cg 0 0 0 cg cg dumdir dumdir 0 0);
1914:
1915: irm19(ACTION) = ($setv n s e w u d in out 0 0)
1916: ($hit .ME irm18 0 0 0 0 0 0 irm18 0 0)
1917: ($miss 0 cg cg tosml cg di19 dumdir 0 0 0);
1918:
1919: irm20(ACTION) = ($setv n s e w u d in out 0 0)
1920: ($hit .ME 0 0 0 irm18 0 0 0 0 0 0)
1921: ($miss cg cg ei20 0 cg cg dumdir dumdir 0 0);
1922:
1923: irm21(ACTION) = ($setv n s e w u d in out 0 0)
1924: ($hit .ME 0 0 0 0 0 0 0 0 0 0)
1925: ($miss cg cg cg wi21 cg cg dumdir wi21 0 0);
1926:
1927: irm22(ACTION) = ($setv n s e w u d in out 0 0)
1928: ($hit .ME 0 irm16 0 irm10 0 0 0 0 0 0)
1929: ($miss cg 0 cg 0 cg di22 di22 cg 0 0);
1930:
1931: irm23(ACTION) = ($setv n s e w u d in out 0 0)
1932: ($hit .ME 0 0 0 0 irm22 0 0 irm22 0 0)
1933: ($miss cg cg cg cg 0 cg dumdir 0 0 0);
1934:
1935: prm1(ACTION) = (darkt)
1936: ($setv n s e w u d in out 0 0)
1937: ($hit .ME mrm5 prm2 0 0 0 0 0 0 0 0)
1938: ($miss 0 0 cg cg cg cg dumdir dumdir 0 0);
1939:
1940: prm2(ACTION) = ($setv n s e w u d in out 0 0)
1941: ($hit .ME prm1 0 0 0 0 0 0 0 0 0)
1942: ($miss 0 cg cg cg cg dp2 dumdir dumdir 0 0);
1943:
1944: prm3(ACTION) = ($setv n s e w u d in out 0 0)
1945: ($hit .ME 0 0 0 prm4 prm2 0 0 0 0 0)
1946: ($miss cg cg cg 0 0 cg dumdir dumdir 0 0);
1947:
1948: prm4(ACTION) = ($setv n s e w u d in out 0 0)
1949: ($hit .ME 0 prm5 prm3 prm9 0 0 prm5 0 0 0)
1950: ($miss cg 0 0 0 cg cg 0 dumdir 0 0);
1951:
1952: prm5(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
1953: ($hit .ME prm4 0 0 0 0 0 0 prm4 0 0)
1954: ($miss 0 cg ep5 cg cg cg dumdir 0 0 0);
1955:
1956: prm6(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
1957: ($hit .ME 0 0 0 prm5 0 0 0 0 0 0)
1958: ($miss cg cg cg 0 cg dp6 dumdir dumdir 0 0);
1959:
1960: prm7(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
1961: ($hit .ME 0 prm8 0 0 prm6 0 0 0 0 0)
1962: ($miss cg 0 cg cg 0 cg dumdir dumdir 0 0);
1963:
1964: prm8(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
1965: ($hit .ME prm7 0 0 0 0 0 0 0 0 0)
1966: ($miss 0 cg ep8 cg cg cg dumdir dumdir 0 0);
1967:
1968: prm9(ACTION) = ($setv n s e w u d in out 0 0)
1969: ($hit .ME prm10 0 prm4 prm13 0 0 0 0 0 0)
1970: ($miss 0 cg 0 0 cg cg dumdir dumdir 0 0);
1971:
1972: prm10(ACTION) = ($setv n s e w u d in out 0 0)
1973: ($hit .ME 0 prm9 0 prm11 prm11 0 0 0 0 0)
1974: ($miss cg 0 ep10 0 0 cg dumdir dumdir 0 0);
1975:
1976: prm11(ACTION) = ($setv n s e w u d in out 0 0)
1977: ($hit .ME prm12 0 0 0 0 0 0 0 0 0)
1978: ($miss 0 cg ep11 cg cg ep11 dumdir dumdir 0 0);
1979:
1980: prm12(ACTION) = ($setv n s e w u d in out 0 0)
1981: ($hit .ME 0 0 0 0 0 0 0 0 0 0)
1982: ($miss cg sp12 cg cg cg cg dumdir dumdir 0 0);
1983:
1984: prm13(ACTION) = ($setv n s e w u d in out 0 0)
1985: ($hit .ME 0 prm14 prm9 prm16 0 0 0 0 0 0)
1986: ($miss cg 0 0 0 cg cg dumdir dumdir 0 0);
1987:
1988: prm14(ACTION) = ($setv n s e w u d in out 0 0)
1989: ($hit .ME prm13 0 0 0 0 0 0 0 0 0)
1990: ($miss 0 sp14 tosml cg cg cg dumdir dumdir 0 0);
1991:
1992: prm15(ACTION) = ($setv n s e w u d in out 0 0)
1993: ($hit .ME prm14 0 0 0 0 0 0 0 0 0)
1994: ($miss 0 cg cg cg cg cg dumdir dumdir 0 0);
1995:
1996: prm16(ACTION) = ($setv n s e w u d in out 0 0)
1997: ($hit .ME prm17 0 prm13 0 0 prm21 0 0 0 0)
1998: ($miss 0 cg 0 cg cg 0 dumdir dumdir 0 0);
1999:
2000: prm17(ACTION) = ($setv n s e w u d in out 0 0)
2001: ($hit .ME 0 prm16 0 0 0 0 0 0 0 0)
2002: ($miss np17 0 cg cg cg cg dumdir dumdir 0 0);
2003:
2004: prm18(ACTION) = ($setv n s e w u d in out 0 0)
2005: ($hit .ME prm19 prm17 0 0 0 0 0 0 0 0)
2006: ($miss 0 0 cg cg cg cg dumdir dumdir 0 0);
2007:
2008: prm19(ACTION) = ($setv n s e w u d in out 0 0)
2009: ($hit .ME 0 prm18 0 0 0 0 0 0 0 0)
2010: ($miss np19 0 cg cg cg cg dumdir dumdir 0 0);
2011:
2012: prm20(ACTION) = ($setv n s e w u d in out 0 0)
2013: ($hit .ME 0 prm19 0 0 0 0 0 prm19 0 0)
2014: ($miss cg 0 cg cg cg cg dumdir 0 0 0);
2015:
2016: prm21(ACTION) = ($setv n s e w u d in out 0 0)
2017: ($hit .ME 0 0 0 0 prm16 prm22 0 0 0 0)
2018: ($miss cg cg cg cg 0 0 dumdir dumdir 0 0);
2019:
2020: prm22(ACTION) = ($setv n s e w u d in out 0 0)
2021: ($hit .ME 0 0 0 0 prm21 0 0 0 0 0)
2022: ($miss cg cg cg wp22 0 cg dumdir dumdir 0 0);
2023:
2024: prm23(ACTION) = ($setv n s e w u d in out 0 0)
2025: ($hit .ME 0 0 prm22 0 0 0 0 prm22 0 0)
2026: ($miss cg cg 0 cg cg dp23 dumdir 0 0 0);
2027:
2028: {*** CHEAT ROUTINES ***}
2029:
2030: chetr = (($eq ($prop .ME debug) 0) : ($exit 1));
2031: VERB BEAM;
2032: BEAM(ACTION) = (chetr) ($move .ME ($dobj))(LLOOK);
2033: VERB TRACTOR;
2034: TRACTOR(ACTION) = (chetr) ($move ($dobj) ($loc .ME))
2035: ($say "The ")(($sdesc ($dobj)))($say
2036: " magically appears.\n");
2037: VERB DRIBBLE;
2038: DRIBBLE(ACTION) = (chetr) (ctake) (cdrop);
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.