1 (kern-load "keep_crypt_mech.scm")
6 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
7 "xx xx xx ,, ,, ,, xx x! ,, ,, ,, x! xx ,, ,, ,, xx ,, xx "
8 "xx xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, xx "
9 "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, xx "
10 "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx ?? xx "
11 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
12 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
13 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
14 "xx xx xx ,, xx xx xx .C .R .Y .P .T xx xx xx ,, xx xx xx "
15 "xx .. .. ,, .. .. xx xx xx x! xx xx xx .. .. ,, .. .. xx "
16 "xx .. .. ,, .. .. xx xx xx ,, xx xx xx .. .. ,, .. .. xx "
17 "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx "
18 "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx "
19 "xx .. .. ,, .. .. x! xx xx ,, xx xx x! .. .. ,, .. .. xx "
20 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx "
21 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx "
22 "xx .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, .. .. xx "
23 "xx .. .. .. .. .. xx ,, ,, ,, ,, ,, xx .. .. .. .. .. xx "
24 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
26 ;; special mechanisms for turning corpses into skeletal warriors
27 (put (kern-tag 'kc_kcma (mk-kcm (mk-rect 1 9 5 9))) 0 0)
28 (put (kern-tag 'kc_kcmb (mk-kcm (mk-rect 13 9 5 9))) 0 0)
30 (put (mk-ladder-up 'p_green_tower_lower 17 1) 9 3)
31 (put (mk-ladder-down 'p_lich_tomb 9 16) 9 10)
34 (put (mk-locked-door) 6 3)
35 (put (mk-magic-locked-door) 12 3)
38 (put (mk-windowed-door) 15 8)
39 (put (mk-windowed-door) 3 8)
40 (put (kern-tag 'kc_pa (mk-connected-portcullis 'kc_kcma)) 6 16)
41 (put (kern-tag 'kc_pb (mk-connected-portcullis 'kc_kcmb)) 12 16)
42 (put (kern-tag 'kc_pc (mk-portcullis)) 9 13)
43 (put (mk-lever 'kc_pb) 4 2)
44 (put (mk-lever 'kc_pa) 14 2)
45 (put (mk-lever 'kc_pc) 17 1)
52 (put (mk-corpse) 13 9)
53 (put (mk-corpse) 14 9)
54 (put (mk-corpse) 16 9)
55 (put (mk-corpse) 17 9)
56 (put (mk-corpse) 1 10)
57 (put (mk-corpse) 2 10)
58 (put (mk-corpse) 4 10)
59 (put (mk-corpse) 5 10)
60 (put (mk-corpse) 13 10)
61 (put (mk-corpse) 14 10)
62 (put (mk-corpse) 16 10)
63 (put (mk-corpse) 17 10)
64 (put (mk-corpse) 1 11)
65 (put (mk-corpse) 2 11)
66 (put (mk-corpse) 4 11)
67 (put (mk-corpse) 5 11)
68 (put (mk-corpse) 13 11)
69 (put (mk-corpse) 14 11)
70 (put (mk-corpse) 16 11)
71 (put (mk-corpse) 17 11)
72 (put (mk-corpse) 1 12)
73 (put (mk-corpse) 2 12)
74 (put (mk-corpse) 4 12)
75 (put (mk-corpse) 5 12)
76 (put (mk-corpse) 13 12)
77 (put (mk-corpse) 14 12)
78 (put (mk-corpse) 16 12)
79 (put (mk-corpse) 17 12)
80 (put (mk-corpse) 1 13)
81 (put (mk-corpse) 2 13)
82 (put (mk-corpse) 4 13)
83 (put (mk-corpse) 5 13)
84 (put (mk-corpse) 13 13)
85 (put (mk-corpse) 14 13)
86 (put (mk-corpse) 16 13)
87 (put (mk-corpse) 17 13)
88 (put (mk-corpse) 1 14)
89 (put (mk-corpse) 2 14)
90 (put (mk-corpse) 4 14)
91 (put (mk-corpse) 5 14)
92 (put (mk-corpse) 13 14)
93 (put (mk-corpse) 14 14)
94 (put (mk-corpse) 16 14)
95 (put (mk-corpse) 17 14)
96 (put (mk-corpse) 1 15)
97 (put (mk-corpse) 2 15)
98 (put (mk-corpse) 4 15)
99 (put (mk-corpse) 5 15)
100 (put (mk-corpse) 13 15)
101 (put (mk-corpse) 14 15)
102 (put (mk-corpse) 16 15)
103 (put (mk-corpse) 17 15)
104 (put (mk-corpse) 1 16)
105 (put (mk-corpse) 2 16)
106 (put (mk-corpse) 16 16)
107 (put (mk-corpse) 17 16)
108 (put (mk-corpse) 1 17)
109 (put (mk-corpse) 2 17)
110 (put (mk-corpse) 3 17)
111 (put (mk-corpse) 4 17)
112 (put (mk-corpse) 5 17)
113 (put (mk-corpse) 13 17)
114 (put (mk-corpse) 14 17)
115 (put (mk-corpse) 15 17)
116 (put (mk-corpse) 16 17)
117 (put (mk-corpse) 17 17)
120 (mk-place-music p_crypt 'ml-creepy-area)