aard.ddl

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

		($setp spear tooky 1) ($exit 1))))
		(($eq ($verb) shake) :
($say "I don't see any playwrights here.\n"))
		(($and ($eq ($loc .ME) prm23) ($eq ($verb) take)) :
		($say 
"As soon as you take the spear, the Tyranosaurus Rex closes his mouth and
swallows you.\n") (exitg));

axe(ACTION) = (($eq ($loc axe) .ME) : (weapo));

smilo(ACTION) = (($and ($eq ($loc .ME) prm6) ($eq ($verb) take)) :
		($say "You must be dumber than you look.\n")
		($exit 1));

troglodyte(ACTION) = (($and ($eq ($loc .ME) prm8) ($eq ($verb) take)) :
		($say "The troglodyte does not look like he wants to be
carried.\n") ($exit 1));

plant(ACTION) = (($eq ($loc .ME) prm6) :
		(($or ($eq ($verb) throw) ($eq ($verb) drop)) :
		(($eq ($prop smilo stond) 0) :
		($say 
"The plant you were holding turns out to be primo grade catnip.  The
sabre-tooth cat grabs the plant and runs off purring loudly.\n")
		($move plant .ALL)
		($setp smilo stond 1) ($exit 1))))
		(($eq ($verb) eat) :
		($say 
"You completely eat the plant and now feel quite nauseous.\n")
		($move plant .ALL) ($exit 1));

nugget(ACTION) = (($and ($eq ($verb) take)
		($eq ($prop trogl killd) 0)) :
		($say "He ain't gonna let you take it.\n")($exit 1));

cheese(ACTION) = (($eq ($verb) eat) :
		($say "You eat the cheese, but nothing peculiar happens.\n")
		($move cheese .ALL) ($exit 1))
		(($and ($eq ($verb) drop) ($eq ($loc .ME) prm14)) :
		($say 
"As soon as you drop the cheese, a mouse runs out of the hole in the east 
wall and takes it.  This scares the mammoth who runs off in terror.\n")
		($setp mammoth blokd 1)
		($move mammoth .ALL)
		($move cheese .ALL) ($exit 1));

mammoth(ACTION) = (($eq ($loc mammoth) ($loc .ME)) :
		(($eq ($verb) feed) :
		($say "He doesn't look hungry.\n")($exit 1))
		(($eq ($verb) take) : ($say
"He doesn't look too easy to carry.\n") ($exit 1)));

feet(ACTION) = (($eq ($verb) wipe) :
		(($ne ($loc towel) .ME) :
		($say "You don't have something to wipe them with.\n")
		($exit 1))
		($say "You just cleaned off your feet.\n")
		($setp feet wiped 0) ($exit 1))
		(($eq ($verb) touch) :
		($say "You can't without bending your knees.\n"));

cairn(ACTION) = (($eq ($loc .ME) prm18) :
		($say 
"How dare you do such a thing.  Any idiot with just the slightest knowledge
of prehistoric etiquette knows that you aren't supposed to do anything to
a cairn.\n") ($exit 1) );

bear(ACTION) = (($eq ($loc .ME) prm19) :
		(($eq ($verb) take) :
		(($eq ($prop bear hitbr) 0) :
		($say 
"The bear is a little too bulky to carry.\n")($exit 1))));

Tyranosaur(ACTION) = (($and ($ne ($loc .ME) prm22) ($ne ($loc .ME) prm23)) :
		($say
"What?  One of those things hasn't existed in several million years.\n"));

hole(ACTION) = (($eq ($loc .ME) prm14) :
		($say "That hole is too small to do anything with.\n")
		($exit 1))
		(($eq ($loc .ME) irm19) :
		(($eq ($verb) drop) :
		(($eq ($iobj) hole) :
		($say "It falls back out of the hole.\n")
		($exit 1))))
		(($eq ($loc .ME) irm6) :
		(($eq ($verb) drop) :
		(($eq ($iobj) hole) :
		(($eq ($dobj) spices) :
		(($ne ($loc spices) .ME) :
		($say "You ain't got it with you.\n")
		($exit 1))
($say "The bag of spices rips against the jagged sides of the shaft and 
almost all of the spices get blown away in the wind.\n")
		($move spices .ALL)
		($exit 1))
		(($eq ($dobj) rupees) :
		(($ne ($loc rupees) .ME) :
		($say "You ain't got the coins with you.\n")
		($exit 1))
($say "The rupees fall down the shaft into the darkness below.  You
eventually hear a barely audible splash.\n")
		($setp rupees wellbt 1)
		($move rupees .ALL)
		($exit 1))
		($say "That doesn't fit in the hole.\n")
		($exit 1)
		)))
		($say "I do not see any holes here.\n");

newspaper(ACTION) = (($and ($eq ($verb) read) ($eq ($loc newspaper) .ME)) :
		($say
"			   DAILY GNUS
Vol 2.								25 AUGUST

")
		($say
"Spies in the far reaches of the Museum have reported that new construction
is now taking place.\n\n")
		($say
"Dungeon consultant Mr. Mctesq has recently waved his magic wand over the aardvark
museum.  The following things should be brought to light
The commands, SAVE, RESTORE, and SHELL exists and work.
")
		($say
"Multiple commands on a line seperated by a comma are properly handled
by the ddl parser.\n")
		($say
"Again, Adventurers are reminded that restocking of the museum sections will
be greatly rewarded.\n\n"
			)($exit 1));

crack(ACTION) = (($eq ($verb) jamb) :
		($say "The only climbable cracks in this place are A4.\n")
		($exit 1))
		($say "I can't figure that out. I'm not as smart as I am 
cracked up to be.\n")($exit 1);

shaft(ACTION) = (($eq ($verb) jamb) :
		($say "Try jamb crack (How do you jamb a shaft?)\n")
		($exit 1));

{*** DIRECTIONS ***}

VERB north;
VERB south;
VERB east;
VERB west;
VERB up;
VERB down;
VERB in;
VERB out;
n=north;
s=south;
e=east;
w=west;
u=up;
d=down;
enter = in;
exit=out;
leave=out;
climb=up;

{*** VERB ROUTINES ***}

plug(ACTION) = (($eq ($loc .ME) irm13) :
		(($eq ($loc cotton) .ME) :
		($say
"You stick the cotton into the rhino's ears.\n")
		($move cotton .ALL)
		($setp rhino earplg 1)
		($exit 1)))
		($say "I don't quite understand what you mean.\n");

dig(ACTION) = (($ne ($loc shovel) .ME) :
		($say "You don't have something to dig with.\n")
		($exit 1))
		(($eq ($loc .ME) irm9) :
		(($eq ($prop cotton tookbt) 0) : ($setp cotton tookbt 1)
		($say "You find some cotton buried in the sand.\n")
		($move cotton irm9)($exit 0))
		($say "OK\n") ($exit 0))
		(($eq ($loc .ME) prm17) :
		(($eq ($prop pendant dugbt) 0) : ($setp pendant dugbt 1)
		($say "You find an ancient pendant buried in the grave.\n")
		($move pendant prm17) ($exit 0))
		($say "You dig some but you don't find anything.\n")
		($exit 0))
		($say "The ground is too hard to dig into.\n");

cantdo = ($say "I don't believe I can do that.\n");
sign(ACTION) = (cantdo);
play(ACTION) = (cantdo);

arolg = ($say "It will probably cost you an arm or a leg to feed that.\n")
	($exit 1);
feed(ACTION) = (($or ($eq ($loc .ME) irm8) ($eq ($loc .ME) irm9)) :
		(($eq ($dobj) crocodile) :
		(arolg)))
		(($and ($eq ($loc .ME) prm19) ($eq ($dobj) bear)) :
		(($eq ($prop bear hitbr) 0) :
		(arolg)))
		(($and ($eq ($loc .ME) prm6) ($eq ($dobj) smilo)) :
		(($eq ($prop smilo stond) 0) :
		(arolg)))
		(($or ($eq ($loc .ME) prm22) ($eq ($loc .ME) prm23)) :
		(($eq ($dobj) Tyran) : (arolg)))
		($say "I don't quite understand what you mean.\n");

cut(ACTION) = (cantdo);

read(ACTION) = ($say "I don't see any text here that I can read.\n");

throw(ACTION) = (cdrop);

touch(ACTION) = ($say "That doesn't seem to accomplish much.\n");

eat(ACTION) = ($say "I think I just lost my appetite.\n");

abracadabra(ACTION) = (($ne prehs ($loc ($loc .ME))) :
		($say
"That phrase hasn't worked in at least ten thousand years.\n")
		($exit 0))
		(($ne ($loc .ME) prm17) :
		($say "Nothing happens.\n") ($exit 0))
		(($eq ($prop spear tooky) 1) :
		(($eq ($prop spear abrad) 0) :
		($setp spear abrad 1)
		($say "The rubble gets magically cleared away.\n")
		($exit 0)))
		($say "Nothing much happens.\n");

tie(ACTION) =  ($say "It is impossible to tie a knot in that right now. \n");

untie(ACTION) = ($say "I don't quite understand what you mean.\n");

on(ACTION) = (($eq ($prop lamp onoff) 1) :
		($say "The lamp is already on.\n") ($exit 1))
		(onlmp) ($exit 1);

off(ACTION) = (($ne ($loc lamp) .ME) :
		($say "You don't have the lamp with you.\n")
		($exit 1))
		(($eq ($prop lamp onoff) 0) :
		($say "The lamp is already off.\n")
		($exit 1))
		($setp lamp onoff 0)
		($say "The lamp is now off.\n");

light(ACTION) = ($say "I don't know how to light that.\n");

open(ACTION) = ($say "That thing is un-openable.\n");

close(ACTION) = ($say "I don't quite understand what you mean.\n" );

swim(ACTION) = (($eq ($loc .ME) irm8) :
		(ei8) ($exit 0))
		(($eq ($loc .ME) irm9) :
		(ei8) ($move .ME irm8) ($exit 0))
		($say "I don't see enough water here to even wade in.\n");

wipe(ACTION) = ($say "I don't quite comprehend what you are saying.\n");

shake(ACTION) = ($say "That probably won't accomplish much.\n");

jamb(ACTION) = ($say "I don't quite comprehend what you mean.\n");

xyzzy(ACTION) = ($say 
"You are transported to a room where you are faced by a wizard who points to
you and says, ''Them's fighting words!''  You immediately get attacked by
all sorts of denizens of the museum: there is a cobra chewing on your leg,") 
	($say "
a troglodyte is bashing your brains out with a gold nugget, a crocodile is 
removing large chunks of flesh from you, a rhinoceros is goring you with his
horn, a sabre-tooth cat is busy trying to disembowel you, you are being")
	($say "
trampled by a large mammoth, a vampire is sucking you dry, a Tyranosaurus
Rex is sinking his six inch long fangs into various parts of your anatomy,
a large bear is dismembering your body, a gargoyle is bouncing up and")
	($say "
down on your head, a burly troll is tearing you limb from limb, several
dire wolves are making mince meat out of your torso, and the wizard is about
to transport you to the corner of Westwood and Broxton.\n")
	($say "Oh dear, you seem to have gotten yourself killed, as well.\n")
	(skore) (ratng) (ratnx) ($spec 3 0 0 0 0);

score(ACTION) = (skore)(ratng);
skore = ($say "You scored")
	($num ($prop .ME pscore))
	($say "out of")
	($num ($prop .ME pmax))
	($say "possible points.\n");

ratng =	($setp .ME ratvl 0)
	(($ne ($prop .ME pscore) 0) :
	($setp .ME ratvl ($quotient ($times ($prop .ME pscore) 8)
					($prop .ME pmax))))
	($say "That gives you a ranking of ")
	(($eq ($prop .ME ratvl) 0) :
	($say "junior beginning adventurer.\n"))
	(($eq ($prop .ME ratvl) 1) :
	($say "senior beginning adventurer.\n"))
	(($eq ($prop .ME ratvl) 2) :
	($say "intermediate adventurer.\n"))
	(($eq ($prop .ME ratvl) 3) :
	($say "expert adventurer.\n"))
	(($eq ($prop .ME ratvl) 4) :
	($say "junior master adventurer.\n"))
	(($eq ($prop .ME ratvl) 5) :
	($say "master adventurer.\n"))
	(($eq ($prop .ME ratvl) 6) :
	($say "senior master adventurer.\n"))
	(($eq ($prop .ME ratvl) 7) :
	($say "life master adventurer.\n"))
	(($eq ($prop .ME ratvl) 8) :
	($say "super-stud adventurer.\n"));

ratnx = (($eq ($prop .ME ratvl) 8) : 
	($say "CONGRATULATIONS.\n") ($spec 3 0 0 0 0))
	($say "To achieve the next higher rating, you need to score")
	($setp .ME ratvl ($plus ($prop .ME ratvl) 1))
	($setp .ME ratvl ($times ($prop .ME ratvl) ($prop .ME pmax)))
	($setp .ME ratvl ($quotient ($prop .ME ratvl) 8))
	($setp .ME ratvl ($plus ($prop .ME ratvl) 1))
	($setp .ME ratvl ($minus ($prop .ME ratvl) ($prop .ME pscore)))
	($num ($prop .ME ratvl))
	($say "more points.\n");

objl = (($eq %1 0) : ($exit 0))
	(objl ($link %1))
	(($ldisc %1));

objs = (($eq %1 0) : ($exit 0))
	(objs ($link %1))
	(($eq %1 .ME) : ($exit 0))
	(($eq ($prop .ME kludge) 1) : ($say "You can see:\n")
				($setp .ME kludge 0))
	(($sdisc %1))
	($say "\n");

LLOOK =  (($ldisc ($loc .ME)))
	(objl ($cont ($loc .ME)));

SLOOK = (($sdisc ($loc .ME)))
	($setp .ME kludge 1)
	(objs ($cont ($loc .ME)));

LOOK = ( ($prop ($loc .ME) VISIT) :
		(($ne @Myloc ($loc .ME)) :   (SLOOK)) :
		(($ne @Myloc ($loc .ME)) :
			(LLOOK) ($setp ($loc .ME) VISIT 1))
	)
	($setg Myloc ($loc .ME))
	($say "> ");

START = ($setp .ME pmax 250)
	($setp .ME debug 0)
	($move .ME mrm1)
	($sdem LOOK);

quit(ACTION) = (skore) (ratng) (ratnx) ($spec 3 0 0 0 0);

	 look(ACTION) = (LLOOK);

take(ACTION) = (ctake);
scale = ($setp .ME weight 0)
	(($ne ($cont .ME) 0) :
	($setg 12 ($cont .ME)) (scads));
scads = (($ne @12 0):
	($setp .ME weight ($plus ($prop .ME weight) ($prop @12 weight)))
	($setg 12 ($link @12))
	(scads));
ctake = (scale)
	(($ne ($loc .ME) ($loc ($dobj))):
	($say "I don't see that item here.\n")($exit 0))
	(($eq ($prop ($dobj) movbl) 0) :
	($say "That thing is too heavy to carry.\n")($exit 0))
	(($gt ($plus ($prop ($dobj) weight) ($prop .ME weight)) 20) :
	($say
"You are carrying too much.  You will have to at least drop something first.
") ($exit 0))
	($setp .ME weight ($plus ($prop ($dobj) weight) ($prop .ME weight)))
	($say "OK\n") ($move ($dobj) .ME)
	(($eq ($prop ($dobj) rarea) 0 ) : ($exit 0))
	($setp .ME pscore ($plus ($prop .ME pscore) ($prop ($dobj) pfound)))
	($setp ($dobj) pfound 0);

drop(ACTION) = (cdrop);
cdrop = (($ne ($loc ($dobj)) .ME) :
	($say "You don't have it with you.\n")($exit 0))
	(($eq ($loc .ME) prm21) :
	($say "OK, it falls further down into the crack.\n")
	($move ($dobj) prm22) ($exit 1))
	($say "OK\n") ($move ($dobj) ($loc .ME))
	(($eq ($prop ($dobj) rarea) 0 ) : ($exit 0))
	(($eq ($prop ($dobj) rarea) 2) : (($eq ($loc .ME) mrm5) :
			(scord)))
	(($eq ($prop ($dobj) rarea) 1): (($eq ($loc .ME) mrm3) : 
		(scord)));
	
	scord = 
	($setp .ME pscore ($plus ($prop .ME pscore) ($prop ($dobj) pplace)))
	($setp ($dobj) pplace 0);

rname(ACTION) = (($sdisc ($loc .ME))) ($exit 1);
save(ACTION) = ($say "Ok, so far this is how things stand.\n")
	       (skore) (ratng)