home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / ccr / ccr-room.t < prev    next >
Text File  |  1993-07-10  |  115KB  |  4,603 lines
  1. /*
  2.  * Colossal Cave Revisited
  3.  *
  4.  * A remake of Willie Crowther and Don Woods' classic Adventure.
  5.  * Converted from Donald Ekman's PC port of the original FORTRAN source.
  6.  * TADS version by David M. Baggett for ADVENTIONS.
  7.  *
  8.  * Please document all changes in the history so we know who did what.
  9.  *
  10.  * This source code is copylefted under the terms of the GNU Public
  11.  * License.  Essentially, this means that you are free to do whatever
  12.  * you wish with this source code, provided you do not charge any
  13.  * money for it or for any derivative works.
  14.  *
  15.  * ADVENTIONS distributes this game, but you are free to do what you will
  16.  * with it, provided you adhere to the terms in the GNU Public License.
  17.  * Send correspondence regarding this game or original works distributed
  18.  * by ADVENTIONS to 
  19.  *
  20.  *    ADVENTIONS
  21.  *    PO Box 851
  22.  *    Columbia, MD 21044
  23.  *
  24.  * If you would like a catalog of releases, please enclose a SASE.  Thanks!
  25.  *
  26.  * Contributors
  27.  *
  28.  *    dmb    In real life:    David M. Baggett
  29.  *        Internet:    <dmb@ai.mit.edu>
  30.  *        Compu$erve:    76440,2671 (ADVENTIONS account)
  31.  *        GEnie:        ADVENTIONS
  32.  *
  33.  * Modification History
  34.  *
  35.  *  1-Jan-93    dmb    rec.arts.int-fiction BETA release (source only)
  36.  *                      For beta testing only -- not for general
  37.  *            distribution.
  38.  * 20-Apr-93    dmb    Added the stream decoration to Inside_Building
  39.  *            you can get water there.
  40.  *
  41.  */
  42.  
  43. /*
  44.  * This file defines all the locations.
  45.  */
  46.  
  47. /*
  48.  * First we need to define a new class for our rooms.
  49.  * In the original fortran version of the game, you could move around
  50.  * by naming adjacent places.  Since we want to retain this capability,
  51.  * we need to augment the existing set of room movement methods.
  52.  *
  53.  * We also make rooms dark by default.
  54.  *
  55.  * We also need a few things to help our NPC's move about the cave
  56.  * without getting stuck or wandering where they're not supposed to.
  57.  *
  58.  * IMPORTANT NOTE: If you add exit properties (i.e., things like
  59.  * out, east, down, etc.), be sure to update the exitlist in ccr-npc.t
  60.  * or NPC's won't know to look at them, and might get stuck!
  61.  */
  62. class CCR_room: darkroom
  63.     //
  64.     // By default, exits don't go anywhere.
  65.     //
  66.     // The directional ones call noexit, the standard TADS
  67.     // "You can't go that way" method.
  68.     //
  69.     // The magic words print "Nothing happens."
  70.     //
  71.     // For the other words, the game tells the player it
  72.     // doesn't know how to apply the word in the given
  73.     // location.
  74.     //
  75.     jump = { "I don't see how that will help here."; return nil; }
  76.  
  77.     //
  78.     // Directions
  79.     //
  80.     upstream = { return self.noexit; }
  81.     downstream = { return self.noexit; }
  82.     forwards = { return self.noexit; }
  83.     outdoors = { return self.noexit; }
  84.     left = { return self.noexit; }
  85.     right = { return self.noexit; }
  86.     cross = { return self.noexit; }
  87.     over = { return self.noexit; }
  88.     across = { return self.noexit; }
  89.  
  90.     //
  91.     // Magic words
  92.     //
  93.     // Note that it's important to have these implemented as travel
  94.     // verbs because once the cave closes, these stop working just
  95.     // like the usual travel verbs.
  96.     //
  97.     // Non-travel magic words are defined in ccr-verbs.t
  98.     //
  99.     xyzzy = { return self.nothinghappens; }
  100.     y2 = { return self.nothinghappens; }
  101.     plugh = { return self.nothinghappens; }
  102.     plover = { return self.nothinghappens; }
  103.  
  104.     //
  105.     // Feature names
  106.     //
  107.     // These allow limited teleporting to prominent locations.
  108.     //
  109.     road = { return self.doesnotapplyhere; }
  110.     forest = { return self.doesnotapplyhere; }
  111.     valley = { return self.doesnotapplyhere; }
  112.     stairs = { return self.doesnotapplyhere; }
  113.     building = { return self.doesnotapplyhere; }
  114.     gully = { return self.doesnotapplyhere; }
  115.     stream = { return self.doesnotapplyhere; }
  116.     rock = { return self.doesnotapplyhere; }
  117.     bed = { return self.doesnotapplyhere; }
  118.     crawl = { return self.doesnotapplyhere; }
  119.     cobble = { return self.doesnotapplyhere; }
  120.     tosurface = { return self.doesnotapplyhere; }
  121.     dark = { return self.doesnotapplyhere; }
  122.     passage = { return self.doesnotapplyhere; }
  123.     low = { return self.doesnotapplyhere; }
  124.     canyon = { return self.doesnotapplyhere; }
  125.     awkward = { return self.doesnotapplyhere; }
  126.     giant = { return self.doesnotapplyhere; }
  127.     view = { return self.doesnotapplyhere; }
  128.     pit = { return self.doesnotapplyhere; }
  129.     crack = { return self.doesnotapplyhere; }
  130.     steps = { return self.doesnotapplyhere; }
  131.     dome = { return self.doesnotapplyhere; }
  132.     hall = { return self.doesnotapplyhere; }
  133.     barren = { return self.doesnotapplyhere; }
  134.     debris = { return self.doesnotapplyhere; }
  135.     hole = { return self.doesnotapplyhere; }
  136.     wall = { return self.doesnotapplyhere; }
  137.     broken = { return self.doesnotapplyhere; }
  138.     floor = { return self.doesnotapplyhere; }
  139.     toroom = { return self.doesnotapplyhere; }
  140.     slit = { return self.doesnotapplyhere; }
  141.     slab = { return self.doesnotapplyhere; }
  142.     depression = { return self.doesnotapplyhere; }
  143.     entrance = { return self.doesnotapplyhere; }
  144.     secret = { return self.doesnotapplyhere; }
  145.     cave = { return self.doesnotapplyhere; }
  146.     bedquilt = { return self.doesnotapplyhere; }
  147.     oriental = { return self.doesnotapplyhere; }
  148.     cavern = { return self.doesnotapplyhere; }
  149.     shell = { return self.doesnotapplyhere; }
  150.     reservoir = { return self.doesnotapplyhere; }
  151.     main = { return self.doesnotapplyhere; }
  152.     office = { return self.doesnotapplyhere; }
  153.     fork = { return self.doesnotapplyhere; }
  154.  
  155.     nothinghappens = {
  156.         "Nothing happens.";
  157.         return nil;
  158.     }
  159.     doesnotapplyhere = {
  160.         "I don't know how to apply that word here.";
  161.         return nil;
  162.     }
  163.  
  164.     //
  165.     // Exits for NPC's.  Since NPC's won't take regular exits
  166.     // that are methods (instead of simple object names), we
  167.     // have to add "hints" in some rooms to allow complete access
  168.     // to all rooms.  By default, these are all nil.  (Note that
  169.     // it is important for them to be nil ojects, and not methods
  170.     // that return nil.  If they are methods, NPC's will try them.)
  171.     //
  172.     NPCexit1 = nil
  173.     NPCexit2 = nil
  174.     NPCexit3 = nil
  175.     NPCexit4 = nil
  176.     NPCexit5 = nil
  177.     NPCexit6 = nil
  178.     NPCexit7 = nil
  179.     NPCexit8 = nil
  180.  
  181.     //
  182.     // Each room has a list of exit properties that can be considered by
  183.     // NPC's.  The lists is determined at preinit time by looking
  184.     // at all the exit methods and discarding those that are methods.
  185.     // (The NPCexits are always considered, whether they are methods
  186.     // or not, since they're guranteed not to print anything or
  187.     // change game state when they're run.)
  188.     //
  189.     // Note: the list doesn't contain locations; it contains properties;
  190.     // i.e., it contains [ &west &up ... ], not [ At_Y2 ... ].
  191.     //
  192.     NPCexits = []
  193. ;
  194.  
  195. /*
  196.  * A class for the rooms in the "alike" maze.
  197.  */
  198. class CCR_alike_maze_room: CCR_room
  199.     sdesc = "Maze of Twisty Little Passages, All Alike"
  200.     ldesc = {
  201.         I(); "You are in a maze of twisty little passages, 
  202.         all alike.";
  203.     }
  204. ;
  205.  
  206. /*
  207.  * A class for rooms that are forbidden to non-player characters.
  208.  * (This means dwarves and pirate, not bear.)
  209.  *
  210.  * All pits inherit this class because the original source claims
  211.  * that dwarves won't follow the player into a pit, even though
  212.  * they do.  It makes more sense for them to give up the chase
  213.  * when the player scrambles down into a pit, and for that matter
  214.  * it may sound a bit funny for a combat to occur in a little pit,
  215.   * so I've add NoNPC too all the pit rooms.
  216.  */
  217. class NoNPC: CCR_room
  218.     noNPCs = true
  219. ;
  220.  
  221. /*
  222.  * A class for the dead ends.
  223.  */
  224. class CCR_dead_end_room: CCR_room
  225.     sdesc = "At a Dead End"
  226.     ldesc = {
  227.         I(); "You have reached a dead end.";
  228.     }
  229. ;
  230.  
  231. /*
  232.  * A class for areas that are naturally lit.
  233.  */
  234. class lightroom: CCR_room
  235.     islit = true
  236. ;
  237.  
  238. /*
  239.  * A class for rooms that are outside.
  240.  * These rooms are off limits once the cave is closed.
  241.  */
  242. class Outside: CCR_room
  243.     isoutside = true
  244. ;
  245.  
  246. /*
  247.  * A class for rooms that aren't far enough in to earn the player
  248.  * the bonus for getting "well in."
  249.  *
  250.  * See the definition of Me in ccr-std.t for info on how this is used.
  251.  */
  252. class NotFarIn: CCR_room, NoNPC
  253.     notfarin = true
  254. ;
  255.  
  256. class CCR_decoration: decoration;
  257.  
  258. /*
  259.  * This class lets us easily define a decoration that's in multiple
  260.  * places at once.  You just list the locations it appears in in
  261.  * a list called loclist.
  262.  *
  263.  * This is particularly nice for things like water, which can be
  264.  * manipulated -- we only have one object name to consider (Stream)
  265.  * for all the water in the game that can be taken.  (See ioPutIn
  266.  * for the bottle in ccr-item.t)
  267.  */
  268. class floatingdecoration: CCR_decoration
  269.     locationOK = true    // OK for location to be method
  270.     location = {
  271.         if (find(self.loclist, Me.location))
  272.             return Me.location;
  273.         else
  274.             return nil;
  275.     }
  276. ;
  277.  
  278. /*
  279.  * The locations
  280.  */
  281. At_End_Of_Road: CCR_room, lightroom, NotFarIn, Outside
  282.     sdesc = "At End Of Road"
  283.     ldesc = {
  284.         I(); "You are standing at the end of a road before a 
  285.         small brick building. Around you is a forest.  A 
  286.         small stream flows out of the building and down a 
  287.         gully.";
  288.     }
  289.     road = At_Hill_In_Road
  290.     west = At_Hill_In_Road
  291.     up = At_Hill_In_Road
  292.     building = Inside_Building
  293.     in = Inside_Building
  294.     east = Inside_Building
  295.     downstream = In_A_Valley
  296.     gully = In_A_Valley
  297.     stream = In_A_Valley
  298.     south = In_A_Valley
  299.     down = In_A_Valley
  300.     forest = In_Forest_1
  301.     north = In_Forest_1
  302.     depression = Outside_Grate
  303.  
  304.     // This was in the original fortran code, but conflicts
  305.     // with the fact that the building is to the east:
  306.     // east = In_Forest
  307. ;
  308. Building: floatingdecoration
  309.     sdesc = "building"
  310.     ldesc = {
  311.         if (Me.isIn(Inside_Building))
  312.             "You're in it.";
  313.         else
  314.             "It's a small brick building.  It seems to be 
  315.             a well house.";
  316.     }
  317.     noun = 'building' 'house' 'wellhouse'
  318.     adjective = 'well' 'small' 'brick'
  319.     loclist = [ At_End_Of_Road  At_Hill_In_Road  Inside_Building ]
  320.  
  321.     verDoEnter(actor) = {}
  322.     doEnter(actor) = {
  323.         actor.travelTo(At_End_Of_Road.in);
  324.     }
  325. ;
  326. Road: floatingdecoration
  327.     sdesc = "road"
  328.     noun = 'road' 'street' 'path'
  329.     adjective = 'dirt'
  330.     loclist = [ At_End_Of_Road  At_Hill_In_Road  In_Forest_2 ]
  331. ;
  332. Forest: floatingdecoration
  333.     sdesc = "forest"
  334.     adesc = "forest"
  335.     ldesc = {
  336.         "The trees of the forest are large hardwood oak and 
  337.         maple, with an occasional grove of pine or spruce.  
  338.         There is quite a bit of undergrowth, largely birch 
  339.         and ash saplings plus nondescript bushes of various 
  340.         sorts.  This time of year visibility is quite 
  341.         restricted by all the leaves, but travel is quite 
  342.         easy if you detour around the spruce and berry 
  343.         bushes.";
  344.     }
  345.  
  346.     noun = 'forest' 'tree' 'trees' 'oak' 'maple' 'grove' 'pine'
  347.         'spruce' 'birch' 'ash' 'saplings' 'bushes' 'leaves'
  348.         'berry' 'berries'
  349.     adjective = 'surrounding' 'open' 'hardwood' 'oak' 'maple' 'pine'
  350.         'spruce' 'birch' 'ash' 'berry'
  351.     loclist = [
  352.         At_End_Of_Road  At_Hill_In_Road  In_A_Valley
  353.         In_Forest_1  In_Forest_2
  354.     ]
  355. ;
  356. Stream: floatingdecoration
  357.     sdesc = "stream"
  358.     ldesc = {
  359.         if (Me.isIn(Inside_Building))
  360.             "The stream flows out through a pair of 1 
  361.             foot diameter sewer pipes.";
  362.         else
  363.             pass ldesc;
  364.     }
  365.     noun = 'stream' 'water' 'brook' 'river' 'lake'
  366.     adjective = 'small' 'tumbling' 'splashing' 'babbling' 'rushing'
  367.         'reservoir'
  368.     loclist = [
  369.         At_End_Of_Road  In_A_Valley  At_Slit_In_Streambed
  370.         In_Pit  In_Cavern_With_Waterfall  At_Reservoir
  371.         Inside_Building
  372.     ]
  373.  
  374.     verDoDrink(actor) = {}
  375.     doDrink(actor) = {
  376.         "You have taken a drink from the stream.  The water 
  377.         tastes strongly of minerals, but is not unpleasant.  
  378.         It is extremely cold.";
  379.     }
  380.  
  381.     verDoTake(actor) = {
  382.         if (not bottle.isIn(Me))
  383.             "You have nothing in which to carry the water.";
  384.     }
  385.     doTake(actor) = {
  386.         bottle.ioPutIn(actor, self);
  387.     }
  388.     verDoPutIn(actor, io) = {}
  389.     doPutIn(actor, io) = {
  390.         if (io <> bottle)
  391.             "You have nothing in which to carry the water.";
  392.         else
  393.             bottle.ioPutIn(actor, self);
  394.     }
  395. ;
  396. Gully: floatingdecoration
  397.     sdesc = "gully"
  398.     noun = 'gully'
  399.     loclist = [ At_End_Of_Road  At_Slit_In_Streambed  Outside_Grate ]
  400. ;
  401.  
  402. At_Hill_In_Road: CCR_room, lightroom, NotFarIn, Outside
  403.     sdesc = "At Hill In Road"
  404.     ldesc = {
  405.         I(); "You have walked up a hill, still in the forest. 
  406.         The road slopes back down the other side of the 
  407.         hill.  There is a building in the distance.";
  408.     }
  409.     road = At_End_Of_Road
  410.     building = At_End_Of_Road
  411.     forwards = At_End_Of_Road
  412.     east = At_End_Of_Road
  413.     north = At_End_Of_Road
  414.     down = At_End_Of_Road
  415.     forest = In_Forest_1
  416.     south = In_Forest_1
  417.  
  418.     // Another bug in the original code:
  419.     // north = In_Forest
  420. ;
  421. Hill: CCR_decoration
  422.     sdesc = "hill"
  423.     ldesc = "It's just a typical hill."
  424.     noun = 'hill' 'bump' 'incline'
  425.     location = At_Hill_In_Road
  426. ;
  427. OtherSideOfHill: CCR_decoration
  428.     sdesc = "other side of hill"
  429.     thedesc = "the other side of the hill"
  430.     adesc = { self.thedesc; }
  431.     ldesc = "Why not explore it yourself?"
  432.     noun = 'side'
  433.     adjective = 'other'
  434.     location = At_Hill_In_Road
  435. ;
  436.  
  437. Inside_Building: CCR_room, lightroom, NotFarIn, Outside
  438.     sdesc = "Inside Building"
  439.     ldesc = {
  440.         I(); "You are inside a building, a well house for a 
  441.         large spring.";
  442.     }
  443.     out = At_End_Of_Road
  444.     outdoors = At_End_Of_Road
  445.     west = At_End_Of_Road
  446.     xyzzy = In_Debris_Room
  447.     plugh = At_Y2
  448.     downstream = { return self.stream; }
  449.     stream = {
  450.         "The stream flows out through a pair of 1 foot 
  451.         diameter sewer pipes. It would be advisable to use 
  452.         the exit.";
  453.  
  454.         return nil;
  455.     }
  456. ;
  457. Spring: CCR_decoration
  458.     sdesc = "spring"
  459.     location = Inside_Building
  460.     noun = 'spring'
  461.     adjective = 'large'
  462. ;
  463. SewerPipes: CCR_decoration
  464.     sdesc = "pair of 1 foot diameter sewer pipes"
  465.     location = Inside_Building
  466.     noun = 'pipes' 'pipe'
  467.     adjective = 'one' 'foot' '1-foot' 'diameter' 'sewer'
  468. ;
  469.  
  470. In_A_Valley: CCR_room, lightroom, NotFarIn, Outside
  471.     sdesc = "In A Valley"
  472.     ldesc = {
  473.         I(); "You are in a valley in the forest beside a 
  474.         stream tumbling along a rocky bed.";
  475.     }
  476.     upstream = At_End_Of_Road
  477.     building = At_End_Of_Road
  478.     north = At_End_Of_Road
  479.     forest = In_Forest_1
  480.     east = In_Forest_1
  481.     west = In_Forest_1
  482.     up = In_Forest_1
  483.     downstream = At_Slit_In_Streambed
  484.     south = At_Slit_In_Streambed
  485.     down = At_Slit_In_Streambed
  486.     depression = Outside_Grate
  487. ;
  488. Streambed: floatingdecoration
  489.     sdesc = "streambed"
  490.     noun = 'bed' 'streambed' 'rock'
  491.     adjective = 'stream' 'water' 'river' 'small' 'tumbling' 'splashing'
  492.             'babbling' 'rushing' 'rocky' 'bare' 'dry'
  493.     loclist = [ In_A_Valley  At_Slit_In_Streambed  Outside_Grate ]
  494. ;
  495. Valley: floatingdecoration
  496.     sdesc = "valley"
  497.     ldesc = {
  498.         if (Me.isIn(In_A_Valley))
  499.             "You're in it.";
  500.         else
  501.             pass ldesc;
  502.     }
  503.     noun = 'valley'
  504.     adjective = 'deep'
  505.     loclist = [ In_A_Valley  In_Forest_1  In_Forest_2 ]
  506. ;
  507.  
  508. In_Forest_1: CCR_room, lightroom, NotFarIn, Outside
  509.     sdesc = "In Forest"
  510.     ldesc = {
  511.         I(); "You are in open forest, with a deep valley to 
  512.         one side.";
  513.     }
  514.     valley = In_A_Valley
  515.     east = In_A_Valley
  516.     down = In_A_Valley
  517.  
  518.     // An approximation of the original code:
  519.     forest = {
  520.         if (rand(100) <= 50)
  521.             return In_Forest_1;
  522.         else
  523.             return In_Forest_2;
  524.     }
  525.  
  526.     forwards = In_Forest_1
  527.     north = In_Forest_1
  528.     west = In_Forest_1
  529.     south = In_Forest_1
  530. ;
  531.  
  532. In_Forest_2: CCR_room, lightroom, NotFarIn, Outside
  533.     sdesc = "In Forest"
  534.     ldesc = {
  535.         I(); "You are in open forest near both a valley and a 
  536.         road.";
  537.     }
  538.     road = At_End_Of_Road
  539.     north = At_End_Of_Road
  540.     valley = In_A_Valley
  541.     east = In_A_Valley
  542.     west = In_A_Valley
  543.     down = In_A_Valley
  544.     forest = In_Forest_1
  545.     south = In_Forest_1
  546. ;
  547.  
  548. At_Slit_In_Streambed: CCR_room, lightroom, NotFarIn, Outside
  549.     sdesc = "At Slit In Streambed"
  550.     ldesc = {
  551.         I(); "At your feet all the water of the stream 
  552.         splashes into a 2-inch slit in the rock.  Downstream 
  553.         the streambed is bare rock.";
  554.     }
  555.     building = At_End_Of_Road
  556.     upstream = In_A_Valley
  557.     north = In_A_Valley
  558.     forest = In_Forest_1
  559.     east = In_Forest_1
  560.     west = In_Forest_1
  561.     downstream = Outside_Grate
  562.     rock = Outside_Grate
  563.     bed = Outside_Grate
  564.     south = Outside_Grate
  565.  
  566.     slit = { return self.down; }
  567.     stream = { return self.down; }
  568.     down = {
  569.         "You don't fit through a two-inch slit!";
  570.         return nil;
  571.     }
  572. ;
  573. Slit: CCR_decoration
  574.     sdesc = "2-inch slit"
  575.     ldesc = "It's just a 2-inch slit in the rock, through which the
  576.         stream is flowing."
  577.     location = At_Slit_In_Streambed
  578.     noun = 'slit'
  579.     adjective = 'two' 'inch' '2-inch' 'two-inch'
  580. ;
  581.  
  582. Outside_Grate: CCR_room, lightroom, NotFarIn, Outside
  583.     sdesc = "Outside Grate"
  584.     ldesc = {
  585.         I(); "You are in a 20-foot depression floored with 
  586.         bare dirt.  Set into the dirt is a strong steel grate 
  587.         mounted in concrete.  A dry streambed leads into the 
  588.         depression.";
  589.     }
  590.     forest = In_Forest_1
  591.     east = In_Forest_1
  592.     west = In_Forest_1
  593.     south = In_Forest_1
  594.     building = At_End_Of_Road
  595.     upstream = At_Slit_In_Streambed
  596.     gully = At_Slit_In_Streambed
  597.     north = At_Slit_In_Streambed
  598.     
  599.     in = { return self.down; }
  600.     down = {
  601.         Grate.doEnter(Me);
  602.         return nil;
  603.     }
  604. ;
  605. Depression: CCR_decoration
  606.     sdesc = "20-foot depression"
  607.     ldesc = "You're standing in it."
  608.     location = Outside_Grate
  609.     noun = 'depression' 'dirt'
  610.     adjective = '20-foot' 'twenty' 'foot' 'twenty-foot' 'bare'
  611. ;
  612. Grate: fixeditem, keyedLockable
  613.     isopen = nil
  614.     islocked = true
  615.     sdesc = "steel grate"
  616.     ldesc = {
  617.         if (self.isIn(Outside_Grate)) {
  618.             "It just looks like an ordinary grate
  619.             mounted in concrete.";
  620.         }
  621.         else {
  622.             "It's just a 3x3 steel grate mounted
  623.             in the ceiling.";
  624.         }
  625.  
  626.         " It is ";
  627.         if (self.isopen)
  628.             "open.";
  629.         else if (self.islocked) 
  630.             "closed and locked.";
  631.         else 
  632.             "closed.";
  633.     }
  634.     noun = 'grate' 'lock' 'gate' 'grille'
  635.     adjective = 'metal' 'strong' 'steel' 'open' 'closed' 'locked'
  636.         'unlocked'
  637.  
  638.     locationOK = true // Tell compiler OK for location to be method
  639.     location = {
  640.         if (Me.isIn(Outside_Grate))
  641.             return Outside_Grate;
  642.         else        
  643.             return Below_The_Grate;
  644.     }
  645.     mykey = set_of_keys
  646.  
  647.     verDoEnter(actor) = {}
  648.     doEnter(actor) = {
  649.         if (not Grate.islocked) {
  650.             if (not Grate.isopen) {
  651.                 "(Opening the grate first.)\b";
  652.                 Grate.isopen := true;
  653.                         
  654.             }
  655.             if (actor.isIn(Outside_Grate))
  656.                 actor.travelTo(Below_The_Grate);
  657.             else
  658.                 actor.travelTo(Outside_Grate);
  659.         }
  660.         else {
  661.             "You can't go through a locked steel grate!";
  662.         }
  663.     }
  664.     
  665.     verIoPutIn(actor) = { "You can't put anything in that! "; }
  666.     verDoPick = { "You have no tools to pick the lock with."; }
  667. ;
  668.  
  669. Below_The_Grate: CCR_room, lightroom, NotFarIn
  670.     sdesc = "Below the Grate"
  671.     ldesc = {
  672.         I(); "You are in a small chamber beneath a 3x3 steel 
  673.         grate to the surface. A low crawl over cobbles leads 
  674.         inward to the west.";
  675.     }
  676.     crawl = In_Cobble_Crawl
  677.     cobble = In_Cobble_Crawl
  678.     in = In_Cobble_Crawl
  679.     west = In_Cobble_Crawl
  680.     pit = At_Top_Of_Small_Pit
  681.     debris = In_Debris_Room
  682.  
  683.     outdoors = { return self.up; }    // DMB: added
  684.     out = { return self.up; }
  685.     up = {
  686.         Grate.doEnter(Me);
  687.         return nil;
  688.     }
  689. ;
  690. Cobbles: floatingdecoration
  691.     sdesc = "cobbles"
  692.     adesc = "cobbles"
  693.     ldesc = "They're just ordinary cobbles."
  694.     noun = 'cobble' 'cobbles' 'cobblestones' 'cobblestone' 'stones'
  695.         'stone'
  696.     adjective = 'cobble'
  697.     loclist = [ Below_The_Grate  In_Cobble_Crawl  In_Debris_Room ]
  698. ;
  699.  
  700. In_Cobble_Crawl: CCR_room, lightroom, NotFarIn
  701.     sdesc = "In Cobble Crawl"
  702.     ldesc = {
  703.         I(); "You are crawling over cobbles in a low passage. 
  704.         There is a dim light at the east end of the 
  705.         passage.";
  706.     }
  707.     out = Below_The_Grate
  708.     tosurface = Below_The_Grate
  709.     east = Below_The_Grate
  710.     in = In_Debris_Room
  711.     dark = In_Debris_Room
  712.     west = In_Debris_Room
  713.     debris = In_Debris_Room
  714.     pit = At_Top_Of_Small_Pit
  715.  
  716.     // DMB: added the following, in accordance with its presence
  717.     // in In_Debris_Room and rooms beyond.
  718.     depression = {
  719.         Grate.doEnter(Me);
  720.  
  721.         // If the player didn't move, the grate must be
  722.         // locked.  Move the player underneath the grate.
  723.         if (Me.isIn(self)) {
  724.             "\b";
  725.             Me.travelTo(Below_The_Grate);
  726.         }
  727.         // We've already moved the player, but we have to
  728.         // return a value, so just return nil (which results
  729.         // in no more movement).
  730.         return nil;
  731.     }
  732. ;
  733.  
  734. In_Debris_Room: CCR_room, NotFarIn
  735.     sdesc = "In Debris Room"
  736.     ldesc = {
  737.         I(); "You are in a debris room filled with stuff 
  738.         washed in from the surface. A low wide passage with 
  739.         cobbles becomes plugged with mud and debris here, but 
  740.         an awkward canyon leads upward and west."; P();
  741.  
  742.         I(); "A note on the wall says, \"Magic word XYZZY.\"";
  743.     }
  744.     entrance = Below_The_Grate
  745.     crawl = In_Cobble_Crawl
  746.     cobble = In_Cobble_Crawl
  747.     passage = In_Cobble_Crawl
  748.     low = In_Cobble_Crawl
  749.     east = In_Cobble_Crawl
  750.     canyon = In_Awkward_Sloping_E_W_Canyon
  751.     in = In_Awkward_Sloping_E_W_Canyon
  752.     up = In_Awkward_Sloping_E_W_Canyon
  753.     west = In_Awkward_Sloping_E_W_Canyon
  754.     xyzzy = Inside_Building
  755.     pit = At_Top_Of_Small_Pit
  756.  
  757.     // The original occasionally allowed the player to teleport
  758.     // large distances in one turn.  This is just one example.
  759.     depression = {
  760.         Grate.doEnter(Me);
  761.  
  762.         // If the player didn't move, the grate must be
  763.         // locked.  Move the player underneath the grate.
  764.         if (Me.isIn(self)) {
  765.             "\b";
  766.             Me.travelTo(Below_The_Grate);
  767.         }
  768.  
  769.         // We've already moved the player, but we have to
  770.         // return a value, so just return nil (which results
  771.         // in no more movement).
  772.         return nil;
  773.     }
  774. ;
  775. Debris: floatingdecoration
  776.     sdesc = "debris"
  777.     ldesc = "Yuck."
  778.     noun = 'debris' 'stuff' 'mud'
  779.     loclist = [ In_Debris_Room  In_Arched_Hall ]
  780. ;
  781. XyzzyNote: CCR_decoration, readable
  782.     sdesc = "note"
  783.     ldesc = { self.readdesc; }
  784.     readdesc = "The note says \"Magic word XYZZY\"."
  785.     noun = 'note'
  786.     location = In_Debris_Room
  787. ;
  788.  
  789. In_Awkward_Sloping_E_W_Canyon: CCR_room, NotFarIn
  790.     sdesc = "In Awkward Sloping E/W Canyon"
  791.     ldesc = {
  792.         I(); "You are in an awkward sloping east/west 
  793.         canyon.";
  794.     }
  795.  
  796.     entrance = Below_The_Grate
  797.     down = In_Debris_Room
  798.     east = In_Debris_Room
  799.     debris = In_Debris_Room
  800.     in = In_Bird_Chamber
  801.     up = In_Bird_Chamber
  802.     west = In_Bird_Chamber
  803.     pit = At_Top_Of_Small_Pit
  804.  
  805.     depression = {
  806.         Grate.doEnter(Me);
  807.  
  808.         // If the player didn't move, the grate must be
  809.         // locked.  Move the player underneath the grate.
  810.         if (Me.isIn(self)) {
  811.             "\b";
  812.             Me.travelTo(Below_The_Grate);
  813.         }
  814.         
  815.         // We've already moved the player, but we have to
  816.         // return a value, so just return nil (which results
  817.         // in no more movement).
  818.         return nil;
  819.     }
  820. ;
  821.  
  822. In_Bird_Chamber: CCR_room, NotFarIn
  823.     sdesc = "In Bird Chamber"
  824.     ldesc = {
  825.         I(); "You are in a splendid chamber thirty feet high. 
  826.         The walls are frozen rivers of orange stone.  An 
  827.         awkward canyon and a good passage exit from east and 
  828.         west sides of the chamber.";
  829.     }
  830.  
  831.     entrance = Below_The_Grate
  832.     debris = In_Debris_Room
  833.     canyon = In_Awkward_Sloping_E_W_Canyon
  834.     east = In_Awkward_Sloping_E_W_Canyon
  835.     passage = At_Top_Of_Small_Pit
  836.     pit = At_Top_Of_Small_Pit
  837.     west = At_Top_Of_Small_Pit
  838.  
  839.     depression = {
  840.         Grate.doEnter(Me);
  841.  
  842.         // If the player didn't move, the grate must be
  843.         // locked.  Move the player underneath the grate.
  844.         if (Me.isIn(self)) {
  845.             "\b";
  846.             Me.travelTo(Below_The_Grate);
  847.         }
  848.  
  849.         // We've already moved the player, but we have to
  850.         // return a value, so just return nil (which results
  851.         // in no more movement).
  852.         return nil;
  853.     }
  854. ;
  855.  
  856. At_Top_Of_Small_Pit: CCR_room, NotFarIn
  857.     sdesc = "At Top of Small Pit"
  858.     ldesc = {
  859.         // Note: this used to say "An east passage ends here..."
  860.         // but that's obviously a mistake.
  861.  
  862.         I(); "At your feet is a small pit breathing traces of 
  863.         white mist.  A west passage ends here except for a 
  864.         small crack leading on."; P();
  865.  
  866.         I(); "Rough stone steps lead down the pit.";
  867.     }
  868.     entrance = Below_The_Grate
  869.     debris = In_Debris_Room
  870.     passage = In_Bird_Chamber
  871.     east = In_Bird_Chamber
  872.     crack = { return self.west; }
  873.     west = {
  874.         "The crack is far too small for you to follow.";
  875.         return nil;
  876.     }
  877.  
  878.     down = {
  879.         if (large_gold_nugget.isIn(Me))
  880.             return broken_neck.death;
  881.         else
  882.             return In_Hall_Of_Mists;
  883.     }
  884.  
  885.     depression = {
  886.         Grate.doEnter(Me);
  887.  
  888.         // If the player didn't move, the grate must be
  889.         // locked.  Move the player underneath the grate.
  890.         if (Me.isIn(self)) {
  891.             "\b";
  892.             Me.travelTo(Below_The_Grate);
  893.         }
  894.         
  895.         // We've already moved the player, but we have to
  896.         // return a value, so just return nil (which results
  897.         // in no more movement).
  898.         return nil;
  899.     }
  900. ; 
  901. SmallPit: CCR_decoration
  902.     sdesc = "small pit"
  903.     ldesc = "The pit is breathing traces of white mist."
  904.     location = At_Top_Of_Small_Pit
  905.     noun = 'pit'
  906. ;
  907. PitCrack: CCR_decoration
  908.     sdesc = "crack"
  909.     ldesc = "The crack is very small -- far too small for you to follow."
  910.     location = At_Top_Of_Small_Pit
  911.     noun = 'crack'
  912.     adjective = 'small'
  913. ;
  914. Mist: floatingdecoration
  915.     sdesc = "mist"
  916.     ldesc = {
  917.         "Mist is a white vapor, usually water, seen from time 
  918.         to time in caverns.  It can be found anywhere but is 
  919.         frequently a sign of a deep pit leading down to 
  920.         water.";
  921.     }
  922.     noun = 'mist' 'vapor' 'wisps'
  923.     adjective = 'white' 'water'
  924.     loclist = [
  925.         At_Top_Of_Small_Pit In_Hall_Of_Mists
  926.         On_East_Bank_Of_Fissure  At_Window_On_Pit_1
  927.         At_West_End_Of_Hall_Of_Mists In_Misty_Cavern
  928.         In_Mirror_Canyon  At_Reservoir At_Window_On_Pit_2
  929.         On_Sw_Side_Of_Chasm
  930.     ]
  931. ;
  932.  
  933. In_Hall_Of_Mists: CCR_room
  934.     sdesc = "In Hall of Mists"
  935.     ldesc = {
  936.         I(); "You are at one end of a vast hall stretching 
  937.         forward out of sight to the west.  There are openings 
  938.         to either side.  Nearby, a wide stone staircase leads 
  939.         downward.  The hall is filled with wisps of white 
  940.         mist swaying to and fro almost as if alive.  A cold 
  941.         wind blows up the staircase.  There is a passage at 
  942.         the top of a dome behind you."; P();
  943.  
  944.         I(); "Rough stone steps lead up the dome.";
  945.     }
  946.     left = In_Nugget_Of_Gold_Room
  947.     south = In_Nugget_Of_Gold_Room
  948.     forwards = On_East_Bank_Of_Fissure
  949.     hall = On_East_Bank_Of_Fissure
  950.     west = On_East_Bank_Of_Fissure
  951.     stairs = In_Hall_Of_Mt_King
  952.     down = In_Hall_Of_Mt_King
  953.     north = In_Hall_Of_Mt_King
  954.     y2 = Jumble_Of_Rock
  955.  
  956.     up = {
  957.         if (large_gold_nugget.isIn(Me)) {
  958.             "The dome is unclimbable.";
  959.             return nil;
  960.         }
  961.         else {
  962.             return At_Top_Of_Small_Pit;
  963.         }
  964.     }
  965. ;
  966. Staircase: CCR_decoration
  967.     sdesc = "wide stone staircase"
  968.     ldesc = "The staircase leads down."
  969.     location = In_Hall_Of_Mists
  970.     noun = 'stair' 'stairs' 'staircase'
  971.     adjective = 'wide' 'stone'
  972. ;
  973. DomeSteps: CCR_decoration
  974.     sdesc = "rough stone steps"
  975.     ldesc = "The rough stone steps lead up the dome."
  976.     location = In_Hall_Of_Mists
  977.     noun = 'stair' 'stairs' 'staircase'
  978.     adjective = 'rough' 'stone'
  979. ;
  980. Dome: CCR_decoration
  981.     sdesc = "dome"
  982.     ldesc = {
  983.         if (large_gold_nugget.isIn(Me))
  984.             "I'm not sure you'll be able to get up it
  985.             with what you're carrying.";
  986.         else
  987.             "It looks like you might be able to climb up it.";
  988.     }
  989.     location = In_Hall_Of_Mists
  990.     noun = 'dome'
  991.  
  992.     verDoClimb(actor) = {}
  993.     doClimb(actor) = {
  994.         actor.travelTo(In_Hall_Of_Mists.up);
  995.     }
  996. ;
  997.  
  998. On_East_Bank_Of_Fissure: CCR_room
  999.     sdesc = "On East Bank of Fissure"
  1000.     ldesc = {
  1001.         I(); "You are on the east bank of a fissure slicing 
  1002.         clear across the hall. The mist is quite thick here, 
  1003.         and the fissure is too wide to jump.";
  1004.  
  1005.          if (CrystalBridge.exists) {
  1006.             P(); I();
  1007.             "A crystal bridge now spans the fissure.";
  1008.         }
  1009.     }
  1010.     hall = In_Hall_Of_Mists
  1011.     east = In_Hall_Of_Mists
  1012.  
  1013.     forwards = { return self.jump; }
  1014.     jump = {
  1015.         if (CrystalBridge.exists) {
  1016.             "I respectfully suggest you go across the 
  1017.             bridge instead of jumping.";
  1018.  
  1019.             return nil;
  1020.         }
  1021.         else
  1022.             return didnt_make_it.death;
  1023.     }
  1024.  
  1025.     over = { return self.across; }
  1026.     west = { return self.across; }
  1027.     cross = { return self.across; }
  1028.     across = {
  1029.         CrystalBridge.doCross(Me);
  1030.         return nil;
  1031.     }
  1032.  
  1033.     //
  1034.     // NPC's can go across too, but only if the bridge exists.
  1035.     //
  1036.     NPCexit1 = {
  1037.         if (CrystalBridge.exists)
  1038.             return West_Side_Of_Fissure;
  1039.         else
  1040.             return nil;
  1041.     }
  1042. ;
  1043. BridgeFissure: floatingdecoration
  1044.     sdesc = "fissure"
  1045.     ldesc = {
  1046.         if (CrystalBridge.exists)
  1047.             "A crystal bridge now spans the fissure.";
  1048.         else
  1049.             "The fissure looks far too wide to jump.";
  1050.     }
  1051.     noun = 'fissure'
  1052.     adjective = 'wide'
  1053.     loclist = [ West_Side_Of_Fissure  On_East_Bank_Of_Fissure ]
  1054. ;
  1055. CrystalBridge: CCR_decoration
  1056.     exists = nil
  1057.     sdesc = "Crystal bridge"
  1058.     ldesc = "It spans the fissure, thereby providing you a way across."
  1059.     locationOK = true    // tell compiler OK for location to be method
  1060.     location = {
  1061.         if (self.exists) {
  1062.             if (Me.isIn(West_Side_Of_Fissure))
  1063.                 return West_Side_Of_Fissure;
  1064.             else
  1065.                 return On_East_Bank_Of_Fissure;
  1066.         }
  1067.         else
  1068.             return nil;
  1069.     }
  1070.     noun = 'bridge'
  1071.     adjective = 'crystal' 'magic' 'rod'
  1072.  
  1073.     verDoCross(actor) = {}
  1074.     doCross(actor) = {
  1075.         if (self.exists) {
  1076.             if (actor.isIn(On_East_Bank_Of_Fissure))
  1077.                 actor.travelTo(West_Side_Of_Fissure);
  1078.             else
  1079.                 actor.travelTo(On_East_Bank_Of_Fissure);
  1080.         }
  1081.         else
  1082.             "There is no way across the fissure.";
  1083.     }
  1084. ;
  1085.  
  1086. In_Nugget_Of_Gold_Room: CCR_room
  1087.     sdesc = "In Nugget of Gold Room"
  1088.     ldesc = {
  1089.         I(); "This is a low room with a crude note on the 
  1090.         wall. "; NuggetNote.readdesc;
  1091.     }
  1092.     hall = In_Hall_Of_Mists
  1093.     out = In_Hall_Of_Mists
  1094.     north = In_Hall_Of_Mists
  1095. ;
  1096. NuggetNote: CCR_decoration, readable
  1097.     sdesc = "note"
  1098.     ldesc = { self.readdesc; }
  1099.     readdesc = {
  1100.         "The note says, \"You won't get it up the steps\".";
  1101.     }
  1102.     location = In_Nugget_Of_Gold_Room
  1103.     noun = 'note'
  1104.     adjective = 'crude'
  1105. ;
  1106.  
  1107. In_Hall_Of_Mt_King: CCR_room
  1108.     sdesc = "In Hall of Mt King"
  1109.     ldesc = {
  1110.         I(); "You are in the hall of the mountain king, with 
  1111.         passages off in all directions.";
  1112.  
  1113.         if (Snake.isIn(self)) {
  1114.             P();
  1115.             I(); "A huge green fierce snake bars the way!";
  1116.         }
  1117.     }
  1118.     stairs = In_Hall_Of_Mists
  1119.     up = In_Hall_Of_Mists
  1120.     east = In_Hall_Of_Mists
  1121.  
  1122.     left = { return self.north; }
  1123.     north = {
  1124.         if (self.snakecheck)
  1125.             return Low_N_S_Passage;
  1126.         else
  1127.             return nil;
  1128.     }
  1129.     
  1130.     right = { return self.south; }
  1131.     south = {
  1132.         if (self.snakecheck)
  1133.             return In_South_Side_Chamber;
  1134.         else
  1135.             return nil;
  1136.     }
  1137.  
  1138.     forwards = { return self.west; }
  1139.     west = {
  1140.         if (self.snakecheck)
  1141.             return In_West_Side_Chamber;
  1142.         else
  1143.             return nil;
  1144.     }
  1145.  
  1146.     /*
  1147.      * An interesting little bit of trivia here:
  1148.      * 35% of the time you can slip past the snake and into
  1149.      * the secret canyon.  (This is in the original fortran
  1150.      * code.)  But if you say "secret" you will *always* sneak
  1151.      * by it.
  1152.      */
  1153.     sw = {
  1154.         if (rand(100) <= 35) {
  1155.             return In_Secret_E_W_Canyon;
  1156.         }
  1157.         else {
  1158.             if (self.snakecheck)
  1159.                 return In_Secret_E_W_Canyon;
  1160.             else
  1161.                 return nil;
  1162.         }
  1163.     }
  1164.     secret = In_Secret_E_W_Canyon
  1165.  
  1166.     snakecheck = {
  1167.         if (Snake.isIn(Me.location)) {
  1168.             "You can't get by the snake.";
  1169.             return nil;
  1170.         }
  1171.         else
  1172.             return true;
  1173.     }
  1174. ;
  1175. Snake: CCR_decoration
  1176.     sdesc = "snake"
  1177.     ldesc = "I wouldn't mess with it if I were you."
  1178.     location = In_Hall_Of_Mt_King
  1179.     noun = 'snake' 'cobra' 'asp'
  1180.     adjective = 'huge' 'fierce' 'green' 'ferocious' 'venemous'
  1181.         'venomous' 'large' 'big' 'killer'
  1182.  
  1183.     verDoFeed(actor) = {}
  1184.     doFeed(actor) = {
  1185.         if (little_bird.isIn(Me)) {
  1186.             "The snake has now devoured your bird.";
  1187.             little_bird.moveInto(nil);
  1188.         }
  1189.         else if (little_bird.isIn(self.location))
  1190.             "You have nothing to feed it.";
  1191.         else
  1192.             "There's nothing here it wants to eat (except 
  1193.             perhaps you).";
  1194.     }
  1195.     verIoGiveTo(actor) = {}
  1196.     doGiveTo(actor, dobj) = {
  1197.         if (dobj = little_bird)
  1198.             self.doFeed(actor);
  1199.         else {
  1200.             "The snake does not seem interested in ";
  1201.             dobj.thedesc; ".";
  1202.         }
  1203.     }
  1204.     
  1205.     verDoAttack(actor) = {}
  1206.     doAttack(actor) = {
  1207.         "Attacking the snake both doesn't work and is very 
  1208.         dangerous.";
  1209.     }
  1210.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  1211.     doAttackWith(actor, io) = { self.doAttack(actor); }
  1212.  
  1213.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  1214.     ioThrowAt(actor, dobj) = {
  1215.         if (dobj = axe)
  1216.             self.doAttackWith(actor, dobj);
  1217.         else
  1218.             self.ioGiveTo(actor, dobj);
  1219.     }
  1220.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  1221.     ioThrowTo(actor, dobj) = {
  1222.         if (dobj = axe)
  1223.             self.doAttackWith(actor, dobj);
  1224.         else
  1225.             self.ioGiveTo(actor, dobj);
  1226.     }
  1227.     
  1228.     verDoKick(actor) = {}
  1229.     doKick(actor) = { "That would be satisfying, but totally insane."; }
  1230.  
  1231.     verifyRemove(actor) = { "Surely you're joking."; }
  1232. ;
  1233.  
  1234. At_West_End_Of_Twopit_Room: CCR_room
  1235.     sdesc = "At West End of Twopit Room"
  1236.     ldesc = {
  1237.         I(); "You are at the west end of the twopit room.  
  1238.          There is a large hole in the wall above the pit at 
  1239.         this end of the room.";
  1240.  
  1241.         if (PlantStickingUp.isIn(self)) {
  1242.             P(); I(); PlantStickingUp.ldesc;
  1243.         }
  1244.     }
  1245.     east = At_East_End_Of_Twopit_Room
  1246.     across = At_East_End_Of_Twopit_Room
  1247.     west = In_Slab_Room
  1248.     slab = In_Slab_Room
  1249.     down = In_West_Pit
  1250.     pit = In_West_Pit
  1251.  
  1252.     up = { return self.hole; }    // DMB: added
  1253.     hole = {
  1254.         "It is too far up for you to reach.";
  1255.         return nil;
  1256.     }
  1257. ;
  1258. HoleAbovePit_1: CCR_decoration
  1259.     sdesc = "hole above pit"
  1260.     ldesc = {
  1261.         "The hole is in the wall above the pit at 
  1262.         this end of the room.";
  1263.     }
  1264.     noun = 'hole'
  1265.     adjective = 'large'
  1266.     location = At_West_End_Of_Twopit_Room
  1267.  
  1268.     verDoEnter(actor) = { "It is too far up for you to reach."; }
  1269. ;
  1270. PlantStickingUp: CCR_decoration
  1271.     sdesc = {
  1272.         if (Plant.size = 1)
  1273.             "top of 12-foot-tall beanstalk";
  1274.         else
  1275.             "huge beanstalk";
  1276.     }
  1277.     ldesc = {
  1278.         if (Plant.size = 1)
  1279.             "The top of a 12-foot-tall beanstalk is 
  1280.             poking out of the west pit.";
  1281.         else
  1282.             "There is a huge beanstalk growing out of the 
  1283.             west pit up to the hole.";
  1284.     }
  1285.     noun = 'plant' 'beanstalk' 'stalk'
  1286.     adjective = 'bean' 'giant' 'tiny' 'little' 'murmuring'
  1287.         '12-foot-tall' 'twelve' 'foot' 'tall' 'bellowing'
  1288.  
  1289.     location = {
  1290.         if (Plant.size = 0)
  1291.             return nil;
  1292.         else if (Me.isIn(At_West_End_Of_Twopit_Room))
  1293.             return At_West_End_Of_Twopit_Room;
  1294.         else
  1295.             return At_East_End_Of_Twopit_Room;        
  1296.     }
  1297. ;
  1298.  
  1299. In_East_Pit: CCR_room, NoNPC
  1300.     sdesc = "In East Pit"
  1301.     ldesc = {
  1302.         I(); "You are at the bottom of the eastern pit in the 
  1303.         twopit room.  There is a small pool of oil in one 
  1304.         corner of the pit.";
  1305.     }
  1306.     up = At_East_End_Of_Twopit_Room
  1307.     out = At_East_End_Of_Twopit_Room
  1308. ;
  1309. EastPit: CCR_decoration
  1310.     sdesc = "eastern pit"
  1311.     ldesc = "You're in it."
  1312.     noun = 'pit' 'corner'
  1313.     adjective = 'east' 'eastern'
  1314.     location = In_East_Pit
  1315. ;
  1316. Oil: CCR_decoration
  1317.     sdesc = "pool of oil"
  1318.     noun = 'pool' 'oil'
  1319.     adjective = 'small'
  1320.     location = In_East_Pit
  1321.  
  1322.     verDoTake(actor) = {
  1323.         if (not bottle.isIn(Me))
  1324.             "You have nothing in which to carry the oil.";
  1325.     }
  1326.     doTake(actor) = {
  1327.         bottle.ioPutIn(actor, self);
  1328.     }
  1329.     verDoPutIn(actor, io) = {}
  1330.     doPutIn(actor, io) = {
  1331.         if (io <> bottle)
  1332.             "You have nothing in which to carry the oil.";
  1333.         else
  1334.             bottle.ioPutIn(actor, self);
  1335.     }
  1336. ;
  1337.  
  1338. In_West_Pit: CCR_room, NoNPC
  1339.     sdesc = "In West Pit"
  1340.     ldesc = {
  1341.         I(); "You are at the bottom of the western pit in the 
  1342.         twopit room.  There is a large hole in the wall about 
  1343.         25 feet above you."; P();
  1344.  
  1345.         I(); Plant.ldesc;
  1346.     }
  1347.     up = At_West_End_Of_Twopit_Room
  1348.     out = At_West_End_Of_Twopit_Room
  1349.     climb = {
  1350.         if (Plant.size < 1 or Plant.size > 2) {
  1351.             "There is nothing here to climb.  Use \"up\" 
  1352.             or \"out\" to leave the pit.";
  1353.  
  1354.             return nil;
  1355.         }
  1356.         else {
  1357.             Plant.doClimb(Me);
  1358.             return nil;
  1359.         }
  1360.     }
  1361. ;
  1362. Plant: CCR_decoration
  1363.     size = 0
  1364.  
  1365.     sdesc = {
  1366.         if (self.size = 0)
  1367.             "plant";
  1368.         else if (self.size = 1)
  1369.             "beanstalk";
  1370.         else if (self.size = 2)
  1371.             "giant beanstalk";
  1372.     }
  1373.     ldesc = {
  1374.         if (self.size = 0)
  1375.             "There is a tiny little plant in the pit, 
  1376.             murmuring \"Water, water, ...\"";
  1377.         else if (self.size = 1)
  1378.             "There is a 12-foot-tall beanstalk stretching 
  1379.             up out of the pit, bellowing \"Water!! 
  1380.             Water!!\"";
  1381.         else if (self.size = 2)
  1382.             "There is a gigantic beanstalk stretching all 
  1383.             the way up to the hole.";
  1384.     }
  1385.     location = In_West_Pit
  1386.     noun = 'plant' 'beanstalk' 'stalk'
  1387.     adjective = 'bean' 'giant' 'tiny' 'little' 'murmuring'
  1388.         '12-foot-tall' 'twelve' 'foot' 'tall' 'bellowing'
  1389.  
  1390.     verDoClimb(actor) = {
  1391.         if (self.size = 0)
  1392.             "It's just a little plant!";
  1393.     }
  1394.     doClimb(actor) = {
  1395.         if (self.size = 1) {
  1396.             "You have climbed up the plant and out of the 
  1397.             pit.\b";
  1398.  
  1399.             Me.travelTo(At_West_End_Of_Twopit_Room);
  1400.         }
  1401.         else {
  1402.             "You clamber up the plant and scurry through 
  1403.             the hole at the top.\b";
  1404.  
  1405.             Me.travelTo(In_Narrow_Corridor);
  1406.         }
  1407.     }
  1408.  
  1409.     verDoWater(actor) = {}
  1410.     doWater(actor) = {
  1411.         if (bottle.isIn(Me))
  1412.             bottle.doPourOn(actor, self);
  1413.         else
  1414.             "You have nothing to water the plant with.";
  1415.     }
  1416.     verDoOil(actor) = {}
  1417.     doOil(actor) = { self.doWater(actor); }
  1418.  
  1419.     // The plant's not going anywhere.
  1420.     verifyRemove(actor) = {
  1421.         "The plant has exceptionally deep roots and cannot be 
  1422.         pulled free.";
  1423.     }
  1424.  
  1425.     water = {
  1426.         self.size := self.size + 1;
  1427.  
  1428.         if (self.size = 1)
  1429.             "The plant spurts into furious growth for a 
  1430.             few seconds.";
  1431.         else if (self.size = 2)
  1432.             "The plant grows explosively, almost filling 
  1433.             the bottom of the pit.";
  1434.         else {
  1435.             "You've over-watered the plant!  It's 
  1436.             shriveling up!  It's, it's...";
  1437.  
  1438.             self.size := 0;
  1439.         }
  1440.  
  1441.         P(); I(); Plant.ldesc;
  1442.     }
  1443. ;
  1444. WestPit: CCR_decoration
  1445.     sdesc = "western pit"
  1446.     ldesc = "You're in it."
  1447.     noun = 'pit' 'corner'
  1448.     adjective = 'west' 'western'
  1449.     location = In_West_Pit
  1450. ;
  1451. HoleAbovePit_2: CCR_decoration
  1452.     sdesc = "hole above pit"
  1453.     ldesc = "The hole is in the wall above you."
  1454.     noun = 'hole'
  1455.     adjective = 'large'
  1456.     location = At_West_End_Of_Twopit_Room
  1457.  
  1458.     verDoEnter(actor) = {
  1459.         "You're not anywhere near the pit -- it's far overhead.";
  1460.     }
  1461. ;
  1462.  
  1463. West_Side_Of_Fissure: CCR_room
  1464.     sdesc = "West Side of Fissure"
  1465.     ldesc = {
  1466.         I(); "You are on the west side of the fissure in the 
  1467.         hall of mists.";
  1468.  
  1469.         if (CrystalBridge.exists) {
  1470.             P(); I();
  1471.             "A crystal bridge now spans the fissure.";
  1472.         }
  1473.     }
  1474.  
  1475.     west = At_West_End_Of_Hall_Of_Mists
  1476.  
  1477.     forwards = { return self.jump; }
  1478.     jump = {
  1479.         if (CrystalBridge.exists) {
  1480.             "I respectfully suggest you go across the 
  1481.             bridge instead of jumping.";
  1482.  
  1483.             return nil;
  1484.         }
  1485.         else
  1486.             return didnt_make_it.death;
  1487.     }
  1488.  
  1489.     over = { return self.across; }
  1490.     east = { return self.across; }
  1491.     cross = { return self.across; }
  1492.     across = {
  1493.         CrystalBridge.doCross(Me);
  1494.         return nil;
  1495.     }
  1496.  
  1497.     north = {
  1498.         "You have crawled through a very low wide passage 
  1499.         parallel to and north of the hall of mists.\b";
  1500.  
  1501.         return At_West_End_Of_Hall_Of_Mists;
  1502.     }
  1503.  
  1504.     //
  1505.     // NPC's can go across too, but only if the bridge exists.
  1506.     //
  1507.     NPCexit1 = {
  1508.         if (CrystalBridge.exists)
  1509.             return On_East_Bank_Of_Fissure;
  1510.         else
  1511.             return nil;
  1512.     }
  1513. ;
  1514.  
  1515. Low_N_S_Passage: CCR_room
  1516.     sdesc = "Low N/S Passage"
  1517.     ldesc = {
  1518.         I(); "You are in a low N/S passage at a hole in the 
  1519.         floor.  The hole goes down to an E/W passage.";
  1520.     }
  1521.     hall = In_Hall_Of_Mt_King
  1522.     out = In_Hall_Of_Mt_King
  1523.     south = In_Hall_Of_Mt_King
  1524.     north = At_Y2
  1525.     y2 = At_Y2
  1526.     down = In_Dirty_Passage
  1527.     hole = In_Dirty_Passage
  1528. ;
  1529.  
  1530. In_South_Side_Chamber: CCR_room
  1531.     sdesc = "In South Side Chamber"
  1532.     ldesc = {
  1533.         I(); "You are in the south side chamber.";
  1534.     }
  1535.     hall = In_Hall_Of_Mt_King
  1536.     out = In_Hall_Of_Mt_King
  1537.     north = In_Hall_Of_Mt_King
  1538. ;
  1539.  
  1540. In_West_Side_Chamber: CCR_room
  1541.     sdesc = "In West Side Chamber"
  1542.     ldesc = {
  1543.         I(); "You are in the west side chamber of the hall of 
  1544.         the mountain king. A passage continues west and up 
  1545.         here.";
  1546.     }
  1547.     hall = In_Hall_Of_Mt_King
  1548.     out = In_Hall_Of_Mt_King
  1549.     east = In_Hall_Of_Mt_King
  1550.     west = Crossover
  1551.     up = Crossover
  1552. ;
  1553.  
  1554. At_Y2: CCR_room
  1555.     sdesc = "At \"Y2\""
  1556.     ldesc = {
  1557.         I(); "You are in a large room, with a passage to the 
  1558.         south, a passage to the west, and a wall of broken 
  1559.         rock to the east. There is a large \"Y2\" on ";
  1560.  
  1561.         if (Me.isIn(Y2Rock))
  1562.             "the rock you are sitting on.";
  1563.         else
  1564.             "a rock in the room's center.";
  1565.  
  1566.         self.hollowvoice;
  1567.     }
  1568.     plugh = Inside_Building
  1569.     south = Low_N_S_Passage
  1570.     east = Jumble_Of_Rock
  1571.     wall = Jumble_Of_Rock
  1572.     broken = Jumble_Of_Rock
  1573.     west = At_Window_On_Pit_1
  1574.      plover = {
  1575.         if (egg_sized_emerald.isIn(Me))
  1576.             egg_sized_emerald.moveInto(In_Plover_Room);
  1577.             
  1578.         return In_Plover_Room;
  1579.     }
  1580.  
  1581.     hollowvoice = {
  1582.         if (rand(100) <= 25) {
  1583.             P(); I(); "A hollow voice says, \"Plugh.\"";
  1584.         }
  1585.     }
  1586. ;
  1587. Y2Rock: CCR_decoration, chairitem, readable
  1588.     sdesc = "\"Y2\" rock"
  1589.     ldesc = { self.readdesc; }
  1590.     readdesc = "There is a large \"Y2\" painted on the rock."
  1591.     noun = 'rock'
  1592.     adjective = 'y2'
  1593.  
  1594.     location = At_Y2
  1595.  
  1596.     plugh = { return self.location.plugh; }
  1597.  
  1598.     onroom = true    // We set ON the rock, not IN it.
  1599.  
  1600.     //
  1601.     // We want the player to be able to pick things in the
  1602.     // room up while sitting on the rock.
  1603.     //
  1604.     reachable = {
  1605.         return [Y2Rock] + At_Y2.contents;
  1606.     }
  1607. ;
  1608.  
  1609. Jumble_Of_Rock: CCR_room
  1610.     sdesc = "Jumble of Rock"
  1611.     ldesc = {
  1612.         I(); "You are in a jumble of rock, with cracks 
  1613.         everywhere.";
  1614.     }
  1615.     down = At_Y2
  1616.     y2 = At_Y2
  1617.     up = In_Hall_Of_Mists
  1618. ;
  1619.  
  1620. At_Window_On_Pit_1: CCR_room
  1621.     sdesc = "At Window on Pit"
  1622.     ldesc = {
  1623.         I(); "You're at a low window overlooking a huge pit, 
  1624.         which extends up out of sight.  A floor is 
  1625.         indistinctly visible over 50 feet below.  Traces of 
  1626.         white mist cover the floor of the pit, becoming 
  1627.         thicker to the right. Marks in the dust around the 
  1628.         window would seem to indicate that someone has been 
  1629.         here recently.  Directly across the pit from you and 
  1630.         25 feet away there is a similar window looking into a 
  1631.         lighted room.  A shadowy figure can be seen there 
  1632.         peering back at you.";
  1633.     }
  1634.     east = At_Y2
  1635.     y2 = At_Y2
  1636.     jump = { return broken_neck.death; }
  1637. ;
  1638. Window: floatingdecoration
  1639.     sdesc = "window"
  1640.     ldesc = "It looks like a regular window."
  1641.     noun = 'window'
  1642.     adjective = 'low'
  1643.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1644.  
  1645.     verDoOpen(actor) = {}
  1646.     doOpen(actor) = { "OK, the window is now open."; }
  1647.     verDoClose(actor) = {}
  1648.     doClose(actor) = { "OK, the window is now closed."; }
  1649. ;
  1650. WindowPit: floatingdecoration
  1651.     sdesc = "huge pit"
  1652.     ldesc = {
  1653.         "It's so deep you can barely make out the floor below,
  1654.         and the top isn't visible at all.";
  1655.     }
  1656.     noun = 'pit'
  1657.     adjective = 'deep' 'large'
  1658.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1659. ;
  1660. MarksInTheDust: floatingdecoration
  1661.     sdesc = "marks in the dust"
  1662.     adesc = { self.sdesc; }
  1663.     ldesc = "Evidently you're not alone here."
  1664.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1665. ;
  1666. ShadowyFigure: floatingdecoration
  1667.     sdesc = "shadowy figure"
  1668.     ldesc = {
  1669.         "The shadowy figure seems to be trying to attract 
  1670.         your attention.";
  1671.     }
  1672.     noun = 'figure' 'shadow' 'person' 'individual'
  1673.     adjective = 'shadowy' 'mysterious'
  1674.     loclist = [ At_Window_On_Pit_1  At_Window_On_Pit_2 ]
  1675. ;
  1676. In_Dirty_Passage: CCR_room
  1677.     sdesc = "In Dirty Passage"
  1678.     ldesc = {
  1679.         I(); "You are in a dirty broken passage.  To the east 
  1680.         is a crawl.  To the west is a large passage.  Above 
  1681.         you is a hole to another passage.";
  1682.     }
  1683.     east = On_Brink_Of_Pit
  1684.     crawl = On_Brink_Of_Pit
  1685.     up = Low_N_S_Passage
  1686.     hole = Low_N_S_Passage
  1687.     west = In_Dusty_Rock_Room
  1688.     bedquilt = In_Bedquilt
  1689.     slab = In_Slab_Room    // DMB: this is only in some versions
  1690. ;
  1691.  
  1692. On_Brink_Of_Pit: CCR_room
  1693.     sdesc = "On Brink of Pit"
  1694.     ldesc = {
  1695.         I(); "You are on the brink of a small clean climbable 
  1696.         pit.  A crawl leads west.";
  1697.     }
  1698.     west = In_Dirty_Passage
  1699.     crawl = In_Dirty_Passage
  1700.     down = In_Pit
  1701.     pit = In_Pit
  1702.     climb = In_Pit
  1703.     in = In_Pit    // DMB: added
  1704. ;
  1705. CleanPit: CCR_decoration
  1706.     sdesc = "small pit"
  1707.     ldesc = "It looks like you might be able to climb down into it."
  1708.     noun = 'pit'
  1709.     adjective = 'small' 'clean' 'climable'
  1710.     location = On_Brink_Of_Pit
  1711.  
  1712.     verDoClimb(actor) = {}
  1713.     doClimb(actor) = { Me.travelTo(self.location.climb); }
  1714.     verDoEnter(actor) = {}
  1715.     doEnter(actor) = { self.doClimb(actor); }
  1716. ;
  1717. In_Pit: CCR_room, NoNPC
  1718.     sdesc = "In Pit"
  1719.     ldesc = {
  1720.         I(); "You are in the bottom of a small pit with a 
  1721.         little stream, which enters and exits through tiny 
  1722.         slits.";
  1723.     }
  1724.     climb = On_Brink_Of_Pit
  1725.     up = On_Brink_Of_Pit
  1726.     out = On_Brink_Of_Pit
  1727.  
  1728.     slit = { return self.down; }
  1729.     stream = { return self.down; }
  1730.     upstream = { return self.down; }
  1731.     downstream = { return self.down; }
  1732.     down = {
  1733.         // In the original, the same message given
  1734.         // in At_Slit_In_Streambed was used here.
  1735.         // Since it's not quite right (and was probably only
  1736.         // reused to save space), I've changed it slightly.
  1737.  
  1738.         "You don't fit through the tiny slits!";
  1739.         return nil;
  1740.     }
  1741. ;
  1742. PitSlits: decoration
  1743.     sdesc = "tiny slits"
  1744.     adesc = { self.sdesc; }
  1745.     ldesc = {
  1746.         "The slits form a complex pattern in the rock.";
  1747.     }
  1748.     location = In_Pit
  1749.     noun = 'slit' 'slits'
  1750.     adjective = 'tiny'
  1751. ;
  1752.  
  1753. In_Dusty_Rock_Room: CCR_room
  1754.     sdesc = "In Dusty Rock Room"
  1755.     ldesc = {
  1756.         I(); "You are in a large room full of dusty rocks.  
  1757.         There is a big hole in the floor.  There are cracks 
  1758.         everywhere, and a passage leading east.";
  1759.     }
  1760.     east = In_Dirty_Passage
  1761.     passage = In_Dirty_Passage
  1762.     down = At_Complex_Junction
  1763.     hole = At_Complex_Junction
  1764.     floor = At_Complex_Junction
  1765.     bedquilt = In_Bedquilt
  1766. ;
  1767. DustyRocks: CCR_decoration
  1768.     sdesc = "dusty rocks"
  1769.     ldesc = "They're just rocks.  (Dusty ones, that is.)"
  1770.     location = In_Dusty_Rock_Room
  1771.     noun = 'rocks' 'boulders' 'stones' 'rock' 'boulder' 'stone'
  1772.     adjective = 'dusty' 'dirty'
  1773. ;
  1774.  
  1775. At_West_End_Of_Hall_Of_Mists: CCR_room
  1776.     sdesc = "At West End of Hall of Mists"
  1777.     ldesc = {
  1778.         I(); "You are at the west end of the hall of mists.  
  1779.         A low wide crawl continues west and another goes 
  1780.         north.  To the south is a little passage 6 feet off 
  1781.         the floor.";
  1782.     }
  1783.     south = Alike_Maze_1
  1784.     up = Alike_Maze_1
  1785.     passage = Alike_Maze_1
  1786.     climb = Alike_Maze_1
  1787.     east = West_Side_Of_Fissure
  1788.     west = At_East_End_Of_Long_Hall
  1789.     crawl = At_East_End_Of_Long_Hall
  1790.  
  1791.     north = {
  1792.         "You have crawled through a very low wide passage 
  1793.         parallel to and north of the hall of mists.\b";
  1794.  
  1795.         return West_Side_Of_Fissure;
  1796.     }    
  1797. ;
  1798.  
  1799. Alike_Maze_1: CCR_alike_maze_room
  1800.     up = At_West_End_Of_Hall_Of_Mists
  1801.     north = Alike_Maze_1
  1802.     east = Alike_Maze_2
  1803.     south = Alike_Maze_4
  1804.     west = Alike_Maze_11
  1805. ;
  1806.  
  1807. Alike_Maze_2: CCR_alike_maze_room
  1808.     west = Alike_Maze_1
  1809.     south = Alike_Maze_3
  1810.     east = Alike_Maze_4
  1811. ;
  1812.  
  1813. Alike_Maze_3: CCR_alike_maze_room
  1814.     east = Alike_Maze_2
  1815.     down = Dead_End_3
  1816.     south = Alike_Maze_6
  1817.     north = Dead_End_13
  1818. ;
  1819.  
  1820. Alike_Maze_4: CCR_alike_maze_room
  1821.     west = Alike_Maze_1
  1822.     north = Alike_Maze_2
  1823.     east = Dead_End_1
  1824.     south = Dead_End_2
  1825.     up = Alike_Maze_14
  1826.     down = Alike_Maze_14
  1827. ;
  1828.  
  1829. Dead_End_1: CCR_dead_end_room
  1830.     west = Alike_Maze_4
  1831.     out = Alike_Maze_4
  1832. ;
  1833.  
  1834. Dead_End_2: CCR_dead_end_room
  1835.     east = Alike_Maze_4
  1836.     out = Alike_Maze_4
  1837. ;
  1838.  
  1839. Dead_End_3: CCR_dead_end_room
  1840.     up = Alike_Maze_3
  1841.     out = Alike_Maze_3
  1842. ;
  1843.  
  1844. Alike_Maze_5: CCR_alike_maze_room
  1845.     east = Alike_Maze_6
  1846.     west = Alike_Maze_7
  1847. ;
  1848.  
  1849. Alike_Maze_6: CCR_alike_maze_room
  1850.     east = Alike_Maze_3
  1851.     west = Alike_Maze_5
  1852.     down = Alike_Maze_7
  1853.     south = Alike_Maze_8
  1854. ;
  1855.  
  1856. Alike_Maze_7: CCR_alike_maze_room
  1857.     west = Alike_Maze_5
  1858.     up = Alike_Maze_6
  1859.     east = Alike_Maze_8
  1860.     south = Alike_Maze_9
  1861. ;
  1862.  
  1863. Alike_Maze_8: CCR_alike_maze_room
  1864.     west = Alike_Maze_6
  1865.     east = Alike_Maze_7
  1866.     south = Alike_Maze_8
  1867.     up = Alike_Maze_9
  1868.     north = Alike_Maze_10
  1869.     down = Dead_End_12
  1870. ;
  1871.  
  1872. Alike_Maze_9: CCR_alike_maze_room
  1873.     west = Alike_Maze_7
  1874.     north = Alike_Maze_8
  1875.     south = Dead_End_4
  1876. ;
  1877.  
  1878. Dead_End_4: CCR_dead_end_room
  1879.     west = Alike_Maze_9
  1880.     out = Alike_Maze_9
  1881. ;
  1882.  
  1883. Alike_Maze_10: CCR_alike_maze_room
  1884.     west = Alike_Maze_8
  1885.     north = Alike_Maze_10
  1886.     down = Dead_End_5
  1887.     east = At_Brink_Of_Pit
  1888. ;
  1889.  
  1890. Dead_End_5: CCR_dead_end_room
  1891.     up = Alike_Maze_10
  1892.     out = Alike_Maze_10
  1893. ;
  1894.  
  1895. At_Brink_Of_Pit: CCR_room
  1896.     sdesc = "At Brink of Pit"
  1897.     ldesc = {
  1898.         I(); "You are on the brink of a thirty foot pit with 
  1899.         a massive orange column down one wall.  You could 
  1900.         climb down here but you could not get back up.  The 
  1901.         maze continues at this level.";
  1902.     }
  1903.     down = In_Bird_Chamber
  1904.     climb = In_Bird_Chamber
  1905.     west = Alike_Maze_10
  1906.     south = Dead_End_6
  1907.     north = Alike_Maze_12
  1908.     east = Alike_Maze_13
  1909. ;
  1910. OrangeColumn: CCR_decoration
  1911.     sdesc = "massive orange column"
  1912.     ldesc = "It looks like you could climb down it."
  1913.     noun = 'column'
  1914.     adjective = 'massive' 'orange' 'big' 'huge'
  1915.     location = At_Brink_Of_Pit
  1916.     
  1917.     verDoClimb(actor) = {}
  1918.     doClimb(actor) = { Me.travelTo(self.location.down); }
  1919. ;
  1920. ThirtyFootPit: CCR_decoration
  1921.     sdesc = "pit"
  1922.     ldesc = "You'll have to climb down to find out anything more..."
  1923.     noun = 'pit'
  1924.     adjective = 'thirty' 'foot' 'thirty-foot' '30-foot'
  1925.     location = At_Brink_Of_Pit
  1926.  
  1927.     verDoClimb(actor) = {}
  1928.     doClimb(actor) = { Me.travelTo(self.location.down); }
  1929.     verDoEnter(actor) = {}
  1930.     doEnter(actor) = { self.doClimb(actor); }
  1931. ;
  1932.  
  1933. Dead_End_6: CCR_dead_end_room
  1934.     east = At_Brink_Of_Pit
  1935.     out = At_Brink_Of_Pit
  1936. ;
  1937.  
  1938. At_East_End_Of_Long_Hall: CCR_room
  1939.     sdesc = "At East End of Long Hall"
  1940.     ldesc = {
  1941.         I(); "You are at the east end of a very long hall 
  1942.         apparently without side chambers.  To the east a low 
  1943.         wide crawl slants up.  To the north a round two foot 
  1944.         hole slants down.";
  1945.     }
  1946.     east = At_West_End_Of_Hall_Of_Mists
  1947.     up = At_West_End_Of_Hall_Of_Mists
  1948.     crawl = At_West_End_Of_Hall_Of_Mists
  1949.     west = At_West_End_Of_Long_Hall
  1950.     north = Crossover
  1951.     down = Crossover
  1952.     hole = Crossover
  1953. ;
  1954.  
  1955. At_West_End_Of_Long_Hall: CCR_room
  1956.     sdesc = "At West End of Long Hall"
  1957.     ldesc = {
  1958.         I(); "You are at the west end of a very long 
  1959.         featureless hall.  The hall joins up with a narrow 
  1960.         north/south passage.";
  1961.     }
  1962.     east = At_East_End_Of_Long_Hall
  1963.     north = Crossover
  1964.     south = Different_Maze_1
  1965. ;
  1966.  
  1967. Crossover: CCR_room
  1968.     sdesc = "N/S and E/W Crossover"
  1969.     ldesc = {
  1970.         I(); "You are at a crossover of a high N/S passage 
  1971.         and a low E/W one.";
  1972.     }
  1973.     west = At_East_End_Of_Long_Hall
  1974.     north = Dead_End_7
  1975.     east = In_West_Side_Chamber
  1976.     south = At_West_End_Of_Long_Hall
  1977. ;
  1978. TheCrossover: CCR_decoration
  1979.     sdesc = "crossover"
  1980.     ldesc = "You know as much as I do at this point."
  1981.     noun = 'crossover' 'over'
  1982.     adjective = 'cross'
  1983.     location = Crossover
  1984. ;
  1985.  
  1986. Dead_End_7: CCR_dead_end_room
  1987.     south = Crossover
  1988.     out = Crossover
  1989. ;
  1990.  
  1991. At_Complex_Junction: CCR_room
  1992.     sdesc = "At Complex Junction"
  1993.     ldesc = {
  1994.         I(); "You are at a complex junction.  A low hands and 
  1995.         knees passage from the north joins a higher crawl 
  1996.         from the east to make a walking passage going west.  
  1997.         There is also a large room above.  The air is damp 
  1998.         here.";
  1999.     }
  2000.     up = In_Dusty_Rock_Room
  2001.     climb = In_Dusty_Rock_Room
  2002.     toroom = In_Dusty_Rock_Room
  2003.     west = In_Bedquilt
  2004.     bedquilt = In_Bedquilt
  2005.     north = In_Shell_Room
  2006.     shell = In_Shell_Room
  2007.     east = In_Anteroom
  2008. ;
  2009.  
  2010. In_Bedquilt: CCR_room
  2011.     sdesc = "In Bedquilt"
  2012.     ldesc = {
  2013.         I(); "You are in bedquilt, a long east/west passage 
  2014.         with holes everywhere. To explore at random select 
  2015.         north, south, up, or down.";
  2016.     }
  2017.     east = At_Complex_Junction
  2018.     west = In_Swiss_Cheese_Room
  2019.     south = {
  2020.         if (rand(100) <= 80)
  2021.             return crawled_around.message;
  2022.         else
  2023.             return self.slab;
  2024.     }
  2025.     slab = In_Slab_Room
  2026.  
  2027.     up = {
  2028.         if (rand(100) <= 80)
  2029.             return crawled_around.message;
  2030.         else if (rand(100) <= 50)
  2031.             return In_Secret_N_S_Canyon_1;
  2032.         else
  2033.             return In_Dusty_Rock_Room;
  2034.     }
  2035.  
  2036.     north = {
  2037.         if (rand(100) <= 60)
  2038.             return crawled_around.message;
  2039.         else if (rand(100) <= 75)
  2040.             return In_Large_Low_Room;
  2041.         else
  2042.             return At_Junction_Of_Three_Secret_Canyons;
  2043.     }
  2044.  
  2045.     down = {
  2046.         if (rand(100) <= 80)
  2047.             return crawled_around.message;
  2048.         else
  2049.             return In_Anteroom;
  2050.     }
  2051.  
  2052.     //
  2053.     // Let the NPC's go everywhere out of here too.
  2054.     //
  2055.     NPCexit1 = In_Secret_N_S_Canyon_1
  2056.     NPCexit2 = In_Dusty_Rock_Room
  2057.     NPCexit3 = In_Large_Low_Room
  2058.     NPCexit4 = At_Junction_Of_Three_Secret_Canyons
  2059.     NPCexit5 = In_Anteroom
  2060. ;
  2061.  
  2062. In_Swiss_Cheese_Room: CCR_room
  2063.     sdesc = "In Swiss Cheese Room"
  2064.     ldesc = {
  2065.         I(); "You are in a room whose walls resemble swiss 
  2066.         cheese.  Obvious passages go west, east, ne, and nw.  
  2067.         Part of the room is occupied by a large bedrock 
  2068.         block.";
  2069.     }
  2070.     ne = In_Bedquilt
  2071.     west = At_East_End_Of_Twopit_Room
  2072.     south = {
  2073.         if (rand(100) <= 80)
  2074.             return crawled_around.message;
  2075.         else
  2076.             return self.canyon;
  2077.     }
  2078.     canyon = In_Tall_E_W_Canyon
  2079.  
  2080.     east = In_Soft_Room
  2081.     nw = {
  2082.         if (rand(100) <= 50)
  2083.             return crawled_around.message;
  2084.         else
  2085.             return self.oriental;
  2086.     }
  2087.     oriental = In_Oriental_Room
  2088. ;
  2089. BedrockBlock: CCR_decoration
  2090.     sdesc = "bedrock block"
  2091.     ldesc = "It's just a huge block."
  2092.     noun = 'block'
  2093.     adjective = 'bedrock' 'large'
  2094.     location = In_Swiss_Cheese_Room
  2095.  
  2096.     verDoLookunder(actor) = { "Surely you're joking."; }
  2097.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2098.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2099. ;
  2100.  
  2101. At_East_End_Of_Twopit_Room: CCR_room
  2102.     sdesc = "At East End of Twopit Room"
  2103.     ldesc = {
  2104.         I(); "You are at the east end of the twopit room.  
  2105.         The floor here is littered with thin rock slabs, 
  2106.         which make it easy to descend the pits. There is a 
  2107.         path here bypassing the pits to connect passages from 
  2108.         east and west.  There are holes all over, but the 
  2109.         only big one is on the wall directly over the west 
  2110.         pit where you can't get to it.";
  2111.  
  2112.         if (PlantStickingUp.isIn(self)) {
  2113.             P(); I(); PlantStickingUp.ldesc;
  2114.         }
  2115.     }
  2116.     east = In_Swiss_Cheese_Room
  2117.     west = At_West_End_Of_Twopit_Room
  2118.     across = At_West_End_Of_Twopit_Room
  2119.     down = In_East_Pit
  2120.     pit = In_East_Pit
  2121. ;
  2122. Slabs: CCR_decoration
  2123.     sdesc = "thin rock slabs"
  2124.     adesc = { self.sdesc; }
  2125.     ldesc = "They almost form natural stairs down into the pit."
  2126.     noun = 'slabs' 'slab' 'rocks' 'stairs'
  2127.     adjective = 'thin' 'rock'
  2128.     location = At_East_End_Of_Twopit_Room
  2129.  
  2130.     verDoLookunder(actor) = { "Surely you're joking."; }
  2131.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2132.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2133. ;
  2134.  
  2135. In_Slab_Room: CCR_room
  2136.     sdesc = "In Slab Room"
  2137.     ldesc = {
  2138.         I(); "You are in a large low circular chamber whose 
  2139.         floor is an immense slab fallen from the ceiling 
  2140.         (slab room).  East and west there once were large 
  2141.         passages, but they are now filled with boulders.  Low 
  2142.         small passages go north and south, and the south one 
  2143.         quickly bends west around the boulders.";
  2144.     }
  2145.     south = At_West_End_Of_Twopit_Room
  2146.     up = In_Secret_N_S_Canyon_0
  2147.     climb = In_Secret_N_S_Canyon_0
  2148.     north = In_Bedquilt
  2149. ;
  2150. Slab: CCR_decoration
  2151.     sdesc = "slab"
  2152.     ldesc = "It is now the floor here."
  2153.     noun = 'slab'
  2154.     adjective = 'immense'
  2155.     location = In_Slab_Room
  2156. ;
  2157. SlabBoulders: CCR_decoration
  2158.     sdesc = "boulders"
  2159.     ldesc = "They're just ordinary boulders."
  2160.     noun = 'boulder' 'boulders' 'rocks' 'stones'
  2161.     location = In_Slab_Room
  2162. ;
  2163.  
  2164. In_Secret_N_S_Canyon_0: CCR_room
  2165.     sdesc = "In Secret N/S Canyon"
  2166.     ldesc = {
  2167.         I(); "You are in a secret N/S canyon above a large 
  2168.         room.";
  2169.     }
  2170.     down = In_Slab_Room
  2171.     slab = In_Slab_Room
  2172.  
  2173.     south = {
  2174.         In_Secret_Canyon.enteredfrom := self;
  2175.         return In_Secret_Canyon;
  2176.     }
  2177.  
  2178.     north = In_Mirror_Canyon
  2179.     reservoir = At_Reservoir
  2180.  
  2181.     //
  2182.     // Let NPC's go into the secret canyon too, without regard to
  2183.     // whether the dragon's there.
  2184.     //
  2185.     NPCexit1 = In_Secret_Canyon
  2186. ;
  2187.  
  2188. In_Secret_N_S_Canyon_1: CCR_room
  2189.     sdesc = "In Secret N/S Canyon"
  2190.     ldesc = {
  2191.         I(); "You are in a secret N/S canyon above a sizable 
  2192.         passage.";
  2193.     }
  2194.     north = At_Junction_Of_Three_Secret_Canyons
  2195.     down = In_Bedquilt
  2196.     passage = In_Bedquilt
  2197.     south = Atop_Stalactite
  2198. ;
  2199.  
  2200. At_Junction_Of_Three_Secret_Canyons: CCR_room
  2201.     sdesc = "At Junction of Three Secret Canyons"
  2202.     ldesc = {
  2203.         I(); "You are in a secret canyon at a junction of 
  2204.         three canyons, bearing north, south, and se.  The 
  2205.         north one is as tall as the other two combined.";
  2206.     }
  2207.     se = In_Bedquilt
  2208.     south = In_Secret_N_S_Canyon_1
  2209.     north = At_Window_On_Pit_2
  2210. ;
  2211.  
  2212. In_Large_Low_Room: CCR_room
  2213.     sdesc = "In Large Low Room"
  2214.     ldesc = {
  2215.         I(); "You are in a large low room.  Crawls lead 
  2216.         north, se, and sw.";
  2217.     }
  2218.     bedquilt = In_Bedquilt
  2219.     sw = In_Sloping_Corridor
  2220.     north = Dead_End_Crawl
  2221.     se = In_Oriental_Room
  2222.     oriental = In_Oriental_Room
  2223. ;
  2224.  
  2225. Dead_End_Crawl: CCR_dead_end_room
  2226.     sdesc = "Dead End Crawl"
  2227.     ldesc = {
  2228.         I(); "This is a dead end crawl.";
  2229.     }
  2230.     south = In_Large_Low_Room
  2231.     crawl = In_Large_Low_Room
  2232.     out = In_Large_Low_Room
  2233. ;
  2234.  
  2235. In_Secret_E_W_Canyon: CCR_room
  2236.     sdesc = "In Secret E/W Canyon Above Tight Canyon"
  2237.     ldesc = {
  2238.         I(); "You are in a secret canyon which here runs E/W. 
  2239.         It crosses over a very tight canyon 15 feet below.  
  2240.         If you go down you may not be able to get back up.";
  2241.     }
  2242.     east = In_Hall_Of_Mt_King
  2243.     west = {
  2244.         In_Secret_Canyon.enteredfrom := self;
  2245.         return In_Secret_Canyon;
  2246.     }
  2247.     down = In_N_S_Canyon
  2248.  
  2249.     //
  2250.     // Let NPC's go into the secret canyon too, without regard to
  2251.     // whether the dragon's there.
  2252.     //
  2253.     NPCexit1 = In_Secret_Canyon
  2254. ;
  2255.  
  2256. In_N_S_Canyon: CCR_room
  2257.     sdesc = "In N/S Canyon"
  2258.     ldesc = {
  2259.         I(); "You are at a wide place in a very tight N/S 
  2260.         canyon.";
  2261.     }
  2262.     south = Canyon_Dead_End
  2263.     north = In_Tall_E_W_Canyon
  2264. ;
  2265.  
  2266. Canyon_Dead_End: CCR_dead_end_room
  2267.     sdesc = "Canyon Dead End"
  2268.     ldesc = {
  2269.         I(); "The canyon here becomes too tight to go further 
  2270.         south.";
  2271.     }
  2272.     north = In_N_S_Canyon
  2273. ;
  2274.  
  2275. In_Tall_E_W_Canyon: CCR_room
  2276.     sdesc = "In Tall E/W Canyon"
  2277.     ldesc = {
  2278.         I(); "You are in a tall E/W canyon.  A low tight 
  2279.         crawl goes 3 feet north and seems to open up.";
  2280.     }
  2281.     east = In_N_S_Canyon
  2282.     west = Dead_End_8
  2283.     north = In_Swiss_Cheese_Room
  2284.     crawl = In_Swiss_Cheese_Room
  2285. ;
  2286.  
  2287. Dead_End_8: CCR_dead_end_room
  2288.     ldesc = {
  2289.         I(); "The canyon runs into a mass of boulders -- dead 
  2290.         end.";
  2291.     }
  2292.     south = In_Tall_E_W_Canyon
  2293.     out = In_Tall_E_W_Canyon    // DMB: added
  2294. ;
  2295. MassOfBoulders: CCR_decoration
  2296.     sdesc = "mass of boulders"
  2297.     ldesc = "They just like ordinary boulders."
  2298.     noun = 'boulders' 'mass'
  2299.     location = Dead_End_8
  2300. ;
  2301.  
  2302. Alike_Maze_11: CCR_alike_maze_room
  2303.     north = Alike_Maze_1
  2304.     west = Alike_Maze_11
  2305.     south = Alike_Maze_11
  2306.     east = Dead_End_9
  2307. ;
  2308.  
  2309. Dead_End_9: CCR_dead_end_room
  2310.     west = Alike_Maze_11
  2311.     out = Alike_Maze_11
  2312. ;
  2313.  
  2314. Dead_End_10: CCR_dead_end_room
  2315.     south = Alike_Maze_3
  2316.     out = Alike_Maze_3
  2317. ;
  2318.  
  2319. Alike_Maze_12: CCR_alike_maze_room
  2320.     south = At_Brink_Of_Pit
  2321.     east = Alike_Maze_13
  2322.     west = Dead_End_11
  2323. ;
  2324.  
  2325. Alike_Maze_13: CCR_alike_maze_room
  2326.     north = At_Brink_Of_Pit
  2327.     west = Alike_Maze_12
  2328.     nw = Dead_End_13
  2329. ;
  2330.  
  2331. Dead_End_11: CCR_dead_end_room
  2332.     east = Alike_Maze_12
  2333.     out = Alike_Maze_12
  2334. ;
  2335.  
  2336. Dead_End_12: CCR_dead_end_room
  2337.     up = Alike_Maze_8
  2338.     out = Alike_Maze_8
  2339. ;
  2340.  
  2341. Alike_Maze_14: CCR_alike_maze_room
  2342.     up = Alike_Maze_4
  2343.     down = Alike_Maze_4
  2344. ;
  2345.  
  2346. In_Narrow_Corridor: CCR_room
  2347.     sdesc = "In Narrow Corridor"
  2348.     ldesc = {
  2349.         I(); "You are in a long, narrow corridor stretching 
  2350.         out of sight to the west.  At the eastern end is a 
  2351.         hole through which you can see a profusion of 
  2352.         leaves.";
  2353.     }
  2354.     down = In_West_Pit
  2355.     climb = In_West_Pit
  2356.     east = In_West_Pit
  2357.     jump = { return broken_neck.death; }
  2358.     west = In_Giant_Room
  2359.     giant = In_Giant_Room
  2360. ;
  2361. Leaves: CCR_decoration
  2362.     sdesc = "leaves"
  2363.     ldesc = {
  2364.         "The leaves appear to be attached to the beanstalk 
  2365.         you climbed to get here.";
  2366.     }
  2367.     location = In_Narrow_Corridor
  2368.     noun = 'leaf' 'leaves' 'plant' 'tree' 'stalk' 'beanstalk' 'profusion'
  2369. ;
  2370.  
  2371. At_Steep_Incline_Above_Large_Room: CCR_room
  2372.     sdesc = "At Steep Incline Above Large Room"
  2373.     ldesc = {
  2374.         I(); "You are at the top of a steep incline above a 
  2375.         large room.  You could climb down here, but you would 
  2376.         not be able to climb up.  There is a passage leading 
  2377.         back to the north.";
  2378.     }
  2379.     north = In_Cavern_With_Waterfall
  2380.     cavern = In_Cavern_With_Waterfall
  2381.     passage = In_Cavern_With_Waterfall
  2382.     down = In_Large_Low_Room
  2383.     climb = In_Large_Low_Room
  2384. ;
  2385.  
  2386. In_Giant_Room: CCR_room
  2387.     sdesc = "In Giant Room"
  2388.     ldesc = {
  2389.         I(); "You are in the giant room.  The ceiling here is 
  2390.         too high up for your lamp to show it.  Cavernous 
  2391.         passages lead east, north, and south.  On the west 
  2392.         wall is scrawled the inscription, \"Fee fie foe foo\" 
  2393.         [sic].";
  2394.     }
  2395.     south = In_Narrow_Corridor
  2396.     east = At_Recent_Cave_In
  2397.     north = In_Immense_N_S_Passage
  2398. ;
  2399. Inscription: CCR_decoration, readable
  2400.     sdesc = "scrawled inscription"
  2401.     ldesc = "It says, \"Fee fie foe foo [sic].\""
  2402.     noun = 'inscription' 'writing' 'scrawl'
  2403.     adjective = 'scrawled'
  2404.     location = In_Giant_Room
  2405. ;
  2406.  
  2407. At_Recent_Cave_In: CCR_room
  2408.     sdesc = "At Recent Cave-in"
  2409.     ldesc = {
  2410.         I(); "The passage here is blocked by a recent 
  2411.         cave-in.";
  2412.     }
  2413.     south = In_Giant_Room
  2414.     giant = In_Giant_Room
  2415.     out = In_Giant_Room
  2416. ;
  2417. CaveIn: CCR_decoration
  2418.     sdesc = "cave-in"
  2419.     ldesc = { self.location.ldesc; }
  2420.     noun = 'in' 'cave-in'
  2421.     adjective = 'cave'
  2422.     location = At_Recent_Cave_In
  2423. ;
  2424.  
  2425. In_Immense_N_S_Passage: CCR_room
  2426.     sdesc = "In Immense N/S Passage"
  2427.     ldesc = {
  2428.         I(); "You are at one end of an immense north/south 
  2429.         passage. ";
  2430.  
  2431.         if (not RustyDoor.isoiled)
  2432.              "The way north is barred by a massive, rusty, 
  2433.             iron door.";
  2434.         else
  2435.             "The way north leads through a massive, 
  2436.             rusty, iron door.";
  2437.     }
  2438.     south = In_Giant_Room
  2439.     giant = In_Giant_Room
  2440.     passage = In_Giant_Room
  2441.  
  2442.     enter = { return self.north; }
  2443.     cavern = { return self.north; }
  2444.     north = {
  2445.         if (RustyDoor.isoiled) {
  2446.             return In_Cavern_With_Waterfall;
  2447.         }
  2448.         else {
  2449.             "The door is extremely rusty and refuses to open.";
  2450.             return nil;
  2451.         }
  2452.     }
  2453.  
  2454.     //
  2455.     // Only let NPC's go through the door once it's open.
  2456.     //
  2457.     NPCexit1 = {
  2458.         if (RustyDoor.isoiled)
  2459.             return In_Cavern_With_Waterfall;
  2460.         else
  2461.             return nil;
  2462.     }
  2463. ;
  2464. RustyDoor: CCR_decoration
  2465.     isoiled = nil
  2466.  
  2467.     sdesc = "rusty door"
  2468.     ldesc = "It's just a big iron door."
  2469.     location = In_Immense_N_S_Passage
  2470.     noun = 'door' 'hinge' 'hinges'
  2471.     adjective = 'massive' 'rusty' 'iron'
  2472.  
  2473.     verDoOpen(actor) = {
  2474.         if (self.oiled)
  2475.             "It's already open.";
  2476.         else
  2477.             "The hinges are quite thoroughly rusted now 
  2478.             and won't budge.";
  2479.     }
  2480.     verDoClose(actor) = {
  2481.         if (self.oiled)
  2482.             "No problem there -- it already is.";
  2483.         else
  2484.             "With all the effort it took to get the door 
  2485.             open, I wouldn't suggest closing it again.";
  2486.     }
  2487.     verDoOil(actor) = {}
  2488.     doOil(actor) = {
  2489.         if (bottle.isIn(Me))
  2490.             bottle.doPourOn(actor, self);
  2491.         else
  2492.             "You have nothing to oil it with.";
  2493.     }
  2494. ;
  2495.  
  2496. In_Cavern_With_Waterfall: CCR_room
  2497.     sdesc = "In Cavern With Waterfall"
  2498.     ldesc = {
  2499.         I(); "You are in a magnificent cavern with a rushing 
  2500.         stream, which cascades over a sparkling waterfall 
  2501.         into a roaring whirlpool which disappears through a 
  2502.         hole in the floor.  Passages exit to the south and 
  2503.         west.";
  2504.     }
  2505.     south = In_Immense_N_S_Passage
  2506.     out = In_Immense_N_S_Passage
  2507.     giant = In_Giant_Room
  2508.     west = At_Steep_Incline_Above_Large_Room
  2509. ;
  2510. Waterfall: CCR_decoration
  2511.     sdesc = "waterfall"
  2512.     ldesc = "Wouldn't want to go down in in a barrel!"
  2513.     noun = 'waterfall' 'whirpool'
  2514.     adjective = 'sparkling' 'whirling'
  2515.     location = In_Cavern_With_Waterfall
  2516. ;
  2517.  
  2518. In_Soft_Room: CCR_room
  2519.     sdesc = "In Soft Room"
  2520.     ldesc = {
  2521.         I(); "You are in the soft room.  The walls are 
  2522.         covered with heavy curtains, the floor with a thick 
  2523.         pile carpet.  Moss covers the ceiling.";
  2524.     }
  2525.     west = In_Swiss_Cheese_Room
  2526.     out = In_Swiss_Cheese_Room
  2527. ;
  2528. Carpet: CCR_decoration
  2529.     sdesc = "carpet"
  2530.     ldesc = "The carpet is quite plush."
  2531.     noun = 'carpet' 'shag' 'pile'
  2532.     adjective = 'pile' 'heavy' 'thick'
  2533.     location = In_Soft_Room
  2534. ;
  2535. Curtains: CCR_decoration
  2536.     sdesc = "curtains"
  2537.     ldesc = "They seem to absorb sound very well."
  2538.     noun = 'curtain' 'curtains'
  2539.     adjective = 'heavy' 'thick'
  2540.     location = In_Soft_Room
  2541.  
  2542.     verifyRemove(actor) = { "Now don't go ripping up the place!"; }
  2543.     verDoLookbehind(actor) = {}
  2544.     doLookbehind(actor) = {
  2545.         "You don't find anything exciting behind the curtains.";
  2546.     }
  2547. ;
  2548. Moss: CCR_decoration
  2549.     sdesc = "moss"
  2550.     ldesc = "It just looks like your typical, everyday moss."
  2551.     noun = 'moss'
  2552.     adjective = 'typical' 'everyday'
  2553.     location = In_Soft_Room
  2554.  
  2555.     verifyRemove(actor) = { "It's too high up for you to reach."; }
  2556.     verDoEat(actor) = { "Eeeewwwww."; }
  2557. ;
  2558.  
  2559. In_Oriental_Room: CCR_room
  2560.     sdesc = "In Oriental Room"
  2561.     ldesc = {
  2562.         I(); "This is the oriental room.  Ancient oriental 
  2563.         cave drawings cover the walls.  A gently sloping 
  2564.         passage leads upward to the north, another passage 
  2565.         leads se, and a hands and knees crawl leads west.";
  2566.     }
  2567.     se = In_Swiss_Cheese_Room
  2568.     west = In_Large_Low_Room
  2569.     crawl = In_Large_Low_Room
  2570.     up = In_Misty_Cavern
  2571.     north = In_Misty_Cavern
  2572.     cavern = In_Misty_Cavern
  2573. ;
  2574. CaveDrawings: CCR_decoration
  2575.     sdesc = "ancient oriental drawings"
  2576.     ldesc = "They seem to depict people and animals."
  2577.     noun = 'paintings' 'drawings' 'art'
  2578.     adjective = 'cave' 'ancient' 'oriental'
  2579.     location = In_Oriental_Room
  2580. ;
  2581.  
  2582. In_Misty_Cavern: CCR_room
  2583.     sdesc = "In Misty Cavern"
  2584.     ldesc = {
  2585.         I(); "You are following a wide path around the outer 
  2586.         edge of a large cavern. Far below, through a heavy 
  2587.         white mist, strange splashing noises can be heard.  
  2588.         The mist rises up through a fissure in the ceiling.  
  2589.         The path exits to the south and west.";
  2590.     }
  2591.     south = In_Oriental_Room
  2592.     oriental = In_Oriental_Room
  2593.     west = In_Alcove
  2594. ;
  2595. CeilingFissure: CCR_decoration
  2596.     sdesc = "fissure"
  2597.     ldesc = "You can't really get close enough to examine it."
  2598.     noun = 'fissure'
  2599.     location = In_Misty_Cavern
  2600. ;
  2601.  
  2602. In_Alcove: CCR_room
  2603.     sdesc = "In Alcove"
  2604.     ldesc = {
  2605.         I(); "You are in an alcove.  A small northwest path seems 
  2606.         to widen after a short distance.  An extremely tight 
  2607.         tunnel leads east.  It looks like a very tight 
  2608.         squeeze.  An eerie light can be seen at the other 
  2609.         end.";
  2610.     }
  2611.     nw = In_Misty_Cavern
  2612.     cavern = In_Misty_Cavern
  2613.     passage = { return self.east; }
  2614.     east = {
  2615.         //
  2616.         // The player must be carrying only the emerald or
  2617.         // nothing at all to fit through the tight tunnel.
  2618.         //
  2619.         if (length(Me.contents) > 1)
  2620.             return wontfit.message;
  2621.         else if (length(Me.contents) = 1) {
  2622.             if (egg_sized_emerald.isIn(Me))
  2623.                 return In_Plover_Room;
  2624.             else
  2625.                 return wontfit.message;
  2626.         }
  2627.         else
  2628.             return In_Plover_Room;
  2629.     }
  2630.  
  2631.     //
  2632.     // Let NPC's go in the plover room regardless of what
  2633.     // they're carrying.  (Life's not fair in the Colossal Cave.)
  2634.     //
  2635.     NPCexit1 = In_Plover_Room
  2636. ;
  2637.  
  2638. In_Plover_Room: CCR_room, lightroom
  2639.     sdesc = "In Plover Room"
  2640.     ldesc = {
  2641.         I(); "You're in a small chamber lit by an eerie green 
  2642.         light.  An extremely narrow tunnel exits to the west. 
  2643.         A dark corridor leads northeast.";
  2644.     }
  2645.  
  2646.     passage = { return self.west; }
  2647.     out =  { return self.west; }
  2648.     west = {
  2649.         //
  2650.         // The player must be carrying only the emerald or
  2651.         // nothing at all to fit through the tight tunnel.
  2652.         //
  2653.         if (length(Me.contents) > 1)
  2654.             return wontfit.message;
  2655.         else if (length(Me.contents) = 1) {
  2656.             if (egg_sized_emerald.isIn(Me))
  2657.                 return In_Alcove;
  2658.             else
  2659.                 return wontfit.message;
  2660.         }
  2661.         else
  2662.             return In_Alcove;
  2663.     }
  2664.  
  2665.     ne = In_Dark_Room
  2666.     dark = In_Dark_Room
  2667.  
  2668.      plover = At_Y2
  2669.  
  2670.     //
  2671.     // Let NPC's leave the plover room regardless of what
  2672.     // they're carrying.  (Life's not fair in the Colossal Cave.)
  2673.     //
  2674.     NPCexit1 = In_Alcove
  2675. ;
  2676.  
  2677. In_Dark_Room: CCR_room
  2678.     sdesc = "In Dark Room"
  2679.     ldesc = {
  2680.         I(); "You're in the dark-room.  A corridor leading 
  2681.         south is the only exit."; P();
  2682.  
  2683.         I(); StoneTablet.ldesc; 
  2684.     }
  2685.     south = In_Plover_Room
  2686.     plover = In_Plover_Room
  2687.     out = In_Plover_Room
  2688. ;
  2689. StoneTablet: CCR_decoration
  2690.     sdesc = "stone tablet"
  2691.     ldesc = {
  2692.         "A massive stone tablet imbedded in the wall reads: 
  2693.         \"Congratulations on bringing light into the 
  2694.         dark-room!\"";
  2695.     }
  2696.     location = In_Dark_Room
  2697.     noun = 'tablet'
  2698.     adjective = 'massive' 'stone'
  2699. ;
  2700.  
  2701. In_Arched_Hall: CCR_room
  2702.     sdesc = "In Arched Hall"
  2703.     ldesc = {
  2704.         I(); "You are in an arched hall.  A coral passage 
  2705.         once continued up and east from here, but is now 
  2706.         blocked by debris.  The air smells of sea water.";
  2707.     }
  2708.     down = In_Shell_Room
  2709.     shell = In_Shell_Room
  2710.     out = In_Shell_Room
  2711. ;
  2712.  
  2713. In_Shell_Room: CCR_room
  2714.     sdesc = "In Shell Room"
  2715.     ldesc = {
  2716.         I(); "You're in a large room carved out of 
  2717.         sedimentary rock.  The floor and walls are littered 
  2718.         with bits of shells imbedded in the stone.  A shallow 
  2719.         passage proceeds downward, and a somewhat steeper one 
  2720.         leads up.  A low hands and knees passage enters from 
  2721.         the south.";
  2722.     }
  2723.     up = In_Arched_Hall
  2724.     hall = In_Arched_Hall
  2725.     down = In_Ragged_Corridor
  2726.     
  2727.     south = {
  2728.         if (giant_bivalve.isIn(Me)) {
  2729.             if (giant_bivalve.opened)
  2730.                 "You can't fit this five-foot oyster 
  2731.                 through that little passage!";
  2732.             else
  2733.                 "You can't fit this five-foot clam 
  2734.                 through that little passage!";
  2735.  
  2736.             return nil;
  2737.         }
  2738.         else 
  2739.             return At_Complex_Junction;
  2740.     }
  2741.  
  2742.     //
  2743.     // Let NPC's through.
  2744.     //
  2745.     NPCexit1 = At_Complex_Junction
  2746. ;
  2747.  
  2748. In_Ragged_Corridor: CCR_room
  2749.     sdesc = "In Ragged Corridor"
  2750.     ldesc = {
  2751.         I(); "You are in a long sloping corridor with ragged 
  2752.         sharp walls.";
  2753.     }
  2754.     up = In_Shell_Room
  2755.     shell = In_Shell_Room
  2756.     down = In_A_Cul_De_Sac
  2757. ;
  2758.  
  2759. In_A_Cul_De_Sac: CCR_room
  2760.     sdesc = "In a Cul-de-Sac"
  2761.     ldesc = {
  2762.         I(); "You are in a cul-de-sac about eight feet 
  2763.         across.";
  2764.     }
  2765.     up = In_Ragged_Corridor
  2766.     out = In_Ragged_Corridor
  2767.     shell = In_Shell_Room
  2768. ;
  2769.  
  2770. In_Anteroom: CCR_room
  2771.     sdesc = "In Anteroom"
  2772.     ldesc = {
  2773.         I(); "You are in an anteroom leading to a large 
  2774.         passage to the east.  Small passages go west and up.  
  2775.         The remnants of recent digging are evident."; P();
  2776.  
  2777.         I(); "A sign in midair here says \"Cave under 
  2778.         construction beyond this point. Proceed at own risk.  
  2779.         [Witt Construction Company]\"";
  2780.     }
  2781.     up = At_Complex_Junction
  2782.     west = In_Bedquilt
  2783.     east = At_Witts_End
  2784. ;
  2785. WittSign: CCR_decoration, readable
  2786.     sdesc = 'sign'
  2787.     ldesc = "It's hanging way above your head."
  2788.     readdesc = {
  2789.         "It says \"Cave under construction beyond this point. 
  2790.         Proceed at own risk.  [Witt Construction Company]\"";
  2791.     }
  2792.     noun = 'sign'
  2793.     adjective = 'hanging'
  2794.     location = In_Anteroom
  2795.  
  2796.     verifyRemove(actor) = { "No chance.  It's too far up."; }
  2797. ;
  2798.  
  2799. /*
  2800.  * This was off limits to NPC's in the original, but I don't see
  2801.  * any reason to keep that restriction since it seemed to be
  2802.  * related to some hackery in the way the movement worked.
  2803.  *
  2804.  * It could be argued that the pirate shouldn't show up in the mazes,
  2805.  * since his taking stuff away from the player could make mapping the
  2806.  * maze a real pain.
  2807.  */
  2808. Different_Maze_1: CCR_room
  2809.     sdesc = "Maze of Twisty Little Passages, All Different"
  2810.     ldesc = {
  2811.         I(); "You are in a maze of twisty little passages, 
  2812.         all different.";
  2813.     }
  2814.     south = Different_Maze_3
  2815.     sw = Different_Maze_4
  2816.     ne = Different_Maze_5
  2817.     se = Different_Maze_6
  2818.     up = Different_Maze_7
  2819.     nw = Different_Maze_8
  2820.     east = Different_Maze_9
  2821.     west = Different_Maze_10
  2822.     north = Different_Maze_11
  2823.     down = At_West_End_Of_Long_Hall
  2824. ;
  2825.  
  2826. At_Witts_End: CCR_room
  2827.     sdesc = "At Witt's End"
  2828.     ldesc = {
  2829.         I(); "You are at Witt's End.  Passages lead off in 
  2830.         *all* directions.";
  2831.     }
  2832.     east = {
  2833.         if (rand(100) <= 95) 
  2834.             return crawled_around.message;
  2835.         else
  2836.             return In_Anteroom;
  2837.     }
  2838.     west = {
  2839.         "You have crawled around in some little holes and 
  2840.         found your way blocked by a recent cave-in.  You are 
  2841.         now back in the main passage.";
  2842.  
  2843.         return nil;
  2844.     }
  2845.  
  2846.     north = { return self.east; }
  2847.     south = { return self.east; }
  2848.     ne = { return self.east; }
  2849.     se = { return self.east; }
  2850.     sw = { return self.east; }
  2851.     nw = { return self.east; }
  2852.     up = { return self.east; }
  2853.     down = { return self.east; }
  2854.  
  2855.     //
  2856.     // Let NPC's out of here with no trouble
  2857.     //
  2858.     NPCexit1 = In_Anteroom
  2859. ;
  2860.  
  2861. In_Mirror_Canyon: CCR_room
  2862.     sdesc = "In Mirror Canyon"
  2863.     ldesc = {
  2864.         I(); "You are in a north/south canyon about 25 feet 
  2865.         across.  The floor is covered by white mist seeping 
  2866.         in from the north.  The walls extend upward for well 
  2867.         over 100 feet.  Suspended from some unseen point far 
  2868.         above you, an enormous two-sided mirror is hanging 
  2869.         parallel to and midway between the canyon walls. ";
  2870.  
  2871.         "("; CanyonMirror.ldesc; ")"; 
  2872.  
  2873.         P(); I(); "A small window can be seen in either wall, 
  2874.         some fifty feet up.";
  2875.     }
  2876.     south = In_Secret_N_S_Canyon_0
  2877.     north = At_Reservoir
  2878.     reservior = At_Reservoir
  2879. ;
  2880. Mirror_1: CCR_decoration
  2881.     sdesc = "enormous mirror"
  2882.     ldesc = "It looks like an ordinary, albeit enormous, mirror."
  2883.     location = In_Mirror_Canyon
  2884.     noun = 'mirror'
  2885.     adjective = 'enormous' 'huge' 'big' 'large' 'suspended'
  2886.         'hanging' 'vanity' 'dwarvish'
  2887.  
  2888.     verDoBreak(actor) = { self.verifyRemove(actor); }
  2889.     verifyRemove(actor) = { "You can't reach it from here."; }
  2890. ;
  2891. CanyonMirror: CCR_decoration
  2892.     sdesc = "suspended mirror"
  2893.     ldesc = {
  2894.         "The mirror is obviously provided for the use of the 
  2895.         dwarves, who as you know, are extremely vain.";
  2896.     }
  2897.     noun = 'mirror'
  2898.     adjective = 'massive' 'hanging' 'suspended' 'dwarves\'' 'two-sided'
  2899.         'two' 'sided'
  2900.     location = In_Mirror_Canyon
  2901. ;
  2902.  
  2903. At_Window_On_Pit_2: CCR_room
  2904.     sdesc = "At Window on Pit"
  2905.     ldesc = {
  2906.         I(); "You're at a low window overlooking a huge pit, 
  2907.         which extends up out of sight.  A floor is 
  2908.         indistinctly visible over 50 feet below.  Traces of 
  2909.         white mist cover the floor of the pit, becoming 
  2910.         thicker to the left. Marks in the dust around the 
  2911.         window would seem to indicate that someone has been 
  2912.         here recently.  Directly across the pit from you and 
  2913.         25 feet away there is a similar window looking into a 
  2914.         lighted room.  A shadowy figure can be seen there 
  2915.         peering back at you.";
  2916.     }
  2917.     west = At_Junction_Of_Three_Secret_Canyons
  2918.     jump = { return broken_neck.death; }
  2919. ;
  2920.  
  2921. Atop_Stalactite: CCR_room
  2922.     sdesc = "Atop Stalactite"
  2923.     ldesc = {
  2924.         I(); "A large stalactite extends from the roof and 
  2925.         almost reaches the floor below.  You could climb down 
  2926.         it, and jump from it to the floor, but having done so 
  2927.         you would be unable to reach it to climb back up.";
  2928.     }
  2929.     north = In_Secret_N_S_Canyon_1
  2930.  
  2931.     jump = { return self.down; }
  2932.     climb = { return self.down; }
  2933.     down = {
  2934.         if (rand(100) <= 40)
  2935.             return Alike_Maze_6;
  2936.         else if (rand(100) <= 50)
  2937.             return Alike_Maze_9;
  2938.         else
  2939.             return Alike_Maze_4;
  2940.     }
  2941.  
  2942.     //
  2943.     // Let NPC's through to the maze
  2944.     //
  2945.     NPCexit1 = Alike_Maze_6
  2946.     NPCexit2 = Alike_Maze_9
  2947.     NPCexit3 = Alike_Maze_4
  2948. ;
  2949. Stalactite: CCR_decoration
  2950.     sdesc = "stalactite"
  2951.     ldesc = {
  2952.         "You could probably climb down it, but you can forget 
  2953.         coming back up.";
  2954.     }
  2955.     noun = 'stalactite' 'stalagmite' 'stalagtite'
  2956.     adjective = 'large'
  2957.     location = Atop_Stalactite
  2958.  
  2959.     verDoLookunder(actor) = { "Do get a grip on yourself."; }
  2960.     verDoMove(actor) = { self.verDoLookunder(actor); }
  2961.     verifyRemove(actor) = { self.verDoLookunder(actor); }
  2962. ;
  2963.  
  2964. Different_Maze_2: CCR_room
  2965.     sdesc = "Little Maze of Twisting Passages, All Different"
  2966.     ldesc = {
  2967.         I(); "You are in a little maze of twisting passages, 
  2968.         all different.";
  2969.     }
  2970.     sw = Different_Maze_3
  2971.     north = Different_Maze_4
  2972.     east = Different_Maze_5
  2973.     nw = Different_Maze_6
  2974.     se = Different_Maze_7
  2975.     ne = Different_Maze_8
  2976.     west = Different_Maze_9
  2977.     down = Different_Maze_10
  2978.     up = Different_Maze_11
  2979.     south = Dead_End_14
  2980. ;
  2981.  
  2982. At_Reservoir: CCR_room
  2983.     sdesc = "At Reservoir"
  2984.     ldesc = {
  2985.         I(); "You are at the edge of a large underground 
  2986.         reservoir.  An opaque cloud of white mist fills the 
  2987.         room and rises rapidly upward.  The lake is fed by a 
  2988.         stream, which tumbles out of a hole in the wall about 
  2989.         10 feet overhead and splashes noisily into the water 
  2990.         somewhere within the mist.  The only passage goes 
  2991.         back toward the south.";
  2992.     }
  2993.     south = In_Mirror_Canyon
  2994.     out = In_Mirror_Canyon
  2995.  
  2996.     //
  2997.     // The original had another exit, but the verb it was attached
  2998.     // to didn't exists.  I have no idea what was intended here...
  2999.     //
  3000.     // ??? = In_Mirror_Canyon
  3001. ;
  3002.  
  3003. //
  3004. // Here's where the pirate(s) keeps his treasure (as well as any loot
  3005. // he's swiped from the player).  Once the chest has been been found
  3006. // here, turn off the pirate(s) completely.  (This is how the original
  3007. // handled it, and it's thankfully merciful so I've kept it the same.)
  3008. //
  3009. Dead_End_13: CCR_dead_end_room, NoNPC
  3010.     se = Alike_Maze_13
  3011.     out = Alike_Maze_13    // DMB: added
  3012.  
  3013.     ldesc = "This is the pirate's dead end."
  3014.  
  3015.     enterRoom(actor) = {
  3016.         if (treasure_chest.isIn(Me) and not treasure_chest.spotted) {
  3017.             P(); I(); "You've found the pirate's treasure chest!";
  3018.             unnotify(Pirates, &move);
  3019.             treasure_chest.spotted := true;
  3020.             PirateMessage.moveInto(nil);
  3021.         }
  3022.  
  3023.         pass enterRoom;
  3024.     }
  3025. ;
  3026.  
  3027. On_Sw_Side_Of_Chasm: CCR_room
  3028.     sdesc = "On SW Side of Chasm"
  3029.     ldesc = {
  3030.         I(); "You are on one side of a large, deep chasm.  A 
  3031.         heavy white mist rising up from below obscures all 
  3032.         view of the far side.  A southwest path leads away 
  3033.         from the chasm into a winding corridor. ";
  3034.  
  3035.         RicketyBridge.xdesc;
  3036.  
  3037.         if (Troll.location = nil) {
  3038.             P(); I();
  3039.             "The troll is nowhere to be seen.";
  3040.         }
  3041.     }
  3042.     sw = In_Sloping_Corridor
  3043.  
  3044.     across = { return self.over; }
  3045.     cross = { return self.over; }
  3046.     ne = { return self.over; }
  3047.     over = {
  3048.         RicketyBridge.doCross(Me);
  3049.         return nil;
  3050.     }
  3051.     
  3052.     jump = {
  3053.         if (RicketyBridge.exists) {
  3054.             "I respectfully suggest you go across the 
  3055.             bridge instead of jumping.";
  3056.  
  3057.             return nil;
  3058.         }
  3059.         else
  3060.             return didnt_make_it.death;
  3061.     }
  3062.  
  3063.     //
  3064.     // No NPC exits because we don't want the pirate to be able
  3065.     // to go across the bridge and steal the player's return toll.
  3066.     // (All rooms on the other side of the bridge are off limits
  3067.     // to NPC's.)
  3068.     //
  3069.     // It would be OK for dwarves to show up over there, except
  3070.     // that they might run into the bear, a situation for which we don't
  3071.     // have any code.  (This is how the original was as well.)
  3072.     //
  3073. ;
  3074. RicketyBridge: CCR_decoration
  3075.     exists = true
  3076.  
  3077.     sdesc = "rickety bridge"
  3078.     ldesc = "It just looks like an ordinary, but unstable, bridge."
  3079.  
  3080.     xdesc = {
  3081.         if (self.exists) {
  3082.             "A rickety wooden bridge extends across the 
  3083.             chasm, vanishing into the mist."; P();
  3084.  
  3085.             I(); "A sign posted on the bridge reads, 
  3086.             \"Stop! Pay troll!\"";
  3087.         }
  3088.         else {
  3089.             "The wreckage of a bridge (and a dead bear) 
  3090.             can be seen at the bottom of the chasm.";
  3091.         }
  3092.     }
  3093.  
  3094.     noun = 'bridge'
  3095.     adjective = 'rickety' 'unstable' 'wobbly' 'rope'
  3096.  
  3097.     locationOK = true    // tell compiler OK for location to be method
  3098.     location = {
  3099.         if (self.exists) {
  3100.             if (Me.isIn(On_Sw_Side_Of_Chasm))
  3101.                 return On_Sw_Side_Of_Chasm;
  3102.             else
  3103.                 return On_Ne_Side_Of_Chasm;
  3104.         }
  3105.         else
  3106.             return nil;
  3107.     }
  3108.  
  3109.     verDoCross(actor) = {}
  3110.     doCross(actor) = {
  3111.         if (self.exists) {
  3112.             if (Troll.ispaid or Troll.location = nil)
  3113.                 self.cross;
  3114.             else {
  3115.                 if (Troll.isIn(self.location)) {
  3116.                     "The troll refuses to let you 
  3117.                     cross.";
  3118.                 }
  3119.                 else {
  3120.                     "The troll steps out from 
  3121.                     beneath the bridge and blocks 
  3122.                     your way.";
  3123.  
  3124.                     Troll.moveInto(self.location);
  3125.                 }
  3126.             }
  3127.         }
  3128.         else
  3129.             "There is no longer any way across the chasm.";
  3130.     }
  3131.  
  3132.     cross = {
  3133.         if (Bear.isfollowing) {
  3134.             "Just as you reach the other side, the bridge 
  3135.             buckles beneath the weight of the bear, which 
  3136.             was still following you around.  You scrabble 
  3137.             desperately for support, but as the bridge 
  3138.             collapses you stumble back and fall into the 
  3139.             chasm.";
  3140.  
  3141.             // Get rid of the bridge in case the
  3142.             // player gets reincarnated and
  3143.             // continues the game.
  3144.             self.exists := nil;
  3145.  
  3146.             // No more bear!
  3147.             Bear.exists := nil;
  3148.  
  3149.             die();
  3150.         }
  3151.         else if (Me.isIn(On_Sw_Side_Of_Chasm)) {
  3152.             Troll.ispaid := nil;
  3153.             Me.travelTo(On_Ne_Side_Of_Chasm);
  3154.         }
  3155.         else {
  3156.             Troll.ispaid := nil;
  3157.             Me.travelTo(On_Sw_Side_Of_Chasm);
  3158.         }
  3159.     }
  3160. ;
  3161. Troll: Actor
  3162.     ispaid = nil
  3163.  
  3164.     sdesc = "burly troll"
  3165.     ldesc = {
  3166.         "Trolls are close relatives with rocks and have skin 
  3167.         as tough as that of a rhinoceros.";
  3168.     }
  3169.  
  3170.     actorDesc = {
  3171.         P(); I();
  3172.         "A burly troll stands by the bridge and insists you 
  3173.         throw him a treasure before you may cross.";
  3174.     }
  3175.  
  3176.     noun = 'troll'
  3177.     adjective = 'burly'
  3178.  
  3179.     location = On_Sw_Side_Of_Chasm
  3180.  
  3181.     verDoKick(actor) = {}
  3182.     doKick(actor) = {
  3183.         "The troll laughs alound at your pitiful attempt
  3184.         to injure him.";
  3185.     }
  3186.  
  3187.     verDoAttack(actor) = {
  3188.         "The troll fends off your blows effortlessly.";
  3189.     }
  3190.     verDoAttackWith(actor, io) = {}
  3191.     doAttackWith(actor, io) = {
  3192.         //
  3193.         // If the player throws the axe at the troll,
  3194.         // he just catches it.
  3195.         //
  3196.         if (io = axe)
  3197.             self.ioGiveTo(actor, io);
  3198.         else
  3199.             self.verDoAttack(actor);
  3200.     }
  3201.  
  3202.     verIoGiveTo(actor) = {}
  3203.     ioGiveTo(actor, dobj) = {
  3204.         if (isclass(dobj, CCR_treasure_item)) {
  3205.             "The troll catches your treasure and scurries 
  3206.             away out of sight.";
  3207.  
  3208.             dobj.moveInto(nil);
  3209.             self.ispaid := true;
  3210.         }
  3211.         else if( dobj = tasty_food) {
  3212.             self.doFeed(Me);
  3213.         }
  3214.         else {
  3215.             "The troll deftly catches "; dobj.thedesc;
  3216.             ", examines it carefully, and tosses it back, 
  3217.             declaring, \"Good workmanship, but it's not 
  3218.             valuable enough.\"";
  3219.         }
  3220.     }
  3221.  
  3222.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3223.     ioThrowAt(actor, dobj) = { self.ioGiveTo(actor, dobj); }
  3224.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3225.     ioThrowTo(actor, dobj) = { self.ioGiveTo(actor, dobj); }
  3226.  
  3227.     verDoFeed(actor) = {}
  3228.     doFeed(actor) = {
  3229.         if (tasty_food.isIn(Me)) {
  3230.             "Gluttony is not one of the troll's vices. 
  3231.             Avarice, however, is.";
  3232.         }
  3233.         else {
  3234.             "You have nothing the troll wants to eat.";
  3235.         }
  3236.     }
  3237. ;
  3238.  
  3239. In_Sloping_Corridor: CCR_room
  3240.     sdesc = "In Sloping Corridor"
  3241.     ldesc = {
  3242.         I(); "You are in a long winding corridor sloping out 
  3243.         of sight in both directions.";
  3244.     }
  3245.     down = In_Large_Low_Room
  3246.     up = On_Sw_Side_Of_Chasm
  3247. ;
  3248.  
  3249. In_Secret_Canyon: CCR_room
  3250.     enteredfrom = nil
  3251.  
  3252.     sdesc = "In Secret Canyon"
  3253.     ldesc = {
  3254.         I(); "You are in a secret canyon which exits to the 
  3255.         north and east."; P();
  3256.  
  3257.         I();
  3258.         if (Dragon.isIn(self))
  3259.             "A huge green fierce dragon bars the way!";
  3260.         else
  3261.             DragonCorpse.ldesc;
  3262.     }
  3263.     north = {
  3264.         if (self.enteredfrom = In_Secret_N_S_Canyon_0) {
  3265.             return self.enteredfrom;
  3266.         }
  3267.         else {
  3268.             if (self.dragoncheck)
  3269.                 return In_Secret_N_S_Canyon_0;
  3270.             else
  3271.                 return nil;
  3272.         }
  3273.     }
  3274.     east = {
  3275.         if (self.enteredfrom = In_Secret_E_W_Canyon) {
  3276.             return self.enteredfrom;
  3277.         }
  3278.         else {
  3279.             if (self.dragoncheck)
  3280.                 return In_Secret_E_W_Canyon;
  3281.             else
  3282.                 return nil;
  3283.         }
  3284.     }
  3285.  
  3286.     forwards = {
  3287.         if (self.enteredfrom = In_Secret_N_S_Canyon_0)
  3288.             return self.east;
  3289.         else
  3290.             return self.north;
  3291.     }
  3292.     out = {
  3293.         if (self.enteredfrom = In_Secret_N_S_Canyon_0)
  3294.             return self.north;
  3295.         else
  3296.             return self.east;
  3297.     }
  3298.  
  3299.     dragoncheck = {
  3300.         if (Dragon.isIn(self)) {
  3301.             "The dragon looks rather nasty.  You'd best 
  3302.             not try to get by.";
  3303.  
  3304.             return nil;
  3305.         }
  3306.         else
  3307.             return true;
  3308.     }
  3309.  
  3310.     //
  3311.     // Let NPC's by the dragon without incident (they're all on
  3312.     // the same team, after all).
  3313.     //
  3314.     NPCexit1 = In_Secret_N_S_Canyon_0
  3315.     NPCexit2 = In_Secret_E_W_Canyon
  3316. ;
  3317. Dragon: CCR_decoration
  3318.     rhetoricalturn = -999    // hack -- see yesVerb in ccr-verbs.t
  3319.     
  3320.     sdesc = "dragon"
  3321.     ldesc = "I wouldn't mess with it if I were you."
  3322.     location = In_Secret_Canyon
  3323.     noun = 'dragon' 'monster' 'beast' 'lizard'
  3324.     adjective = 'huge' 'green' 'fierce' 'scaly' 'giant' 'ferocious'
  3325.  
  3326.     verDoKick(actor) = {}
  3327.     doKick(actor) = {
  3328.         "Right idea, wrong limb.";
  3329.     }
  3330.  
  3331.     verDoAttack(actor) = {}
  3332.     doAttack(actor) = {
  3333.         "With what?  Your bare hands?";
  3334.         self.rhetoricalturn := global.turnsofar;
  3335.     }
  3336.     verDoAttackWith(actor, io) = {}
  3337.     doAttackWith(actor, io) = {
  3338.         if (io = axe)
  3339.             "The axe bounces harmlessly off the dragon's 
  3340.             thick scales.";
  3341.         else if (io = Hands) {
  3342.             self.kill;
  3343.         }
  3344.         else {
  3345.             "You'd probably be better off using your
  3346.             bare hands than that thing!";
  3347.         }
  3348.     }
  3349.  
  3350.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3351.     ioThrowAt(actor, dobj) = {
  3352.         if (dobj = axe)
  3353.             self.doAttackWith(actor, dobj);
  3354.         else
  3355.             self.ioGiveTo(actor, dobj);
  3356.     }
  3357.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3358.     ioThrowTo(actor, dobj) = {
  3359.         if (dobj = axe)
  3360.             self.doAttackWith(actor, dobj);
  3361.         else
  3362.             self.ioGiveTo(actor, dobj);
  3363.     }
  3364.  
  3365.     kill = {
  3366.         "Congratulations!  You have just vanquished a 
  3367.         dragon with your bare hands!  (Unbelievable, 
  3368.         isn't it?)";
  3369.  
  3370.         DragonCorpse.moveInto(self.location);
  3371.         self.moveInto(nil);
  3372.     }
  3373. ;
  3374. DragonCorpse: CCR_decoration
  3375.     sdesc = "dragon"
  3376.     ldesc = {
  3377.         "The body of a huge green dead dragon is lying off to 
  3378.         one side.";
  3379.     }
  3380.     location = nil
  3381.     noun = 'dragon' 'corpse'
  3382.     adjective = 'dead'
  3383.     
  3384.     verDoKick(actor) = { "You've already done enough damage!"; }
  3385.     verDoAttack(actor) = { self.verDoKick(actor); }
  3386.     verDoAttackWith(actor, io) = { self.verDoKick(actor); }
  3387. ;
  3388.  
  3389. On_Ne_Side_Of_Chasm: CCR_room, NoNPC
  3390.     sdesc = "On NE Side of Chasm"
  3391.     ldesc = {
  3392.         I(); "You are on the far side of the chasm.  A 
  3393.         northeast path leads away from the chasm on this 
  3394.         side. ";
  3395.  
  3396.         RicketyBridge.xdesc;
  3397.  
  3398.         if (Troll.location = nil) {
  3399.             P(); I();
  3400.             "The troll is nowhere to be seen.";
  3401.         }
  3402.     }
  3403.     ne = In_Corridor
  3404.  
  3405.     across = { return self.over; }
  3406.     cross = { return self.over; }
  3407.     sw = { return self.over; }
  3408.     over = {
  3409.         RicketyBridge.doCross(Me);
  3410.         return nil;
  3411.     }
  3412.     
  3413.     jump = {
  3414.         if (RicketyBridge.exists) {
  3415.             "I respectfully suggest you go across the 
  3416.             bridge instead of jumping.";
  3417.  
  3418.             return nil;
  3419.         }
  3420.         else
  3421.             return didnt_make_it.death;
  3422.     }
  3423.  
  3424.     fork = At_Fork_In_Path
  3425.     view = At_Breath_Taking_View
  3426.     barren = In_Front_Of_Barren_Room
  3427. ;
  3428.  
  3429. In_Corridor: CCR_room, NoNPC
  3430.     sdesc = "In Corridor"
  3431.     ldesc = {
  3432.         I(); "You're in a long east/west corridor.  A faint 
  3433.         rumbling noise can be heard in the distance.";
  3434.     }
  3435.     west = On_Ne_Side_Of_Chasm
  3436.     east = At_Fork_In_Path
  3437.     fork = At_Fork_In_Path
  3438.     view = At_Breath_Taking_View
  3439.     barren = In_Front_Of_Barren_Room
  3440. ;
  3441.  
  3442. At_Fork_In_Path: CCR_room, NoNPC
  3443.     sdesc = "At Fork in Path"
  3444.     ldesc = {
  3445.         I(); "The path forks here.  The left fork leads 
  3446.         northeast.  A dull rumbling seems to get louder in 
  3447.         that direction.  The right fork leads southeast down 
  3448.         a gentle slope.  The main corridor enters from the 
  3449.         west.";
  3450.     }
  3451.     west = In_Corridor
  3452.     ne = At_Junction_With_Warm_Walls
  3453.     left = At_Junction_With_Warm_Walls
  3454.     se = In_Limestone_Passage
  3455.     right = In_Limestone_Passage
  3456.     down = In_Limestone_Passage
  3457.     view = At_Breath_Taking_View
  3458.     barren = In_Front_Of_Barren_Room
  3459. ;
  3460.  
  3461. At_Junction_With_Warm_Walls: CCR_room, NoNPC
  3462.     sdesc = "At Junction With Warm Walls"
  3463.     ldesc = {
  3464.         I(); "The walls are quite warm here.  From the north 
  3465.         can be heard a steady roar, so loud that the entire 
  3466.         cave seems to be trembling.  Another passage leads 
  3467.         south, and a low crawl goes east.";
  3468.     }
  3469.     south = At_Fork_In_Path
  3470.     fork = At_Fork_In_Path
  3471.     north = At_Breath_Taking_View
  3472.     view = At_Breath_Taking_View
  3473.     east = In_Chamber_Of_Boulders
  3474.     crawl = In_Chamber_Of_Boulders
  3475. ;
  3476.  
  3477. At_Breath_Taking_View: CCR_room, NoNPC
  3478.     sdesc = "At Breath-Taking View"
  3479.     ldesc = {
  3480.         I(); "You are on the edge of a breath-taking view. Far 
  3481.         below you is an active volcano, from which great 
  3482.         gouts of molten lava come surging out, cascading back 
  3483.         down into the depths.  The glowing rock fills the 
  3484.         farthest reaches of the cavern with a blood-red 
  3485.         glare, giving everything an eerie, macabre 
  3486.         appearance. The air is filled with flickering sparks 
  3487.         of ash and a heavy smell of brimstone.  The walls are 
  3488.         hot to the touch, and the thundering of the volcano 
  3489.         drowns out all other sounds.  Embedded in the jagged 
  3490.         roof far overhead are myriad twisted formations 
  3491.         composed of pure white alabaster, which scatter the 
  3492.         murky light into sinister apparitions upon the walls. 
  3493.         To one side is a deep gorge, filled with a bizarre 
  3494.         chaos of tortured rock which seems to have been 
  3495.         crafted by the devil himself.  An immense river of 
  3496.         fire crashes out from the depths of the volcano, 
  3497.         burns its way through the gorge, and plummets into a 
  3498.         bottomless pit far off to your left.  To the right, 
  3499.         an immense geyser of blistering steam erupts 
  3500.         continuously from a barren island in the center of a 
  3501.         sulfurous lake, which bubbles ominously.  The far 
  3502.         right wall is aflame with an incandescence of its 
  3503.         own, which lends an additional infernal splendor to 
  3504.         the already hellish scene.  A dark, forboding passage 
  3505.         exits to the south.";
  3506.     }
  3507.     south = At_Junction_With_Warm_Walls
  3508.     passage = At_Junction_With_Warm_Walls
  3509.     out = At_Junction_With_Warm_Walls
  3510.     fork = At_Fork_In_Path
  3511.     jump = { return self.down; }
  3512.     down = {
  3513.         "Don't be ridiculous!";
  3514.         return nil;
  3515.     }
  3516. ;
  3517. Volcano: decoration
  3518.     sdesc = "active volcano"
  3519.     ldesc = {
  3520.         "Great gouts of molten lava come surging out of the 
  3521.         volvano and go cascading back down into the depths.  
  3522.         The glowing rock fills the farthest reaches of the 
  3523.         cavern with a blood-red glare, giving everything an 
  3524.         eerie, macabre appearance.";
  3525.     }
  3526.     location = At_Breath_Taking_View
  3527.     noun = 'volcano' 'rock'
  3528.     adjective = 'active' 'glowing' 'blood' 'blood-red' 'red' 'eerie'
  3529.         'macabre'
  3530. ;
  3531. Sparks: decoration
  3532.     sdesc = "sparks of ash"
  3533.     adesc = { self.sdesc; }
  3534.     ldesc = {
  3535.         "The sparks too far away for you to get a good look at 
  3536.         them.";
  3537.     }
  3538.     location = At_Breath_Taking_View
  3539.     noun = 'spark' 'sparks' 'ash' 'air'
  3540.     adjective = 'flickering'
  3541. ;
  3542. JaggedRoof: decoration
  3543.     sdesc = "jagged roof"
  3544.     ldesc = {
  3545.         "Embedded in the jagged roof far overhead are myriad 
  3546.         twisted formations composed of pure white alabaster, 
  3547.         which scatter the murky light into sinister 
  3548.         apparitions upon the walls.";
  3549.     }
  3550.     location = At_Breath_Taking_View
  3551.     noun = 'roof' 'formations' 'light' 'apparaitions'
  3552.     adjective = 'jagged' 'twsited' 'murky' 'sinister'
  3553. ;
  3554. DeepGorge: decoration
  3555.     sdesc = "deep gorge"
  3556.     ldesc = {
  3557.         "The gorge is filled with a bizarre chaos of tortured 
  3558.         rock which seems to have been crafted by the devil 
  3559.         himself.";
  3560.     }
  3561.     location = At_Breath_Taking_View
  3562.     noun = 'gorge' 'chaos' 'rock'
  3563.     adjective = 'deep' 'bizarre' 'tortured'
  3564. ;
  3565. RiverOfFire: decoration
  3566.     sdesc = "river of fire"
  3567.     ldesc = {
  3568.         "The river of fire crashes out from the depths of the 
  3569.         volcano, burns its way through the gorge, and 
  3570.         plummets into a bottomless pit far off to your 
  3571.         left.";
  3572.     }
  3573.     location = At_Breath_Taking_View
  3574.     noun = 'river' 'fire' 'depth' 'pit'
  3575.     adjective = 'fire' 'firey' 'bottomless'
  3576. ;
  3577. Geyser: decoration
  3578.     sdesc = "immense geyser"
  3579.     ldesc = {
  3580.         "The geyser of blistering steam erupts continuously 
  3581.         from a barren island in the center of a sulfurous 
  3582.         lake, which bubbles ominously.";
  3583.     }
  3584.     location = At_Breath_Taking_View
  3585.     noun = 'geyser' 'steam' 'island' 'lake'
  3586.     adjective = 'immense' 'blistering' 'barren' 'sulfrous'
  3587.         'sulferous' 'sulpherous' 'sulphrous' 'bubbling'
  3588. ;
  3589.  
  3590. In_Chamber_Of_Boulders: CCR_room, NoNPC
  3591.     sdesc = "In Chamber of Boulders"
  3592.     ldesc = {
  3593.         I(); "You are in a small chamber filled with large 
  3594.         boulders.  The walls are very warm, causing the air 
  3595.         in the room to be almost stifling from the heat.  The 
  3596.         only exit is a crawl heading west, through which is 
  3597.         coming a low rumbling.";
  3598.     }
  3599.     west = At_Junction_With_Warm_Walls
  3600.     out = At_Junction_With_Warm_Walls
  3601.     crawl = At_Junction_With_Warm_Walls
  3602.     fork = At_Fork_In_Path
  3603.     view = At_Breath_Taking_View
  3604. ;
  3605. ChamberBoulders: CCR_decoration
  3606.     sdesc = "boulders"
  3607.     ldesc = "They're just ordinary boulders.  They're warm."
  3608.     noun = 'boulder' 'boulders' 'rocks' 'stones'
  3609.     location = In_Chamber_Of_Boulders
  3610. ;
  3611.  
  3612. In_Limestone_Passage: CCR_room, NoNPC
  3613.     sdesc = "In Limestone Passage"
  3614.     ldesc = {
  3615.         I(); "You are walking along a gently sloping 
  3616.         north/south passage lined with oddly shaped limestone 
  3617.         formations.";
  3618.     }
  3619.     north = At_Fork_In_Path
  3620.     up = At_Fork_In_Path
  3621.     fork = At_Fork_In_Path
  3622.     south = In_Front_Of_Barren_Room
  3623.     down = In_Front_Of_Barren_Room
  3624.     barren = In_Front_Of_Barren_Room
  3625.     view = At_Breath_Taking_View
  3626. ;
  3627. LimestoneFormations: decoration
  3628.     sdesc = "limestone formations"
  3629.     ldesc = {
  3630.         "Every now and then a particularly strange shape
  3631.         catches your eye.";
  3632.     }
  3633.     location = In_Limestone_Passage
  3634.     noun = 'formations' 'shape' 'shapes'
  3635.     adjective = 'lime' 'limestone' 'stone' 'oddly' 'shaped'
  3636.         'oddly-shaped'
  3637. ;
  3638.  
  3639.  
  3640. In_Front_Of_Barren_Room: CCR_room, NoNPC
  3641.     sdesc = "In Front of Barren Room"
  3642.     ldesc = {
  3643.         I(); "You are standing at the entrance to a large, 
  3644.         barren room.  A sign posted above the entrance reads: 
  3645.         \"Caution!  Bear in room!\"";
  3646.     }
  3647.     west = In_Limestone_Passage
  3648.     up = In_Limestone_Passage
  3649.     fork = At_Fork_In_Path
  3650.     east = In_Barren_Room
  3651.     in = In_Barren_Room
  3652.     barren = In_Barren_Room
  3653.     enter = In_Barren_Room
  3654.     view = At_Breath_Taking_View
  3655. ;
  3656. BarrenSign: CCR_decoration, readable
  3657.     sdesc = "sign"
  3658.     ldesc = { self.readdesc; }
  3659.     readdesc = {
  3660.         "The sign reads, \"Caution!  Bear in room!\"";
  3661.     }
  3662.  
  3663.     noun = 'sign'
  3664.     adjective = 'barren' 'room'
  3665.  
  3666.     location = In_Front_Of_Barren_Room
  3667. ;
  3668.  
  3669. In_Barren_Room: CCR_room, NoNPC
  3670.     sdesc = "In Barren Room"
  3671.     ldesc = {
  3672.         I(); "You are inside a barren room.  The center of 
  3673.         the room is completely empty except for some dust.  
  3674.         Marks in the dust lead away toward the far end of the 
  3675.         room.  The only exit is the way you came in.";
  3676.     }
  3677.     west = In_Front_Of_Barren_Room
  3678.     out = In_Front_Of_Barren_Room
  3679.     fork = At_Fork_In_Path
  3680.     view = At_Breath_Taking_View
  3681. ;
  3682. Dust: CCR_decoration
  3683.     sdesc = "dust"
  3684.     ldesc = { "It just looks like ordinary dust."; }
  3685.     location = In_Barren_Room
  3686.     noun = 'dust' 'marks'
  3687. ;
  3688. Bear: Actor
  3689.     rhetoricalturn = -999    // hack -- see yesVerb in ccr-verbs.t
  3690.  
  3691.     exists = true
  3692.  
  3693.     istame = nil        // has the bear been fed?
  3694.     isfollowing = nil    // is the bear following the player?
  3695.     wasreleased = nil    // has the bear been unchained yet?
  3696.  
  3697.     sdesc = "large bear"
  3698.     ldesc = {
  3699.         "The bear is extremely large, ";
  3700.  
  3701.         if (self.istame)
  3702.             "but appears to be friendly.";
  3703.         else
  3704.             "and seems quite ferocious!";
  3705.     }
  3706.  
  3707.     //
  3708.     // Can't use actorDesc because we our location is a method,
  3709.     // so we're not ever really contained in a room.  We've
  3710.     // hacked adv.t to make this work by checking the bear
  3711.     // explicitly.
  3712.     //
  3713.     actorDesc = {
  3714.         if (self.isIn(Me.location)) {
  3715.             P(); I();
  3716.  
  3717.             if (self.isfollowing) {
  3718.                 "You are being followed by a very 
  3719.                 large, tame bear.";
  3720.             }
  3721.             else if (self.istame) {
  3722.                 if (not self.wasreleased and
  3723.                 self.isIn(In_Barren_Room)) {
  3724.  
  3725.                     "There is a gentle cave bear 
  3726.                     sitting placidly in one 
  3727.                     corner.";
  3728.                 }
  3729.                 else
  3730.                     "There is a contented-looking 
  3731.                     bear wandering about 
  3732.                     nearby.";
  3733.             }
  3734.             else {
  3735.                 "There is a ferocious cave bear 
  3736.                 eyeing you from the far end of the 
  3737.                 room!";
  3738.             }
  3739.         }
  3740.     }
  3741.  
  3742.     noun = 'bear'
  3743.     adjective = 'large' 'tame' 'ferocious' 'cave'
  3744.  
  3745.     locationOK = true    // tell compiler OK for location to be method
  3746.     location = {
  3747.         if (self.exists) {
  3748.             if (self.isfollowing)
  3749.                 return Me.location;
  3750.             else
  3751.                 return In_Barren_Room;
  3752.         }
  3753.         else
  3754.             return nil;
  3755.     }
  3756.  
  3757.     verDoKick(actor) =  {
  3758.         if (self.istame)
  3759.             self.onlyfriend;
  3760.         else
  3761.             "You obviously have not fully grasped the 
  3762.             gravity of the situation.  Do get a grip on 
  3763.             yourself.";
  3764.     }
  3765.     verDoAttack(actor) = {
  3766.         if (self.istame)
  3767.             self.onlyfriend;
  3768.         else if (not axe.isIn(Me))
  3769.             self.bearhands;
  3770.     }
  3771.     doAttack(actor) = { self.doAttackWith(actor, axe); }
  3772.  
  3773.     verDoAttackWith(actor, io) = {
  3774.         if (self.istame)
  3775.             self.onlyfriend;
  3776.     }
  3777.     doAttackWith(actor, io) = {
  3778.         //
  3779.         // If the player throws the axe at the bear, the
  3780.         // axe misses and becomes inaccessible.  (Doh!)
  3781.         //
  3782.         if (io = axe) {
  3783.             "The axe misses and lands near the bear where 
  3784.             you can't get at it.";
  3785.  
  3786.             axe.moveInto(self.location);
  3787.             axe.nograb := true;        // little hack
  3788.         }
  3789.         else if (io = Hands)
  3790.             self.nicetry;
  3791.         else
  3792.             self.verDoAttack(actor);
  3793.     }
  3794.  
  3795.     onlyfriend = {
  3796.         "The bear is confused; he only wants to be your 
  3797.         friend.";
  3798.     }
  3799.     bearhands = {
  3800.         "With what?  Your bare hands?  Against *his* bear 
  3801.         hands??";
  3802.  
  3803.         self.rhetoricalturn := global.turnsofar;
  3804.     }
  3805.     nicetry = {
  3806.         "Nice try, but sorry.";
  3807.     }
  3808.     
  3809.     verIoGiveTo(actor) = {}
  3810.     ioGiveTo(actor, dobj) = {
  3811.         if (dobj = tasty_food) {
  3812.             self.doFeed(Me);
  3813.         }
  3814.         else {
  3815.             if (self.istame)
  3816.                 "The bear doesn't seem very 
  3817.                 interested in your offer.";
  3818.             else
  3819.                 "Uh-oh -- your offer only makes the bear 
  3820.                 angrier!";
  3821.         }
  3822.     }
  3823.  
  3824.     verIoThrowAt(actor) = { self.verIoGiveTo(actor); }
  3825.     ioThrowAt(actor, dobj) = {
  3826.         if (dobj = axe)
  3827.             self.doAttackWith(actor, dobj);
  3828.         else
  3829.             self.ioGiveTo(actor, dobj);
  3830.     }
  3831.     verIoThrowTo(actor) = { self.verIoGiveTo(actor); }
  3832.     ioThrowTo(actor, dobj) = {
  3833.         if (dobj = axe)
  3834.             self.doAttackWith(actor, dobj);
  3835.         else
  3836.             self.ioGiveTo(actor, dobj);
  3837.     }
  3838.  
  3839.     verDoFeed(actor) = {}
  3840.     doFeed(actor) = {
  3841.         if (tasty_food.isIn(Me)) {
  3842.             "The bear eagerly wolfs down your food, after 
  3843.             which he seems to calm down considerably and 
  3844.             even becomes rather friendly.";
  3845.  
  3846.             tasty_food.moveInto(nil);
  3847.             self.istame := true;
  3848.             axe.nograb := nil;
  3849.         }
  3850.         else if (self.istame) {
  3851.             "You have nothing left to give the bear.";
  3852.         }
  3853.         else {
  3854.             "The bear seems more likely to eat *you*
  3855.             than anything you've got on you!";
  3856.         }
  3857.     }
  3858.  
  3859.     verDoDrop(actor) = {
  3860.         if (not self.isfollowing)
  3861.             "The bear isn't following you.";
  3862.     }
  3863.     doDrop(actor) = {
  3864.         if (Troll.isIn(Me.location)) {
  3865.             "The bear lumbers toward the troll, who lets 
  3866.             out a startled shriek and scurries away.  The 
  3867.             bear soon gives up the pursuit and wanders 
  3868.             back.";
  3869.  
  3870.             Troll.moveInto(nil);
  3871.             self.isfollowing := nil;
  3872.         }
  3873.         else {
  3874.             "The bear wanders away from you.";
  3875.         }
  3876.     }
  3877.  
  3878.     verDoTake(actor) = {
  3879.         if (not self.istame)
  3880.             "Surely you're joking!";
  3881.         else if (not self.wasreleased)
  3882.             "The bear is still chained to the wall.";
  3883.     }
  3884.     doTake(actor) = {
  3885.         self.isfollowing := true;
  3886.         "Ok, the bear's now following you around.";
  3887.     }
  3888. ;
  3889.  
  3890. Different_Maze_3: CCR_room
  3891.     sdesc = "Maze of Twisting Little Passage, All Different"
  3892.     ldesc = {
  3893.         I(); "You are in a maze of twisting little passages, 
  3894.         all different.";
  3895.     }
  3896.     west = Different_Maze_1
  3897.     se = Different_Maze_4
  3898.     nw = Different_Maze_5
  3899.     sw = Different_Maze_6
  3900.     ne = Different_Maze_7
  3901.     up = Different_Maze_8
  3902.     down = Different_Maze_9
  3903.     north = Different_Maze_10
  3904.     south = Different_Maze_11
  3905.     east = Different_Maze_2
  3906. ;
  3907.  
  3908. Different_Maze_4: CCR_room
  3909.     sdesc = "Little Maze of Twisty Passages, All Different"
  3910.     ldesc = {
  3911.         I(); "You are in a little maze of twisty passages, 
  3912.         all different.";
  3913.     }
  3914.     nw = Different_Maze_1
  3915.     up = Different_Maze_3
  3916.     north = Different_Maze_5
  3917.     south = Different_Maze_6
  3918.     west = Different_Maze_7
  3919.     sw = Different_Maze_8
  3920.     ne = Different_Maze_9
  3921.     east = Different_Maze_10
  3922.     down = Different_Maze_11
  3923.     se = Different_Maze_2
  3924. ;
  3925.  
  3926. Different_Maze_5: CCR_room
  3927.     sdesc = "Twisting Maze of Little Passages, All Different"
  3928.     ldesc = {
  3929.         I(); "You are in a twisting maze of little passages, 
  3930.         all different.";
  3931.     }
  3932.     up = Different_Maze_1
  3933.     down = Different_Maze_3
  3934.     west = Different_Maze_4
  3935.     ne = Different_Maze_6
  3936.     sw = Different_Maze_7
  3937.     east = Different_Maze_8
  3938.     north = Different_Maze_9
  3939.     nw = Different_Maze_10
  3940.     se = Different_Maze_11
  3941.     south = Different_Maze_2
  3942. ;
  3943.  
  3944. Different_Maze_6: CCR_room
  3945.     sdesc = "Twisting Little Maze of Passages, All Different"
  3946.     ldesc = {
  3947.         I(); "You are in a twisting little maze of passages, 
  3948.         all different.";
  3949.     }
  3950.     ne = Different_Maze_1
  3951.     north = Different_Maze_3
  3952.     nw = Different_Maze_4
  3953.     se = Different_Maze_5
  3954.     east = Different_Maze_7
  3955.     down = Different_Maze_8
  3956.     south = Different_Maze_9
  3957.     up = Different_Maze_10
  3958.     west = Different_Maze_11
  3959.     sw = Different_Maze_2
  3960. ;
  3961.  
  3962. Different_Maze_7: CCR_room
  3963.     sdesc = "Twisty Little Maze of Passages, All Different"
  3964.     ldesc = {
  3965.         I(); "You are in a twisty little maze of passages, 
  3966.         all different.";
  3967.     }
  3968.     north = Different_Maze_1
  3969.     se = Different_Maze_3
  3970.     down = Different_Maze_4
  3971.     south = Different_Maze_5
  3972.     east = Different_Maze_6
  3973.     west = Different_Maze_8
  3974.     sw = Different_Maze_9
  3975.     ne = Different_Maze_10
  3976.     nw = Different_Maze_11
  3977.     up = Different_Maze_2
  3978. ;
  3979.  
  3980. Different_Maze_8: CCR_room
  3981.     sdesc = "Twisty Maze of Little Passages, All Different"
  3982.     ldesc = {
  3983.         I(); "You are in a twisty maze of little passages, 
  3984.         all different.";
  3985.     }
  3986.     east = Different_Maze_1
  3987.     west = Different_Maze_3
  3988.     up = Different_Maze_4
  3989.     sw = Different_Maze_5
  3990.     down = Different_Maze_6
  3991.     south = Different_Maze_7
  3992.     nw = Different_Maze_9
  3993.     se = Different_Maze_10
  3994.     ne = Different_Maze_11
  3995.     north = Different_Maze_2
  3996. ;
  3997.  
  3998. Different_Maze_9: CCR_room
  3999.     sdesc = "Little Twisty Maze of Passages, All Different"
  4000.     ldesc = {
  4001.         I(); "You are in a little twisty maze of passages, 
  4002.         all different.";
  4003.     }
  4004.     se = Different_Maze_1
  4005.     ne = Different_Maze_3
  4006.     south = Different_Maze_4
  4007.     down = Different_Maze_5
  4008.     up = Different_Maze_6
  4009.     nw = Different_Maze_7
  4010.     north = Different_Maze_8
  4011.     sw = Different_Maze_10
  4012.     east = Different_Maze_11
  4013.     west = Different_Maze_2
  4014. ;
  4015.  
  4016. Different_Maze_10: CCR_room
  4017.     sdesc = "Maze of Little Twisting Passages, All Different"
  4018.     ldesc = {
  4019.         I(); "You are in a maze of little twisting passages, 
  4020.         all different.";
  4021.     }
  4022.     down = Different_Maze_1
  4023.     east = Different_Maze_3
  4024.     ne = Different_Maze_4
  4025.     up = Different_Maze_5
  4026.     west = Different_Maze_6
  4027.     north = Different_Maze_7
  4028.     south = Different_Maze_8
  4029.     se = Different_Maze_9
  4030.     sw = Different_Maze_11
  4031.     nw = Different_Maze_2
  4032. ;
  4033.  
  4034. Different_Maze_11: CCR_room
  4035.     sdesc = "Maze of Little Twisty Passages, All Different"
  4036.     ldesc = {
  4037.         I(); "You are in a maze of little twisty passages, 
  4038.         all different.";
  4039.     }
  4040.     sw = Different_Maze_1
  4041.     nw = Different_Maze_3
  4042.     east = Different_Maze_4
  4043.     west = Different_Maze_5
  4044.     north = Different_Maze_6
  4045.     down = Different_Maze_7
  4046.     se = Different_Maze_8
  4047.     up = Different_Maze_9
  4048.     south = Different_Maze_10
  4049.     ne = Different_Maze_2
  4050. ;
  4051.  
  4052. /*
  4053.  * We don't allow NPC's here because it would be *really* bogus
  4054.  * if the pirate stole the batteries right after the player bought
  4055.  * them.
  4056.  */
  4057. Dead_End_14: CCR_dead_end_room, NoNPC
  4058.     sdesc = "At a Dead End, in Front of a Massive Vending Machine"
  4059.     ldesc = {
  4060.         I(); "You have reached a dead end. There is a massive 
  4061.         vending machine here.";
  4062.  
  4063.         if (PirateMessage.isIn(self)) {
  4064.             P();
  4065.             I(); "Hmmm...  There is a message here 
  4066.             scrawled in the dust in a flowery script.";
  4067.         }
  4068.     }
  4069.  
  4070.     north = Different_Maze_2
  4071.     out = Different_Maze_2
  4072. ;
  4073. VendingMachine: CCR_decoration, readable
  4074.     sdesc = "vending machine"
  4075.     ldesc = { self.readdesc; }
  4076.     readdesc = {
  4077.         "The instructions on the vending machine read, 
  4078.         \"Insert coins to receive fresh batteries.\"";
  4079.     }
  4080.     location = Dead_End_14
  4081.     noun = 'machine' 'slot'
  4082.     adjective = 'vending' 'massive' 'battery' 'coin'
  4083.  
  4084.     verIoPutIn(actor) = {}
  4085.     ioPutIn(actor, dobj) = {
  4086.         if (dobj = rare_coins) {
  4087.             "Soon after you insert the coins in the coin 
  4088.             slot, the vending machines makes a griding 
  4089.             sound, and a set of fresh batteries falls at 
  4090.             your feet.";
  4091.  
  4092.             dobj.moveInto(nil);
  4093.             fresh_batteries.moveInto(self.location);
  4094.         }
  4095.         else {
  4096.             "The machine seems to be designed to take 
  4097.             coins.";
  4098.         }
  4099.     }
  4100.  
  4101.     verDoKick(actor) = {}
  4102.     doKick(actor) = {
  4103.         "<WHUMP!> You boot the machine, but to no avail.";
  4104.     }
  4105.     verDoBreak(actor) = {}
  4106.     doBreak(actor) = {
  4107.         "The machine is quite stury and survives your attack
  4108.         without getting so much as a scratch.";
  4109.     }
  4110.     verDoAttack(actor) = { self.verDoBreak(actor); }
  4111.     doAttack(actor) = { self.doBreak(actor); }
  4112.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  4113.     doAttackWith(actor) = { self.doAttack(actor); }
  4114.  
  4115.     verDoLookbehind(actor) = {
  4116.         "You don't find anything behind the vending machine.";
  4117.     }
  4118.     verDoLookunder(actor) = {
  4119.         "You don't find anything behind the under machine.";
  4120.     }
  4121.     verDoMove(actor) = { "The vending machine is far too heavy to move."; }
  4122. ;
  4123. PirateMessage: CCR_decoration, readable
  4124.     sdesc = "message in the dust"
  4125.     ldesc = {
  4126.         "The message reads, \"This is not the maze where the 
  4127.         pirate leaves his treasure chest.\"";
  4128.     }
  4129.     noun = 'message' 'scrawl' 'writing' 'script'
  4130.     adjective = 'scrawled' 'flowery'
  4131.     location = nil    // moved to Dead_End_14 when pirate spotted
  4132. ;
  4133.  
  4134. /*
  4135.  * Endgame locations
  4136.  *
  4137.  * We make these NoNPC rooms so that dwarves and pirate don't get
  4138.  * teleported here when (if) they get stuck trying to move around
  4139.  * the cave.  (The dwarves in here aren't real actors because they
  4140.  * kill the player immediately if they're awake.)
  4141.  */
  4142. At_Ne_End: CCR_room, lightroom, NoNPC
  4143.     sdesc = "At NE End"
  4144.     ldesc = {
  4145.         I(); "You are at the northeast end of an immense 
  4146.         room, even larger than the giant room.  It appears to 
  4147.         be a repository for the \"Adventure\" program.  
  4148.         Massive torches far overhead bathe the room with 
  4149.         smoky yellow light.  Scattered about you can be seen 
  4150.         a pile of bottles (all of them empty), a nursery of 
  4151.         young beanstalks murmuring quietly, a bed of oysters, 
  4152.         a bundle of black rods with rusty stars on their 
  4153.         ends, and a collection of brass lanterns.  Off to one 
  4154.         side a great many dwarves are sleeping on the floor, 
  4155.         snoring loudly.  A sign nearby reads: \"Do not 
  4156.         disturb the dwarves!\""; P();
  4157.  
  4158.         I(); "An immense mirror is hanging against one wall, 
  4159.         and stretches to the other end of the room, where 
  4160.         various other sundry objects can be glimpsed dimly in 
  4161.         the distance.";
  4162.     }
  4163.     sw = At_Sw_End
  4164. ;
  4165. Mirror_2: CCR_decoration
  4166.     sdesc = "enormous mirror"
  4167.     ldesc = "It looks like an ordinary, albeit enormous, mirror."
  4168.     noun = 'mirror'
  4169.     adjective = 'enormous' 'huge' 'big' 'large' 'suspended'
  4170.         'hanging' 'vanity' 'dwarvish'
  4171.  
  4172.     locationOK = true    // OK for location to be method
  4173.     location = {
  4174.         if (Me.isIn(At_Ne_End))
  4175.             return At_Ne_End;
  4176.         else
  4177.             return At_Sw_End;
  4178.     }
  4179.  
  4180.     verDoBreak(actor) = {}
  4181.     doBreak(actor) = {
  4182.         "You strike the mirror a resounding blow, whereupon 
  4183.         it shatters into a myriad tiny fragments.";
  4184.  
  4185.         //
  4186.         // A very bad move...
  4187.         //
  4188.         end_dwarves();
  4189.     }
  4190.     verDoAttack(actor) = { self.verDoBreak(actor); }
  4191.     doAttack(actor) = { self.doBreak(actor); }
  4192.     verDoAttackWith(actor, io) = { self.verDoAttack(actor); }
  4193.     doAttackWith(actor) = { self.doAttack(actor); }
  4194.     verDoKick(actor) = { self.verDoBreak(actor); }
  4195.     doKick(actor) = { self.doBreak(actor); }
  4196. ;
  4197. RepositoryStuff_1: CCR_decoration
  4198.     sdesc = "collection of adventure game materials"
  4199.     ldesc = {
  4200.         "You've seen everything in here already, albeit
  4201.         in somewhat different contexts.";
  4202.     }
  4203.     location = At_Ne_End
  4204.     noun = 'stuff' 'junk' 'materials' 'torches' 'objects'
  4205.     adjective = 'adventure' 'repository' 'massive' 'sundry'
  4206.  
  4207.     verifyRemove(actor) = {
  4208.         "Realizing that by removing the loot here you'd be 
  4209.         ruining the game for future players, you leave the 
  4210.         \"Adventure\" materials where they are.";
  4211.     }
  4212. ;
  4213. RepositoryDwarves: CCR_decoration
  4214.     sdesc = "sleeping dwarves"
  4215.     adesc = { self.sdesc; }
  4216.     ldesc = {
  4217.         "I wouldn't bother the dwarves if I were you.";
  4218.     }
  4219.     location = At_Ne_End
  4220.     noun = 'dwarf' 'dwarves'
  4221.     adjective = 'sleeping' 'snoring' 'dozing' 'snoozing'
  4222.  
  4223.     verDoWake(actor) = {}
  4224.     doWake(actor) = {
  4225.         "You prod the nearest dwarf, who wakes up grumpily, 
  4226.         takes one look at you, curses, and grabs for his 
  4227.         axe.";
  4228.  
  4229.         end_dwarves();
  4230.     }
  4231.     verDoAttack(actor) = {}
  4232.     doAttack(actor) = { self.doWake(actor); }
  4233.     verDoKick(actor) = {}
  4234.     doKick(actor) = { self.doWake(actor); }
  4235. ;
  4236. RepositoryPlant: CCR_decoration
  4237.     location = At_Ne_End
  4238. ;
  4239.  
  4240. At_Sw_End: CCR_room, lightroom, NoNPC
  4241.     sdesc = "At SW End"
  4242.     ldesc = {
  4243.         I(); "You are at the southwest end of the repository. 
  4244.         To one side is a pit full of fierce green snakes. On 
  4245.         the other side is a row of small wicker cages, each 
  4246.         of which contains a little sulking bird.  In one 
  4247.         corner is a bundle of black rods with rusty marks on 
  4248.         their ends.  A large number of velvet pillows are 
  4249.         scattered about on the floor. A vast mirror stretches 
  4250.         off to the northeast. At your feet is a large steel 
  4251.         grate, next to which is a sign which reads, 
  4252.         \"TREASURE VAULT. Keys in main office.\"";
  4253.     }
  4254.     ne = At_Ne_End
  4255.     down = {
  4256.         RepositoryGrate.doEnter(Me);
  4257.         return nil;
  4258.     }
  4259. ;
  4260. RepositoryGrate: fixeditem, keyedLockable
  4261.     isopen = nil
  4262.     islocked = true
  4263.     sdesc = "steel grate"
  4264.     ldesc = {
  4265.         "It just looks like an ordinary steel grate.";
  4266.  
  4267.         " It is ";
  4268.         if (self.isopen)
  4269.             "open.";
  4270.         else if (self.islocked) 
  4271.             "closed and locked.";
  4272.         else 
  4273.             "closed.";
  4274.     }
  4275.     noun = 'grate' 'lock' 'gate' 'grille'
  4276.     adjective = 'metal' 'strong' 'steel' 'open' 'closed' 'locked'
  4277.         'unlocked'
  4278.  
  4279.     location = At_Sw_End
  4280.  
  4281.     mykey = nil    // no key for this one
  4282.  
  4283.     verDoEnter(actor) = {}
  4284.     doEnter(actor) = {
  4285.         if (not Grate.islocked) {
  4286.             if (not Grate.isopen) {
  4287.                 "(Opening the grate first.)\b";
  4288.                 Grate.isopen := true;
  4289.                         
  4290.             }
  4291.             if (actor.isIn(Outside_Grate))
  4292.                 actor.travelTo(Below_The_Grate);
  4293.             else
  4294.                 actor.travelTo(Outside_Grate);
  4295.         }
  4296.         else {
  4297.             "You can't go through a locked steel grate!";
  4298.         }
  4299.     }
  4300.     
  4301.     verIoPutIn(actor) = { "You can't put anything in that! "; }
  4302.     verDoPick = { "You have no tools to pick the lock with."; }
  4303. ;
  4304.  
  4305. RepositoryStuff_2: CCR_decoration
  4306.     sdesc = "collection of adventure game materials"
  4307.     ldesc = {
  4308.         "You've seen everything in here already, albeit
  4309.         in somewhat different contexts.";
  4310.     }
  4311.     location = At_Sw_End
  4312.  
  4313.     verifyRemove(actor) = {
  4314.         "Realizing that by removing the loot here you'd be 
  4315.         ruining the game for future players, you leave the 
  4316.         \"Adventure\" meterials where they are.";
  4317.     }
  4318.  
  4319.     noun = 'pit' 'snake' 'snakes' 
  4320.     adjective = 'fierce' 'green'
  4321. ;
  4322.  
  4323. /*
  4324.  * Miscellaneous messages
  4325.  */
  4326. broken_neck: object
  4327.     death = {
  4328.         "You are at the bottom of the pit with a broken neck.";
  4329.         die();
  4330.         return nil;
  4331.     }
  4332. ;
  4333. didnt_make_it: object
  4334.     death = {
  4335.         "You didn't make it.";
  4336.         die();
  4337.         return nil;
  4338.     }
  4339. ;
  4340. crawled_around: object
  4341.     message = {
  4342.         "You have crawled around in some little holes and 
  4343.         wound up back in the main passage.";
  4344.  
  4345.         return nil;
  4346.     }
  4347. ;
  4348. wontfit: object
  4349.     message = {
  4350.         "Something you're carrying won't fit through the 
  4351.         tunnel with you. You'd best take inventory and drop 
  4352.         something.";
  4353.  
  4354.         return nil;
  4355.     }
  4356. ;
  4357.  
  4358. /*
  4359.  * Room feature decorations.
  4360.  * These don't give any new information, but they make the program
  4361.  * seem less brain-damaged.
  4362.  */
  4363. TheRoom: CCR_decoration
  4364.     sdesc = "room"
  4365.     ldesc = {
  4366.         // Upon "examine room" we just give the standard
  4367.         // description for the current location.
  4368.         Me.location.lookAround(true);
  4369.     }
  4370.     noun = 'room' 'anteroom' 'dark-room' 'darkroom'
  4371.     adjective = 'debris' 'low' 'twopit' 'large' 'lighted' 'slab'
  4372.         'giant' 'soft' 'oriental' 'dark' 'immense' 'barren'
  4373.         'bear-in' 'bearin'
  4374.     locationOK = true     // tell compiler OK for location to be method
  4375.     location = {
  4376.         return Me.location;    // always where player is
  4377.     }
  4378. ;
  4379. Hands: CCR_decoration    // the player's hands
  4380.     sdesc = "your hands"
  4381.     adesc = { self.sdesc; }
  4382.     thedesc = { self.sdesc; }
  4383.  
  4384.     ldesc = "The look pretty normal to me."
  4385.  
  4386.     noun = 'hands'
  4387.     adjective = 'my' 'bare' 'hands'
  4388.  
  4389.     locationOK = true     // tell compiler OK for location to be method
  4390.     location = {
  4391.         return Me.location;    // always where player is
  4392.     }
  4393. ;
  4394.  
  4395. class rfd: floatingdecoration
  4396.     ldesc = "You know as much as I do at this point."
  4397. ;
  4398. Crawl: rfd
  4399.     sdesc = "crawl"
  4400.     noun = 'crawl' 'crawls'
  4401.     adjective = 'cobble' 'low' 'wide' 'higher' 'dead' 'end' 'tight'
  4402.     loclist = [
  4403.         Below_The_Grate  In_Cobble_Crawl  In_Debris_Room
  4404.         In_Dirty_Passage  On_Brink_Of_Pit
  4405.         At_West_End_Of_Hall_Of_Mists  At_East_End_Of_Long_Hall
  4406.         At_Complex_Junction  In_Large_Low_Room  Dead_End_Crawl
  4407.         In_Tall_E_W_Canyon  In_Oriental_Room
  4408.         At_Junction_With_Warm_Walls  In_Chamber_Of_Boulders
  4409.     ]
  4410. ;
  4411. Chamber: rfd
  4412.     sdesc = "chamber"
  4413.     noun = 'chamber'
  4414.     adjective = 'small' 'splendid' 'south' 'side' 'west' 'large'
  4415.             'low' 'circular'
  4416.     loclist = [
  4417.         Below_The_Grate  In_Bird_Chamber  In_South_Side_Chamber
  4418.         In_West_Side_Chamber  In_Slab_Room  In_Plover_Room
  4419.         In_Chamber_Of_Boulders
  4420.     ]
  4421. ;
  4422. Passage: rfd
  4423.     sdesc = "passage"
  4424.     noun = 'passage' 'opening' 'openings' 'corridor' 'corridors'
  4425.         'path' 'paths'
  4426.     adjective = 'low' 'wide' 'plugged' 'good' 'east' 'small' 'twisty'
  4427.         'little' 'n/s' 'e/w' 'dirty' 'broken' 'high' 'long'
  4428.         'large' 'walking' 'sizeable' 'sizable' 'cavernous'
  4429.         'blocked' 'immense' 'gently' 'sloping' 'coral'
  4430.         'shallow' 'somewhat' 'steeper' 'dark' 'forboding'
  4431.     loclist = [
  4432.         In_Cobble_Crawl In_Debris_Room 
  4433.         In_Awkward_Sloping_E_W_Canyon In_Bird_Chamber 
  4434.         At_Top_Of_Small_Pit In_Hall_Of_Mists 
  4435.         On_East_Bank_Of_Fissure In_Nugget_Of_Gold_Room 
  4436.         In_Hall_Of_Mt_King At_West_End_Of_Twopit_Room 
  4437.         In_East_Pit In_West_Pit West_Side_Of_Fissure 
  4438.         Low_N_S_Passage In_South_Side_Chamber 
  4439.         In_West_Side_Chamber At_Y2 Jumble_Of_Rock 
  4440.         At_Window_On_Pit_1 In_Dirty_Passage On_Brink_Of_Pit 
  4441.         In_Pit In_Dusty_Rock_Room 
  4442.         At_West_End_Of_Hall_Of_Mists Alike_Maze_1 
  4443.         Alike_Maze_2 Alike_Maze_3 Alike_Maze_4 Dead_End_1 
  4444.         Dead_End_2 Dead_End_3 Alike_Maze_5 Alike_Maze_6 
  4445.         Alike_Maze_7 Alike_Maze_8 Alike_Maze_9 Dead_End_4 
  4446.         Alike_Maze_10 Dead_End_5 At_Brink_Of_Pit Dead_End_6 
  4447.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall 
  4448.         Crossover Dead_End_7 At_Complex_Junction In_Bedquilt 
  4449.         In_Swiss_Cheese_Room At_East_End_Of_Twopit_Room 
  4450.         In_Slab_Room In_Secret_N_S_Canyon_0 
  4451.         In_Secret_N_S_Canyon_1 
  4452.         At_Junction_Of_Three_Secret_Canyons In_Large_Low_Room 
  4453.         Dead_End_Crawl 
  4454.         In_Secret_E_W_Canyon In_N_S_Canyon 
  4455.         Canyon_Dead_End In_Tall_E_W_Canyon Dead_End_8 
  4456.         Alike_Maze_11 Dead_End_9 Dead_End_10 Alike_Maze_12 
  4457.         Alike_Maze_13 Dead_End_11 Dead_End_12 Alike_Maze_14 
  4458.         In_Narrow_Corridor At_Steep_Incline_Above_Large_Room 
  4459.         In_Giant_Room At_Recent_Cave_In 
  4460.         In_Immense_N_S_Passage In_Cavern_With_Waterfall 
  4461.         In_Soft_Room In_Oriental_Room In_Misty_Cavern 
  4462.         In_Alcove In_Plover_Room In_Dark_Room In_Arched_Hall 
  4463.         In_Shell_Room In_Ragged_Corridor In_A_Cul_De_Sac 
  4464.         In_Anteroom Different_Maze_1 At_Witts_End 
  4465.         In_Mirror_Canyon At_Window_On_Pit_2 Atop_Stalactite 
  4466.         Different_Maze_2 At_Reservoir Dead_End_13 At_Ne_End 
  4467.         At_Sw_End On_Sw_Side_Of_Chasm In_Sloping_Corridor 
  4468.         In_Secret_Canyon  On_Ne_Side_Of_Chasm In_Corridor 
  4469.         At_Fork_In_Path At_Junction_With_Warm_Walls 
  4470.         At_Breath_Taking_View In_Chamber_Of_Boulders 
  4471.         In_Limestone_Passage In_Front_Of_Barren_Room 
  4472.         In_Barren_Room Different_Maze_3 Different_Maze_4 
  4473.         Different_Maze_5 Different_Maze_6 Different_Maze_7 
  4474.         Different_Maze_8 Different_Maze_9 Different_Maze_10 
  4475.         Different_Maze_11 Dead_End_14
  4476.     ]
  4477. ;
  4478. Canyon: rfd
  4479.     sdesc = "canyon"
  4480.     noun = 'canyon' 'canyons'
  4481.     adjective = 'awkward' 'sloping' 'secret' 'e/w' 'n/s' 'tight'
  4482.             'tall' 'three'
  4483.     loclist = [
  4484.         In_Debris_Room  In_Awkward_Sloping_E_W_Canyon
  4485.         In_Bird_Chamber  In_Secret_N_S_Canyon_0
  4486.         In_Secret_N_S_Canyon_1  At_Junction_Of_Three_Secret_Canyons
  4487.         In_Secret_E_W_Canyon  In_N_S_Canyon
  4488.         Canyon_Dead_End  In_Tall_E_W_Canyon  Dead_End_8
  4489.         In_Mirror_Canyon  In_Secret_Canyon
  4490.     ]
  4491. ;
  4492. Walls: rfd
  4493.     sdesc = "walls"
  4494.     noun = 'wall' 'walls' 'cracks' 'ceiling' 
  4495.     adjective = 'orange' 'stone' 'swiss' 'cheese' 'cave' 'cavern'
  4496.             'ragged' 'sharp' 'canyon' 'warm' 'hot' 'building'
  4497.             'well' 'house' 'wellhouse'
  4498.     loclist = [
  4499.         Inside_Building In_Cobble_Crawl In_Debris_Room 
  4500.         In_Awkward_Sloping_E_W_Canyon In_Bird_Chamber 
  4501.         At_Top_Of_Small_Pit In_Hall_Of_Mists 
  4502.         On_East_Bank_Of_Fissure In_Nugget_Of_Gold_Room 
  4503.         In_Hall_Of_Mt_King At_West_End_Of_Twopit_Room 
  4504.         In_East_Pit In_West_Pit West_Side_Of_Fissure 
  4505.         Low_N_S_Passage In_South_Side_Chamber 
  4506.         In_West_Side_Chamber At_Y2 Jumble_Of_Rock 
  4507.         At_Window_On_Pit_1 In_Dirty_Passage On_Brink_Of_Pit 
  4508.         In_Pit In_Dusty_Rock_Room 
  4509.         At_West_End_Of_Hall_Of_Mists Alike_Maze_1 
  4510.         Alike_Maze_2 Alike_Maze_3 Alike_Maze_4 Dead_End_1 
  4511.         Dead_End_2 Dead_End_3 Alike_Maze_5 Alike_Maze_6 
  4512.         Alike_Maze_7 Alike_Maze_8 Alike_Maze_9 Dead_End_4 
  4513.         Alike_Maze_10 Dead_End_5 At_Brink_Of_Pit Dead_End_6 
  4514.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall 
  4515.         Crossover Dead_End_7 At_Complex_Junction In_Bedquilt 
  4516.         In_Swiss_Cheese_Room At_East_End_Of_Twopit_Room 
  4517.         In_Slab_Room In_Secret_N_S_Canyon_0 
  4518.         In_Secret_N_S_Canyon_1 
  4519.         At_Junction_Of_Three_Secret_Canyons In_Large_Low_Room 
  4520.         Dead_End_Crawl 
  4521.         In_Secret_E_W_Canyon In_N_S_Canyon 
  4522.         Canyon_Dead_End In_Tall_E_W_Canyon Dead_End_8 
  4523.         Alike_Maze_11 Dead_End_9 Dead_End_10 Alike_Maze_12 
  4524.         Alike_Maze_13 Dead_End_11 Dead_End_12 Alike_Maze_14 
  4525.         In_Narrow_Corridor At_Steep_Incline_Above_Large_Room 
  4526.         In_Giant_Room At_Recent_Cave_In 
  4527.         In_Immense_N_S_Passage In_Cavern_With_Waterfall 
  4528.         In_Soft_Room In_Oriental_Room In_Misty_Cavern 
  4529.         In_Alcove In_Plover_Room In_Dark_Room In_Arched_Hall 
  4530.         In_Shell_Room In_Ragged_Corridor In_A_Cul_De_Sac 
  4531.         In_Anteroom Different_Maze_1 At_Witts_End 
  4532.         In_Mirror_Canyon At_Window_On_Pit_2 Atop_Stalactite 
  4533.         Different_Maze_2 At_Reservoir Dead_End_13 At_Ne_End 
  4534.         At_Sw_End On_Sw_Side_Of_Chasm In_Sloping_Corridor 
  4535.         In_Secret_Canyon  On_Ne_Side_Of_Chasm  In_Corridor 
  4536.         At_Fork_In_Path At_Junction_With_Warm_Walls 
  4537.         At_Breath_Taking_View In_Chamber_Of_Boulders 
  4538.         In_Limestone_Passage In_Front_Of_Barren_Room 
  4539.         In_Barren_Room Different_Maze_3 Different_Maze_4 
  4540.         Different_Maze_5 Different_Maze_6 Different_Maze_7 
  4541.         Different_Maze_8 Different_Maze_9 Different_Maze_10 
  4542.         Different_Maze_11 Dead_End_14
  4543.     ]
  4544. ;
  4545. DeadEnd: rfd
  4546.     sdesc = "dead end"
  4547.     noun = 'end'
  4548.     adjective = 'dead'
  4549.     loclist = [
  4550.         Dead_End_1 Dead_End_2 Dead_End_3 Dead_End_4 
  4551.         Dead_End_5 Dead_End_6 Dead_End_7 Dead_End_Crawl 
  4552.         Canyon_Dead_End Dead_End_8 Dead_End_9 Dead_End_10 
  4553.         Dead_End_11 Dead_End_12 Dead_End_13 Dead_End_14
  4554.     ]
  4555. ;
  4556. Hall: rfd
  4557.     sdesc = "hall"
  4558.     noun = 'hall'
  4559.     adjective = 'vast' 'long' 'featureless' 'arched'
  4560.     loclist = [
  4561.         In_Hall_Of_Mists  On_East_Bank_Of_Fissure
  4562.         In_Hall_Of_Mt_King  West_Side_Of_Fissure
  4563.         In_West_Side_Chamber  At_West_End_Of_Hall_Of_Mists
  4564.         At_East_End_Of_Long_Hall At_West_End_Of_Long_Hall
  4565.         In_Arched_Hall
  4566.     ]
  4567. ;
  4568. Hole: rfd
  4569.     sdesc = "hole"
  4570.     noun = 'hole' 'holes'
  4571.     adjective = 'large' 'big' 'round' 'two' 'foot' 'two-foot'
  4572.     loclist = [
  4573.         At_East_End_Of_Twopit_Room
  4574.         In_West_Pit  Low_N_S_Passage  In_Dirty_Passage
  4575.         In_Dusty_Rock_Room  At_East_End_Of_Long_Hall
  4576.         In_Bedquilt  In_Narrow_Corridor  In_Cavern_With_Waterfall
  4577.         At_Reservoir
  4578.     ]
  4579. ;
  4580. Junction: rfd
  4581.     sdesc = "junction"
  4582.     noun = 'junction'
  4583.     adjective = 'complex'
  4584.     loclist = [
  4585.         At_Complex_Junction  At_Junction_Of_Three_Secret_Canyons
  4586.         At_Junction_With_Warm_Walls
  4587.     ]
  4588. ;
  4589. Air: rfd    // If they MUST examine EVERYTHING
  4590.     sdesc = "air"
  4591.     adesc = "air"
  4592.     noun = 'air' 'environment' 'atmosphere' 'wind'
  4593.     adjective = 'sea' 'damp' 'hot' 'stifling'
  4594.     locationOK = true     // tell compiler OK for location to be method
  4595.     location = {
  4596.         return Me.location;    // always where player is
  4597.     }
  4598.     verDoSmell(actor) = {}
  4599.     doSmell(actor) = {
  4600.         "The air smells pretty much like you would expect.";
  4601.     }
  4602. ;
  4603.