aard.ddl

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

{*** ROUTINE DECLARATIONS ***}

ROUTINE inside;
ROUTINE ei8;
ROUTINE cdrop;
ROUTINE ctake;
ROUTINE exitg;
ROUTINE skore;
ROUTINE darkq;
ROUTINE darkt;
ROUTINE objl;
ROUTINE objs;
ROUTINE onlmp;
ROUTINE scord;
ROUTINE ratng;
ROUTINE ratnx;
ROUTINE scads;

{*** GLOBALS ***}

kludge = 2;
onoff = 2;
signed = 2;
tlakst = 2;
fedmky = 2;
ropstf = 2;
readl = 3;
wellbt = 2;
cutflg = 2;
earplg = 3;
tookbt = 2;
movbl = 1;
darkbt = 2;
rtied = 3;
stond = 2;
killd = 2;
wiped = 2;
blokd = 2;
tooky = 2;
abrad = 3;
hitbr = 2;
dugbt = 2;
debug = 10;
VISIT = 11;

rarea = 19;
pfound = 17;
pplace = 18;
pscore = 17;
pmax = 18;
ratvl = 19;
weight = 20;

Myloc = 15;

{*** DEAD-END ROUTINES ***}


cg = ($say "Can't go that way.
");

tosml = ($say "The hole is too small for you to fit through.
");

dumdir = ($say "I don't know which direction that is.
");

tohigh = ($say "The hole is too high for you to reach.
");

nothe = ($say "This section is not implemented yet.\n");

{*** MUSEUM ROOMS ***}

NOUN mrm1;
NOUN mrm2;
NOUN mrm3;
NOUN mrm4;
NOUN mrm5;
NOUN mrm6;

{*** INDIAN ROOMS ***}

NOUN irm1;
NOUN irm2;
NOUN irm3;
NOUN irm4;
NOUN irm5;
NOUN irm6;
NOUN irm7;
NOUN irm8;
NOUN irm9;
NOUN irm10;
NOUN irm11;
NOUN irm12;
NOUN irm13;
NOUN irm14;
NOUN irm15;
NOUN irm16;
NOUN irm17;
NOUN irm18;
NOUN irm19;
NOUN irm20;
NOUN irm21;
NOUN irm22;
NOUN irm23;

{*** PREHISTORIC ROOMS ***}

NOUN prehs;
NOUN prm1(prehs);
prm1(darkbt) = 1;
NOUN prm2(prehs);
NOUN prm3(prehs);
NOUN prm4(prehs);
NOUN prm5(prehs);
prm5(darkbt) = 1;
NOUN prm6(prehs);
prm6(darkbt) = 1;
NOUN prm7(prehs);
prm7(darkbt) = 1;
NOUN prm8(prehs);
prm8(darkbt) = 1;
NOUN prm9(prehs);
NOUN prm10(prehs);
NOUN prm11(prehs);
NOUN prm12(prehs);
NOUN prm13(prehs);
NOUN prm14(prehs);
NOUN prm15(prehs);
NOUN prm16(prehs);
NOUN prm17(prehs);
prm17(darkbt) = 1;
NOUN prm18(prehs);
prm18(darkbt) = 1;
NOUN prm19(prehs);
prm19(darkbt) = 1;
NOUN prm20(prehs);
prm20(darkbt) = 1;
NOUN prm21(prehs);
NOUN prm22(prehs);
NOUN prm23(prehs);

NOUN .ME;
.ME(SDESC) = ($exit 0);
.ME(LDESC) = ($exit 0);

{*** PREPOSITIONS ***}

PREP into;

{*** OBJECTS ***}

NOUN pen(mrm2);
pen(movbl) = 1;
pen(weight) = 1;
pen(LDESC) = ($say "There is a ball-point pen here.\n");
pen(SDESC) = ($say "ball-point pen");

NOUN paper(mrm2);
release = paper;
form = paper;
paper(movbl) = 1;
paper(weight) = 1;
paper(LDESC) = (($eq ($prop paper readl) 0) :
		($say "There is a slip of paper here.\n"))
		(($eq ($prop paper readl) 1) :
		($say "There is a release form here.\n"));
paper(SDESC) = (($eq ($prop paper readl) 0) : ($say "slip of paper"))
		(($eq ($prop paper readl) 1) : ($say "release form"));

NOUN spices(irm6);
spices(movbl) = 1;
spices(weight) = 3;
spices(LDESC) = ($say "There is a bag of spices here.\n");
spices(SDESC) = ($say "spices");
spices(rarea) = 1;
spices(pfound) = 5;
spices(pplace) = 9;

NOUN rupees(irm7);
coins=rupees;
rupees(movbl) = 1;
rupees(weight) = 5;
rupees(LDESC) = ($say "There is a bag of rupees (Indian coins) here.\n");
rupees(SDESC) = ($say "rupees (coins)");
rupees(rarea) = 1;
rupees(pfound) = 5;
rupees(pplace) = 15;

NOUN coconut(irm3);
coconut(movbl) = 1;
coconut(weight) = 3;
coconut(LDESC) = ($say "There is a large coconut here.\n");
coconut(SDESC) = ($say "coconut");

NOUN rope(mrm1);
rope(movbl) = 1;
rope(weight) = 3;
rope(LDESC) = (($eq ($prop rope ropstf) 0):
		($say "There is a coil of rope here.\n"))
		(($eq ($prop rope ropstf) 1) :
		($say "There is a long piece of rope here, magically
rising up in mid-air.\n"));
rope(SDESC) = ($say "rope");

NOUN clarinet(irm2);
clarinet(movbl) = 1;
clarinet(weight) = 2;
clarinet(LDESC) = ($say "There is a clarinet here.\n");
clarinet(SDESC) = ($say "clarinet");

NOUN cobra(irm22);
cobra(LDESC) = ($say "There is a king cobra at the bottom of the pit.\n");
cobra(SDESC) = ($say "cobra");
snake = cobra;
elapid = cobra;

NOUN river;

NOUN statue;

NOUN banana(irm3);
banana(movbl) = 1;
banana(weight) = 2;
banana(LDESC) = ($say "There is a banana here.\n");
banana(SDESC) = ($say "banana");

NOUN peel;
peel(movbl) = 1;
peel(weight) = 1;
peel(LDESC) = ($say "On the ground, there is a banana peel.\n");
peel(SDESC) = ($say "banana peel");

NOUN vishnu;

NOUN mara;

NOUN lakshmi;

NOUN crocodile;

NOUN rhino(irm13);
rhino(LDESC) = (($eq ($prop rhino cutflg) 1) :
	($say "There is a rhino sleeping here with his horn removed.\n"))
	(($eq ($prop rhino cutflg) 0) : 
	($say "There is a rhinoceros sleeping in the corner.\n"))
	(($eq ($prop rhino earplg) 1) :
	($say "There are two pieces of cotton stuck in his ears.\n"));
rhino(SDESC) = ($say "sleeping rhino");

NOUN saw(irm2);
saw(movbl) = 1;
saw(weight) = 2;
saw(LDESC) = ($say "There is a hack-saw on the ground.\n");
saw(SDESC) = ($say "hack-saw");
hacksaw = saw;

NOUN horn;
horn(movbl) = 1;
horn(weight) = 2;
horn(LDESC) = ($say "There is a rhinoceros horn here.\n");
horn(SDESC) = ($say "rhino horn");
horn(rarea) = 1;
horn(pfound) = 14;
horn(pplace) = 7;

NOUN cotton;
cotton(movbl) = 1;
cotton(weight) = 1;
cotton(LDESC) = ($say "There is a large wad of cotton on the ground.\n");
cotton(SDESC) = ($say "cotton");

NOUN lattice(irm13);
lattice(LDESC) = ($exit 0);
lattice(SDESC) = ($exit 0);

NOUN monkey(irm20);
monkey(LDESC) = ($say "There is a sacred temple monkey here.\n");
monkey(SDESC) = ($say "a monkey");

NOUN tandoor;
oven = tandoor;

NOUN comb(irm14);
comb(movbl) = 1;
comb(weight) = 1;
comb(LDESC) = ($say "There is an expertly carved jade comb here.\n");
comb(SDESC) = ($say "jade comb");
comb(rarea) = 1;
comb(pfound) = 7;
comb(pplace) = 6;

NOUN ruby(irm17);
ruby(movbl) = 1;
ruby(weight) = 2;
ruby(LDESC) = ($say "There is a crimson ruby here.\n");
ruby(SDESC) = ($say "ruby");
ruby(rarea) = 1;
ruby(pfound) = 8;
ruby(pplace) = 7;

NOUN bowl(irm21);
bowl(movbl) = 1;
bowl(weight) = 3;
bowl(LDESC) = ($say "There is a crystal bowl here.\n");
bowl(SDESC) = ($say "bowl");
bowl(rarea) = 1;
bowl(pfound) = 10;
bowl(pplace) = 10;

NOUN bracelet(irm23);
bracelet(movbl) = 1;
bracelet(weight) = 1;
bracelet(LDESC) = ($say 
"There is a golden bracelet in the shape of a snake here.\n");
bracelet(SDESC) = ($say "bracelet");
bracelet(rarea) = 1;
bracelet(pfound) = 11;
bracelet(pplace) = 6;

NOUN shovel(mrm1);
shovel(movbl) = 1;
shovel(weight) = 3;
shovel(LDESC) = ($say 
"There is a shovel here.\n");
shovel(SDESC) = ($say "shovel");

NOUN ears;

NOUN pole;

NOUN amber(prm3);
amber(movbl) = 1;
amber(weight) = 2;
amber(LDESC) = ($say "There is a polished piece of amber here.\n");
amber(SDESC) = ($say "amber");
amber(rarea) = 2;
amber(pfound) = 12;
amber(pplace) = 6;

NOUN lamp(mrm1);
lamp(movbl) = 1;
lamp(weight) = 3;
lamp(LDESC) = ($say  "There is a carbide-flame lamp here.\n");
lamp(SDESC) = ($say "lamp");

NOUN grate;

NOUN nugget;
gold = nugget;
nugget(movbl) = 1;
nugget(weight) = 4;
nugget(LDESC) = ($say "There is a gold nugget lying on the ground.\n");
nugget(SDESC) = ($say "gold nugget");
nugget(rarea) = 2;
nugget(pfound) = 13;
nugget(pplace) = 7;

NOUN axe(prm1);
axe(movbl) = 1;
axe(weight) = 1;
axe(LDESC) = ($say "There is an stone-age axe here.\n");
axe(SDESC) = ($say "axe");

NOUN spear(prm17);
spear(movbl) = 1;
spear(weight) = 2;
spear(LDESC) = (($eq ($prop spear tooky) 1) : 
		($say "There is a Neanderthal hunting spear here.\n"))
		(($eq ($prop spear tooky) 0) :
		($say
"There is a Neanderthal hunting spear stuck in the ground.\n"));
spear(SDESC) = ($say "spear");

NOUN plant(prm2);
plant(movbl) = 1;
plant(weight) = 4;
plant(LDESC) = ($say "There is a strange looking potted plant here.\n");
plant(SDESC) = ($say "plant");

NOUN smilodon;  {Putty tat}
sabre = smilodon;

NOUN troglodyte;

NOUN cheese(prm4);
cheese(movbl) = 1;
cheese(weight) = 1;
cheese(LDESC) = ($say
"There is a piece of Swiss cheese here. (Aged 1,000,000 years).
");
cheese(SDESC) = ($say "cheese");

NOUN towel(prm4);
towel(movbl) = 1;
towel(weight) = 2;
towel(LDESC) = ($say "There is an old towel here.\n");
towel(SDESC) = ($say "towel");

NOUN mammoth(prm14);
mammoth(LDESC) = ($say
"There is a large wooly mammoth blocking the path to the south.\n");
mammoth(SDESC) = ($say "mammoth");
elephant = mammoth;
pachyderm = mammoth;