Return to aard.ddl CVS log

Up to [CSRG BSD Unix] / 43BSD / games / aard

Annotation of 43BSD/games/aard/aard.ddl, revision 1.1

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.