* The Regents of the University of California. All rights reserved.
* The game adventure was originally written in Fortran by Will Crowther
* and Don Woods. It was later translated to C and enhanced by Jim
* Gillogly. This code is derived from software contributed to Berkeley
* by Jim Gillogly at The Rand Corporation.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)init.c 8.1 (Berkeley) %G%";
/* Re-coding of advent in C: data initialization */
int setbit
[16] = {1,2,4,010,020,040,0100,0200,0400,01000,02000,04000,
010000,020000,040000,0100000};
init(command
) /* everything for 1st time run */
char *command
; /* command we were called with */
rdata(); /* read data from orig. file */
linkdata() /* secondary data manipulation */
for (i
=1; i
<=LOCSIZ
; i
++)
if (ltext
[i
].seekadr
!=0 && travel
[i
] != 0)
if ((travel
[i
]->tverb
)==1) cond
[i
]=2;
if (plac
[j
]!=0 && fixd
[j
]<=0) drop(j
,plac
[j
]);
for (i
=50; i
<=maxtrs
; i
++)
{ if (ptext
[i
].seekadr
!=0) prop
[i
] = -1;
keys
= vocab(DECR(k
,e
,y
,s
,\
0), 1);
lamp
= vocab(DECR(l
,a
,m
,p
,\
0), 1);
grate
= vocab(DECR(g
,r
,a
,t
,e
), 1);
cage
= vocab(DECR(c
,a
,g
,e
,\
0),1);
rod
= vocab(DECR(r
,o
,d
,\
0,\
0),1);
steps
=vocab(DECR(s
,t
,e
,p
,s
),1);
bird
= vocab(DECR(b
,i
,r
,d
,\
0),1);
door
= vocab(DECR(d
,o
,o
,r
,\
0),1);
pillow
= vocab(DECR(p
,i
,l
,l
,o
), 1);
snake
= vocab(DECR(s
,n
,a
,k
,e
), 1);
fissur
= vocab(DECR(f
,i
,s
,s
,u
), 1);
tablet
= vocab(DECR(t
,a
,b
,l
,e
), 1);
clam
= vocab(DECR(c
,l
,a
,m
,\
0),1);
oyster
= vocab(DECR(o
,y
,s
,t
,e
), 1);
magzin
= vocab(DECR(m
,a
,g
,a
,z
), 1);
dwarf
= vocab(DECR(d
,w
,a
,r
,f
), 1);
knife
= vocab(DECR(k
,n
,i
,f
,e
), 1);
food
= vocab(DECR(f
,o
,o
,d
,\
0),1);
bottle
= vocab(DECR(b
,o
,t
,t
,l
), 1);
water
= vocab(DECR(w
,a
,t
,e
,r
), 1);
oil
= vocab(DECR(o
,i
,l
,\
0,\
0),1);
plant
= vocab(DECR(p
,l
,a
,n
,t
), 1);
axe
= vocab(DECR(a
,x
,e
,\
0,\
0),1);
mirror
= vocab(DECR(m
,i
,r
,r
,o
), 1);
dragon
= vocab(DECR(d
,r
,a
,g
,o
), 1);
chasm
= vocab(DECR(c
,h
,a
,s
,m
), 1);
troll
= vocab(DECR(t
,r
,o
,l
,l
), 1);
bear
= vocab(DECR(b
,e
,a
,r
,\
0),1);
messag
= vocab(DECR(m
,e
,s
,s
,a
), 1);
vend
= vocab(DECR(v
,e
,n
,d
,i
), 1);
batter
= vocab(DECR(b
,a
,t
,t
,e
), 1);
nugget
= vocab(DECR(g
,o
,l
,d
,\
0),1);
coins
= vocab(DECR(c
,o
,i
,n
,s
), 1);
chest
= vocab(DECR(c
,h
,e
,s
,t
), 1);
eggs
= vocab(DECR(e
,g
,g
,s
,\
0),1);
tridnt
= vocab(DECR(t
,r
,i
,d
,e
), 1);
vase
= vocab(DECR(v
,a
,s
,e
,\
0),1);
emrald
= vocab(DECR(e
,m
,e
,r
,a
), 1);
pyram
= vocab(DECR(p
,y
,r
,a
,m
), 1);
pearl
= vocab(DECR(p
,e
,a
,r
,l
), 1);
rug
= vocab(DECR(r
,u
,g
,\
0,\
0),1);
chain
= vocab(DECR(c
,h
,a
,i
,n
), 1);
back
= vocab(DECR(b
,a
,c
,k
,\
0),0);
look
= vocab(DECR(l
,o
,o
,k
,\
0),0);
cave
= vocab(DECR(c
,a
,v
,e
,\
0),0);
null
= vocab(DECR(n
,u
,l
,l
,\
0),0);
entrnc
= vocab(DECR(e
,n
,t
,r
,a
), 0);
dprssn
= vocab(DECR(d
,e
,p
,r
,e
), 0);
enter
= vocab(DECR(e
,n
,t
,e
,r
), 0);
pour
= vocab(DECR(p
,o
,u
,r
,\
0), 2);
say
= vocab(DECR(s
,a
,y
,\
0,\
0),2);
lock
= vocab(DECR(l
,o
,c
,k
,\
0),2);
throw = vocab(DECR(t
,h
,r
,o
,w
), 2);
find
= vocab(DECR(f
,i
,n
,d
,\
0),2);
invent
= vocab(DECR(i
,n
,v
,e
,n
), 2);
/* random flags & ctrs */
if (rtext
[2*i
+81].seekadr
!=0) maxdie
=i
+1;
numdie
=holdng
=dkill
=foobar
=bonus
=0;
closng
=panic
=closed
=scorng
=FALSE
;
trapdel() /* come here if he hits a del */
{ delhit
++; /* main checks, treats as QUIT */
signal(2,trapdel
); /* catch subsequent DELs */
srand((int)(time((time_t *)NULL
))); /* random seed */
/* srand(371); /* non-random seed */
if (hinted
[3]) limit
=1000; /* better batteries if instrucs */