advent.c

advent.c

#define hash_prime 1009 \

#define streq(a,b) (strncmp(a,b,5) ==0)  \

#define min_treasure GOLD
#define is_treasure(t) (t>=min_treasure) 
#define max_obj CHAIN \

#define ok default_msg[RELAX] \

#define new_mess(x) message[k++]= x
#define mess_wd(w) new_word(w,k)  \

#define min_in_cave inside
#define min_lower_loc emist
#define min_forced_loc crack
#define max_loc didit
#define max_spec troll \

#define lighted 1
#define oil 2
#define liquid 4
#define cave_hint 8
#define bird_hint 16
#define snake_hint 32
#define twist_hint 64
#define dark_hint 128
#define witt_hint 256 \

#define travel_size 740
#define rem_size 15 \

#define make_loc(x,l,s,f)  \
{long_desc[x]= l;short_desc[x]= s;flags[x]= f;start[x]= q;}
#define make_inst(m,c,d)  \
{q->mot= m;q->cond= c;q->dest= d;q++;}
#define ditto(m)  \
{q->mot= m;q->cond= (q-1) ->cond;q->dest= (q-1) ->dest;q++;} \

#define holds(o) (100+(o) ) 
#define sees(o) (200+(o) ) 
#define not(o,k) (300+(o) +100*(k) ) 
#define remark(m) remarks[++rem_count]= m
#define sayit (max_spec+rem_count)  \

#define twist(l,n,s,e,w,ne,se,nw,sw,u,d,m)  \
make_loc(l,m,0,0) ; \
make_inst(N,0,n) ; \
make_inst(S,0,s) ; \
make_inst(E,0,e) ; \
make_inst(W,0,w) ; \
make_inst(NE,0,ne) ; \
make_inst(SE,0,se) ; \
make_inst(NW,0,nw) ; \
make_inst(SW,0,sw) ; \
make_inst(U,0,u) ; \
make_inst(D,0,d) ; \

#define max_pirate_loc dead2 \

#define forced_move(loc) (loc>=min_forced_loc) 
#define FORCE 0 \

#define toting(t) (place[t]<0)  \

#define move(t,l) {carry(t) ;drop(t,l) ;}
#define destroy(t) move(t,limbo)  \

#define new_obj(t,n,b,l) { \
name[t]= n; \
base[t]= b; \
offset[t]= note_ptr; \
prop[t]= (is_treasure(t) ?-1:0) ; \
drop(t,l) ; \
} \

#define new_note(n) note[note_ptr++]= n \

#define buf_size 72 \

#define here(t) (toting(t) ||place[t]==loc) 
#define water_here ((flags[loc]&(liquid+oil) ) ==liquid) 
#define oil_here ((flags[loc]&(liquid+oil) ) ==liquid+oil) 
#define no_liquid_here ((flags[loc]&liquid) ==0)  \

#define try_motion(m) {mot= m;goto try_move;}
#define stay_put try_motion(NOWHERE)  \

#define report(m) {PRINTF("%s\n",m) ;continue;}
#define default_to(v) report(default_msg[v]) 
#define change_to(v) {oldverb= verb;verb= v;goto transitive;} \

#define dark ((flags[loc]&lighted) ==0&&(prop[LAMP]==0||!here(LAMP) ) )  \

#define object_in_bottle ((obj==WATER&&prop[BOTTLE]==0) || \
(obj==OIL&&prop[BOTTLE]==2) )  \

#define bottle_empty (prop[BOTTLE]==1||prop[BOTTLE]<0)  \

#define clam_oyster (obj==CLAM?"clam":"oyster")  \

#define pct(r) (ran(100) <r)  \

#define nd 5
#define chest_loc dead2
#define message_loc pony \

#define pirate_not_spotted (place[MESSAGE]==limbo) 
#define too_easy(i) (i==PYRAMID&&(loc==proom||loc==droom) )  \

#define closing (clock1<0)  \

#define max_deaths 3 \

#define max_score 350 \

#define n_hints 8 \

#define highest_class 8 \

/*1:*/
#line 88 "./advent.w"
/* Copyright (C) 1998 by Don Woods and Don Knuth; all rights reserved */

/*:1*//*2:*/
#line 95 "./advent.w"

#include <stdio.h>  
#include <ctype.h>  
#include <string.h>  
#include <time.h>  
#include <stdlib.h>  
/*3:*/
#line 126 "./advent.w"


void nop(void)
{
}

#ifdef FAST
#define PRINTF(...) nop()
#define FFLUSH(...) nop()
#else
#define PRINTF(...) printf(__VA_ARGS__)
#define FFLUSH(...) fflush(__VA_ARGS__)
#endif

#ifdef __STDC__
#define ARGS(list) list
#else
#define ARGS(list) ()
#endif

/*:3*/
#line 101 "./advent.w"


typedef enum{false,true}boolean;
/*5:*/
#line 161 "./advent.w"

typedef enum{no_type,motion_type,object_type,
action_type,message_type}wordtype;
typedef struct{
char text[6];
char word_type;
char meaning;
}hash_entry;

/*:5*//*9:*/
#line 224 "./advent.w"

typedef enum{
N,S,E,W,NE,SE,NW,SW,
U,D,L,R,IN,OUT,FORWARD,BACK,
OVER,ACROSS,UPSTREAM,DOWNSTREAM,
ENTER,CRAWL,JUMP,CLIMB,LOOK,CROSS,
ROAD,WOODS,VALLEY,HOUSE,
GULLY,STREAM,DEPRESSION,ENTRANCE,CAVE,
ROCK,SLAB,BED,PASSAGE,CAVERN,
CANYON,AWKWARD,SECRET,BEDQUILT,RESERVOIR,
GIANT,ORIENTAL,SHELL,BARREN,BROKEN,DEBRIS,VIEW,FORK,
PIT,SLIT,CRACK,DOME,HOLE,WALL,HALL,ROOM,FLOOR,
STAIRS,STEPS,COBBLES,SURFACE,DARK,LOW,OUTDOORS,
Y2,XYZZY,PLUGH,PLOVER,OFFICE,NOWHERE}motion;

/*:9*//*11:*/
#line 363 "./advent.w"

typedef enum{
NOTHING,KEYS,LAMP,GRATE,GRATE_,
CAGE,ROD,ROD2,TREADS,TREADS_,
BIRD,DOOR,PILLOW,SNAKE,CRYSTAL,CRYSTAL_,TABLET,CLAM,OYSTER,
MAG,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,
MIRROR,MIRROR_,PLANT,PLANT2,PLANT2_,
STALACTITE,SHADOW,SHADOW_,
AXE,ART,PIRATE,DRAGON,DRAGON_,
BRIDGE,BRIDGE_,TROLL,TROLL_,TROLL2,TROLL2_,
BEAR,MESSAGE,GEYSER,PONY,BATTERIES,MOSS,
GOLD,DIAMONDS,SILVER,JEWELS,COINS,CHEST,EGGS,TRIDENT,VASE,
EMERALD,PYRAMID,PEARL,RUG,RUG_,SPICES,CHAIN}object;

/*:11*//*13:*/
#line 462 "./advent.w"

typedef enum{
ABSTAIN,TAKE,DROP,OPEN,CLOSE,ON,OFF,WAVE,CALM,GO,RELAX,
POUR,EAT,DRINK,RUB,TOSS,
WAKE,FEED,FILL,BREAK,BLAST,KILL,
SAY,READ,FEEFIE,BRIEF,FIND,INVENTORY,SCORE,QUIT}action;

/*:13*//*18:*/
#line 722 "./advent.w"

typedef enum{
inhand= -1,limbo,
road,hill,house,valley,forest,woods,slit,outside,
inside,cobbles,debris,awk,bird,spit,
emist,nugget,efiss,wfiss,wmist,
like1,like2,like3,like4,like5,like6,like7,
like8,like9,like10,like11,like12,like13,like14,
brink,elong,wlong,
diff0,diff1,diff2,diff3,diff4,diff5,
diff6,diff7,diff8,diff9,diff10,
pony,cross,hmk,west,south,ns,y2,jumble,windoe,
dirty,clean,wet,dusty,complex,
shell,arch,ragged,sac,ante,witt,
bedquilt,cheese,soft,
e2pit,w2pit,epit,wpit,
narrow,giant,block,immense,falls,steep,
abovep,sjunc,tite,low,crawl,window,
oriental,misty,alcove,proom,droom,
slab,abover,mirror,res,
scan1,scan2,scan3,secret,
wide,tight,tall,boulders,
scorr,swside,
dead0,dead1,dead2,dead3,dead4,dead5,dead6,
dead7,dead8,dead9,dead10,dead11,
neside,corr,fork,warm,view,chamber,lime,fbarr,barr,
neend,swend,
crack,neck,lose,cant,climb,check,snaked,
thru,duck,sewer,upnout,didit,
ppass,pdrop,troll}location;

/*:18*//*19:*/
#line 793 "./advent.w"

typedef struct{
motion mot;
int cond;
location dest;
}instruction;

/*:19*/
#line 104 "./advent.w"

/*7:*/
#line 192 "./advent.w"

hash_entry hash_table[hash_prime];
wordtype current_type;

/*:7*//*15:*/
#line 590 "./advent.w"

char*default_msg[30];

/*:15*//*17:*/
#line 687 "./advent.w"

char*message[13];

/*:17*//*20:*/
#line 821 "./advent.w"

instruction travels[travel_size];
instruction*start[max_loc+2];
char*long_desc[max_loc+1];
char*short_desc[max_loc+1];
int flags[max_loc+1];
char*remarks[rem_size];
int rem_count;
int visits[max_loc+1];

/*:20*//*21:*/
#line 850 "./advent.w"

char all_alike[]= "You are in a maze of twisty little passages, all alike.";
char dead_end[]= "Dead end.";
int slit_rmk,grate_rmk,bridge_rmk,loop_rmk;

/*:21*//*63:*/
#line 2169 "./advent.w"

object first[max_loc+1];
object link[max_obj+1];
object base[max_obj+2];
int prop[max_obj+1];
location place[max_obj+1];
char*name[max_obj+1];
char*note[100];
int offset[max_obj+1];
int holding;
int note_ptr= 0;

/*:63*//*73:*/
#line 2493 "./advent.w"

char buffer[buf_size];
char word1[buf_size],word2[buf_size];

/*:73*//*74:*/
#line 2512 "./advent.w"

location oldoldloc,oldloc,loc,newloc;

/*:74*//*77:*/
#line 2585 "./advent.w"

motion mot;
action verb;
action oldverb;
object obj;
object oldobj;
wordtype command_type;
int turns;

/*:77*//*81:*/
#line 2667 "./advent.w"

int west_count;

/*:81*//*84:*/
#line 2696 "./advent.w"

boolean was_dark;

/*:84*//*87:*/
#line 2723 "./advent.w"

int interval= 5;
char pitch_dark_msg[]= 
"It is now pitch dark.  If you proceed you will most likely fall into a pit.";

/*:87*//*89:*/
#line 2752 "./advent.w"

int tally= 15;
int lost_treasures;

/*:89*//*96:*/
#line 2866 "./advent.w"

boolean gave_up;

/*:96*//*103:*/
#line 2967 "./advent.w"

int limit;

/*:103*//*137:*/
#line 3439 "./advent.w"

char*incantation[]= {"fee","fie","foe","foo","fum"};
int foobar;

/*:137*//*142:*/
#line 3499 "./advent.w"

int look_count;

/*:142*//*155:*/
#line 3667 "./advent.w"

int rx;

/*:155*//*159:*/
#line 3716 "./advent.w"

int dflag;
int dkill;
location dloc[nd+1]= {chest_loc,hmk,wfiss,y2,like3,complex};
location odloc[nd+1];
boolean dseen[nd+1];

/*:159*//*165:*/
#line 3810 "./advent.w"

int dtotal;
int attack;
int stick;
location ploc[19];

/*:165*//*168:*/
#line 3846 "./advent.w"

int knife_loc;

/*:168*//*171:*/
#line 3874 "./advent.w"

char*attack_msg[]= {"it misses","it gets you",
"none of them hit you","one of them gets you"};

/*:171*//*177:*/
#line 3979 "./advent.w"

int clock1= 15,clock2= 30;
boolean panic,closed;

/*:177*//*185:*/
#line 4143 "./advent.w"

boolean warned;

/*:185*//*190:*/
#line 4191 "./advent.w"

int death_count;
char*death_wishes[2*max_deaths]= {
"Oh dear, you seem to have gotten yourself killed.  I might be able to\n\
help you out, but I've never really done this before.  Do you want me\n\
to try to reincarnate you?",
"All right.  But don't blame me if something goes wr......\n\
                 --- POOF!! ---\n\
You are engulfed in a cloud of orange smoke.  Coughing and gasping,\n\
you emerge from the smoke and find....",
"You clumsy oaf, you've done it again!  I don't know how long I can\n\
keep this up.  Do you want me to try reincarnating you again?",
"Okay, now where did I put my resurrection kit?....  >POOF!<\n\
Everything disappears in a dense cloud of orange smoke.",
"Now you've really done it!  I'm out of orange smoke!  You don't expect\n\
me to do a decent reincarnation without any orange smoke, do you?",
"Okay, if you're so smart, do it yourself!  I'm leaving!"};

/*:190*//*193:*/
#line 4262 "./advent.w"

int bonus;

/*:193*//*196:*/
#line 4326 "./advent.w"

int hint_count[n_hints];
int hint_thresh[n_hints]= {0,0,4,5,8,75,25,20};
int hint_cost[n_hints]= {5,10,2,2,2,4,5,3};
char*hint_prompt[n_hints]= {
"Welcome to Adventure!!  Would you like instructions?",
"Hmmm, this looks like a clue, which means it'll cost you 10 points to\n\
read it.  Should I go ahead and read it anyway?",
"Are you trying to get into the cave?",
"Are you trying to catch the bird?",
"Are you trying to deal somehow with the snake?",
"Do you need help getting out of the maze?",
"Are you trying to explore beyond the Plover Room?",
"Do you need help getting out of here?"};




char*hint[n_hints]= {
"Somewhere nearby is Colossal Cave, where others have found fortunes in\n\
treasure and gold, though it is rumored that some who enter are never\n\
seen again.  Magic is said to work in the cave.  I will be your eyes\n\
and hands.  Direct me with commands of one or two words.  I should\n\
warn you that I look at only the first five letters of each word, so\n\
you'll have to enter \"NORTHEAST\" as \"NE\" to distinguish it from\n\
\"NORTH\".  Should you get stuck, type \"HELP\" for some general hints.\n\
For information on how to end your adventure, etc., type \"INFO\".\n\
                        -  -  -\n\
The first adventure program was developed by Willie Crowther.\n\
Most of the features of the current program were added by Don Woods;\n\
all of its bugs were added by Don Knuth.",
"It says, \"There is something strange about this place, such that one\n\
of the words I've always known now has a new effect.\"",
"The grate is very solid and has a hardened steel lock.  You cannot\n\
enter without a key, and there are no keys in sight.  I would recommend\n\
looking elsewhere for the keys.",
"Something seems to be frightening the bird just now and you cannot\n\
catch it no matter what you try.  Perhaps you might try later.",
"You can't kill the snake, or drive it away, or avoid it, or anything\n\
like that.  There is a way to get by, but you don't have the necessary\n\
resources right now.",
"You can make the passages look less alike by dropping things.",
"There is a way to explore that region without having to worry about\n\
falling into a pit.  None of the objects available is immediately\n\
useful for discovering the secret.",
"Don't go west."};
boolean hinted[n_hints];

/*:196*//*199:*/
#line 4415 "./advent.w"

int class_score[]= {35,100,130,200,250,300,330,349,9999};
char*class_message[]= {
"You are obviously a rank amateur.  Better luck next time.",
"Your score qualifies you as a novice class adventurer.",
"You have achieved the rating \"Experienced Adventurer\".",
"You may now consider yourself a \"Seasoned Adventurer\".",
"You have reached \"Junior Master\" status.",
"Your score puts you in Master Adventurer Class C.",
"Your score puts you in Master Adventurer Class B.",
"Your score puts you in Master Adventurer Class A.",
"All of Adventuredom gives tribute to you, Adventure Grandmaster!"};

/*:199*/
#line 105 "./advent.w"

/*6:*/
#line 175 "./advent.w"

void new_word ARGS((char*,int));
void new_word(w,m)
char*w;
int m;
{
int h,k;char*p;
for(h= 0,p= w;*p;p++)h= *p+h+h;
h%= hash_prime;
while(hash_table[h].word_type){
h++;if(h==hash_prime)h= 0;
}
strcpy(hash_table[h].text,w);
hash_table[h].word_type= current_type;
hash_table[h].meaning= m;
}

/*:6*//*8:*/
#line 202 "./advent.w"

int lookup ARGS((char*));
int lookup(w)
char*w;
{
int h;char*p;char t;
t= w[5];w[5]= '\0';
for(h= 0,p= w;*p;p++)h= *p+h+h;
h%= hash_prime;
w[5]= t;
if(h<0)return-1;
while(hash_table[h].word_type){
if(streq(w,hash_table[h].text))return h;
h++;if(h==hash_prime)h= 0;
}
return-1;
}

/*:8*//*64:*/
#line 2184 "./advent.w"

void drop ARGS((object,location));
void drop(t,l)
object t;
location l;
{
if(toting(t))holding--;
place[t]= l;
if(l<0)holding++;
else if(l> 0){
link[t]= first[l];
first[l]= t;
}
}

/*:64*//*65:*/
#line 2204 "./advent.w"

void carry ARGS((object));
void carry(t)
object t;
{location l= place[t];
if(l>=limbo){
place[t]= inhand;
holding++;
if(l> limbo){
object r,s;
for(r= 0,s= first[l];s!=t;r= s,s= link[s]);
if(r==0)first[l]= link[s];
else link[r]= link[s];
}
}
}

/*:65*//*66:*/
#line 2226 "./advent.w"

boolean is_at_loc ARGS((object));
boolean is_at_loc(t)
object t;
{object tt;
if(base[t]==NOTHING)return place[t]==loc;
for(tt= t;base[tt]==t;tt++)if(place[tt]==loc)return true;
return false;
}

/*:66*//*71:*/
#line 2436 "./advent.w"

boolean yes ARGS((char*,char*,char*));
boolean yes(q,y,n)
char*q,*y,*n;
{
while(1){
PRINTF("%s\n** ",q);FFLUSH(stdout);
char*ret= fgets(buffer,buf_size,stdin);
if(!ret)exit(0);
if(tolower(*buffer)=='y'){
if(y)PRINTF("%s\n",y);return true;
}else if(tolower(*buffer)=='n'){
if(n)PRINTF("%s\n",n);return false;
}else PRINTF(" Please answer Yes or No.\n");
}
}

/*:71*//*72:*/
#line 2459 "./advent.w"

void listen ARGS((void));
void listen(){
char*p,*q;
while(1){
PRINTF("* ");FFLUSH(stdout);
char*ret= fgets(buffer,buf_size,stdin);
if(!ret)exit(0);
for(p= buffer;isspace(*p);p++);
if(*p==0){
PRINTF(" Tell me to do something.\n");continue;
}
for(q= word1;*p;p++,q++){
if(isspace(*p))break;*q= tolower(*p);
}
*q= '\0';
for(p++;isspace(*p);p++);
if(*p==0){
*word2= '\0';return;
}
for(q= word2;*p;p++,q++){
if(isspace(*p))break;*q= tolower(*p);
}
*q= '\0';
for(p++;isspace(*p);p++);
if(*p==0)return;
PRINTF(" Please stick to 1- and 2-word commands.\n");
}
}

/*:72*//*154:*/
#line 3658 "./advent.w"

int ran ARGS((int));
int ran(range)
int range;
{
rx= (1021*rx)&0xfffff;
return(range*rx)>>20;
}

/*:154*//*160:*/
#line 3725 "./advent.w"

boolean dwarf ARGS((void));
boolean dwarf()
{
int j;
if(dflag<2)return false;
for(j= 1;j<=nd;j++)if(dloc[j]==loc)return true;
return false;
}

/*:160*//*194:*/
#line 4290 "./advent.w"

void offer ARGS((int));
void offer(j)
int j;
{
if(j> 1){
if(!yes(hint_prompt[j]," I am prepared to give you a hint,",ok))return;
PRINTF(" but it will cost you %d points.  ",hint_cost[j]);
hinted[j]= yes("Do you want the hint?",hint[j],ok);
}else hinted[j]= yes(hint_prompt[j],hint[j],ok);
if(hinted[j]&&limit> 30)limit+= 30*hint_cost[j];
}

/*:194*//*197:*/
#line 4376 "./advent.w"

int score ARGS((void));
int score()
{
int j,s= 2;
object k;
if(dflag)s+= 25;
for(k= min_treasure;k<=max_obj;k++){
if(prop[k]>=0){
s+= 2;
if(place[k]==house&&prop[k]==0)
s+= (k<CHEST?10:k==CHEST?12:14);
}
}
s+= 10*(max_deaths-death_count);
if(!gave_up)s+= 4;
if(place[MAG]==witt)s++;
if(closing)s+= 25;
s+= bonus;
for(j= 0;j<n_hints;j++)if(hinted[j])s-= hint_cost[j];
return s;
}

/*:197*/
#line 106 "./advent.w"


int main()
{
int j,k;
char*p;
/*22:*/
#line 855 "./advent.w"

instruction*q,*qq;

/*:22*//*68:*/
#line 2248 "./advent.w"

object t;

/*:68*//*144:*/
#line 3524 "./advent.w"

location l,ll;

/*:144*/
#line 112 "./advent.w"
;
/*200:*/
#line 4434 "./advent.w"

/*156:*/
#line 3672 "./advent.w"

rx= 7777;

/*:156*/
#line 4435 "./advent.w"
;
offer(0);
limit= (hinted[0]?1000:330);
/*10:*/
#line 245 "./advent.w"

current_type= motion_type;
new_word("north",N);
new_word("n",N);
new_word("south",S);
new_word("s",S);
new_word("east",E);
new_word("e",E);
new_word("west",W);
new_word("w",W);
new_word("ne",NE);
new_word("se",SE);
new_word("nw",NW);
new_word("sw",SW);
new_word("upwar",U);
new_word("up",U);
new_word("u",U);
new_word("above",U);
new_word("ascen",U);
new_word("downw",D);
new_word("down",D);
new_word("d",D);
new_word("desce",D);
new_word("left",L);
new_word("right",R);
new_word("inwar",IN);
new_word("insid",IN);
new_word("in",IN);
new_word("out",OUT);
new_word("outsi",OUT);
new_word("exit",OUT);
new_word("leave",OUT);
new_word("forwa",FORWARD);
new_word("conti",FORWARD);
new_word("onwar",FORWARD);
new_word("back",BACK);
new_word("retur",BACK);
new_word("retre",BACK);
new_word("over",OVER);
new_word("acros",ACROSS);
new_word("upstr",UPSTREAM);
new_word("downs",DOWNSTREAM);
new_word("enter",ENTER);
new_word("crawl",CRAWL);
new_word("jump",JUMP);
new_word("climb",CLIMB);
new_word("look",LOOK);
new_word("exami",LOOK);
new_word("touch",LOOK);
new_word("descr",LOOK);
new_word("cross",CROSS);
new_word("road",ROAD);
new_word("hill",ROAD);
new_word("fores",WOODS);
new_word("valle",VALLEY);
new_word("build",HOUSE);
new_word("house",HOUSE);
new_word("gully",GULLY);
new_word("strea",STREAM);
new_word("depre",DEPRESSION);
new_word("entra",ENTRANCE);
new_word("cave",CAVE);
new_word("rock",ROCK);
new_word("slab",SLAB);
new_word("slabr",SLAB);
new_word("bed",BED);
new_word("passa",PASSAGE);
new_word("tunne",PASSAGE);
new_word("caver",CAVERN);
new_word("canyo",CANYON);
new_word("awkwa",AWKWARD);
new_word("secre",SECRET);
new_word("bedqu",BEDQUILT);
new_word("reser",RESERVOIR);
new_word("giant",GIANT);
new_word("orien",ORIENTAL);
new_word("shell",SHELL);
new_word("barre",BARREN);
new_word("broke",BROKEN);
new_word("debri",DEBRIS);
new_word("view",VIEW);
new_word("fork",FORK);
new_word("pit",PIT);
new_word("slit",SLIT);
new_word("crack",CRACK);
new_word("dome",DOME);
new_word("hole",HOLE);
new_word("wall",WALL);
new_word("hall",HALL);
new_word("room",ROOM);
new_word("floor",FLOOR);
new_word("stair",STAIRS);
new_word("steps",STEPS);
new_word("cobbl",COBBLES);
new_word("surfa",SURFACE);
new_word("dark",DARK);
new_word("low",LOW);
new_word("outdo",OUTDOORS);
new_word("y2",Y2);
new_word("xyzzy",XYZZY);
new_word("plugh",PLUGH);
new_word("plove",PLOVER);
new_word("main",OFFICE);
new_word("offic",OFFICE);
new_word("null",NOWHERE);
new_word("nowhe",NOWHERE);

/*:10*//*12:*/
#line 379 "./advent.w"

current_type= object_type;
new_word("key",KEYS);
new_word("keys",KEYS);
new_word("lamp",LAMP);
new_word("lante",LAMP);
new_word("headl",LAMP);
new_word("grate",GRATE);
new_word("cage",CAGE);
new_word("rod",ROD);
new_word("bird",BIRD);
new_word("door",DOOR);
new_word("pillo",PILLOW);
new_word("snake",SNAKE);
new_word("fissu",CRYSTAL);
new_word("table",TABLET);
new_word("clam",CLAM);
new_word("oyste",OYSTER);
new_word("magaz",MAG);
new_word("issue",MAG);
new_word("spelu",MAG);
new_word("\"spel",MAG);
new_word("dwarf",DWARF);
new_word("dwarv",DWARF);
new_word("knife",KNIFE);
new_word("knive",KNIFE);
new_word("food",FOOD);
new_word("ratio",FOOD);
new_word("bottl",BOTTLE);
new_word("jar",BOTTLE);
new_word("water",WATER);
new_word("h2o",WATER);
new_word("oil",OIL);
new_word("mirro",MIRROR);
new_word("plant",PLANT);
new_word("beans",PLANT);
new_word("stala",STALACTITE);
new_word("shado",SHADOW);
new_word("figur",SHADOW);
new_word("axe",AXE);
new_word("drawi",ART);
new_word("pirat",PIRATE);
new_word("drago",DRAGON);
new_word("chasm",BRIDGE);
new_word("troll",TROLL);
new_word("bear",BEAR);
new_word("messa",MESSAGE);
new_word("volca",GEYSER);
new_word("geyse",GEYSER);
new_word("vendi",PONY);
new_word("machi",PONY);
new_word("batte",BATTERIES);
new_word("moss",MOSS);
new_word("carpe",MOSS);
new_word("gold",GOLD);
new_word("nugge",GOLD);
new_word("diamo",DIAMONDS);
new_word("silve",SILVER);
new_word("bars",SILVER);
new_word("jewel",JEWELS);
new_word("coins",COINS);
new_word("chest",CHEST);
new_word("box",CHEST);
new_word("treas",CHEST);
new_word("eggs",EGGS);
new_word("egg",EGGS);
new_word("nest",EGGS);
new_word("tride",TRIDENT);
new_word("ming",VASE);
new_word("vase",VASE);
new_word("shard",VASE);
new_word("potte",VASE);
new_word("emera",EMERALD);
new_word("plati",PYRAMID);
new_word("pyram",PYRAMID);
new_word("pearl",PEARL);
new_word("persi",RUG);
new_word("rug",RUG);
new_word("spice",SPICES);
new_word("chain",CHAIN);

/*:12*//*14:*/
#line 474 "./advent.w"

current_type= action_type;
new_word("take",TAKE);
new_word("carry",TAKE);
new_word("keep",TAKE);
new_word("catch",TAKE);
new_word("captu",TAKE);
new_word("steal",TAKE);
new_word("get",TAKE);
new_word("tote",TAKE);
default_msg[TAKE]= "You are already carrying it!";
new_word("drop",DROP);
new_word("relea",DROP);
new_word("free",DROP);
new_word("disca",DROP);
new_word("dump",DROP);
default_msg[DROP]= "You aren't carrying it!";
new_word("open",OPEN);
new_word("unloc",OPEN);
default_msg[OPEN]= "I don't know how to lock or unlock such a thing.";
new_word("close",CLOSE);
new_word("lock",CLOSE);
default_msg[CLOSE]= default_msg[OPEN];
new_word("light",ON);
new_word("on",ON);
default_msg[ON]= "You have no source of light.";
new_word("extin",OFF);
new_word("off",OFF);
default_msg[OFF]= default_msg[ON];
new_word("wave",WAVE);
new_word("shake",WAVE);
new_word("swing",WAVE);
default_msg[WAVE]= "Nothing happens.";
new_word("calm",CALM);
new_word("placa",CALM);
new_word("tame",CALM);
default_msg[CALM]= "I'm game.  Would you care to explain how?";
new_word("walk",GO);
new_word("run",GO);
new_word("trave",GO);
new_word("go",GO);
new_word("proce",GO);
new_word("explo",GO);
new_word("goto",GO);
new_word("follo",GO);
new_word("turn",GO);
default_msg[GO]= "Where?";
new_word("nothi",RELAX);
default_msg[RELAX]= "OK.";
new_word("pour",POUR);
default_msg[POUR]= default_msg[DROP];
new_word("eat",EAT);
new_word("devou",EAT);
default_msg[EAT]= "Don't be ridiculous!";
new_word("drink",DRINK);
default_msg[DRINK]= "You have taken a drink from the stream.  \
The water tastes strongly of\n\
minerals, but is not unpleasant.  It is extremely cold.";
new_word("rub",RUB);
default_msg[RUB]= "Rubbing the electric lamp \
is not particularly rewarding.  Anyway,\n\
nothing exciting happens.";
new_word("throw",TOSS);
new_word("toss",TOSS);
default_msg[TOSS]= "Peculiar.  Nothing unexpected happens.";
new_word("wake",WAKE);
new_word("distu",WAKE);
default_msg[WAKE]= default_msg[EAT];
new_word("feed",FEED);
default_msg[FEED]= "There is nothing here to eat.";
new_word("fill",FILL);
default_msg[FILL]= "You can't fill that.";
new_word("break",BREAK);
new_word("smash",BREAK);
new_word("shatt",BREAK);
default_msg[BREAK]= "It is beyond your power to do that.";
new_word("blast",BLAST);
new_word("deton",BLAST);
new_word("ignit",BLAST);
new_word("blowu",BLAST);
default_msg[BLAST]= "Blasting requires dynamite.";
new_word("attac",KILL);
new_word("kill",KILL);
new_word("fight",KILL);
new_word("hit",KILL);
new_word("strik",KILL);
new_word("slay",KILL);
default_msg[KILL]= default_msg[EAT];
new_word("say",SAY);
new_word("chant",SAY);
new_word("sing",SAY);
new_word("utter",SAY);
new_word("mumbl",SAY);
new_word("read",READ);
new_word("perus",READ);
default_msg[READ]= "I'm afraid I don't understand.";
new_word("fee",FEEFIE);
new_word("fie",FEEFIE);
new_word("foe",FEEFIE);
new_word("foo",FEEFIE);
new_word("fum",FEEFIE);
default_msg[FEEFIE]= "I don't know how.";
new_word("brief",BRIEF);
default_msg[BRIEF]= "On what?";
new_word("find",FIND);
new_word("where",FIND);
default_msg[FIND]= "I can only tell you what you see \
as you move about and manipulate\n\
things.  I cannot tell you where remote things are.";
new_word("inven",INVENTORY);
default_msg[INVENTORY]= default_msg[FIND];
new_word("score",SCORE);
default_msg[SCORE]= "Eh?";
new_word("quit",QUIT);
default_msg[QUIT]= default_msg[SCORE];

/*:14*//*16:*/
#line 599 "./advent.w"

current_type= message_type;
k= 0;
mess_wd("abra");
mess_wd("abrac");
mess_wd("opens");
mess_wd("sesam");
mess_wd("shaza");
mess_wd("hocus");
mess_wd("pocus");
new_mess("Good try, but that is an old worn-out magic word.");
mess_wd("help");
mess_wd("?");
new_mess("I know of places, actions, and things.  Most of my vocabulary\n\
describes places and is used to move you there.  To move, try words\n\
like forest, building, downstream, enter, east, west, north, south,\n\
up, or down.  I know about a few special objects, like a black rod\n\
hidden in the cave.  These objects can be manipulated using some of\n\
the action words that I know.  Usually you will need to give both the\n\
object and action words (in either order), but sometimes I can infer\n\
the object from the verb alone.  Some objects also imply verbs; in\n\
particular, \"inventory\" implies \"take inventory\", which causes me to\n\
give you a list of what you're carrying.  The objects have side\n\
effects; for instance, the rod scares the bird.  Usually people having\n\
trouble moving just need to try a few more words.  Usually people\n\
trying unsuccessfully to manipulate an object are attempting something\n\
beyond their (or my!) capabilities and should try a completely\n\
different tack.  To speed the game you can sometimes move long\n\
distances with a single word.  For example, \"building\" usually gets\n\
you to the building from anywhere above ground except when lost in the\n\
forest.  Also, note that cave passages turn a lot, and that leaving a\n\
room to the north does not guarantee entering the next from the south.\n\
Good luck!");
mess_wd("tree");
mess_wd("trees");
new_mess("The trees of the forest are large hardwood oak and maple, with an\n\
occasional grove of pine or spruce.  There is quite a bit of under-\n\
growth, largely birch and ash saplings plus nondescript bushes of\n\
various sorts.  This time of year visibility is quite restricted by\n\
all the leaves, but travel is quite easy if you detour around the\n\
spruce and berry bushes.");
mess_wd("dig");
mess_wd("excav");
new_mess("Digging without a shovel is quite impractical.  Even with a shovel\n\
progress is unlikely.");
mess_wd("lost");
new_mess("I'm as confused as you are.");
new_mess("There is a loud explosion and you are suddenly splashed across the\n\
walls of the room.");
new_mess("There is a loud explosion and a twenty-foot hole appears in the far\n\
wall, burying the snakes in the rubble.  A river of molten lava pours\n\
in through the hole, destroying everything in its path, including you!");
mess_wd("mist");
new_mess("Mist is a white vapor, usually water, seen from time to time in\n\
caverns.  It can be found anywhere but is frequently a sign of a deep\n\
pit leading down to water.");
mess_wd("fuck");
new_mess("Watch it!");
new_mess("There is a loud explosion, and a twenty-foot hole appears in the far\n\
wall, burying the dwarves in the rubble.  You march through the hole\n\
and find yourself in the main office, where a cheering band of\n\
friendly elves carry the conquering adventurer off into the sunset.");
mess_wd("stop");
new_mess("I don't know the word \"stop\".  Use \"quit\" if \
you want to give up.");
mess_wd("info");
mess_wd("infor");
new_mess("If you want to end your adventure early, say \"quit\".  To get full\n\
credit for a treasure, you must have left it safely in the building,\n\
though you get partial credit just for locating it.  You lose points\n\
for getting killed, or for quitting, though the former costs you more.\n\
There are also points based on how much (if any) of the cave you've\n\
managed to explore; in particular, there is a large bonus just for\n\
getting in (to distinguish the beginners from the rest of the pack),\n\
and there are other ways to determine whether you've been through some\n\
of the more harrowing sections.  If you think you've found all the\n\
treasures, just keep exploring for a while.  If nothing interesting\n\
happens, you haven't found them all yet.  If something interesting\n\
DOES happen, it means you're getting a bonus and have an opportunity\n\
to garner many more points in the master's section.\n\
I may occasionally offer hints if you seem to be having trouble.\n\
If I do, I'll warn you in advance how much it will affect your score\n\
to accept the hints.  Finally, to save paper, you may specify \"brief\",\n\
which tells me never to repeat the full description of a place\n\
unless you explicitly ask me to.");
mess_wd("swim");
new_mess("I don't know how.");

/*:16*/
#line 4438 "./advent.w"
;
/*23:*/
#line 868 "./advent.w"

q= travels;
make_loc(road,
"You are standing at the end of a road before a small brick building.\n\
Around you is a forest.  A small stream flows out of the building and\n\
down a gully.",
"You're at end of road again.",lighted+liquid);
make_inst(W,0,hill);ditto(U);ditto(ROAD);
make_inst(E,0,house);ditto(IN);ditto(HOUSE);ditto(ENTER);
make_inst(S,0,valley);ditto(D);ditto(GULLY);ditto(STREAM);
ditto(DOWNSTREAM);
make_inst(N,0,forest);ditto(WOODS);
make_inst(DEPRESSION,0,outside);

/*:23*//*24:*/
#line 884 "./advent.w"

make_loc(hill,
"You have walked up a hill, still in the forest.  The road slopes back\n\
down the other side of the hill.  There is a building in the distance.",
"You're at hill in road.",lighted);
make_inst(ROAD,0,road);ditto(HOUSE);ditto(FORWARD);ditto(E);ditto(D);
make_inst(WOODS,0,forest);ditto(N);ditto(S);

/*:24*//*25:*/
#line 901 "./advent.w"

make_loc(house,
"You are inside a building, a well house for a large spring.",
"You're inside building.",lighted+liquid);
make_inst(ENTER,0,road);ditto(OUT);ditto(OUTDOORS);ditto(W);
make_inst(XYZZY,0,debris);
make_inst(PLUGH,0,y2);
make_inst(DOWNSTREAM,0,sewer);ditto(STREAM);

/*:25*//*26:*/
#line 913 "./advent.w"

make_loc(valley,
"You are in a valley in the forest beside a stream tumbling along a\n\
rocky bed.",
"You're in valley.",lighted+liquid);
make_inst(UPSTREAM,0,road);ditto(HOUSE);ditto(N);
make_inst(WOODS,0,forest);ditto(E);ditto(W);ditto(U);
make_inst(DOWNSTREAM,0,slit);ditto(S);ditto(D);
make_inst(DEPRESSION,0,outside);

/*:26*//*27:*/
#line 927 "./advent.w"

make_loc(forest,
"You are in open forest, with a deep valley to one side.",
"You're in forest.",lighted);
make_inst(VALLEY,0,valley);ditto(E);ditto(D);
make_inst(WOODS,50,forest);ditto(FORWARD);ditto(N);
make_inst(WOODS,0,woods);
make_inst(W,0,forest);ditto(S);

make_loc(woods,
"You are in open forest near both a valley and a road.",
short_desc[forest],lighted);
make_inst(ROAD,0,road);ditto(N);
make_inst(VALLEY,0,valley);ditto(E);ditto(W);ditto(D);
make_inst(WOODS,0,forest);ditto(S);

/*:27*//*28:*/
#line 947 "./advent.w"

make_loc(slit,
"At your feet all the water of the stream splashes into a 2-inch slit\n\
in the rock.  Downstream the streambed is bare rock.",
"You're at slit in streambed.",lighted+liquid);
make_inst(HOUSE,0,road);
make_inst(UPSTREAM,0,valley);ditto(N);
make_inst(WOODS,0,forest);ditto(E);ditto(W);
make_inst(DOWNSTREAM,0,outside);ditto(ROCK);ditto(BED);ditto(S);
remark("You don't fit through a two-inch slit!");
make_inst(SLIT,0,sayit);ditto(STREAM);ditto(D);
slit_rmk= sayit;

/*:28*//*29:*/
#line 963 "./advent.w"

make_loc(outside,
"You are in a 20-foot depression floored with bare dirt.  Set into the\n\
dirt is a strong steel grate mounted in concrete.  A dry streambed\n\
leads into the depression.",
"You're outside grate.",lighted+cave_hint);
make_inst(WOODS,0,forest);ditto(E);ditto(W);ditto(S);
make_inst(HOUSE,0,road);
make_inst(UPSTREAM,0,slit);ditto(GULLY);ditto(N);
make_inst(ENTER,not(GRATE,0),inside);ditto(ENTER);ditto(IN);ditto(D);
remark("You can't go through a locked steel grate!");
grate_rmk= sayit;
make_inst(ENTER,0,sayit);

/*:29*//*30:*/
#line 980 "./advent.w"

make_loc(inside,
"You are in a small chamber beneath a 3x3 steel grate to the surface.\n\
A low crawl over cobbles leads inwards to the west.",
"You're below the grate.",lighted);
make_inst(OUT,not(GRATE,0),outside);ditto(OUT);ditto(U);
make_inst(OUT,0,grate_rmk);
make_inst(CRAWL,0,cobbles);ditto(COBBLES);ditto(IN);ditto(W);
make_inst(PIT,0,spit);
make_inst(DEBRIS,0,debris);

/*:30*//*31:*/
#line 993 "./advent.w"

make_loc(cobbles,
"You are crawling over cobbles in a low passage.  There is a dim light\n\
at the east end of the passage.",
"You're in cobble crawl.",lighted);
make_inst(OUT,0,inside);ditto(SURFACE);ditto(NOWHERE);ditto(E);
make_inst(IN,0,debris);ditto(DARK);ditto(W);ditto(DEBRIS);
make_inst(PIT,0,spit);

make_loc(debris,
"You are in a debris room filled with stuff washed in from the surface.\n\
A low wide passage with cobbles becomes plugged with mud and debris\n\
here, but an awkward canyon leads upward and west.  A note on the wall\n\
says \"MAGIC WORD XYZZY\".",
"You're in debris room.",0);
make_inst(DEPRESSION,not(GRATE,0),outside);
make_inst(ENTRANCE,0,inside);
make_inst(CRAWL,0,cobbles);ditto(COBBLES);ditto(PASSAGE);ditto(LOW);ditto(E);
make_inst(CANYON,0,awk);ditto(IN);ditto(U);ditto(W);
make_inst(XYZZY,0,house);
make_inst(PIT,0,spit);

make_loc(awk,
"You are in an awkward sloping east/west canyon.",0,0);
make_inst(DEPRESSION,not(GRATE,0),outside);
make_inst(ENTRANCE,0,inside);
make_inst(D,0,debris);ditto(E);ditto(DEBRIS);
make_inst(IN,0,bird);ditto(U);ditto(W);
make_inst(PIT,0,spit);

make_loc(bird,
"You are in a splendid chamber thirty feet high.  The walls are frozen\n\
rivers of orange stone.  An awkward canyon and a good passage exit\n\
from east and west sides of the chamber.",
"You're in bird chamber.",bird_hint);
make_inst(DEPRESSION,not(GRATE,0),outside);
make_inst(ENTRANCE,0,inside);
make_inst(DEBRIS,0,debris);
make_inst(CANYON,0,awk);ditto(E);
make_inst(PASSAGE,0,spit);ditto(PIT);ditto(W);

make_loc(spit,
"At your feet is a small pit breathing traces of white mist.  An east\n\
passage ends here except for a small crack leading on.",
"You're at top of small pit.",0);
make_inst(DEPRESSION,not(GRATE,0),outside);
make_inst(ENTRANCE,0,inside);
make_inst(DEBRIS,0,debris);
make_inst(PASSAGE,0,bird);ditto(E);
make_inst(D,holds(GOLD),neck);ditto(PIT);ditto(STEPS);
make_inst(D,0,emist);
make_inst(CRACK,0,crack);ditto(W);

/*:31*//*32:*/
#line 1048 "./advent.w"

make_loc(emist,
"You are at one end of a vast hall stretching forward out of sight to\n\
the west.  There are openings to either side.  Nearby, a wide stone\n\
staircase leads downward.  The hall is filled with wisps of white mist\n\
swaying to and fro almost as if alive.  A cold wind blows up the\n\
staircase.  There is a passage at the top of a dome behind you.",
"You're in Hall of Mists.",0);
make_inst(L,0,nugget);ditto(S);
make_inst(FORWARD,0,efiss);ditto(HALL);ditto(W);
make_inst(STAIRS,0,hmk);ditto(D);ditto(N);
make_inst(U,holds(GOLD),cant);ditto(PIT);ditto(STEPS);
ditto(DOME);ditto(PASSAGE);ditto(E);
make_inst(U,0,spit);
make_inst(Y2,0,jumble);

/*:32*//*33:*/
#line 1066 "./advent.w"

make_loc(nugget,
"This is a low room with a crude note on the wall.  The note says,\n\
\"You won't get it up the steps\".",
"You're in nugget of gold room.",0);
make_inst(HALL,0,emist);ditto(OUT);ditto(N);

/*:33*//*34:*/
#line 1077 "./advent.w"

make_loc(efiss,
"You are on the east bank of a fissure slicing clear across the hall.\n\
The mist is quite thick here, and the fissure is too wide to jump.",
"You're on east bank of fissure.",0);
make_inst(HALL,0,emist);ditto(E);
remark("I respectfully suggest you go across the bridge instead of jumping.");
bridge_rmk= sayit;
make_inst(JUMP,not(CRYSTAL,0),sayit);
make_inst(FORWARD,not(CRYSTAL,1),lose);
remark("There is no way across the fissure.");
make_inst(OVER,not(CRYSTAL,1),sayit);ditto(ACROSS);ditto(W);ditto(CROSS);
make_inst(OVER,0,wfiss);

make_loc(wfiss,
"You are on the west side of the fissure in the Hall of Mists.",0,0);
make_inst(JUMP,not(CRYSTAL,0),bridge_rmk);
make_inst(FORWARD,not(CRYSTAL,1),lose);
make_inst(OVER,not(CRYSTAL,1),sayit);ditto(ACROSS);ditto(E);ditto(CROSS);
make_inst(OVER,0,efiss);
make_inst(N,0,thru);
make_inst(W,0,wmist);

/*:34*//*35:*/
#line 1103 "./advent.w"

make_loc(wmist,
"You are at the west end of the Hall of Mists.  A low wide crawl\n\
continues west and another goes north.  To the south is a little\n\
passage 6 feet off the floor.",
"You're at west end of Hall of Mists.",0);
make_inst(S,0,like1);ditto(U);ditto(PASSAGE);ditto(CLIMB);
make_inst(E,0,wfiss);
make_inst(N,0,duck);
make_inst(W,0,elong);ditto(CRAWL);

/*:35*//*36:*/
#line 1121 "./advent.w"

make_loc(like1,all_alike,0,twist_hint);
make_inst(U,0,wmist);
make_inst(N,0,like1);
make_inst(E,0,like2);
make_inst(S,0,like4);
make_inst(W,0,like11);

make_loc(like2,all_alike,0,twist_hint);
make_inst(W,0,like1);
make_inst(S,0,like3);
make_inst(E,0,like4);

make_loc(like3,all_alike,0,twist_hint);
make_inst(E,0,like2);
make_inst(D,0,dead5);
make_inst(S,0,like6);
make_inst(N,0,dead9);

make_loc(like4,all_alike,0,twist_hint);
make_inst(W,0,like1);
make_inst(N,0,like2);
make_inst(E,0,dead3);
make_inst(S,0,dead4);
make_inst(U,0,like14);ditto(D);

make_loc(like5,all_alike,0,twist_hint);
make_inst(E,0,like6);
make_inst(W,0,like7);

make_loc(like6,all_alike,0,twist_hint);
make_inst(E,0,like3);
make_inst(W,0,like5);
make_inst(D,0,like7);
make_inst(S,0,like8);

make_loc(like7,all_alike,0,twist_hint);
make_inst(W,0,like5);
make_inst(U,0,like6);
make_inst(E,0,like8);
make_inst(S,0,like9);

make_loc(like8,all_alike,0,twist_hint);
make_inst(W,0,like6);
make_inst(E,0,like7);
make_inst(S,0,like8);
make_inst(U,0,like9);
make_inst(N,0,like10);
make_inst(D,0,dead11);

make_loc(like9,all_alike,0,twist_hint);
make_inst(W,0,like7);
make_inst(N,0,like8);
make_inst(S,0,dead6);

make_loc(like10,all_alike,0,twist_hint);
make_inst(W,0,like8);
make_inst(N,0,like10);
make_inst(D,0,dead7);
make_inst(E,0,brink);

make_loc(like11,all_alike,0,twist_hint);
make_inst(N,0,like1);
make_inst(W,0,like11);ditto(S);
make_inst(E,0,dead1);

make_loc(like12,all_alike,0,twist_hint);
make_inst(S,0,brink);
make_inst(E,0,like13);
make_inst(W,0,dead10);

make_loc(like13,all_alike,0,twist_hint);
make_inst(N,0,brink);
make_inst(W,0,like12);
make_inst(NW,0,dead2);

make_loc(like14,all_alike,0,twist_hint);
make_inst(U,0,like4);ditto(D);

/*:36*//*37:*/
#line 1200 "./advent.w"

make_loc(brink,
"You are on the brink of a thirty-foot pit with a massive orange column\n\
down one wall.  You could climb down here but you could not get back\n\
up.  The maze continues at this level.",
"You're at brink of pit.",0);
make_inst(D,0,bird);ditto(CLIMB);
make_inst(W,0,like10);
make_inst(S,0,dead8);
make_inst(N,0,like12);
make_inst(E,0,like13);

/*:37*//*38:*/
#line 1214 "./advent.w"

make_loc(elong,
"You are at the east end of a very long hall apparently without side\n\
chambers.  To the east a low wide crawl slants up.  To the north a\n\
round two-foot hole slants down.",
"You're at east end of long hall.",0);
make_inst(E,0,wmist);ditto(U);ditto(CRAWL);
make_inst(W,0,wlong);
make_inst(N,0,cross);ditto(D);ditto(HOLE);

make_loc(wlong,
"You are at the west end of a very long featureless hall.  The hall\n\
joins up with a narrow north/south passage.",
"You're at west end of long hall.",0);
make_inst(E,0,elong);
make_inst(N,0,cross);
make_inst(S,100,diff0);

/*:38*//*39:*/
#line 1257 "./advent.w"

twist(diff0,diff9,diff1,diff7,diff8,diff3,diff4,diff6,diff2,diff5,wlong,

"You are in a maze of twisty little passages, all different.");
twist(diff1,diff8,diff9,diff10,diff0,diff5,diff2,diff3,diff4,diff6,diff7,

"You are in a maze of twisting little passages, all different.");
twist(diff2,diff3,diff4,diff8,diff5,diff7,diff10,diff0,diff6,diff1,diff9,

"You are in a little maze of twisty passages, all different.");
twist(diff3,diff7,diff10,diff6,diff2,diff4,diff9,diff8,diff5,diff0,diff1,

"You are in a twisting maze of little passages, all different.");
twist(diff4,diff1,diff7,diff5,diff9,diff0,diff3,diff2,diff10,diff8,diff6,

"You are in a twisting little maze of passages, all different.");
twist(diff5,diff0,diff3,diff4,diff6,diff8,diff1,diff9,diff7,diff10,diff2,

"You are in a twisty little maze of passages, all different.");
twist(diff6,diff10,diff5,diff0,diff1,diff9,diff8,diff7,diff3,diff2,diff4,

"You are in a twisty maze of little passages, all different.");
twist(diff7,diff6,diff2,diff9,diff10,diff1,diff0,diff5,diff8,diff4,diff3,

"You are in a little twisty maze of passages, all different.");
twist(diff8,diff5,diff6,diff1,diff4,diff2,diff7,diff10,diff9,diff3,diff0,

"You are in a maze of little twisting passages, all different.");
twist(diff9,diff4,diff8,diff2,diff3,diff10,diff6,diff1,diff0,diff7,diff5,

"You are in a maze of little twisty passages, all different.");
twist(diff10,diff2,pony,diff3,diff7,diff6,diff5,diff4,diff1,diff9,diff8,

"You are in a little maze of twisting passages, all different.");

make_loc(pony,dead_end,0,0);
make_inst(N,0,diff10);ditto(OUT);

/*:39*//*40:*/
#line 1301 "./advent.w"

make_loc(cross,
"You are at a crossover of a high N/S passage and a low E/W one.",0,0);
make_inst(W,0,elong);
make_inst(N,0,dead0);
make_inst(E,0,west);
make_inst(S,0,wlong);

make_loc(hmk,
"You are in the Hall of the Mountain King, with passages off in all\n\
directions.",
"You're in Hall of Mt King.",snake_hint);
make_inst(STAIRS,0,emist);ditto(U);ditto(E);
make_inst(N,not(SNAKE,0),ns);ditto(L);
make_inst(S,not(SNAKE,0),south);ditto(R);
make_inst(W,not(SNAKE,0),west);ditto(FORWARD);
make_inst(N,0,snaked);
make_inst(SW,35,secret);
make_inst(SW,sees(SNAKE),snaked);
make_inst(SECRET,0,secret);

make_loc(west,
"You are in the west side chamber of the Hall of the Mountain King.\n\
A passage continues west and up here.",
"You're in west side chamber.",0);
make_inst(HALL,0,hmk);ditto(OUT);ditto(E);
make_inst(W,0,cross);ditto(U);

make_loc(south,
"You are in the south side chamber.",0,0);
make_inst(HALL,0,hmk);ditto(OUT);ditto(N);

/*:40*//*41:*/
#line 1340 "./advent.w"

make_loc(ns,
"You are in a low N/S passage at a hole in the floor.  The hole goes\n\
down to an E/W passage.",
"You're in N/S passage.",0);
make_inst(HALL,0,hmk);ditto(OUT);ditto(S);
make_inst(N,0,y2);ditto(Y2);
make_inst(D,0,dirty);ditto(HOLE);

make_loc(y2,
"You are in a large room, with a passage to the south, a passage to the\n\
west, and a wall of broken rock to the east.  There is a large \"Y2\" on\n\
a rock in the room's center.",
"You're at \"Y2\".",0);
make_inst(PLUGH,0,house);
make_inst(S,0,ns);
make_inst(E,0,jumble);ditto(WALL);ditto(BROKEN);
make_inst(W,0,windoe);
make_inst(PLOVER,holds(EMERALD),pdrop);
make_inst(PLOVER,0,proom);

make_loc(jumble,
"You are in a jumble of rock, with cracks everywhere.",0,0);
make_inst(D,0,y2);ditto(Y2);
make_inst(U,0,emist);

make_loc(windoe,
"You're at a low window overlooking a huge pit, which extends up out of\n\
sight.  A floor is indistinctly visible over 50 feet below.  Traces of\n\
white mist cover the floor of the pit, becoming thicker to the right.\n\
Marks in the dust around the window would seem to indicate that\n\
someone has been here recently.  Directly across the pit from you and\n\
25 feet away there is a similar window looking into a lighted room.\n\
A shadowy figure can be seen there peering back at you.",
"You're at window on pit.",0);
make_inst(E,0,y2);ditto(Y2);
make_inst(JUMP,0,neck);

/*:41*//*42:*/
#line 1380 "./advent.w"

make_loc(dirty,
"You are in a dirty broken passage.  To the east is a crawl.  To the\n\
west is a large passage.  Above you is a hole to another passage.",
"You're in dirty passage.",0);
make_inst(E,0,clean);ditto(CRAWL);
make_inst(U,0,ns);ditto(HOLE);
make_inst(W,0,dusty);
make_inst(BEDQUILT,0,bedquilt);

make_loc(clean,
"You are on the brink of a small clean climbable pit.  A crawl leads\n\
west.",
"You're by a clean pit.",0);
make_inst(W,0,dirty);ditto(CRAWL);
make_inst(D,0,wet);ditto(PIT);ditto(CLIMB);

make_loc(wet,
"You are in the bottom of a small pit with a little stream, which\n\
enters and exits through tiny slits.",
"You're in pit by stream.",liquid);
make_inst(CLIMB,0,clean);ditto(U);ditto(OUT);
make_inst(SLIT,0,slit_rmk);ditto(STREAM);ditto(D);ditto(UPSTREAM);ditto(DOWNSTREAM);

make_loc(dusty,
"You are in a large room full of dusty rocks.  There is a big hole in\n\
the floor.  There are cracks everywhere, and a passage leading east.",
"You're in dusty rock room.",0);
make_inst(E,0,dirty);ditto(PASSAGE);
make_inst(D,0,complex);ditto(HOLE);ditto(FLOOR);
make_inst(BEDQUILT,0,bedquilt);

make_loc(complex,
"You are at a complex junction.  A low hands-and-knees passage from the\n\
north joins a higher crawl from the east to make a walking passage\n\
going west.  There is also a large room above.  The air is damp here.",
"You're at complex junction.",0);
make_inst(U,0,dusty);ditto(CLIMB);ditto(ROOM);
make_inst(W,0,bedquilt);ditto(BEDQUILT);
make_inst(N,0,shell);ditto(SHELL);
make_inst(E,0,ante);

/*:42*//*43:*/
#line 1425 "./advent.w"

make_loc(shell,
"You're in a large room carved out of sedimentary rock.  The floor\n\
and walls are littered with bits of shells embedded in the stone.\n\
A shallow passage proceeds downward, and a somewhat steeper one\n\
leads up.  A low hands-and-knees passage enters from the south.",
"You're in Shell Room.",0);
make_inst(U,0,arch);ditto(HALL);
make_inst(D,0,ragged);
remark("You can't fit this five-foot clam through that little passage!");
make_inst(S,holds(CLAM),sayit);
remark("You can't fit this five-foot oyster through that little passage!");
make_inst(S,holds(OYSTER),sayit);
make_inst(S,0,complex);

make_loc(arch,
"You are in an arched hall.  A coral passage once continued up and east\n\
from here, but is now blocked by debris.  The air smells of sea water.",
"You're in arched hall.",0);
make_inst(D,0,shell);ditto(SHELL);ditto(OUT);

make_loc(ragged,
"You are in a long sloping corridor with ragged sharp walls.",0,0);
make_inst(U,0,shell);ditto(SHELL);
make_inst(D,0,sac);

make_loc(sac,
"You are in a cul-de-sac about eight feet across.",0,0);
make_inst(U,0,ragged);ditto(OUT);
make_inst(SHELL,0,shell);

/*:43*//*44:*/
#line 1458 "./advent.w"

make_loc(ante,
"You are in an anteroom leading to a large passage to the east.  Small\n\
passages go west and up.  The remnants of recent digging are evident.\n\
A sign in midair here says \"CAVE UNDER CONSTRUCTION BEYOND THIS POINT.\n\
PROCEED AT OWN RISK.  [WITT CONSTRUCTION COMPANY]\"",
"You're in anteroom.",0);
make_inst(U,0,complex);
make_inst(W,0,bedquilt);
make_inst(E,0,witt);

make_loc(witt,
"You are at Witt's End.  Passages lead off in \"all\" directions.",
"You're at Witt's End.",witt_hint);
remark("You have crawled around in some little holes and wound up back in the\n\
main passage.");
loop_rmk= sayit;
make_inst(E,95,sayit);ditto(N);ditto(S);
ditto(NE);ditto(SE);ditto(SW);ditto(NW);ditto(U);ditto(D);
make_inst(E,0,ante);
remark("You have crawled around in some little holes and found your way\n\
blocked by a recent cave-in.  You are now back in the main passage.");
make_inst(W,0,sayit);

/*:44*//*45:*/
#line 1494 "./advent.w"

make_loc(bedquilt,
"You are in Bedquilt, a long east/west passage with holes everywhere.\n\
To explore at random select north, south, up, or down.",
"You're in Bedquilt.",0);
make_inst(E,0,complex);
make_inst(W,0,cheese);
make_inst(S,80,loop_rmk);
make_inst(SLAB,0,slab);
make_inst(U,80,loop_rmk);
make_inst(U,50,abovep);
make_inst(U,0,dusty);
make_inst(N,60,loop_rmk);
make_inst(N,75,low);
make_inst(N,0,sjunc);
make_inst(D,80,loop_rmk);
make_inst(D,0,ante);

make_loc(cheese,
"You are in a room whose walls resemble Swiss cheese.  Obvious passages\n\
go west, east, NE, and NW.  Part of the room is occupied by a large\n\
bedrock block.",
"You're in Swiss cheese room.",0);
make_inst(NE,0,bedquilt);
make_inst(W,0,e2pit);
make_inst(S,80,loop_rmk);
make_inst(CANYON,0,tall);
make_inst(E,0,soft);
make_inst(NW,50,loop_rmk);
make_inst(ORIENTAL,0,oriental);

make_loc(soft,
"You are in the Soft Room.  The walls are covered with heavy curtains,\n\
the floor with a thick pile carpet.  Moss covers the ceiling.",
"You're in Soft Room.",0);
make_inst(W,0,cheese);ditto(OUT);

/*:45*//*46:*/
#line 1536 "./advent.w"

make_loc(e2pit,
"You are at the east end of the Twopit Room.  The floor here is\n\
littered with thin rock slabs, which make it easy to descend the pits.\n\
There is a path here bypassing the pits to connect passages from east\n\
and west.  There are holes all over, but the only big one is on the\n\
wall directly over the west pit where you can't get to it.",
"You're at east end of Twopit Room.",0);
make_inst(E,0,cheese);
make_inst(W,0,w2pit);ditto(ACROSS);
make_inst(D,0,epit);ditto(PIT);

make_loc(w2pit,
"You are at the west end of the Twopit Room.  There is a large hole in\n\
the wall above the pit at this end of the room.",
"You're at west end of Twopit Room.",0);
make_inst(E,0,e2pit);ditto(ACROSS);
make_inst(W,0,slab);ditto(SLAB);
make_inst(D,0,wpit);ditto(PIT);
remark("It is too far up for you to reach.");
make_inst(HOLE,0,sayit);

make_loc(epit,
"You are at the bottom of the eastern pit in the Twopit Room.  There is\n\
a small pool of oil in one corner of the pit.",
"You're in east pit.",liquid+oil);
make_inst(U,0,e2pit);ditto(OUT);

make_loc(wpit,
"You are at the bottom of the western pit in the Twopit Room.  There is\n\
a large hole in the wall about 25 feet above you.",
"You're in west pit.",0);
make_inst(U,0,w2pit);ditto(OUT);
make_inst(CLIMB,not(PLANT,4),check);
make_inst(CLIMB,0,climb);

/*:46*//*47:*/
#line 1575 "./advent.w"

make_loc(narrow,
"You are in a long, narrow corridor stretching out of sight to the\n\
west.  At the eastern end is a hole through which you can see a\n\
profusion of leaves.",
"You're in narrow corridor.",0);
make_inst(D,0,wpit);ditto(CLIMB);ditto(E);
make_inst(JUMP,0,neck);
make_inst(W,0,giant);ditto(GIANT);

make_loc(giant,
"You are in the Giant Room.  The ceiling here is too high up for your\n\
lamp to show it.  Cavernous passages lead east, north, and south.  On\n\
the west wall is scrawled the inscription, \"FEE FIE FOE FOO\" [sic].",
"You're in Giant Room.",0);
make_inst(S,0,narrow);
make_inst(E,0,block);
make_inst(N,0,immense);

make_loc(block,
"The passage here is blocked by a recent cave-in.",0,0);
make_inst(S,0,giant);ditto(GIANT);ditto(OUT);

make_loc(immense,
"You are at one end of an immense north/south passage.",0,0);
make_inst(S,0,giant);ditto(GIANT);ditto(PASSAGE);
make_inst(N,not(DOOR,0),falls);ditto(ENTER);ditto(CAVERN);
remark("The door is extremely rusty and refuses to open.");
make_inst(N,0,sayit);

make_loc(falls,
"You are in a magnificent cavern with a rushing stream, which cascades\n\
over a sparkling waterfall into a roaring whirlpool that disappears\n\
through a hole in the floor.  Passages exit to the south and west.",
"You're in cavern with waterfall.",liquid);
make_inst(S,0,immense);ditto(OUT);
make_inst(GIANT,0,giant);
make_inst(W,0,steep);

make_loc(steep,
"You are at the top of a steep incline above a large room.  You could\n\
climb down here, but you would not be able to climb up.  There is a\n\
passage leading back to the north.",
"You're at steep incline above large room.",0);
make_inst(N,0,falls);ditto(CAVERN);ditto(PASSAGE);
make_inst(D,0,low);ditto(CLIMB);

/*:47*//*48:*/
#line 1625 "./advent.w"

make_loc(abovep,
"You are in a secret N/S canyon above a sizable passage.",0,0);
make_inst(N,0,sjunc);
make_inst(D,0,bedquilt);ditto(PASSAGE);
make_inst(S,0,tite);

make_loc(sjunc,
"You are in a secret canyon at a junction of three canyons, bearing\n\
north, south, and SE.  The north one is as tall as the other two\n\
combined.",
"You're at junction of three secret canyons.",0);
make_inst(SE,0,bedquilt);
make_inst(S,0,abovep);
make_inst(N,0,window);

make_loc(tite,
"A large stalactite extends from the roof and almost reaches the floor\n\
below.  You could climb down it, and jump from it to the floor, but\n\
having done so you would be unable to reach it to climb back up.",
"You're on top of stalactite.",0);
make_inst(N,0,abovep);
make_inst(D,40,like6);ditto(JUMP);ditto(CLIMB);
make_inst(D,50,like9);
make_inst(D,0,like4);

make_loc(low,
"You are in a large low room.  Crawls lead north, SE, and SW.",0,0);
make_inst(BEDQUILT,0,bedquilt);
make_inst(SW,0,scorr);
make_inst(N,0,crawl);
make_inst(SE,0,oriental);ditto(ORIENTAL);

make_loc(crawl,
"Dead end crawl.",0,0);
make_inst(S,0,low);ditto(CRAWL);ditto(OUT);

/*:48*//*49:*/
#line 1669 "./advent.w"

make_loc(window,
"You're at a low window overlooking a huge pit, which extends up out of\n\
sight.  A floor is indistinctly visible over 50 feet below.  Traces of\n\
white mist cover the floor of the pit, becoming thicker to the left.\n\
Marks in the dust around the window would seem to indicate that\n\
someone has been here recently.  Directly across the pit from you and\n\
25 feet away there is a similar window looking into a lighted room.\n\
A shadowy figure can be seen there peering back at you.",
short_desc[windoe],0);
make_inst(W,0,sjunc);
make_inst(JUMP,0,neck);

/*:49*//*50:*/
#line 1684 "./advent.w"

make_loc(oriental,
"This is the Oriental Room.  Ancient oriental cave drawings cover the\n\
walls.  A gently sloping passage leads upward to the north, another\n\
passage leads SE, and a hands-and-knees crawl leads west.",
"You're in Oriental Room.",0);
make_inst(SE,0,cheese);
make_inst(W,0,low);ditto(CRAWL);
make_inst(U,0,misty);ditto(N);ditto(CAVERN);

make_loc(misty,
"You are following a wide path around the outer edge of a large cavern.\n\
Far below, through a heavy white mist, strange splashing noises can be\n\
heard.  The mist rises up through a fissure in the ceiling.  The path\n\
exits to the south and west.",
"You're in misty cavern.",0);
make_inst(S,0,oriental);ditto(ORIENTAL);
make_inst(W,0,alcove);

/*:50*//*51:*/
#line 1708 "./advent.w"

make_loc(alcove,
"You are in an alcove.  A small NW path seems to widen after a short\n\
distance.  An extremely tight tunnel leads east.  It looks like a very\n\
tight squeeze.  An eerie light can be seen at the other end.",
"You're in alcove.",dark_hint);
make_inst(NW,0,misty);ditto(CAVERN);
make_inst(E,0,ppass);ditto(PASSAGE);
make_inst(E,0,proom);

make_loc(proom,
"You're in a small chamber lit by an eerie green light.  An extremely\n\
narrow tunnel exits to the west.  A dark corridor leads NE.",
"You're in Plover Room.",lighted+dark_hint);
make_inst(W,0,ppass);ditto(PASSAGE);ditto(OUT);
make_inst(W,0,alcove);
make_inst(PLOVER,holds(EMERALD),pdrop);
make_inst(PLOVER,0,y2);
make_inst(NE,0,droom);ditto(DARK);

make_loc(droom,
"You're in the Dark-Room.  A corridor leading south is the only exit.",
"You're in Dark-Room.",dark_hint);
make_inst(S,0,proom);ditto(PLOVER);ditto(OUT);

/*:51*//*52:*/
#line 1737 "./advent.w"

make_loc(slab,
"You are in a large low circular chamber whose floor is an immense slab\n\
fallen from the ceiling (Slab Room).  There once were large passages\n\
to the east and west, but they are now filled with boulders.  Low\n\
small passages go north and south, and the south one quickly bends\n\
east around the boulders.",
"You're in Slab Room.",0);
make_inst(S,0,w2pit);
make_inst(U,0,abover);ditto(CLIMB);
make_inst(N,0,bedquilt);

make_loc(abover,
"You are in a secret N/S canyon above a large room.",0,0);
make_inst(D,0,slab);ditto(SLAB);
make_inst(S,not(DRAGON,0),scan2);
make_inst(S,0,scan1);
make_inst(N,0,mirror);
make_inst(RESERVOIR,0,res);

make_loc(mirror,
"You are in a north/south canyon about 25 feet across.  The floor is\n\
covered by white mist seeping in from the north.  The walls extend\n\
upward for well over 100 feet.  Suspended from some unseen point far\n\
above you, an enormous two-sided mirror is hanging parallel to and\n\
midway between the canyon walls.  (The mirror is obviously provided\n\
for the use of the dwarves, who as you know are extremely vain.)\n\
A small window can be seen in either wall, some fifty feet up.",
"You're in mirror canyon.",0);
make_inst(S,0,abover);
make_inst(N,0,res);ditto(RESERVOIR);

make_loc(res,
"You are at the edge of a large underground reservoir.  An opaque cloud\n\
of white mist fills the room and rises rapidly upward.  The lake is\n\
fed by a stream, which tumbles out of a hole in the wall about 10 feet\n\
overhead and splashes noisily into the water somewhere within the\n\
mist.  The only passage goes back toward the south.",
"You're at reservoir.",liquid);
make_inst(S,0,mirror);ditto(OUT);

/*:52*//*53:*/
#line 1784 "./advent.w"

make_loc(scan1,
"You are in a secret canyon that exits to the north and east.",0,0);
make_inst(N,0,abover);ditto(OUT);
remark("The dragon looks rather nasty.  You'd best not try to get by.");
make_inst(E,0,sayit);ditto(FORWARD);

make_loc(scan2,long_desc[scan1],0,0);
make_inst(N,0,abover);
make_inst(E,0,secret);

make_loc(scan3,long_desc[scan1],0,0);
make_inst(E,0,secret);ditto(OUT);
make_inst(N,0,sayit);ditto(FORWARD);

make_loc(secret,
"You are in a secret canyon, which here runs E/W.  It crosses over a\n\
very tight canyon 15 feet below.  If you go down you may not be able\n\
to get back up.",
"You're in secret E/W canyon above tight canyon.",0);
make_inst(E,0,hmk);
make_inst(W,not(DRAGON,0),scan2);
make_inst(W,0,scan3);
make_inst(D,0,wide);

/*:53*//*54:*/
#line 1811 "./advent.w"

make_loc(wide,
"You are at a wide place in a very tight N/S canyon.",0,0);
make_inst(S,0,tight);
make_inst(N,0,tall);

make_loc(tight,
"The canyon here becomes too tight to go further south.",0,0);
make_inst(N,0,wide);

make_loc(tall,
"You are in a tall E/W canyon.  A low tight crawl goes 3 feet north and\n\
seems to open up.",
"You're in tall E/W canyon.",0);
make_inst(E,0,wide);
make_inst(W,0,boulders);
make_inst(N,0,cheese);ditto(CRAWL);

make_loc(boulders,
"The canyon runs into a mass of boulders --- dead end.",0,0);
make_inst(S,0,tall);

/*:54*//*55:*/
#line 1844 "./advent.w"

make_loc(scorr,
"You are in a long winding corridor sloping out of sight in both\n\
directions.",
"You're in sloping corridor.",0);
make_inst(D,0,low);
make_inst(U,0,swside);

make_loc(swside,
"You are on one side of a large, deep chasm.  A heavy white mist rising\n\
up from below obscures all view of the far side.  A SW path leads away\n\
from the chasm into a winding corridor.",
"You're on SW side of chasm.",0);
make_inst(SW,0,scorr);
remark("The troll refuses to let you cross.");
make_inst(OVER,sees(TROLL),sayit);ditto(ACROSS);ditto(CROSS);ditto(NE);
remark("There is no longer any way across the chasm.");
make_inst(OVER,not(BRIDGE,0),sayit);
make_inst(OVER,0,troll);
make_inst(JUMP,not(BRIDGE,0),lose);
make_inst(JUMP,0,bridge_rmk);

/*:55*//*56:*/
#line 1873 "./advent.w"

make_loc(dead0,dead_end,0,0);
make_inst(S,0,cross);ditto(OUT);

make_loc(dead1,dead_end,0,twist_hint);
make_inst(W,0,like11);ditto(OUT);

make_loc(dead2,dead_end,0,0);
make_inst(SE,0,like13);

make_loc(dead3,dead_end,0,twist_hint);
make_inst(W,0,like4);ditto(OUT);

make_loc(dead4,dead_end,0,twist_hint);
make_inst(E,0,like4);ditto(OUT);

make_loc(dead5,dead_end,0,twist_hint);
make_inst(U,0,like3);ditto(OUT);

make_loc(dead6,dead_end,0,twist_hint);
make_inst(W,0,like9);ditto(OUT);

make_loc(dead7,dead_end,0,twist_hint);
make_inst(U,0,like10);ditto(OUT);

make_loc(dead8,dead_end,0,0);
make_inst(E,0,brink);ditto(OUT);

make_loc(dead9,dead_end,0,twist_hint);
make_inst(S,0,like3);ditto(OUT);

make_loc(dead10,dead_end,0,twist_hint);
make_inst(E,0,like12);ditto(OUT);

make_loc(dead11,dead_end,0,twist_hint);
make_inst(U,0,like8);ditto(OUT);

/*:56*//*57:*/
#line 1915 "./advent.w"

make_loc(neside,
"You are on the far side of the chasm.  A NE path leads away from the\n\
chasm on this side.",
"You're on NE side of chasm.",0);
make_inst(NE,0,corr);
make_inst(OVER,sees(TROLL),sayit-1);ditto(ACROSS);ditto(CROSS);ditto(SW);
make_inst(OVER,0,troll);
make_inst(JUMP,0,bridge_rmk);
make_inst(FORK,0,fork);
make_inst(VIEW,0,view);
make_inst(BARREN,0,fbarr);

make_loc(corr,
"You're in a long east/west corridor.  A faint rumbling noise can be\n\
heard in the distance.",
"You're in corridor.",0);
make_inst(W,0,neside);
make_inst(E,0,fork);ditto(FORK);
make_inst(VIEW,0,view);
make_inst(BARREN,0,fbarr);

make_loc(fork,
"The path forks here.  The left fork leads northeast.  A dull rumbling\n\
seems to get louder in that direction.  The right fork leads southeast\n\
down a gentle slope.  The main corridor enters from the west.",
"You're at fork in path.",0);
make_inst(W,0,corr);
make_inst(NE,0,warm);ditto(L);
make_inst(SE,0,lime);ditto(R);ditto(D);
make_inst(VIEW,0,view);
make_inst(BARREN,0,fbarr);

make_loc(warm,
"The walls are quite warm here.  From the north can be heard a steady\n\
roar, so loud that the entire cave seems to be trembling.  Another\n\
passage leads south, and a low crawl goes east.",
"You're at junction with warm walls.",0);
make_inst(S,0,fork);ditto(FORK);
make_inst(N,0,view);ditto(VIEW);
make_inst(E,0,chamber);ditto(CRAWL);

make_loc(view,
"You are on the edge of a breath-taking view.  Far below you is an\n\
active volcano, from which great gouts of molten lava come surging\n\
out, cascading back down into the depths.  The glowing rock fills the\n\
farthest reaches of the cavern with a blood-red glare, giving every-\n\
thing an eerie, macabre appearance.  The air is filled with flickering\n\
sparks of ash and a heavy smell of brimstone.  The walls are hot to\n\
the touch, and the thundering of the volcano drowns out all other\n\
sounds.  Embedded in the jagged roof far overhead are myriad twisted\n\
formations, composed of pure white alabaster, which scatter the murky\n\
light into sinister apparitions upon the walls.  To one side is a deep\n\
gorge, filled with a bizarre chaos of tortured rock that seems to have\n\
been crafted by the Devil himself.  An immense river of fire crashes\n\
out from the depths of the volcano, burns its way through the gorge,\n\
and plummets into a bottomless pit far off to your left.  To the\n\
right, an immense geyser of blistering steam erupts continuously\n\
from a barren island in the center of a sulfurous lake, which bubbles\n\
ominously.  The far right wall is aflame with an incandescence of its\n\
own, which lends an additional infernal splendor to the already\n\
hellish scene.  A dark, foreboding passage exits to the south.",
"You're at breath-taking view.",lighted);
make_inst(S,0,warm);ditto(PASSAGE);ditto(OUT);
make_inst(FORK,0,fork);
remark(default_msg[EAT]);
make_inst(D,0,sayit);ditto(JUMP);

make_loc(chamber,
"You are in a small chamber filled with large boulders.  The walls are\n\
very warm, causing the air in the room to be almost stifling from the\n\
heat.  The only exit is a crawl heading west, through which a low\n\
rumbling noise is coming.",
"You're in chamber of boulders.",0);
make_inst(W,0,warm);ditto(OUT);ditto(CRAWL);
make_inst(FORK,0,fork);
make_inst(VIEW,0,view);

make_loc(lime,
"You are walking along a gently sloping north/south passage lined with\n\
oddly shaped limestone formations.",
"You're in limestone passage.",0);
make_inst(N,0,fork);ditto(U);ditto(FORK);
make_inst(S,0,fbarr);ditto(D);ditto(BARREN);
make_inst(VIEW,0,view);

make_loc(fbarr,
"You are standing at the entrance to a large, barren room.  A sign\n\
posted above the entrance reads:  \"CAUTION!  BEAR IN ROOM!\"",
"You're in front of barren room.",0);
make_inst(W,0,lime);ditto(U);
make_inst(FORK,0,fork);
make_inst(E,0,barr);ditto(IN);ditto(BARREN);ditto(ENTER);
make_inst(VIEW,0,view);

make_loc(barr,
"You are inside a barren room.  The center of the room is completely\n\
empty except for some dust.  Marks in the dust lead away toward the\n\
far end of the room.  The only exit is the way you came in.",
"You're in barren room.",0);
make_inst(W,0,fbarr);ditto(OUT);
make_inst(FORK,0,fork);
make_inst(VIEW,0,view);

/*:57*//*58:*/
#line 2022 "./advent.w"

make_loc(neend,
"You are at the northeast end of an immense room, even larger than the\n\
Giant Room.  It appears to be a repository for the \"Adventure\"\n\
program.  Massive torches far overhead bathe the room with smoky\n\
yellow light.  Scattered about you can be seen a pile of bottles (all\n\
of them empty), a nursery of young beanstalks murmuring quietly, a bed\n\
of oysters, a bundle of black rods with rusty stars on their ends, and\n\
a collection of brass lanterns.  Off to one side a great many dwarves\n\
are sleeping on the floor, snoring loudly.  A sign nearby reads:  \"DO\n\
NOT DISTURB THE DWARVES!\"  An immense mirror is hanging against one\n\
wall, and stretches to the other end of the room, where various other\n\
sundry objects can be glimpsed dimly in the distance.",
"You're at NE end.",lighted);
make_inst(SW,0,swend);

make_loc(swend,
"You are at the southwest end of the repository.  To one side is a pit\n\
full of fierce green snakes.  On the other side is a row of small\n\
wicker cages, each of which contains a little sulking bird.  In one\n\
corner is a bundle of black rods with rusty marks on their ends.\n\
A large number of velvet pillows are scattered about on the floor.\n\
A vast mirror stretches off to the northeast.  At your feet is a\n\
large steel grate, next to which is a sign that reads, \"TREASURE\n\
VAULT.  KEYS IN MAIN OFFICE.\"",
"You're at SW end.",lighted);
make_inst(NE,0,neend);
make_inst(D,0,grate_rmk);

/*:58*//*59:*/
#line 2061 "./advent.w"

make_loc(crack,
"The crack is far too small for you to follow.",0,0);
make_inst(FORCE,0,spit);

/*:59*//*60:*/
#line 2067 "./advent.w"

make_loc(neck,
"You are at the bottom of the pit with a broken neck.",0,0);
make_inst(FORCE,0,limbo);

make_loc(lose,"You didn't make it.",0,0);
make_inst(FORCE,0,limbo);

/*:60*//*61:*/
#line 2078 "./advent.w"

make_loc(cant,
"The dome is unclimbable.",0,0);
make_inst(FORCE,0,emist);

make_loc(climb,
"You clamber up the plant and scurry through the hole at the top.",0,0);
make_inst(FORCE,0,narrow);

make_loc(check,"",0,0);
make_inst(FORCE,not(PLANT,2),upnout);
make_inst(FORCE,0,didit);

make_loc(snaked,
"You can't get by the snake.",0,0);
make_inst(FORCE,0,hmk);

make_loc(thru,
"You have crawled through a very low wide passage parallel to and north\n\
of the Hall of Mists.",0,0);
make_inst(FORCE,0,wmist);

make_loc(duck,long_desc[thru],0,0);
make_inst(FORCE,0,wfiss);

make_loc(sewer,
"The stream flows out through a pair of 1-foot-diameter sewer pipes.\n\
It would be advisable to use the exit.",0,0);
make_inst(FORCE,0,house);

make_loc(upnout,
"There is nothing here to climb.  Use \"up\" or \"out\" to leave the pit.",0,0);
make_inst(FORCE,0,wpit);

make_loc(didit,
"You have climbed up the plant and out of the pit.",0,0);
make_inst(FORCE,0,w2pit);

/*:61*//*62:*/
#line 2119 "./advent.w"

start[ppass]= q;
if(q> &travels[travel_size]||rem_count> rem_size){
PRINTF("Oops, I'm broken!\n");exit(-1);
}

/*:62*/
#line 4439 "./advent.w"
;
/*69:*/
#line 2262 "./advent.w"

new_obj(RUG_,0,RUG,scan3);
new_obj(RUG,"Persian rug",RUG,scan1);
new_note("There is a Persian rug spread out on the floor!");
new_note("The dragon is sprawled out on a Persian rug!!");
new_obj(TROLL2_,0,TROLL2,limbo);
new_obj(TROLL2,0,TROLL2,limbo);
new_note("The troll is nowhere to be seen.");
new_obj(TROLL_,0,TROLL,neside);
new_obj(TROLL,0,TROLL,swside);
new_note("A burly troll stands by the bridge and insists you throw him a\n\
treasure before you may cross.");
new_note("The troll steps out from beneath the bridge and blocks your way.");
new_note(0);
new_obj(BRIDGE_,0,BRIDGE,neside);
new_obj(BRIDGE,0,BRIDGE,swside);
new_note("A rickety wooden bridge extends across the chasm, vanishing into the\n\
mist.  A sign posted on the bridge reads, \"STOP!  PAY TROLL!\"");
new_note("The wreckage of a bridge (and a dead bear) can be seen at the bottom\n\
of the chasm.");
new_obj(DRAGON_,0,DRAGON,scan3);
new_obj(DRAGON,0,DRAGON,scan1);
new_note("A huge green fierce dragon bars the way!");
new_note("Congratulations!  You have just vanquished a dragon with your bare\n\
hands! (Unbelievable, isn't it?)");
new_note("The body of a huge green dead dragon is lying off to one side.");
new_obj(SHADOW_,0,SHADOW,window);
new_obj(SHADOW,0,SHADOW,windoe);
new_note("The shadowy figure seems to be trying to attract your attention.");
new_obj(PLANT2_,0,PLANT2,e2pit);
new_obj(PLANT2,0,PLANT2,w2pit);
new_note(0);
new_note("The top of a 12-foot-tall beanstalk is poking out of the west pit.");
new_note("There is a huge beanstalk growing out of the west pit up to the hole.");
new_obj(CRYSTAL_,0,CRYSTAL,wfiss);
new_obj(CRYSTAL,0,CRYSTAL,efiss);
new_note(0);
new_note("A crystal bridge now spans the fissure.");
new_note("The crystal bridge has vanished!");
new_obj(TREADS_,0,TREADS,emist);
new_obj(TREADS,0,TREADS,spit);
new_note("Rough stone steps lead down the pit.");
new_note("Rough stone steps lead up the dome.");
new_obj(GRATE_,0,GRATE,inside);
new_obj(GRATE,0,GRATE,outside);
new_note("The grate is locked.");
new_note("The grate is open.");
new_obj(MIRROR_,0,MIRROR,limbo);

/*:69*//*70:*/
#line 2314 "./advent.w"

new_obj(CHAIN,"Golden chain",CHAIN,barr);
new_note("There is a golden chain lying in a heap on the floor!");
new_note("The bear is locked to the wall with a golden chain!");
new_note("There is a golden chain locked to the wall!");
new_obj(SPICES,"Rare spices",0,chamber);
new_note("There are rare spices here!");
new_obj(PEARL,"Glistening pearl",0,limbo);
new_note("Off to one side lies a glistening pearl!");
new_obj(PYRAMID,"Platinum pyramid",0,droom);
new_note("There is a platinum pyramid here, 8 inches on a side!");
new_obj(EMERALD,"Egg-sized emerald",0,proom);
new_note("There is an emerald here the size of a plover's egg!");
new_obj(VASE,"Ming vase",0,oriental);
new_note("There is a delicate, precious, Ming vase here!");
new_note("The vase is now resting, delicately, on a velvet pillow.");
new_note("The floor is littered with worthless shards of pottery.");
new_note("The Ming vase drops with a delicate crash.");
new_obj(TRIDENT,"Jeweled trident",0,falls);
new_note("There is a jewel-encrusted trident here!");
new_obj(EGGS,"Golden eggs",0,giant);
new_note("There is a large nest here, full of golden eggs!");
new_note("The nest of golden eggs has vanished!");
new_note("Done!");
new_obj(CHEST,"Treasure chest",0,limbo);
new_note("The pirate's treasure chest is here!");
new_obj(COINS,"Rare coins",0,west);
new_note("There are many coins here!");
new_obj(JEWELS,"Precious jewelry",0,south);
new_note("There is precious jewelry here!");
new_obj(SILVER,"Bars of silver",0,ns);
new_note("There are bars of silver here!");
new_obj(DIAMONDS,"Several diamonds",0,wfiss);
new_note("There are diamonds here!");
new_obj(GOLD,"Large gold nugget",0,nugget);
new_note("There is a large sparkling nugget of gold here!");
new_obj(MOSS,0,MOSS,soft);
new_note(0);
new_obj(BATTERIES,"Batteries",0,limbo);
new_note("There are fresh batteries here.");
new_note("Some worn-out batteries have been discarded nearby.");
new_obj(PONY,0,PONY,pony);
new_note("There is a massive vending machine here.  The instructions on it read:\n\
\"Drop coins here to receive fresh batteries.\"");
new_obj(GEYSER,0,GEYSER,view);
new_note(0);
new_obj(MESSAGE,0,MESSAGE,limbo);
new_note("There is a message scrawled in the dust in a flowery script, reading:\n\
\"This is not the maze where the pirate hides his treasure chest.\"");
new_obj(BEAR,0,BEAR,barr);
new_note("There is a ferocious cave bear eying you from the far end of the room!");
new_note("There is a gentle cave bear sitting placidly in one corner.");
new_note("There is a contented-looking bear wandering about nearby.");
new_note(0);
new_obj(PIRATE,0,PIRATE,limbo);
new_note(0);
new_obj(ART,0,ART,oriental);
new_note(0);
new_obj(AXE,"Dwarf's axe",0,limbo);
new_note("There is a little axe here.");
new_note("There is a little axe lying beside the bear.");
new_obj(STALACTITE,0,STALACTITE,tite);
new_note(0);
new_obj(PLANT,0,PLANT,wpit);
new_note("There is a tiny little plant in the pit, murmuring \"Water, water, ...\"");
new_note("The plant spurts into furious growth for a few seconds.");
new_note("There is a 12-foot-tall beanstalk stretching up out of the pit,\n\
bellowing \"Water!!  Water!!\"");
new_note("The plant grows explosively, almost filling the bottom of the pit.");
new_note("There is a gigantic beanstalk stretching all the way up to the hole.");
new_note("You've over-watered the plant!  It's shriveling up!  It's, it's...");
new_obj(MIRROR,0,MIRROR,mirror);
new_note(0);
new_obj(OIL,"Oil in the bottle",0,limbo);
new_obj(WATER,"Water in the bottle",0,limbo);
new_obj(BOTTLE,"Small bottle",0,house);
new_note("There is a bottle of water here.");
new_note("There is an empty bottle here.");
new_note("There is a bottle of oil here.");
new_obj(FOOD,"Tasty food",0,house);
new_note("There is food here.");
new_obj(KNIFE,0,0,limbo);
new_obj(DWARF,0,DWARF,limbo);
new_obj(MAG,"\"Spelunker Today\"",0,ante);
new_note("There are a few recent issues of \"Spelunker Today\" magazine here.");
new_obj(OYSTER,"Giant oyster >GROAN!<",0,limbo);
new_note("There is an enormous oyster here with its shell tightly closed.");
new_note("Interesting.  There seems to be something written \
on the underside of\nthe oyster.");
new_obj(CLAM,"Giant clam >GRUNT!<",0,shell);
new_note("There is an enormous clam here with its shell tightly closed.");
new_obj(TABLET,0,TABLET,droom);
new_note("A massive stone tablet embedded in the wall reads:\n\
\"CONGRATULATIONS ON BRINGING LIGHT INTO THE DARK-ROOM!\"");
new_obj(SNAKE,0,SNAKE,hmk);
new_note("A huge green fierce snake bars the way!");
new_note(0);
new_obj(PILLOW,"Velvet pillow",0,soft);
new_note("A small velvet pillow lies on the floor.");
new_obj(DOOR,0,DOOR,immense);
new_note("The way north is barred by a massive, rusty, iron door.");
new_note("The way north leads through a massive, rusty, iron door.");
new_obj(BIRD,"Little bird in cage",0,bird);
new_note("A cheerful little bird is sitting here singing.");
new_note("There is a little bird in the cage.");
new_obj(ROD2,"Black rod",0,limbo);
new_note("A three-foot black rod with a rusty mark on an end lies nearby.");
new_obj(ROD,"Black rod",0,debris);
new_note("A three-foot black rod with a rusty star on an end lies nearby.");
new_obj(CAGE,"Wicker cage",0,cobbles);
new_note("There is a small wicker cage discarded nearby.");
new_obj(LAMP,"Brass lantern",0,house);
new_note("There is a shiny brass lamp nearby.");
new_note("There is a lamp shining nearby.");
new_obj(KEYS,"Set of keys",0,house);
new_note("There are some keys on the ground here.");

/*:70*/
#line 4440 "./advent.w"
;
oldoldloc= oldloc= loc= newloc= road;

/*:200*/
#line 113 "./advent.w"
;
/*75:*/
#line 2528 "./advent.w"

while(1){
/*153:*/
#line 3643 "./advent.w"

if(closing&&newloc<min_in_cave&&newloc!=limbo){
/*180:*/
#line 4036 "./advent.w"

{
if(!panic)clock2= 15,panic= true;
PRINTF("A mysterious recorded voice groans into life and announces:\n\
\"This exit is closed.  Please leave via main office.\"\n");
}

/*:180*/
#line 3645 "./advent.w"
;newloc= loc;
}else if(newloc!=loc)
/*176:*/
#line 3961 "./advent.w"

if(loc<=max_pirate_loc){
for(j= 1;j<=nd;j++)if(odloc[j]==newloc&&dseen[j]){
PRINTF("A little dwarf with a big knife blocks your way.\n");
newloc= loc;break;
}
}

/*:176*/
#line 3647 "./advent.w"
;

/*:153*/
#line 2530 "./advent.w"
;
loc= newloc;
/*161:*/
#line 3743 "./advent.w"

if(loc<=max_pirate_loc&&loc!=limbo){
if(dflag==0){
if(loc>=min_lower_loc)dflag= 1;
}else if(dflag==1){
if(loc>=min_lower_loc&&pct(5))/*162:*/
#line 3760 "./advent.w"

{
dflag= 2;
for(j= 0;j<2;j++)if(pct(50))dloc[1+ran(nd)]= limbo;
for(j= 1;j<=nd;j++){
if(dloc[j]==loc)dloc[j]= nugget;
odloc[j]= dloc[j];
}
PRINTF("A little dwarf just walked around a corner, saw you, threw a little\n\
axe at you, cursed, and ran away.  (The axe missed.)\n");
drop(AXE,loc);
}

/*:162*/
#line 3748 "./advent.w"
;
}else/*164:*/
#line 3795 "./advent.w"

{
dtotal= attack= stick= 0;
for(j= 0;j<=nd;j++)if(dloc[j]!=limbo){
int i;
/*166:*/
#line 3819 "./advent.w"

for(i= 0,q= start[dloc[j]];q<start[dloc[j]+1];q++){
newloc= q->dest;
if(newloc>=min_lower_loc&&newloc!=odloc[j]&&newloc!=dloc[j]&&
(i==0||newloc!=ploc[i-1])&&i<19&&q->cond!=100&&
newloc<=(j==0?max_pirate_loc:min_forced_loc-1))
ploc[i++]= newloc;
}

/*:166*/
#line 3800 "./advent.w"
;
if(i==0)i= 1,ploc[0]= odloc[j];
odloc[j]= dloc[j];
dloc[j]= ploc[ran(i)];
dseen[j]= (dloc[j]==loc||odloc[j]==loc||(dseen[j]&&loc>=min_lower_loc));
if(dseen[j])/*167:*/
#line 3832 "./advent.w"

{
dloc[j]= loc;
if(j==0)/*172:*/
#line 3897 "./advent.w"

{
if(loc!=max_pirate_loc&&prop[CHEST]<0){
for(i= min_treasure,k= 0;i<=max_obj;i++){
if(!too_easy(i)&toting(i)){
k= -1;break;
}
if(here(i))k= 1;
}
if(k<0)/*173:*/
#line 3919 "./advent.w"

{
PRINTF("Out from the shadows behind you pounces a bearded pirate!  \
\"Har, har,\"\n\
he chortles, \"I'll just take all this booty and hide it away with me\n\
chest deep in the maze!\"  He snatches your treasure and vanishes into\n\
the gloom.\n");
/*174:*/
#line 3933 "./advent.w"

for(i= min_treasure;i<=max_obj;i++)if(!too_easy(i)){
if(base[i]==NOTHING&&place[i]==loc)carry(i);
if(toting(i))drop(i,chest_loc);
}

/*:174*/
#line 3926 "./advent.w"
;
if(pirate_not_spotted){
move_chest:move(CHEST,chest_loc);move(MESSAGE,message_loc);
}
dloc[0]= odloc[0]= chest_loc;dseen[0]= false;
}

/*:173*/
#line 3906 "./advent.w"

else if(tally==lost_treasures+1&&k==0&&pirate_not_spotted&&
prop[LAMP]&&here(LAMP))/*175:*/
#line 3943 "./advent.w"

{
PRINTF("There are faint rustling noises from the darkness behind you.  As you\n\
turn toward them, the beam of your lamp falls across a bearded pirate.\n\
He is carrying a large chest.  \"Shiver me timbers!\" he cries, \"I've\n\
been spotted!  I'd best hie meself off to the maze to hide me chest!\"\n\
With that, he vanishes into the gloom.\n");
goto move_chest;
}

/*:175*/
#line 3908 "./advent.w"

else if(odloc[0]!=dloc[0]&&pct(20))
PRINTF("There are faint rustling noises from the darkness behind you.\n");
}
}

/*:172*/
#line 3835 "./advent.w"

else{
dtotal++;
if(odloc[j]==dloc[j]){
attack++;
if(knife_loc>=0)knife_loc= loc;
if(ran(1000)<95*(dflag-2))stick++;
}
}
}

/*:167*/
#line 3805 "./advent.w"
;
}
if(dtotal)/*170:*/
#line 3856 "./advent.w"

{
if(dtotal==1)PRINTF("There is a threatening little dwarf");
else PRINTF("There are %d threatening little dwarves",dtotal);
PRINTF(" in the room with you!\n");
if(attack){
if(dflag==2)dflag= 3;
if(attack==1)k= 0,PRINTF("One sharp nasty knife is thrown");
else k= 2,PRINTF(" %d of them throw knives",attack);
PRINTF(" at you --- ");
if(stick<=1)PRINTF("%s!\n",attack_msg[k+stick]);
else PRINTF("%d of them get you!\n",stick);
if(stick){
oldoldloc= loc;goto death;
}
}
}

/*:170*/
#line 3807 "./advent.w"
;
}

/*:164*/
#line 3749 "./advent.w"
;
}

/*:161*/
#line 2532 "./advent.w"
;
commence:/*86:*/
#line 2709 "./advent.w"

if(loc==limbo)goto death;
if(dark&&!forced_move(loc)){
if(was_dark&&pct(35))goto pitch_dark;
p= pitch_dark_msg;
}else if(short_desc[loc]==0||visits[loc]%interval==0)
p= long_desc[loc];
else p= short_desc[loc];
if(toting(BEAR))PRINTF("You are being followed by a very large, tame bear.\n");
PRINTF("\n%s\n",p);
if(forced_move(loc))goto try_move;
/*157:*/
#line 3679 "./advent.w"

if(loc==y2&&pct(25)&&!closing)
PRINTF("A hollow voice says \"PLUGH\".\n");

/*:157*/
#line 2720 "./advent.w"
;
if(!dark)/*88:*/
#line 2735 "./advent.w"

{object tt;
visits[loc]++;
for(t= first[loc];t;t= link[t]){
tt= (base[t]?base[t]:t);
if(prop[tt]<0){
if(closed)continue;
prop[tt]= (tt==RUG||tt==CHAIN);
tally--;
/*183:*/
#line 4114 "./advent.w"

if(tally==lost_treasures&&tally> 0&&limit> 35)limit= 35;

/*:183*/
#line 2744 "./advent.w"
;
}
if(tt==TREADS&&toting(GOLD))continue;
p= note[prop[tt]+offset[tt]+(tt==TREADS&&loc==emist)];
if(p)PRINTF("%s\n",p);
}
}

/*:88*/
#line 2721 "./advent.w"
;

/*:86*/
#line 2533 "./advent.w"
;
while(1){
/*76:*/
#line 2570 "./advent.w"

verb= oldverb= ABSTAIN;
oldobj= obj;
obj= NOTHING;
cycle:/*195:*/
#line 4303 "./advent.w"

for(j= 2,k= cave_hint;j<=7;j++,k+= k)if(!hinted[j]){
if((flags[loc]&k)==0)hint_count[j]= 0;
else if(++hint_count[j]>=hint_thresh[j]){
switch(j){
case 2:if(prop[GRATE]==0&&!here(KEYS))break;else goto bypass;
case 3:if(here(BIRD)&&oldobj==BIRD&&toting(ROD))break;
else continue;
case 4:if(here(SNAKE)&&!here(BIRD))break;else goto bypass;
case 5:if(first[loc]==0&&first[oldloc]==0&&first[oldoldloc]==0&&
holding> 1)break;
else goto bypass;
case 6:if(prop[EMERALD]!=-1&&prop[PYRAMID]==-1)break;
else goto bypass;
case 7:break;
}
offer(j);
bypass:hint_count[j]= 0;
}
}

/*:195*/
#line 2574 "./advent.w"
;
/*85:*/
#line 2699 "./advent.w"

was_dark= dark;

/*:85*//*158:*/
#line 3685 "./advent.w"

k= ran(0);

/*:158*//*169:*/
#line 3849 "./advent.w"

if(knife_loc> limbo&&knife_loc!=loc)knife_loc= limbo;

/*:169*//*182:*/
#line 4102 "./advent.w"

if(closed){
if(prop[OYSTER]<0&&toting(OYSTER))
PRINTF("%s\n",note[offset[OYSTER]+1]);
for(j= 1;j<=max_obj;j++)if(toting(j)&&prop[j]<0)prop[j]= -1-prop[j];
}

/*:182*/
#line 2575 "./advent.w"
;
listen();
pre_parse:turns++;
/*82:*/
#line 2674 "./advent.w"

if(verb==SAY){
if(*word2)verb= ABSTAIN;else goto transitive;
}

/*:82*//*138:*/
#line 3446 "./advent.w"

if(foobar> 0)foobar= -foobar;
else foobar= 0;

/*:138*/
#line 2578 "./advent.w"
;
/*178:*/
#line 4001 "./advent.w"

if(tally==0&&loc>=min_lower_loc&&loc!=y2)clock1--;
if(clock1==0)/*179:*/
#line 4017 "./advent.w"

{
PRINTF("A sepulchral voice, reverberating through the cave, says, \"Cave\n\
closing soon.  All adventurers exit immediately through main office.\"\n");
clock1= -1;
prop[GRATE]= 0;
prop[CRYSTAL]= 0;
for(j= 0;j<=nd;j++)dseen[j]= 0,dloc[j]= limbo;
destroy(TROLL);destroy(TROLL_);
move(TROLL2,swside);move(TROLL2_,neside);
move(BRIDGE,swside);move(BRIDGE_,neside);
if(prop[BEAR]!=3)destroy(BEAR);
prop[CHAIN]= 0;base[CHAIN]= NOTHING;
prop[AXE]= 0;base[AXE]= NOTHING;
}

/*:179*/
#line 4003 "./advent.w"

else{
if(clock1<0)clock2--;
if(clock2==0)/*181:*/
#line 4070 "./advent.w"

{
PRINTF("The sepulchral voice intones, \
\"The cave is now closed.\"  As the echoes\n\
fade, there is a blinding flash of light (and a small puff of orange\n\
smoke). . . .    Then your eyes refocus; you look around and find...\n");
move(BOTTLE,neend);prop[BOTTLE]= -2;
move(PLANT,neend);prop[PLANT]= -1;
move(OYSTER,neend);prop[OYSTER]= -1;
move(LAMP,neend);prop[LAMP]= -1;
move(ROD,neend);prop[ROD]= -1;
move(DWARF,neend);prop[DWARF]= -1;
move(MIRROR,neend);prop[MIRROR]= -1;
loc= oldloc= neend;
move(GRATE,swend);
move(SNAKE,swend);prop[SNAKE]= -2;
move(BIRD,swend);prop[BIRD]= -2;
move(CAGE,swend);prop[CAGE]= -1;
move(ROD2,swend);prop[ROD2]= -1;
move(PILLOW,swend);prop[PILLOW]= -1;
move(MIRROR_,swend);
for(j= 1;j<=max_obj;j++)if(toting(j))destroy(j);
closed= true;
bonus= 10;
stay_put;
}

/*:181*/
#line 4006 "./advent.w"

else/*184:*/
#line 4119 "./advent.w"

{
if(prop[LAMP]==1)limit--;
if(limit<=30&&here(BATTERIES)&&prop[BATTERIES]==0&&here(LAMP))
/*186:*/
#line 4148 "./advent.w"

{
PRINTF("Your lamp is getting dim.  I'm taking the liberty of replacing\n\
the batteries.\n");
prop[BATTERIES]= 1;
if(toting(BATTERIES))drop(BATTERIES,loc);
limit= 2500;
}

/*:186*/
#line 4123 "./advent.w"

else if(limit==0)/*187:*/
#line 4157 "./advent.w"

{
limit= -1;prop[LAMP]= 0;
if(here(LAMP))PRINTF("Your lamp has run out of power.");
}

/*:187*/
#line 4124 "./advent.w"

else if(limit<0&&loc<min_in_cave){
PRINTF("There's not much point in wandering around out here, and you can't\n\
explore the cave without a lamp.  So let's just call it a day.\n");
goto give_up;
}else if(limit<=30&&!warned&&here(LAMP)){
PRINTF("Your lamp is getting dim");
if(prop[BATTERIES]==1)
PRINTF(", and you're out of spare batteries.  You'd\n\
best start wrapping this up.\n");
else if(place[BATTERIES]==limbo)
PRINTF(".  You'd best start wrapping this up, unless\n\
you can find some fresh batteries.  I seem to recall that there's\n\
a vending machine in the maze.  Bring some coins with you.\n");
else PRINTF(".  You'd best go back for those batteries.\n");
warned= true;
}
}

/*:184*/
#line 4007 "./advent.w"
;
}

/*:178*/
#line 2579 "./advent.w"
;
/*83:*/
#line 2683 "./advent.w"

if(streq(word1,"enter")){
if(streq(word2,"water")||streq(word2,"strea")){
if(water_here)report("Your feet are now wet.");
default_to(GO);
}else if(*word2)goto shift;
}

/*:83*//*105:*/
#line 2987 "./advent.w"

if((streq(word1,"water")||streq(word1,"oil"))&&
(streq(word2,"plant")||streq(word2,"door"))&&
(loc==place[hash_table[lookup(word2)].meaning]))strcpy(word2,"pour");

/*:105*/
#line 2580 "./advent.w"
;
parse:/*80:*/
#line 2661 "./advent.w"

if(streq(word1,"west")){
if(++west_count==10)
PRINTF(" If you prefer, simply type W rather than WEST.\n");
}

/*:80*/
#line 2581 "./advent.w"
;
/*78:*/
#line 2599 "./advent.w"

k= lookup(word1);
if(k<0){
PRINTF("Sorry, I don't know the word \"%s\".\n",word1);goto cycle;
}
branch:command_type= hash_table[k].word_type;
switch(command_type){
case motion_type:try_motion(hash_table[k].meaning);
case object_type:obj= hash_table[k].meaning;
/*90:*/
#line 2765 "./advent.w"

if(!toting(obj)&&!is_at_loc(obj))switch(obj){
case GRATE:/*91:*/
#line 2790 "./advent.w"

if(loc<min_lower_loc)switch(loc){
case road:case valley:case slit:try_motion(DEPRESSION);
case cobbles:case debris:case awk:case bird:case spit:
try_motion(ENTRANCE);
default:break;
}

/*:91*/
#line 2767 "./advent.w"
;
goto cant_see_it;
case DWARF:if(dflag>=2&&dwarf())break;else goto cant_see_it;
case PLANT:if(is_at_loc(PLANT2)&&prop[PLANT2]){
obj= PLANT2;break;
}else goto cant_see_it;
case KNIFE:if(loc!=knife_loc)goto cant_see_it;
knife_loc= -1;
report("The dwarves' knives vanish as they strike the walls of the cave.");
case ROD:if(!here(ROD2))goto cant_see_it;
obj= ROD2;break;
case WATER:case OIL:if(here(BOTTLE)&&object_in_bottle)break;
if((obj==WATER&&water_here)||(obj==OIL&&oil_here))break;
default:goto cant_see_it;
}

/*:90*/
#line 2608 "./advent.w"
;
if(*word2)break;
if(verb)goto transitive;
PRINTF("What do you want to do with the %s?\n",word1);goto cycle;
case action_type:verb= hash_table[k].meaning;
if(verb==SAY)obj= *word2;
else if(*word2)break;
if(obj)goto transitive;else goto intransitive;
case message_type:goto speakit;
}

/*:78*/
#line 2582 "./advent.w"
;
shift:strcpy(word1,word2);*word2= '\0';goto parse;

/*:76*/
#line 2535 "./advent.w"
;
/*79:*/
#line 2636 "./advent.w"

intransitive:k= 0;
switch(verb){
case GO:case RELAX:goto report_default;
case ON:case OFF:case POUR:case FILL:case DRINK:
case BLAST:case KILL:goto transitive;
/*92:*/
#line 2805 "./advent.w"

case TAKE:if(first[loc]==0||link[first[loc]]||dwarf())goto get_object;
obj= first[loc];goto transitive;

case EAT:if(!here(FOOD))goto get_object;
obj= FOOD;goto transitive;

/*:92*//*93:*/
#line 2815 "./advent.w"

case OPEN:case CLOSE:if(place[GRATE]==loc||place[GRATE_]==loc)obj= GRATE;
else if(place[DOOR]==loc)obj= DOOR;
else if(here(CLAM))obj= CLAM;
else if(here(OYSTER))obj= OYSTER;
if(here(CHAIN)){
if(obj)goto get_object;else obj= CHAIN;
}
if(obj)goto transitive;
report("There is nothing here with a lock!");

case READ:if(dark)goto get_object;
if(here(MAG))obj= MAG;
if(here(TABLET)){
if(obj)goto get_object;else obj= TABLET;
}
if(here(MESSAGE)){
if(obj)goto get_object;else obj= MESSAGE;
}
if(closed&&toting(OYSTER))obj= OYSTER;
if(obj)goto transitive;else goto get_object;

/*:93*//*94:*/
#line 2839 "./advent.w"

case INVENTORY:for(t= 1;t<=max_obj;t++)
if(toting(t)&&(base[t]==NOTHING||base[t]==t)&&t!=BEAR){
if(k==0)k= 1,PRINTF("You are currently holding the following:\n");
PRINTF(" %s\n",name[t]);
}
if(toting(BEAR))report("You are being followed by a very large, tame bear.");
if(k==0)report("You're not carrying anything.");
continue;

/*:94*//*95:*/
#line 2851 "./advent.w"

case BRIEF:interval= 10000;
look_count= 3;
report("Okay, from now on I'll only describe a place in full the first time\n\
you come to it.  To get the full description, say \"LOOK\".");

case SCORE:PRINTF("If you were to quit now, you would score %d\n\
out of a possible %d.\n",score()-4,max_score);
if(!yes("Do you indeed wish to quit now?",ok,ok))continue;
goto give_up;

case QUIT:if(!yes("Do you really wish to quit now?",ok,ok))
continue;
give_up:gave_up= true;goto quit;

/*:95*//*136:*/
#line 3433 "./advent.w"

case FEEFIE:while(!streq(word1,incantation[k]))k++;
if(foobar==-k)/*139:*/
#line 3454 "./advent.w"

{
foobar= k+1;
if(foobar!=4)default_to(RELAX);
foobar= 0;
if(place[EGGS]==giant||(toting(EGGS)&&loc==giant))
nada_sucede:report(default_msg[WAVE]);
if(place[EGGS]==limbo&&place[TROLL]==limbo&&prop[TROLL]==0)
prop[TROLL]= 1;
k= (loc==giant?0:here(EGGS)?1:2);
move(EGGS,giant);
report(note[offset[EGGS]+k]);
}

/*:139*/
#line 3435 "./advent.w"
;
if(foobar==0)goto nada_sucede;
report("What's the matter, can't you read?  Now you'd best start over.");

/*:136*/
#line 2642 "./advent.w"
;
default:goto get_object;
}
transitive:k= 0;
switch(verb){
/*97:*/
#line 2871 "./advent.w"

case SAY:if(*word2)strcpy(word1,word2);
k= lookup(word1);
switch(hash_table[k].meaning){
case FEEFIE:if(hash_table[k].word_type!=action_type)break;
case XYZZY:case PLUGH:case PLOVER:
*word2= '\0';obj= NOTHING;goto branch;
default:break;
}
PRINTF("Okay, \"%s\".\n",word1);continue;

/*:97*//*98:*/
#line 2884 "./advent.w"

case EAT:switch(obj){
case FOOD:destroy(FOOD);
report("Thank you, it was delicious!");
case BIRD:case SNAKE:case CLAM:case OYSTER:case DWARF:
case DRAGON:case TROLL:case BEAR:
report("I think I just lost my appetite.");
default:goto report_default;
}

/*:98*//*99:*/
#line 2898 "./advent.w"

case WAVE:if(obj!=ROD||(loc!=efiss&&loc!=wfiss)||
!toting(obj)||closing){
if(toting(obj)||(obj==ROD&&toting(ROD2)))goto report_default;
default_to(DROP);
}
prop[CRYSTAL]= 1-prop[CRYSTAL];
report(note[offset[CRYSTAL]+2-prop[CRYSTAL]]);

case BLAST:if(closed&&prop[ROD2]>=0){
bonus= (here(ROD2)?25:loc==neend?30:45);
PRINTF("%s\n",message[bonus/5]);goto quit;
}else goto report_default;

case RUB:if(obj==LAMP)goto report_default;
default_to(TOSS);

/*:99*//*100:*/
#line 2917 "./advent.w"

case FIND:case INVENTORY:if(toting(obj))default_to(TAKE);
if(closed)report("I daresay whatever you want is around here somewhere.");
if(is_at_loc(obj)||(object_in_bottle&&place[BOTTLE]==loc)||
(obj==WATER&&water_here)||(obj==OIL&&oil_here)||
(obj==DWARF&&dwarf()))
report("I believe what you want is right here with you.");
goto report_default;

/*:100*//*101:*/
#line 2930 "./advent.w"

case BREAK:if(obj==VASE&&prop[VASE]==0){
if(toting(VASE))drop(VASE,loc);
PRINTF("You have taken the vase and hurled it delicately to the ground.\n");
smash:prop[VASE]= 2;base[VASE]= VASE;
continue;
}else if(obj!=MIRROR)goto report_default;
if(closed){
PRINTF("You strike the mirror a resounding blow, whereupon \
it shatters into a\n\
myriad tiny fragments.");goto dwarves_upset;
}
report("It is too far up for you to reach.");

case WAKE:if(closed&&obj==DWARF){
PRINTF("You prod the nearest dwarf, who wakes up grumpily, \
takes one look at\n\
you, curses, and grabs for his axe.\n");goto dwarves_upset;
}else goto report_default;

/*:101*//*102:*/
#line 2953 "./advent.w"

case ON:if(!here(LAMP))goto report_default;
if(limit<0)report("Your lamp has run out of power.");
prop[LAMP]= 1;
PRINTF("Your lamp is now on.\n");
if(was_dark)goto commence;
continue;

case OFF:if(!here(LAMP))goto report_default;
prop[LAMP]= 0;
PRINTF("Your lamp is now off.\n");
if(dark)PRINTF("%s\n",pitch_dark_msg);
continue;

/*:102*//*106:*/
#line 2996 "./advent.w"

case DRINK:if(obj==NOTHING){
if(!water_here&&!(here(BOTTLE)&&prop[BOTTLE]==0))goto get_object;
}else if(obj!=WATER)default_to(EAT);
if(!(here(BOTTLE)&&prop[BOTTLE]==0))goto report_default;
prop[BOTTLE]= 1;place[WATER]= limbo;
report("The bottle of water is now empty.");

/*:106*//*107:*/
#line 3006 "./advent.w"

case POUR:if(obj==NOTHING||obj==BOTTLE){
obj= (prop[BOTTLE]==0?WATER:prop[BOTTLE]==2?OIL:0);
if(obj==NOTHING)goto get_object;
}
if(!toting(obj))goto report_default;
if(obj!=WATER&&obj!=OIL)report("You can't pour that.");
prop[BOTTLE]= 1;place[obj]= limbo;
if(loc==place[PLANT])/*108:*/
#line 3018 "./advent.w"

{
if(obj!=WATER)report("The plant indignantly shakes the oil off its leaves \
and asks, \"Water?\"");
PRINTF("%s\n",note[prop[PLANT]+1+offset[PLANT]]);
prop[PLANT]+= 2;if(prop[PLANT]> 4)prop[PLANT]= 0;
prop[PLANT2]= prop[PLANT]>>1;
stay_put;
}

/*:108*/
#line 3014 "./advent.w"
;
if(loc==place[DOOR])/*109:*/
#line 3028 "./advent.w"

switch(obj){
case WATER:prop[DOOR]= 0;
report("The hinges are quite thoroughly rusted now and won't budge.");
case OIL:prop[DOOR]= 1;
report("The oil has freed up the hinges so that the door will now open.");
}

/*:109*/
#line 3015 "./advent.w"
;
report("Your bottle is empty and the ground is wet.");

/*:107*//*110:*/
#line 3039 "./advent.w"

case FILL:if(obj==VASE)/*111:*/
#line 3054 "./advent.w"

{
if(no_liquid_here)
report("There is nothing here with which to fill the vase.\n");
if(!toting(VASE))report(default_msg[DROP]);
PRINTF("The sudden change in temperature has delicately shattered the vase.\n");
goto smash;
}

/*:111*/
#line 3040 "./advent.w"
;
if(!here(BOTTLE)){
if(obj==NOTHING)goto get_object;else goto report_default;
}else if(obj!=NOTHING&&obj!=BOTTLE)goto report_default;
if(!bottle_empty)report("Your bottle is already full.");
if(no_liquid_here)
report("There is nothing here with which to fill the bottle.");
prop[BOTTLE]= flags[loc]&oil;
if(toting(BOTTLE))place[prop[BOTTLE]?OIL:WATER]= inhand;
PRINTF("Your bottle is now full of %s.\n",prop[BOTTLE]?"oil":"water");
continue;

/*:110*//*112:*/
#line 3068 "./advent.w"

case TAKE:if(toting(obj))goto report_default;
if(base[obj]){
if(obj==CHAIN&&prop[BEAR])report("The chain is still locked.");
if(obj==BEAR&&prop[BEAR]==1)report("The bear is still chained to the wall.");
if(obj==PLANT&&prop[PLANT]<=0)
report("The plant has exceptionally deep roots and cannot be pulled free.");
report("You can't be serious!");
}
if(obj==WATER||obj==OIL)/*113:*/
#line 3087 "./advent.w"

if(here(BOTTLE)&&object_in_bottle)obj= BOTTLE;
else{
obj= BOTTLE;
if(toting(BOTTLE))change_to(FILL);
report("You have nothing in which to carry it.");
}

/*:113*/
#line 3077 "./advent.w"
;
if(holding>=7)
report("You can't carry anything more.  You'll have to drop something first.");
if(obj==BIRD&&prop[BIRD]==0)/*114:*/
#line 3095 "./advent.w"

{
if(toting(ROD))report("The bird was unafraid when you entered, \
but as you approach it becomes\n\
disturbed and you cannot catch it.");
if(toting(CAGE))prop[BIRD]= 1;
else report("You can catch the bird, but you cannot carry it.");
}

/*:114*/
#line 3080 "./advent.w"
;
if(obj==BIRD||(obj==CAGE&&prop[BIRD]))carry(BIRD+CAGE-obj);
carry(obj);
if(obj==BOTTLE&&!bottle_empty)
place[prop[BOTTLE]?OIL:WATER]= inhand;
default_to(RELAX);

/*:112*//*117:*/
#line 3122 "./advent.w"

case DROP:if(obj==ROD&&toting(ROD2)&&!toting(ROD))obj= ROD2;
if(!toting(obj))goto report_default;
if(obj==COINS&&here(PONY))/*118:*/
#line 3135 "./advent.w"

{
destroy(COINS);
drop(BATTERIES,loc);
prop[BATTERIES]= 0;
report(note[offset[BATTERIES]]);
}

/*:118*/
#line 3125 "./advent.w"
;
if(obj==BIRD)/*120:*/
#line 3158 "./advent.w"

{
if(here(SNAKE)){
PRINTF("The little bird attacks the green snake, \
and in an astounding flurry\n\
drives the snake away.\n");k= 1;
if(closed)goto dwarves_upset;
destroy(SNAKE);
prop[SNAKE]= 1;
}else if(is_at_loc(DRAGON)&&prop[DRAGON]==0){
destroy(BIRD);prop[BIRD]= 0;
if(place[SNAKE]==hmk)lost_treasures++;
report("The little bird attacks the green dragon, \
and in an astounding flurry\n\
gets burnt to a cinder.  The ashes blow away.");
}
}

/*:120*/
#line 3126 "./advent.w"
;
if(obj==VASE&&loc!=soft)/*121:*/
#line 3176 "./advent.w"

{
prop[VASE]= (place[PILLOW]==loc?0:2);
PRINTF("%s\n",note[offset[VASE]+1+prop[VASE]]);k= 1;
if(prop[VASE])base[VASE]= VASE;
}

/*:121*/
#line 3127 "./advent.w"
;
if(obj==BEAR&&is_at_loc(TROLL))/*119:*/
#line 3146 "./advent.w"

{
PRINTF("The bear lumbers toward the troll, \
who lets out a startled shriek and\n\
scurries away.  The bear soon gives up the pursuit and wanders back.\n");
k= 1;
destroy(TROLL);destroy(TROLL_);
drop(TROLL2,swside);drop(TROLL2_,neside);
prop[TROLL]= 2;
move(BRIDGE,swside);move(BRIDGE_,neside);
}

/*:119*/
#line 3128 "./advent.w"
;
/*115:*/
#line 3107 "./advent.w"

if(object_in_bottle)obj= BOTTLE;
if(obj==BOTTLE&&!bottle_empty)
place[prop[BOTTLE]?OIL:WATER]= limbo;

/*:115*/
#line 3129 "./advent.w"
;
if(obj==BIRD)prop[BIRD]= 0;
else if(obj==CAGE&&prop[BIRD])drop(BIRD,loc);
drop(obj,loc);
if(k)continue;else default_to(RELAX);

/*:117*//*122:*/
#line 3185 "./advent.w"

case TOSS:if(obj==ROD&&toting(ROD2)&&!toting(ROD))obj= ROD2;
if(!toting(obj))goto report_default;
if(is_treasure(obj)&&is_at_loc(TROLL))/*124:*/
#line 3218 "./advent.w"

{
drop(obj,limbo);
destroy(TROLL);destroy(TROLL_);
drop(TROLL2,swside);drop(TROLL2_,neside);
move(BRIDGE,swside);move(BRIDGE_,neside);
report("The troll catches your treasure and scurries away out of sight.");
}

/*:124*/
#line 3188 "./advent.w"
;
if(obj==FOOD&&here(BEAR)){
obj= BEAR;change_to(FEED);
}
if(obj!=AXE)change_to(DROP);
if(dwarf())/*163:*/
#line 3777 "./advent.w"

{
for(j= 1;j<=nd;j++)if(dloc[j]==loc)break;
if(ran(3)<2){
dloc[j]= limbo;dseen[j]= 0;dkill++;
if(dkill==1)PRINTF("You killed a little dwarf.  The body \
vanishes in a cloud of greasy\n\
black smoke.\n");
else PRINTF("You killed a little dwarf.\n");
}else PRINTF("You attack a little dwarf, but he dodges out of the way.\n");
drop(AXE,loc);stay_put;
}

/*:163*/
#line 3193 "./advent.w"
;
if(is_at_loc(DRAGON)&&prop[DRAGON]==0)
PRINTF("The axe bounces harmlessly off the dragon's thick scales.\n");
else if(is_at_loc(TROLL))
PRINTF("The troll deftly catches the axe, examines it carefully, \
and tosses it\n\
back, declaring, \"Good workmanship, but it's not valuable enough.\"\n");
else if(here(BEAR)&&prop[BEAR]==0)/*123:*/
#line 3208 "./advent.w"

{
drop(AXE,loc);
prop[AXE]= 1;base[AXE]= AXE;
if(place[BEAR]==loc)move(BEAR,loc);
report("The axe misses and lands near the bear where you can't get at it.");
}

/*:123*/
#line 3200 "./advent.w"

else{
obj= NOTHING;change_to(KILL);
}
drop(AXE,loc);stay_put;

/*:122*//*125:*/
#line 3229 "./advent.w"

case KILL:if(obj==NOTHING)/*126:*/
#line 3258 "./advent.w"

{
if(dwarf())k++,obj= DWARF;
if(here(SNAKE))k++,obj= SNAKE;
if(is_at_loc(DRAGON)&&prop[DRAGON]==0)k++,obj= DRAGON;
if(is_at_loc(TROLL))k++,obj= TROLL;
if(here(BEAR)&&prop[BEAR]==0)k++,obj= BEAR;
if(k==0){
if(here(BIRD)&&oldverb!=TOSS)k++,obj= BIRD;
if(here(CLAM)||here(OYSTER))
k++,obj= CLAM;
}
if(k> 1)goto get_object;
}

/*:126*/
#line 3230 "./advent.w"
;
switch(obj){
case 0:report("There is nothing here to attack.");
case BIRD:/*127:*/
#line 3273 "./advent.w"

{
if(closed)report("Oh, leave the poor unhappy bird alone.");
destroy(BIRD);prop[BIRD]= 0;
if(place[SNAKE]==hmk)lost_treasures++;
report("The little bird is now dead.  Its body disappears.");
}

/*:127*/
#line 3233 "./advent.w"
;
case DRAGON:if(prop[DRAGON]==0)/*128:*/
#line 3285 "./advent.w"

{
PRINTF("With what?  Your bare hands?\n");
verb= ABSTAIN;obj= NOTHING;
listen();
if(!(streq(word1,"yes")||streq(word1,"y")))goto pre_parse;
PRINTF("%s\n",note[offset[DRAGON]+1]);
prop[DRAGON]= 2;
prop[RUG]= 0;base[RUG]= NOTHING;
base[DRAGON_]= DRAGON_;destroy(DRAGON_);
base[RUG_]= RUG_;destroy(RUG_);
for(t= 1;t<=max_obj;t++)
if(place[t]==scan1||place[t]==scan3)move(t,scan2);
loc= scan2;stay_put;
}

/*:128*/
#line 3234 "./advent.w"
;
cry:report("For crying out loud, the poor thing is already dead!");
case CLAM:case OYSTER:
report("The shell is very strong and impervious to attack.");
case SNAKE:
report("Attacking the snake both doesn't work and is very dangerous.");
case DWARF:if(closed)goto dwarves_upset;
report("With what?  Your bare hands?");
case TROLL:report("Trolls are close relatives with the rocks \
and have skin as tough as\n\
a rhinoceros hide.  The troll fends off your blows effortlessly.");
case BEAR:switch(prop[BEAR]){
case 0:report("With what?  Your bare hands?  Against HIS bear hands?");
case 3:goto cry;
default:report("The bear is confused; he only wants to be your friend.");
}
default:goto report_default;
}

/*:125*//*129:*/
#line 3304 "./advent.w"

case FEED:switch(obj){
case BIRD:report("It's not hungry (it's merely pinin' for the fjords).  \
Besides, you\n\
have no bird seed.");
case TROLL:
report("Gluttony is not one of the troll's vices.  Avarice, however, is.");
case DRAGON:if(prop[DRAGON])report(default_msg[EAT]);
break;
case SNAKE:if(closed||!here(BIRD))break;
destroy(BIRD);prop[BIRD]= 0;lost_treasures++;
report("The snake has now devoured your bird.");
case BEAR:if(!here(FOOD)){
if(prop[BEAR]==0)break;
if(prop[BEAR]==3)change_to(EAT);
goto report_default;
}
destroy(FOOD);prop[BEAR]= 1;
prop[AXE]= 0;base[AXE]= NOTHING;
report("The bear eagerly wolfs down your food, \
after which he seems to calm\n\
down considerably and even becomes rather friendly.");
case DWARF:if(!here(FOOD))goto report_default;
dflag++;
report("You fool, dwarves eat only coal!  Now you've made him REALLY mad!");
default:report(default_msg[CALM]);
}
report("There's nothing here it wants to eat (except perhaps you).");

/*:129*//*130:*/
#line 3335 "./advent.w"

case OPEN:case CLOSE:
switch(obj){
case OYSTER:k= 1;
case CLAM:/*134:*/
#line 3391 "./advent.w"

if(verb==CLOSE)report("What?");
if(!toting(TRIDENT)){
PRINTF("You don't have anything strong enough to open the %s",clam_oyster);
report(".");
}
if(toting(obj)){
PRINTF("I advise you to put down the %s before opening it.  ",clam_oyster);
report(obj==CLAM?">STRAIN!<":">WRENCH!<");
}
if(obj==CLAM){
destroy(CLAM);drop(OYSTER,loc);drop(PEARL,sac);
report("A glistening pearl falls out of the clam and rolls away.  Goodness,\n\
this must really be an oyster.  (I never was very good at identifying\n\
bivalves.)  Whatever it is, it has now snapped shut again.");
}else report("The oyster creaks open, revealing nothing but oyster inside.\n\
It promptly snaps shut again.");

/*:134*/
#line 3339 "./advent.w"
;
case GRATE:case CHAIN:if(!here(KEYS))report("You have no keys!");
/*131:*/
#line 3349 "./advent.w"

if(obj==CHAIN)/*132:*/
#line 3363 "./advent.w"

{
if(verb==OPEN)/*133:*/
#line 3374 "./advent.w"

{
if(prop[CHAIN]==0)report("It was already unlocked.");
if(prop[BEAR]==0)report("There is no way to get past the bear \
to unlock the chain, which is\n\
probably just as well.");
prop[CHAIN]= 0,base[CHAIN]= NOTHING;
if(prop[BEAR]==3)base[BEAR]= BEAR;
else prop[BEAR]= 2,base[BEAR]= NOTHING;
report("The chain is now unlocked.");
}

/*:133*/
#line 3365 "./advent.w"
;
if(loc!=barr)
report("There is nothing here to which the chain can be locked.");
if(prop[CHAIN])report("It was already locked.");
prop[CHAIN]= 2,base[CHAIN]= CHAIN;
if(toting(CHAIN))drop(CHAIN,loc);
report("The chain is now locked.");
}

/*:132*/
#line 3350 "./advent.w"
;
if(closing){
/*180:*/
#line 4036 "./advent.w"

{
if(!panic)clock2= 15,panic= true;
PRINTF("A mysterious recorded voice groans into life and announces:\n\
\"This exit is closed.  Please leave via main office.\"\n");
}

/*:180*/
#line 3352 "./advent.w"
;continue;
}
k= prop[GRATE];
prop[GRATE]= (verb==OPEN);
switch(k+2*prop[GRATE]){
case 0:report("It was already locked.");
case 1:report("The grate is now locked.");
case 2:report("The grate is now unlocked.");
case 3:report("It was already unlocked.");
}

/*:131*/
#line 3341 "./advent.w"
;
case KEYS:report("You can't lock or unlock the keys.");
case CAGE:report("It has no lock.");
case DOOR:if(prop[DOOR])default_to(RELAX);
report("The door is extremely rusty and refuses to open.");
default:goto report_default;
}

/*:130*//*135:*/
#line 3412 "./advent.w"

case READ:if(dark)goto cant_see_it;
switch(obj){
case MAG:report("I'm afraid the magazine is written in dwarvish.");
case TABLET:
report("\"CONGRATULATIONS ON BRINGING LIGHT INTO THE DARK-ROOM!\"");
case MESSAGE:
report("\"This is not the maze where the pirate hides his treasure chest.\"");
case OYSTER:if(hinted[1]){
if(toting(OYSTER))report("It says the same thing it did before.");
}else if(closed&&toting(OYSTER)){
offer(1);continue;
}
default:goto report_default;
}

/*:135*/
#line 2647 "./advent.w"
;
default:goto report_default;
}
speakit:report(message[hash_table[k].meaning]);
report_default:if(default_msg[verb])report(default_msg[verb])
else continue;
get_object:word1[0]= toupper(word1[0]);PRINTF("%s what?\n",word1);
goto cycle;
cant_see_it:if((verb==FIND||verb==INVENTORY)&&*word2=='\0')
goto transitive;
PRINTF("I see no %s here.\n",word1);continue;

/*:79*/
#line 2536 "./advent.w"
;
}
try_move:/*140:*/
#line 3473 "./advent.w"

newloc= loc;
if(mot==NOWHERE)continue;
if(mot==BACK)/*143:*/
#line 3506 "./advent.w"

{
l= (forced_move(oldloc)?oldoldloc:oldloc);
oldoldloc= oldloc;
oldloc= loc;
if(l==loc)/*145:*/
#line 3527 "./advent.w"

{
PRINTF("Sorry, but I no longer seem to remember how you got here.\n");
continue;
}

/*:145*/
#line 3511 "./advent.w"
;
for(q= start[loc],qq= NULL;q<start[loc+1];q++){
ll= q->dest;
if(ll==l)goto found;
if(ll<=max_loc&&forced_move(ll)&&start[ll]->dest==l)qq= q;
}
if(qq==NULL){
PRINTF("You can't get there from here.\n");continue;
}else q= qq;
found:mot= q->mot;
goto go_for_it;
}

/*:143*/
#line 3476 "./advent.w"
;
if(mot==LOOK)/*141:*/
#line 3489 "./advent.w"

{
if(++look_count<=3)PRINTF("Sorry, but I am not allowed to give \
more detail.  I will repeat the\n\
long description of your location.\n");
was_dark= false;
visits[loc]= 0;
continue;
}

/*:141*/
#line 3477 "./advent.w"
;
if(mot==CAVE){
if(loc<min_in_cave)
PRINTF("I can't see where the cave is, but hereabouts no stream can run on\n\
the surface for long.  I would try the stream.\n");
else PRINTF("I need more detailed instructions to do that.\n");
continue;
}

/*:140*/
#line 2538 "./advent.w"
;
oldoldloc= oldloc;
oldloc= loc;
go_for_it:/*146:*/
#line 3536 "./advent.w"

for(q= start[loc];q<start[loc+1];q++){
if(forced_move(loc)||q->mot==mot)break;
}
if(q==start[loc+1])/*148:*/
#line 3570 "./advent.w"

{
if(mot==CRAWL)PRINTF("Which way?");
else if(mot==XYZZY||mot==PLUGH)PRINTF(default_msg[WAVE]);
else if(verb==FIND||verb==INVENTORY)PRINTF(default_msg[FIND]);
else if(mot<=FORWARD)switch(mot){
case IN:case OUT:PRINTF("I don't know in from out here.  \
Use compass points or name something\n\
in the general direction you want to go.");break;
case FORWARD:case L:case R:PRINTF("I am unsure how you are facing.  \
Use compass points or nearby objects.");break;
default:PRINTF("There is no way to go in that direction.");
}else PRINTF("I don't know how to apply that word here.");
PRINTF("\n");continue;
}

/*:148*/
#line 3540 "./advent.w"
;
/*147:*/
#line 3554 "./advent.w"

while(1){
j= q->cond;
if(j> 300){
if(prop[j%100]!=(int)((j-300)/100))break;
}else if(j<=100){
if(j==0||pct(j))break;
}else if(toting(j%100)||(j>=200&&is_at_loc(j%100)))break;
no_good:for(qq= q++;
q->dest==qq->dest&&q->cond==qq->cond;
q++);
}

/*:147*/
#line 3541 "./advent.w"
;
newloc= q->dest;
if(newloc<=max_loc)continue;
if(newloc> max_spec){
PRINTF("%s\n",remarks[newloc-max_spec]);
stay:newloc= loc;continue;
}
switch(newloc){
case ppass:/*149:*/
#line 3589 "./advent.w"

if(holding==0||(toting(EMERALD)&&holding==1)){
newloc= alcove+proom-loc;continue;
}else{
PRINTF("Something you're carrying won't fit through the tunnel with you.\n\
You'd best take inventory and drop something.\n");
goto stay;
}

/*:149*/
#line 3549 "./advent.w"
;
case pdrop:/*150:*/
#line 3603 "./advent.w"

drop(EMERALD,loc);

/*:150*/
#line 3550 "./advent.w"
;goto no_good;
case troll:/*151:*/
#line 3615 "./advent.w"

if(prop[TROLL]==1)/*152:*/
#line 3631 "./advent.w"

{
move(TROLL,swside);move(TROLL_,neside);prop[TROLL]= 0;
destroy(TROLL2);destroy(TROLL2_);
move(BRIDGE,swside);move(BRIDGE_,neside);
PRINTF("%s\n",note[offset[TROLL]+1]);
goto stay;
}

/*:152*/
#line 3616 "./advent.w"
;
newloc= neside+swside-loc;
if(prop[TROLL]==0)prop[TROLL]= 1;
if(!toting(BEAR))continue;
PRINTF("Just as you reach the other side, the bridge buckles beneath the\n\
weight of the bear, who was still following you around.  You\n\
scrabble desperately for support, but as the bridge collapses you\n\
stumble back and fall into the chasm.\n");
prop[BRIDGE]= 1;prop[TROLL]= 2;
drop(BEAR,newloc);base[BEAR]= BEAR;prop[BEAR]= 3;
if(prop[SPICES]<0&&place[SPICES]>=neside)lost_treasures++;
if(prop[CHAIN]<0&&place[CHAIN]>=neside)lost_treasures++;
oldoldloc= newloc;
goto death;

/*:151*/
#line 3551 "./advent.w"
;
}

/*:146*/
#line 2541 "./advent.w"
;
}

/*:75*/
#line 114 "./advent.w"
;
/*188:*/
#line 4165 "./advent.w"

pitch_dark:PRINTF("You fell into a pit and broke every bone in your body!\n");
oldoldloc= loc;

/*:188*//*189:*/
#line 4180 "./advent.w"

death:death_count++;
if(closing){
PRINTF("It looks as though you're dead.  Well, seeing as how it's so close\n\
to closing time anyway, let's just call it a day.\n");
goto quit;
}
if(!yes(death_wishes[2*death_count-2],death_wishes[2*death_count-1],
ok)||death_count==max_deaths)
goto quit;

/*:189*//*191:*/
#line 4219 "./advent.w"

if(toting(LAMP))prop[LAMP]= 0;
place[WATER]= limbo;place[OIL]= limbo;
for(j= max_obj;j> 0;j--)if(toting(j))drop(j,j==LAMP?road:oldoldloc);
loc= oldloc= house;
goto commence;

/*:191*//*192:*/
#line 4228 "./advent.w"

dwarves_upset:PRINTF("The resulting ruckus has awakened \
the dwarves.  There are now several\n\
threatening little dwarves in the room with you!  Most of them throw\n\
knives at you!  All of them get you!\n");

/*:192*/
#line 115 "./advent.w"
;
quit:/*198:*/
#line 4404 "./advent.w"

k= score();
printf("You scored %d point%s out of a possible %d, using %d turn%s.\n",
k,k==1?"":"s",max_score,turns,turns==1?"":"s");
for(j= 0;class_score[j]<=k;j++);
PRINTF("%s\nTo achieve the next higher rating",class_message[j]);
if(j<highest_class)
PRINTF(", you need %d more point%s.\n",class_score[j]-k,
class_score[j]==k+1?"":"s");
else PRINTF(" would be a neat trick!\nCongratulations!!\n");

/*:198*/
#line 116 "./advent.w"
;
exit(0);
}

/*:2*/