;*****************************************************************************
; This file contains all the room descriptions of level 1 needed by Quest
;*****************************************************************************

(cavern inside-blockhouse                       ; Room #40
  (property
    lighted T
    description "You are standing inside a cement blockhouse, about 6 feet 
		square.  Dust and cobwebs show that this room has been
		unvisited for a very long time. The room is lit by small holes 
		in the roof.  The only exits are the door on the north wall and
		an iron ladder leading down into the darkness below."
    short-description "Inside blockhouse"
    odor "The air smells musty."
    up-error "The holes are far too small to allow passage, besides being out
	     of your reach."
    north blockhouse-door-2
    egress blockhouse-door-2
    down bunker
    down-error nil
    value 10
  )
)

(cavern bunker                                  ; Room #41
  (property
    lighted T
    description "You are in a small chamber below the blockhouse.  A low dusty
		crawl leads west.  An iron ladder leads up to the blockhouse
		above."
    short-description "bunker"
    up-error nil
    up inside-blockhouse
    west low-dusty-crawl
  )
)

(cavern low-dusty-crawl                         ; Room #42
  (property
    description "You are in a low dusty crawlway that goes east and west."
    short-description "Low dusty crawl"
    odor "You sneeze from the dust stirred up by your passage.  Other than the
	 dust, you smell nothing."
    east bunker
    west skull-room
  )
)

(cavern skull-room                              ; Room #43
  (property
    description "You are in a room filled with odds and ends tossed carelessly
		into the corners. There is a low passage going north. A west
		crawl is completely choked with rubble. Above the rubble choked
		crawl is a rubble strewn crack leading up and west.  It curves
		out of sight in a few feet.  To the south is an archway.  Running
		east is a low dusty crawl."
    short-description "Skull room"
    up-error nil
    up rough-passage
    west rough-passage
    east low-dusty-crawl
    south plant-room
    north low-straight-passage
  )
)

(cavern rough-passage                           ; Room #44
  (property
    description "You are in a rubble-strewn passage.  The going is very rough
		as the passage is narrow and not too straight.  It lies 
		generally east/west."
    short-description "Rough passage"
    east skull-room
    west grotto
  )
)

(cavern low-straight-passage                    ; Room #45
  (property
    description "You are in a low straight passage.  A good tunnel goes
		west, the low passage goes south."
    short-description "south/west L intersection"
    south skull-room
    west good-tunnel
  )
)

(cavern plant-room                              ; Room #46
  (property
    description "You are in a room whose walls are covered in plants of all
		shapes and sizes.  A northern archway is framed by hanging 
		vines."
    short-description "Plant room"
    north skull-room
  )
)

(cavern grotto                                  ; Room #47
  (property
    description "You are standing in the middle of a beautiful grotto.  Around
		you blue and green malachite columns rise fifty feet inot the 
		air.  Your light throws blue and green light flooding around
		you as though you were walking on the sea bottom.  A good
		passage exits from the west side of the grotto, a rubble strewn
		passage exits to the east.  There is a crack going south."
    short-description "Magnificient grotto"
    sound "You can hear the echo of your footsteps."
    east rough-passage
    north half-and-half-room
    west stair-pit-1
    south n/s-passage
  )
)

(cavern half-and-half-room                      ; Room #48
  (property
    description "You are in a small chamber formed by the cave stone at your
		back and a wall of blue and green malachite in front.  There
		is a crack going south and another one going north."
    short-description "Half and Half room"
    south grotto
    north good-tunnel
  )
)

(cavern good-tunnel                             ; Room #49
  (property
    description "You are in a good tunnel.  The walls are smooth, the roof
		sound and uncracked.  The floor is unobstructed.  The main 
		passage goes east but a crack goes south."
    short-description "Good Tunnel"
    south half-and-half-room
    east low-straight-passage
  )
)

(cavern stair-pit-1                             ; Room #50
  (property
    description "You are in a large square room.  The walls are smooth, almost
		glasslike.  There is an archway to the east, and the north wall
		is marred by a large unsightly crack.  Dominating the room, 
		however, is a pit fully thirty feet across.  Descending into the
		pit is a spiral stone staircase, whose steps are wide and very
		well made.  A stone bannister protects climbers from falling
		over the side."
    short-description "Stair pit"
    east grotto
    north web-passage
    down-error nil
    down stair-pit-2
  )
)

(cavern n/s-passage                             ; Room #51
  (property
    description "You are in a passage running north and south."
    short-description "N/S passage"
    north grotto
    south light-room
  )
)

(cavern light-room                              ; Room #52
  (property
    lighted T
    description "This rather small room has holes in the ceiling which admit
		blinding shafts of brillient light from the surface.  Some of
		the holes appear to be blocked by roots, but many are still
		open."
    short-description "Lighted Room"
    up-error "The holes are out of reach, and too small in any case."
    north n/s-passage
    east T-intersection
  )
)

(cavern dead-end                                ; Room #53
  (property
    description "You have reached a dead end, apparently this passage was 
		never completed, as the north wall is rought and shows the 
		marks of pick-axes.  The only passage is to the south."
    short-description "Dead end"
    south t-intersection
  )
)

(cavern t-intersection                          ; Room #54
  (property
    description "You are in a T intersection of passages, one runing north
		and the others east and west."
    short-description "T intersection"
    west light-room
    north dead-end
    east E/W-passage
  )
)

(cavern E/W-passage                             ; Room #55
  (property
    description "You are in a good east/west passage."
    short-description "E/W passage"
    odor "The air smells like it does after a thunderstorm, damp and with 
	 that indefinable something else.  From the east you can smell the
	 unmistakable stench of unseasoned oak."
    sound "You can hear an almost inaudible keening noise, which seems to be
	  coming from the east."
    west T-intersection
    east root-room
  )
  
  (method (leave obj dir)
    (if (and (= dir east)
	     (not (send adventurer carrying? mandala))); west without mandala?
      (send ward attack-adventurer)             ; warding attacks adventurer
      (send-super leave obj dir)                ; else normal leave
    )                                           ; EIF
  )                                             ; EMETHOD
)                                               ; ELOCATION

(cavern root-room                               ; Room # 56
  (property
    description "You are apparently under the roots of that incredible oak 
		tree you saw on the surface.  This room is little more than
		a hollow in tightly packed dirt.  The roof is a mass of huge
		gnarled roots.  Holes in the walls go north and west."
    short-description "Under Oak Tree"
    odor "You can smell the stench of unseasoned oak, a smell very similar to
	  vomit."
    west E/W-passage
    north T-intersection-2
    value 10
  )
)

(cavern T-intersection-2                        ; Room #58
  (property
    description "You are in a T-intersection leading north, south, and west."
    short-description "T intersection"
    south root-room
    north spears-end
    west E/W-passage-2
  )
)

(cavern spears-end                              ; Room #57
  (property
    description "You are standing in a dead end.  This passage also appears
		unfinished, but it has certain other features to earn the
		name 'dead end'.  First, there are ancient blood stains all
		over the walls.  Whatever fought here certainly died messily.
		The only exit is to the south."
    short-description "Bloody dead end"
    south t-intersection-2
    odor "You smell the bugbear's corpse.  Phew!"
  )
)

(cavern web-passage                             ; Room #59
  (property
    description "You are in the crack which runs north and south.  The walls
		of this passage look as though they've been chewed out of the 
		rock.  The northern end of this passage has massive spider webs
		blocking it."
    short-description "Web crack"
    odor "You can smell rotting meat from the north."
    south stair-pit-1
    north spider-lair
  )
)

(cavern spider-lair                             ; Room #60
  (property
    description "This chamber's floor is ankle deep in slimy remains.  Bones
		crunch underfoot wherever you step.  Above you the roof is 
		hidden by thousands of spider webs.  Cracks exit this chamber
		of horrors north and south.  Let's get out of here!"
    short-description "Spider lair"
    odor "You must be joking."
    south web-passage
    north L-intersection
  )

  (method (leave obj dir)
    (if (> (getp spider hit-points) 0)          ; Spider alive?
      (print "The spider springs in front of you!\n"); Yes, blocks exit
      (send-super leave obj dir)                ; else normal leave
    )                                           ; EIF
  )                                             ; EMETHOD
)                                               ; ELOCATION

(cavern l-intersection                          ; Room #61
  (property
    description "You are in an L intersection.  A good tunnel goes east,
		a crack blocked with webs goes south."
    short-description "L intersection"
    odor "The smell of rotting meat comes from the south."
    south spider-lair
    east 4-way
  )
)

(cavern 4-way                                   ; Room #62
  (property
    description "You are standing in the middle of a four way intersection.
		Passages exit north, south, east, and west."
    short-description "Four Way Intersection"
    west l-intersection
    north magic-pool
    east E/W-passage-2
    south pool-ledge
  )
)

(cavern magic-pool                              ; Room #63
  (property
    lighted T
    description "You are in a large square room, with the only exit to the
		south."
    short-description "Bowl Room"
    south 4-way
  )
)

(cavern E/W-passage-2                           ; Room #64
  (property
    description "You are in an east/west passage.  The floor is smooth and 
		unobstructed."
    short-description "E/W Passage"
    east t-intersection-2
    west 4-way
  )
)

(cavern pool-ledge                              ; Room #65
  (property
    description "You are standing on a ledge overlooking a subterranean lake.
		There are broad stone steps leading down into the water.  The
		only passage exits west.  Eerie wisps of fog dance over the 
		lake."
    short-description "Pool ledge"
    west 4-way
    east hot-water
    down-error nil
    down hot-water
  )
)

(cavern hot-water                               ; Room #66
  (property
    description "You are treading water in a large subterranean lake.  The
		water is very warm, almost hot.  The only exit is the stone
		stairs leading up to a ledge above."
    short-description "In hot water"
    west pool-ledge
    up-error nil
    up pool-ledge
  )
)