aard.ddl

<B>Digital的Unix操作系统VAX 4.2源码</B>

inside = (($ne @12 0) : (($sdisc @12)) ($say "\n")
	($setg 12 ($link @12)) (inside));

{*** ROOM DESCRIPTIONS ***}

mrm1(LDESC) = ($say "You are standing outside the north entrance of a large
brick building.  Inscribed above the doorway, appear the 
text: 'AARDVARK'S MUSEUM -- GATEWAY TO ADVENTURELAND'.
");
mrm1(SDESC) = ($say "Museum entrance
");

mrm2(LDESC) = ($say "You are in a large rotunda of an old museum.  Doors lead
to the north, south, east, and west, and a narrow stairway 
in the north-east corner of the room leads down.
");
mrm2(SDESC) = ($say "Museum rotunda
");

mrom3a = ($say "You are in a dimly lit room containing an empty display case.
A portion of a vandalized sign above the case reads: 
'ARTIFACTS OF ANCIENT INDIA -- Several of these items,
including the sacred rhinoceros horn, the deadly ...'.
The rest of the sign is unreadable.
");
mrm3(LDESC) = (mrom3a)
		(($eq ($prop paper signed) 0) : ($say 
"To the west, you can look through a large door into the rotunda
of the museum. On the east wall of the hall there is an outline
of an arch.
"))
		(($eq ($prop paper signed) 1) : ($say
"Through the door to the west, you can see part of the rotunda
of the museum.  To the east, there is a stone archway.
"));
mrm3(SDESC) = ($say "East wing of the museum
");

mrm4(LDESC) = ($say "You are in a non-descript room with absolutely 
nothing in it.  A hollow voice says ''This room is unavailable for use at this
time.  Please leave through the doorway to your north.''
");
mrm4(SDESC) = ($say "Closed room
");

mrom5 = ($say "You are standing before a large empty display case in a poorly
lit basement-like room.  Encircling the room high on the walls appear the text
''HALL OF PREHISTORY.''  A stairway leads up, and in the south wall, there is
a small hole");
mrm5(LDESC) = (mrom5)
		(($eq ($prop paper signed) 1) :
		($say ".\n"))
		(($eq ($prop paper signed) 0) :
		($say " covered by a grate.\n"));
mrm5(SDESC) = ($say "Hall of Prehistory.\n");

mrm6(LDESC) = ($say
"You are wandering through a dense forest past twisted birch trees
rising toward the sky in contorted agony.  Enormous skeletons of burned
out sycamores are scattered throughout the area, and gnarled stumps of")
($say
"\nonce proud oak trees make the appearance of the forest even more 
disturbing.  Nothing is stirring, a pall of death seems to hang over the
forest like a blanket, and you can't seem to figure out which direction\n")
($say "is which.\n");
mrm6(SDESC) = ($say "You are lost in the forest.\n");

irm1(LDESC) = ($say "You  are at the top of a highly ornate spiral stairway.
A wing of the museum can be seen to the west.  The room is moist 
and damp, and the scent of cumin and saffron fills the air.
");
irm1(SDESC) = ($say "Top of spiral stairway
");

irm2(LDESC) = ($say "You are in an east-west passage at the bottom of
a spiral stairway.  A slight breeze blows from east to west.
");
irm2(SDESC) = ($say "Bottom of spiral stairway
");

irm3(LDESC) = ($say "You are standing in a deserted Indian marketplace.
Although it seems to have once been a bustling area, 
there is very little left here.  Most of the vacant
booths form an alley running north, and a small path
goes east.
");
irm3(SDESC) = ($say "Marketplace
");

irm4(LDESC) = ($say "You are in a small kitchen adjoining the marketplace.
Most of the furniture in the room has been broken, and all               
of the pottery once used for cooking has been stolen. In the
north-west corner, there is a tandoori oven.  A door to the
south leads back out to the marketplace, and a trap-door 
leads down to what appears to be a murky basement.
");
irm4(SDESC) = ($say "Kitchen
");

irm5(LDESC) = ($say "You are in a cellar which apparently has been used to
store spices.  Empty racks line all the walls of the room, 
and everything in the room seems to be blanketed in a thin
layer of dust.  An unreachable hole appears in the ceiling
and exits lead to the north, south, and east.
");
irm5(SDESC) = ($say "Spice cellar
");

irm6(LDESC) = ($say "You are in a small cave-like room apparently once used
for the cultivation of mushrooms.  You find the smell of
this room slightly displeasing.  There are exits to the  
south and west, and there is a small hole in the 
north wall, through which you can see a long vertical
shaft with jagged sides.
");
irm6(SDESC) = ($say "Mushroom room
");

irm7(LDESC) = ($say "You are in an abandoned warehouse-like room which, 
though once used for storage, is now predominantly full of  
rubble.  Exits lead to the north and east.
");
irm7(SDESC) = ($say "Warehouse
");

irm8(LDESC) = ($say "You are standing on a rocky beach on the west bank
of a slow-moving subterranean river. Several large 
crocodiles are lazily sleeping at the north end of the river. 
A path leads to the west.
");
irm8(SDESC) = ($say "West bank of river
");

irm9(LDESC) = ($say "You are on a sandy beach on the east bank of a crocodile
infested river.  A roughly hewn stairway in the rock leads up 
far beyond your range of vision.
");
irm9(SDESC) = ($say "East bank of river
");

irm10(LDESC) = ($say "You are in a room containing an enormous statue of
Mara, Hindu goddess and consort to Vishnu.  Passages lead 
to the east, west, and south, and a roughly hewn stairway
seems to go down to an area further underground.
");
irm10(SDESC) =($say "In front of Mara's statue
");

irm11(LDESC) = ($say "You are standing in front of a gigantic statue of the
Hindu god Vishnu.  Passages lead north and south, and it appears
that you can squeeze through a narrow crack in the western wall.
");
irm11(SDESC) = ($say "In front of Vishnu's statue
");

irom12a = ($say "You are in a room containing an enormous statue of 
Lakshmi, Hindu goddess and consort to Vishnu.  
");
irm12(LDESC) = (irom12a)
		(($eq ($prop statue tlakst) 0) : ($say 
"Passages lead to the north and east.
"))
		(($eq ($prop statue tlakst) 1) : ($say
"Passages lead to the east and north, and on the west wall
there is a hole large enough to crawl through.
"));
irm12(SDESC) = ($say "In front of Lakshmi's statue
");

irm13(LDESC) = ($say "You are in what would appear to be a totally man-made
cave.  The walls are covered with bamboo shafts cut and 
tied together to form a very complex lattice pattern.
An extremely narrow passage leads east, and there is a 
large door to the south.
");
irm13(SDESC) = ($say "Bamboo Room
");

irm14(LDESC) = ($say "You are in a small room with a very low ceiling. The
only exit is to the east.
");
irm14(SDESC) = ($say "Flat Room
");

irm15(LDESC) = ($say "You are standing in the center of a large dome-like 
room.  Exits lead to the north, east, and west, and around the perimeter of
the room appear the words 'ABRACADABRA -- VARUNA SUCKS COCONUTS.'
");
irm15(SDESC) = ($say "Inside Dome
");

irm16(LDESC) = ($say
"You are at the base of a tall naturally formed shaft.
On all sides, you are surrounded by gigantic basalt columns
towering above you in a serpentine manner, as if great 
likenesses of Vasuki himself.  Passages lead to the north,
east, and west, and above you appears a small ledge.
");
irm16(SDESC) = ($say "Vertical Shaft
");

irm17(LDESC) = ($say
"You are on a small ledge high above the base of a large
shaft.  There is a rope seemingly standing rigid allowing you to
climb down, but the climb above you seems quite dificult.
");
irm17(SDESC) = ($say "On small ledge
");

irm18(LDESC) = ($say
"You are in a small room which smells strongly of
incense.  Stone archways lead to the south, and east, and
a smaller passage leads to the west.  You also hear some
chanting and Sitar music in the background.
");
irm18(SDESC) = ($say "Incense room
");

irm19(LDESC) = ($say
"You are at the holy well of Varuna, the water god.  The well is in the
middle of the room, leading straight down into some water far below.
Legend has it that those who climb down into the well suffer a fate
worse than death, so it is advisable not to go down.  In the 
ceiling, there is a round hole")
	(($eq ($prop rupees wellbt) 1) :
	($say " and the water in the well appears to have
been disturbed recently.\n"))
	(($eq ($prop rupees wellbt) 0) :
	($say ".\n"));
irm19(SDESC) = ($say "Varuna's well
");

irom20a = ($say
"You are at the entrance to Siva's temple.
");
irm20(LDESC) = (irom20a)
		(($eq ($prop monkey fedmky) 1) : ($say
"A passage leads back to the west, and a crack in a huge stone slab allows
one to proceed east.
"))
		(($eq ($prop monkey fedmky) 0) : ($say
"A passage leads back to the west, but the entrance to the temple is blocked
by a huge stone slab.
"));
irm20(SDESC) = ($say "Entrance to Siva's temple
");

irm21(LDESC) = ($say 
"You are standing in front of Siva's altar, a small stone slab in front of
a large monolith.  The exit is to the west.
");
irm21(SDESC) = ($say "Siva's Altar
");

irm22(LDESC) = ($say
"You are standing at the top of a six-foot deep snake pit.  The walls of the
room are covered with bas relief figures of cobras, kraits, and other 
miscellaneous elapids.  Exits lead to the west and south, through archways
ringed by pythons carved into the rock.
");
irm22(SDESC) = ($say "Top of Snake pit
");

irm23(LDESC) = ($say
"You are at the bottom of a snake pit.  The only direction it appears you 
can go is back out.
");
irm23(SDESC) =($say "Bottom of snake pit
");

prm1(LDESC) = (darkq) ($say
"You are in the north-south corridor of an ancient paleolithic cave.  Its 
low ceiling is covered with paintings of wild game which have faded due to
the passing of time.\n");
prm1(SDESC) = (darkq)($say "North-south corridor.\n");

prm2(LDESC) = ($say
"You are standing on a ledge above the floor of a subterranean canyon
running east-west.  Shafts of sunlight penetrate through cracks in the
ceiling high above, washing the room with an alabaster murkiness;
casting shadows on the weathered rocks which have lain undisturbed
for countless centuries. A small crawlway leads north, and there is a
short, stout pole sticking out of the ground.")
	(($eq ($prop rope rtied) 1) : ($say "  A section of rope is tied 
around the pole, with the other end hanging down into the canyon.\n"))
	(($eq ($prop rope rtied) 0) : ($say "\n"));

prm2(SDESC) = ($say "Above East-west canyon.\n");

prm3(LDESC) = ($say 
"You are at the bottom of a canyon running east-west.  The passage to the
east is blocked by rubble, so it appears that the only direction you can
go is west. A rope dangles down from above.\n");
prm3(SDESC) = ($say "East end of canyon.\n");

prm4(LDESC) = ($say
"You are standing in front of a limestone cavern, the entrance of which looks
like a gaping mouth of a grotesque monster.  It appears that you can enter
the cave to your south, or go either direction in the east-west canyon that
you are in.\n");
prm4(SDESC) = ($say "Entrance to limestone cavern.\n");

prm5(LDESC) = (darkq) ($say
"You are in a very narrow room which probably was once much larger.
However, it appears that a recent cave-in has closed off much of the
room to the east.  To your north, there is a corridor which apparently
leads back out, and in the eastern wall, there is a hole which you can
probably crawl through.\n");
prm5(SDESC) = (darkq) ($say "Narrow room in cave.\n");

prm6(LDESC) = (darkq) (($eq ($prop smilo stond) 0) : ($say
"You are standing above a shallow pit which is empty except for a
large smilodon (sabre-tooth tiger) which is growling at you menacingly.
The only other direction it looks like you can go is back out through a
small hole in the rubble forming the west wall of the room you are in.\n"))
			(($eq ($prop smilo stond) 1) : ($say
"You are standing above an empty shallow pit.  There is a small hole in the
west wall of the room you are in.\n"));
prm6(SDESC) = (darkq) ($say "Above shallow pit.\n");

prm7(LDESC) = (darkq) ($say
"You are standing on the loose gravel of a shallow pit.  An exit leads
south, and above you, there is a small ledge which you can climb up to.\n");
prm7(SDESC) = (darkq) ($say "In shallow pit.\n");

trogf = (($eq ($prop trogl killd) 0) : 
	($say " and there is an angry
troglodyte here holding a large gold nugget under his arm"))
	($say ".\n");
trgfs = (($eq ($prop trogl killd) 0) :
	($say "There is an angry troglodyte holding a gold nugget here.\n"));
prm8(LDESC) = (darkq) ($say
"You are standing near the west rim of sheer cliff which drops down into a deep
almost bottomless abyss. A passage leads north") (trogf);
prm8(SDESC) = (darkq) ($say "West rim of canyon.\n") (trgfs);

prm9(LDESC) = ($say 
"You are at the junction of two canyons.  The larger one runs east-west
and the smaller one runs north.\n");
prm9(SDESC) = ($say "Canyon junction\n");

prm10(LDESC) = ($say
"You are standing on a shale slab tilted from west to east at about a 
forty-five degree angle.  At the east end of the slab, there is a short
drop into what appears to be a lake.  Above you and to the west, it appears
that there is some more explorable terrain, and the canyon leads back to
to the south.  The air is quite warm, and there is a slight scent similar
to asphalt in the air.\n");
prm10(SDESC) = ($say "On shale slab.\n");

prm11(LDESC) = ($say 
"You are standing in the south end of a short canyon running north-south.
The ground below your feet is littered with flakes of a dark rock, which
seems to comprise most of the surrounding canyon walls.  There is a path to
your north, and a steep slope down and to the east.\n");
prm11(SDESC) = ($say "Canyon full of rubble.\n");

prm12(LDESC) = ($say
"You are standing in the north end of a short canyon.  The ground is
covered with a thin film of oil which apppears to be seeping out of
a crack in the earth.  The only apparent direction you can go is south.\n");
prm12(SDESC) = ($say "Oily end of canyon.\n");

prm13(LDESC) = ($say "You are standing in what was once a tributary into
the now-extinct river which formed the large canyon in this area.  There
is a streambed running to the south, and you can also go east and west.\n");
prm13(SDESC) = ($say "End of dry river bed.\n");

prm14(LDESC) = ($say
"You are standing in a narrow north-south canyon with a river bed running 
down the middle of it.  There is a semicirular shaped hole at the base of
the eastern wall.\n");
prm14(SDESC) = ($say "In narrow part of river bed.\n");

prm15(LDESC) = ($say 
"You are at the base of three water-eroded cliffs to your south, east and 
west.  It appears that a U-shaped waterfall once flowed into this area, and
exited out to the north.\n");
prm15(SDESC) = ($say "Below dried waterfall.\n");

prm16(LDESC) = ($say 
"You are in a section of the canyon where much of the rock appears to be
primarily sandstone.  Water has apparently flowed out of a cave to your 
north into three-foot wide crack in the ground.  A substantial amount of
rubble blocks your way west, and the rest of the canyon winds east.\n");
prm16(SDESC) = ($say "Sandstone area.\n");

prm17(LDESC) = (darkq) ($say
"You are standing in front of the freshly dug gravesite of a Nearderthal
hunter.  There is an exit to your south, and it seems that more of the 
cave can be explored to the north.\n")
(($and ($eq ($prop spear tooky) 1) ($eq ($prop spear abrad) 0)) :
($say "However, a large amount of rubble blocks that path.\n"));
prm17(SDESC) = (darkq)($say "Neanderthal's gravesite\n");

prm18(LDESC) = (darkq) ($say
"You are in a narrow room of a north-south running cave.  A large cairn of
prehistoric cave bear skulls is piled high in one corner of the room.
There are exits to the north and south.\n");
prm18(SDESC) = (darkq) ($say "In front of cave bear cairn.\n");

prm19(LDESC) = (darkq) ($say
"You are in a large cavern room with a high ceiling.  Cracks in the walls
lead in all directions but none of them seem to lead anywhere.  There are