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

(cavern stair-pit-2                             ; Room # 67
  (property
    description "You are in the stair pit, standing on a landing to one side of
		the spiraling staircase.  On the wall by the exit to the east is
		a large glowing '2' and the words 'Palace Level'.  The spiral 
		stairs continue down out of sight."
    short-description "Stair Pit '2'"
    odor "You smell the faintest whiff of incense."
    east 3-way-l2
    up stair-pit-1
    up-error nil
  )
)

(cavern 3-way-l2                                ; Room # 68
  (property
    description "You are standing at the intersection of two passages that take
		your breath away.  The floor of the passage going east and west
		is what looks like a single pure diamond!  You try to calculate
		the value of the floor and realize you can't count that high.
		The passage going south is floored with a single sapphire
		stretching from wall to wall and impossibly stretching out of
		sight to the south.  The sheer amount of wealth represented
		makes you feel faint.  Your one bitter thought is 'I can't get
		any of it!'.  Over the passage going east are carved the words
		'To Wharf'."
    short-description "Diamond/Sapphire 3-way"
    sound "You can hear a faint roaring to the east."
    west stair-pit-2
    east wharf
    south 3-way-2-l2
  )
)

(cavern 3-way-2-l2                              ; Room # 69
  (property
    description "You are standing (faint with greed) in the intersection of the
		sapphire floored passage going north south and a passage floored
		with emerald going east.  Over the eastern passage are carved
		the words 'To Bottomless Pit'.  Over the southern passage are
		the words 'To Wine Cellar'."
    short-description "Sapphire/Emerald 3-Way"
    sound "You can hear a faint roaring to the east."
    north 3-way-l2
    south wine-cellar
    east bottomless-pit-l2
  )
)

(cavern wine-cellar                             ; Room # 70
  (property
    description "You're in what appears to have been a wine cellar.  All the
		racks are empty.  There is an odor of extreme age here.  The
		only exit is to the north."
    short-description "Wine Cellar"
    odor "The room smells of dust and old dry wood."
    north 3-way-2-l2
  )
)

(cavern bottomless-pit-l2                       ; Room # 71
  (property
    description "You are standing on a ledge overlooking a huge pit.  A large
		river pours from the north wall and into the abyss.  There is
		a sign on the east wall.  The roof looks strangely wooden.
		The only exit is to the west."
    short-description "Bottomless Pit"
    sound "The waterfall into the pit drowns out any other noise."
    odor "You can smell the river."
    west 3-way-2-l2
  )
)

(cavern wharf                                   ; Room # 72
  (property
    description "You're standing on a stone wharf projecting east into a wide
		pool of water.  There is a column of water falling into the
		middle of the pool, making the pool very rough, and also
		obscuring the further wall.  The roaring of the column drowns
		out other noises.  Rivers exit from the north and south."
    short-description "Wharf"
    sound "The falling column of water drowns out anything else."
    odor "You can smell the pool, which smells a lot like a surface pond."
    west 3-way-l2
    east landing
  )

  (method (leave obj dir)
    (if (not (= dir east))
      (progn
	(send-super leave obj dir)
	(chain)
      )
    )

    (if (= (getp fishnet-1 parent) self)
      (progn
	(send-super leave obj dir)
	(chain)
      )
    )
  
    (print "As you step off the wharf you fall into the pool.  The column of
	   water sucks you down before you can react.  Everything grows dark
	   as you realize you are drowning.  As you die you curse the magician
	   whose map you stole, using your last breath.\n\nUnfortunately for
	   you, this really is the end, in QUEST there is no resurrection.  For
	   you, the game is over, and you'll have to start all over again.
	   Good-bye, fool, maybe in your next incarnation you'll remember not to
	   steal cursed maps!\n")
    (exit)    
  )                                             ; EMETHOD
)

(cavern landing                                 ; Room # 73
  (property
    description "Having negotiated the jeweled fishnet through the roaring
		column of water you find yourself on a stone landing projecting
		west into the pool.  There is a passage floored with ruby 
		going east.  It curves sharply to the north about twenty feet
		further on."
    short-description "Landing"
    sound "You can't hear anything except the falling column of water."
    odor "You can smell the pool."
    west wharf
    east 3-way-3-l2
  )

  (method (leave obj dir)
    (if (not (= dir west))
      (progn
	(send-super leave obj dir)
	(chain)
      )
    )
  
    (if (send adventurer carrying? gold-nugget)
      (progn
	(print "The fishnet sags and snaps as you pass through the column of
	       falling water, dumping you into the pool.  Before you can react
	       the column sucks you down.  Everything grows dark as you realize
	       you are drowning.  As you die you curse the magician whose map
	       you stole, using your last breath.\n\nUnfortunately for
	       you, this really is the end, in QUEST there is no resurrection.
	       For you, the game is over, and you'll have to start all over
	       again.  Good-bye, fool, maybe in your next incarnation you'll
	       remember not to steal cursed maps!\n")
	(exit)
      )
    )

    (send-super leave obj dir)
  )                                             ; EMETHOD
)

(cavern 3-way-3-l2                              ; Room # 74
  (property
    description "You are standing at the intersections of the ruby passage going
		north and south, and an amethest floored passage headed west.
		By now you've grown numb from the incalcuable wealth the floors
		represent."
    short-description "Ruby/Amethest 3-Way"
    sound "You can hear a faint rushing noise from the south."
    north tube-room
    west 3-way-4-l2
    south landing
  )
)

(cavern tube-room                               ; Room # 75
  (property
    description "You're in a large square room.  The walls are mostly unadorned
		grey stone.  The only door is on the south wall."
    short-description "Tube Room"
    sound "You can hear the faintest humming noise coming from the pedestal."
    odor "You can smell something faintly, but the odor is like nothing you've
	 ever smelled before.  It's literally undescribeable."
    south 3-way-3-l2
  )
)

(cavern 3-way-4-l2                              ; Room # 76
  (property
    description "You're standing in the intersection of the amethest passage
		running east and west, and a northern passage floored in topaz.
		Over the western passage are carved the words 'To Wishing
		Whirlpool."
    short-description "Amethest/Topaz 3-Way"
    sound "You can hear a faint rushing noise from the west."
    east 3-way-3-l2
    west wishing-whirlpool
    north poem-room
  )
)

(cavern wishing-whirlpool                       ; Room # 77
  (property
    description "You are standing on a railed balcony overlooking a large 
		whirlpool.  There's a sign on the west wall.  The whirlpool
		is fed by a river entering from the south.  The only exit is
		to the east."
    short-description "Wishing Whirlpool"
    sound "The whirlpool's roar drowns out other noises."
    odor "You can't be sure, but the faintest hint of sweetness comes through
	 the water smell."
    east 3-way-4-l2
  )
)

(cavern poem-room                               ; Room # 78
  (property
    description "You are in a small room, circular in shape.  In the floor is a
		narrow pit.  You could probably get down but it would be a tight
		squeeze.  The only exit is the way you came in, to the east.
		There is a sign on the wall."
    short-description "Poem Room"
    east 3-way-4-l2
    down spike-room
    down-error nil
  )

  (method (leave obj dir)
    (if (not (= dir down))
      (progn
	(send-super leave obj dir)
	(chain)
      )
    )
    
    (if (< (rand 100) (/ (content-weight adventurer) 10))
      (progn
	(send adventurer vanish)
	(send adventurer put-self-in spike-room); force into spike room
	(send spike attack-adventurer)          ; spike attacks adventurer
      )
      (send-super leave obj dir)                ; else normal leave
    )                                           ; EIF
  )                                             ; EMETHOD
)

(cavern spike-room                              ; Room # 79
  (property
    description "You are at the bottom of a round pit.  About 2 feet above your
		head is the neck of the flask shaped pit.  The walls are
		phosphorescent and no more than a foot away from you.  In the
		center of the floor is a single spike about 3 feet long and 4
		inches at the base, tapering to a needle sharp point.  The spike
		is made of steel and obviously meant to spear anyone who falls.
		To the west is a narrow crack leading into darkness."
    short-description "Spike Room"
    up poem-room
    up-error nil
    west cul-de-sac
    light T
  )
)                                               ; EROOM

(cavern cul-de-sac                              ; Room # 80
  (property
    description "You are in a small tight cavern, barely big enough to turn
		around in.  The floor is rough and stalactites menace your 
		head if you try to straighten up.  The only exit is to the 
		east."
    short-description "Cul de sac"
    east spike-room
  )
)