aard.ddl

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

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
however, two major paths to the north and the south.\n");
prm19(SDESC) = (darkq) ($say
"Large Cavern room.\n");

prm20(LDESC) = (darkq) ($say
"You are in a room which was the site of a recent cave-in.  It appears to
be futile to go any other direction except south.\n");
prm20(SDESC) = (darkq) ($say "Cave-in site.\n");

prm21(LDESC) = ($say
"You are in a crack in the earth which seems to have been formed by an ancient
earthquake.  Various strata in the rock of different darkness seem to indicate
that much time has passed since the formation of the rock at the lower end of
this crack.  It seems that you can chimney up back out of the crack, or climb
further down into it.\n");
prm21(SDESC) = ($say "In large crack.\n");

prm22(LDESC) = ($say
"You are standing on a narrow ledge about twenty-five feet above the ground.
Aside from going back up, the only other direction you can go is to step off 
the ledge to the west into the mouth of the large Tyranosaurus Rex waiting to
swallow you whole.\n");
prm22(SDESC) = ($say
"On ledge in front of Tyranosaurus Rex.\n");

prm23(LDESC) = ($say
"You are standing inside the mouth of a Tyranosaurus Rex, whose jaws are
being held open by a spear wedged length-wise in his mouth.  Various pieces
of former adventurers can be found among the six-inch long teeth here.
You can step back out of the Tyranosaur onto the small ledge, or go
further down into the Tyranosaur and get digested.\n");
prm23(SDESC) = ($say "Inside mouth of Tyranosaur.\n");

{*** FUNNY TRANSITION ROUTINES ***}

exitg = ($say "Oh dear, you seem to have gotten yourself killed.\n")
(skore)
(ratng)
(ratnx)
(($eq ($prop .ME debug) 0) : ($spec 3 0 0 0 0));

em3 = (($eq ($prop paper signed) 0):(cg) ($exit 0))
      ($move .ME irm1);

ei8 = (($eq ($loc spice) .ME) : ($say
"The savory blend of spices and human wakes up the sleeping crocodiles who
decide to have you for breakfast.
") (exitg))
      (($eq ($loc rupee) .ME) : ($say
"The weight of the coins pulls you underwater and you eventually drown.
") (exitg))
      ($say "You manage to get across the river, just as the crocodiles
begin to stir.
")($move .ME irm9);

wi12 = (($eq ($prop statue tlakst) 0) : (cg) ($exit 0))
	($move .ME irm14);

ui16 = (($eq ($prop rope ropstf) 0) : (cg) ($exit 0))
	($say "You scramble up the rope and get to the ledge.
") ($move .ME irm17);

ui17 = ($say "Are you a rock climber? \n")
	(($eq ($yorn) 0) : ($say "Then you better not try it.\n")
		($exit 0))
	($say "That climb is rated 5.11. Do you still want to try it?\n")
	(($eq ($yorn) 0) : ($say "Wise move.\n") ($exit 0))
	($say "Half way up, you fall off a 1/32 inch wide ledge and
plummet to your death.\n") (exitg);

di19 = ($say "You magically get transported to the corner of Westwood and
Broxton, where you are forced to spend the rest of eternity surrounded by
Hari-Krishna freaks. (That'll teach you not to believe legends.)\n")
	($spec 3 0 0 0 0);

ei20 = (($eq ($prop monkey fedmky) 0):(cg)($exit 0))
	($move .ME irm21);

wi21 = (($eq ($loc peel) irm20) : ($say
"As you leave the temple, you slip on a banana peel and break your neck.\n")
	(exitg)) ($move .ME irm20);

di22 = (($eq ($loc cobra) irm22) : ($say
"The cobra takes a bite at your unprotected leg and injects an
unhealthy dose of neurotoxin.  You start to lose your senses, your 
cognitive abilities, an yer rekcogiskdfsdk.\n")
(exitg))($move .ME irm23);

sm5 = (($eq ($prop paper signed) 0) :
	($say "You bumped into the grate.\n")
	($exit 0))
	($move .ME prm1);

dp2 = (($eq ($prop rope rtied) 0) :
	($say "It is too dangerous to climb down without a rope.\n")
	($exit 0))
	(($and ($eq ($loc lamp) .ME) ($eq ($prop lamp onoff) 1)) :
	($say "Half-way down the rope, the carbide lamp burns through the
rope above you and you plummet to your death.\n" )
	(exitg))
	($say "You climb down the rope without any problems.\n")
	($move .ME prm3);

ep5 = (($eq ($loc spear) .ME) :
	($say "You can't fit the spear you are carrying through that crack.\n")
	($exit 1))
	($move .ME prm6);

ep8 = ($say "You fall off the cliff and plummet several hundred feet to your
death.\n") (exitg);

dp6 = (($eq ($prop smilo stond) 0) :
	($say "As soon as you reach the bottom of the pit, the sabre-tooth
tiger tears you to shreads.\n") (exitg))
	($move .ME prm7);

ep10 = ($say "You fall into the lake, which actually turns out to be a
tar-pit covered with a thin layer of rain water.  You eventually sink and
get fossilized.\n") (exitg);

ep11 = (($eq ($prop feet wiped) 0) :
	($move .ME prm10) ($exit 1))
	($say "As you walk down the slab, your feet slip and you tumble
off the slab.\n")(ep10);

sp12 = ($say "You find your feet to be quite slippery as you walk.\n")
	($setp feet wiped 1)
	($move .ME prm11);

sp14 = (($eq ($prop mammoth blokd) 0) :
	($say "The mammoth keeps you from going that way.\n")
	($exit 1))
	($move .ME prm15);

np17 = (($and ($eq ($prop spear tooky) 1) ($eq ($prop spear abrad) 0)) :
	($say
"The rubble keeps you from going in that direction.\n")($exit 1))
	($move .ME prm18);

np19 = (($eq ($prop bear hitbr) 0) :
	($say "The bear keeps you from going that direction.\n")
	($exit 1))
	($move .ME prm20);

wp22 = (($eq ($loc spear) .ME) :
	($say "The spear that you were carrying lodges in the tyranosaur's
mouth.\n") ($move spear prm23)($move .ME prm23))
	(($eq ($loc spear) prm23) :
	($move .ME prm23))
	(($and ($ne ($loc spear) .ME) ($ne ($loc spear) prm23)) :
	($say "The tyranosaur crushes you in his jaw and then swallows you.\n")
	(exitg));

dp23 = ($say "You slide down the gullet of the tyranosaur and get 
digested alive.\n") (exitg);

dm6 = ($say "After wandering around in the forest for a while, you eventually
find your way out.\n")($move .ME mrm1);

darkq = (($or ($and ($ne ($loc .ME) ($loc lamp)) ($ne ($loc lamp) .ME))
	($eq ($prop lamp onoff) 0 )) :
	($say "It's too dark to see anything in here.\n")
	($exit 1));

darkt = (($or ($and ($ne ($loc .ME) ($loc lamp)) ($ne ($loc lamp) .ME))
	($eq ($prop lamp onoff) 0)) :
	(($pct 50) : ($say
"While stumbling around in the darkness, you trip and impale yourself on a 
stalagmite.\n")(exitg)));  

onlmp = (($ne ($loc lamp) .ME) :
	($say "You don't have the lamp with you.\n")
	($exit 1))
	(($eq ($prop lamp onoff) 0) :
	($say "A blue flame now flickers out of the lantern.\n")
	($setp lamp onoff 1)
		  ($exit 1));

{*** TRANSITIONS ***}

mrm1(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME mrm6 mrm2 mrm6 mrm6 0 0 mrm2 0 0 0)
		($miss 0 0 0 0 cg cg 0 dumdir 0 0);

mrm2(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME mrm1 mrm4 mrm3 mrm4 0 mrm5 0 0 0 0)
		($miss 0 0 0 0 cg 0 dumdir dumdir 0 0);

mrm3(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 mrm2 0 0 0 0 0 0)
		($miss cg cg em3 0 cg cg dumdir dumdir 0 0);

mrm4(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME mrm2 0 0 0 0 0 0 mrm2 0 0)
		($miss 0 cg cg cg cg cg cg 0 0 0);

mrm5(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 mrm2 0 0 0 0 0)
		($miss cg sm5 cg cg 0 cg dumdir dumdir 0 0);

mrm6(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 0 0 0 0 0 0)
		($miss dm6 dm6 dm6 dm6 cg cg dumdir dm6 0 0);

irm1(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 mrm3 0 irm2 0 0 0 0)
		($miss cg cg cg 0 cg 0 dumdir dumdir 0 0);

irm2(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 irm10 irm3 irm1 0 0 0 0 0)
		($miss cg cg 0 0 0 cg dumdir dumdir 0 0);

irm3(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm4 0 irm2 0 0 0 0 0  0 0)
		($miss 0 cg 0 cg cg cg dumdir dumdir 0 0);

irm4(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm3 0 0 0 irm5 0 irm3 0 0)
		($miss cg 0 cg cg cg 0 dumdir 0 0 0);

irm5(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm6 irm7 irm8 0 0 0 0 0 0 0)
		($miss 0 0 0 cg tohigh cg dumdir dumdir 0 0);

irm6(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm5 0 irm7 0 0 0 0 0 0)
		($miss tosml 0 cg 0 cg cg dumdir dumdir 0 0);

irm7(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm5 0 irm6 0 0 0 0 0 0 0)
		($miss 0 cg 0 cg cg cg dumdir dumdir 0 0);

irm8(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 irm5 0 0 0 irm5 0 0)
		($miss cg cg ei8 0 cg cg dumdir 0 0 0);

irm9(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 irm8 irm10 0 0 irm10 0 0)
		($miss cg cg cg 0 0 cg dumdir 0 0 0);

irm10(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm11 irm22 irm2 0 irm9 0 0 0 0)
		($miss cg 0 0 0 cg 0 dumdir dumdir 0 0);

irm11(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm10 irm12 0 irm13 0 0 0 0 0 0)
		($miss 0 0 cg 0 cg cg cg cg 0 0);

irm12(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm11 0 irm15 0 0 0 0 0 0 0)
		($miss 0 cg 0 wi12 cg cg dumdir dumdir 0 0);

irm13(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm15 irm11 0 0 0 0 0 0 0)
		($miss cg 0 0 cg cg cg dumdir dumdir 0 0);

irm14(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 irm12 0 0 0 0 irm12 0 0)
		($miss cg cg 0 cg cg cg dumdir 0 0 0);

irm15(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm13 0 irm16 irm12 0 0 0 0 0 0)
		($miss 0 cg 0 0 cg cg dumdir dumdir 0 0);

irm16(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm22 0 irm18 irm15 0 0 0 0 0 0)
		($miss 0 cg 0 0 ui16 cg dumdir dumdir 0 0);

irm17(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 0 irm16 0 0 0 0)
		($miss cg cg cg cg ui17 0 dumdir dumdir 0 0);

irm18(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm19 irm20 irm16 0 0 0 0 0 0)
		($miss cg 0 0 0 cg cg dumdir dumdir 0 0);

irm19(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME irm18 0 0 0 0 0 0 irm18 0 0)
		($miss 0 cg cg tosml cg di19 dumdir 0 0 0);

irm20(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 irm18 0 0 0 0 0 0)
		($miss cg cg ei20 0 cg cg dumdir dumdir 0 0);

irm21(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 0 0 0 0 0 0)
		($miss cg cg cg wi21 cg cg dumdir wi21 0 0);

irm22(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 irm16 0 irm10 0 0 0 0 0 0)
		($miss cg 0 cg 0 cg di22 di22 cg 0 0);

irm23(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 irm22 0 0 irm22 0 0)
		($miss cg cg cg cg 0 cg dumdir 0 0 0);

prm1(ACTION) = (darkt)
	($setv n s e w u d in out 0 0)
	($hit .ME mrm5 prm2 0 0 0 0 0 0 0 0)
	($miss 0 0 cg cg cg cg dumdir dumdir 0 0);

prm2(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm1 0 0 0 0 0 0 0 0 0)
		($miss 0 cg cg cg cg dp2 dumdir dumdir 0 0);

prm3(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 prm4 prm2 0 0 0 0 0)
		($miss cg cg cg 0 0 cg dumdir dumdir 0 0);

prm4(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm5 prm3 prm9 0 0 prm5 0 0 0)
		($miss cg 0 0 0 cg cg 0 dumdir 0 0);

prm5(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
		($hit .ME prm4 0 0 0 0 0 0 prm4 0 0)
		($miss 0 cg ep5 cg cg cg dumdir 0 0 0);

prm6(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 prm5 0 0 0 0 0 0)
		($miss cg cg cg 0 cg dp6 dumdir dumdir 0 0);

prm7(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm8 0 0 prm6 0 0 0 0 0)
		($miss cg 0 cg cg 0 cg dumdir dumdir 0 0);

prm8(ACTION) = (darkt) ($setv n s e w u d in out 0 0)
		($hit .ME prm7 0 0 0 0 0 0 0 0 0)
		($miss 0 cg ep8 cg cg cg dumdir dumdir 0 0);

prm9(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm10 0 prm4 prm13 0 0 0 0 0 0)
		($miss 0 cg 0 0 cg cg dumdir dumdir 0 0);

prm10(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm9 0 prm11 prm11 0 0 0 0 0)
		($miss cg 0 ep10 0 0 cg dumdir dumdir 0 0);

prm11(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm12 0 0 0 0 0 0 0 0 0)
		($miss 0 cg ep11 cg cg ep11 dumdir dumdir 0 0);

prm12(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 0 0 0 0 0 0)
		($miss cg  sp12 cg cg cg cg dumdir dumdir 0 0);

prm13(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm14 prm9 prm16 0 0 0 0 0 0)
		($miss cg 0 0 0 cg cg dumdir dumdir 0 0);

prm14(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm13 0 0 0 0 0 0 0 0 0)
		($miss 0 sp14 tosml cg cg cg dumdir dumdir 0 0);

prm15(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm14 0 0 0 0 0 0 0 0 0)
		($miss 0 cg cg cg cg cg dumdir dumdir 0 0);

prm16(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm17 0 prm13 0 0 prm21 0 0 0 0)
		($miss 0 cg 0 cg cg 0 dumdir dumdir 0 0);

prm17(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm16 0 0 0 0 0 0 0 0)
		($miss np17 0 cg cg cg cg dumdir dumdir 0 0);

prm18(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME prm19 prm17 0 0 0 0 0 0 0 0)
		($miss 0 0 cg cg cg cg dumdir dumdir 0 0);

prm19(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm18 0 0 0 0 0 0 0 0)
		($miss np19 0 cg cg cg cg dumdir dumdir 0 0);

prm20(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 prm19 0 0 0 0 0 prm19 0 0)
		($miss cg 0 cg cg cg cg dumdir 0 0 0);

prm21(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 prm16 prm22 0 0 0 0)
		($miss cg cg cg cg 0 0 dumdir dumdir 0 0);

prm22(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 0 0 prm21 0 0 0 0 0)
		($miss cg cg cg wp22 0 cg dumdir dumdir 0 0);

prm23(ACTION) = ($setv n s e w u d in out 0 0)
		($hit .ME 0 0 prm22 0 0 0 0 prm22 0 0)
		($miss cg cg 0 cg cg dp23 dumdir 0 0 0);

{*** CHEAT ROUTINES ***}

chetr = (($eq ($prop .ME debug) 0) : ($exit 1));
VERB BEAM;
BEAM(ACTION) = (chetr) ($move .ME ($dobj))(LLOOK);
VERB TRACTOR;
TRACTOR(ACTION) = (chetr) ($move ($dobj) ($loc .ME))
		($say "The ")(($sdisc ($dobj)))($say
" magically appears.\n");
VERB DRIBBLE;
DRIBBLE(ACTION) = (chetr) (ctake) (cdrop);