1;;----------------------------------------------------------------------------
2;; Map
3;;----------------------------------------------------------------------------
4(kern-mk-map
5 'm_glasdrin 31 31 pal_expanded
6	(list
7		"xx xx xx xx xx .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. xx xx xx xx xx "
8		"xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx cc ++ cc xx "
9		"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, cc cc cc xx "
10		"xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx xx xx xx xx xx xx cc cc cc xx "
11		"xx xx ,, xx xx xx .A .R .M .S ]] xx ,, ,, ,, ,, ,, ,, ,, xx .M .E .D .I .C .K xx xx ,, xx xx "
12		".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. "
13		".. xx ,, xx ,, xx @@ @@ @@ @@ @@ xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. "
14		".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. "
15		".. xx ,, xx xx xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. "
16		".. xx ,, xx xx xx xx xx ,, sA xx xx ,, pp ,, ,, ,, pp ,, xx xx xx ,, sH xx xx xx xx ,, xx .. "
17		".. xx ,, xx ,, ,, xx .. cc .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx cc .. xx ,, ,, xx ,, xx .. "
18		".. xx ,, xx ,, ,, ,, cc cc xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx cc cc ,, ,, ,, xx ,, xx .. "
19		".. xx ,, xx xx xx xx .. cc xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx cc .. xx xx xx xx ,, xx .. "
20		".. xx ,, xx ,, ,, xx .. cc xx ,, ,, ,, xx w+ ,, w+ xx ,, ,, ,, xx cc .. xx ,, ,, xx ,, xx .. "
21		".. xx ,, xx ,, ,, ,, cc cc xx ,, ,, ,, xx cc cc cc xx ,, ,, ,, xx cc cc ,, ,, ,, xx ,, xx .. "
22		".. xx ,, xx xx xx xx .. cc xx xx xx xx x! cc cc cc x! xx xx xx xx cc .. xx xx xx xx ,, xx .. "
23		".. xx ,, ,, cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ,, ,, xx .. "
24		".. xx ,, xx xx xx xx xx xx xx .. .. .. .. cc cc cc t3 tt tt t5 xx xx xx xx xx xx xx ,, xx .. "
25		".. xx ,, xx .H .O .T .E .L xx .. .. .. .. cc cc cc tt ~3 ~5 tt xx .H .O .L .Y ]] xx ,, xx .. "
26		".. xx ,, xx ,, ,, ,, ,, ,, ,, .. .. .. .. cc cc cc tt ~a ~c tt xx .G .R .A .I .L xx ,, xx .. "
27		".. xx ,, xx @@ @@ @@ @@ @@ sI .. .. .. .. cc cc cc ta tt tt tc ws ,, ,, ,, ,, ,, xx ,, xx .. "
28		".. xx ,, xx ,, ,, ,, ,, ,, ,, cc cc cc cc cc cx cc cc cc cc cc ,, ,, ,, ,, ,, ,, xx ,, xx .. "
29		".. xx ,, xx x! ,, ,, ,, ,, ws bb .. .. bb cc cc cc bb bb bb bb ws ,, ,, 00 ,, && xx ,, xx .. "
30		".. xx ,, xx xx ,, xx ,, xx xx .. .. .. .. cc cc cc bb .. .. .. sT ,, ,, 00 ,, ,, xx ,, xx .. "
31		".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. .. cc cc cc bb .. tC t7 xx ,, ,, ,, ,, ,, xx ,, xx .. "
32		".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. bb cc cc cc bb .. tb tc xx ,, [[ @@ ]] xx xx ,, xx .. "
33		"xx xx ,, xx xx xx xx xx xx xx xx xx xx x! cc w+ cc x! xx xx xx xx ,, ,, ,, ,, xx xx ,, xx xx "
34		"xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, xx "
35		"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
36		"xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, xx "
37		"xx xx xx xx xx .. .. .. .. xx xx xx xx xx cc cc cc xx xx xx xx xx .. .. .. .. xx xx xx xx xx "
38	)
39
40)
41
42;;----------------------------------------------------------------------------
43;; Characters
44;;----------------------------------------------------------------------------
45(kern-load "patch.scm")
46(kern-load "angela.scm")
47(kern-load "jess.scm")
48(kern-load "chester.scm")
49(kern-load "steward.scm")
50(kern-load "ini.scm")
51(kern-load "jeffreys.scm")
52(kern-load "statue-of-justice.scm")
53(kern-load "janice.scm")
54
55;;----------------------------------------------------------------------------
56;; Place
57;;----------------------------------------------------------------------------
58(kern-mk-place
59 'p_glasdrin     ; tag
60 "Glasdrin"      ; name
61 s_keep          ; sprite
62 m_glasdrin      ; map
63 #f              ; wraps
64 #f              ; underground
65 #f              ; large-scale (wilderness)
66 #f              ; tmp combat place
67 nil ; subplaces
68 nil ; neighbors
69
70 (list  ;; objects:
71
72  (put (mk-monman) 0 0)
73
74  ;; npcs
75  (put (mk-patch) 0 0)
76  (put (mk-angela) 0 0)
77  (put (mk-jess) 0 0)
78  (put (mk-chester) 0 0)
79  (put (mk-steward) 0 0)
80  (put (mk-ini) 0 0)
81  (put (mk-jeffreys) 0 0)
82  (put (mk-janice) 0 0)
83  (put (mk-bull) 19 24)
84
85  ;; guards
86  (put (guard-pt 'glasdrin-halberdier) 15 25)
87  (put (guard-pt 'glasdrin-halberdier) 14 12)
88  (put (guard-pt 'glasdrin-halberdier) 16 12)
89  (put (guard-pt 'glasdrin-crossbowman) 12 28)
90  (put (guard-pt 'glasdrin-crossbowman) 18 28)
91
92  ;; doors
93  (put (mk-windowed-door) 21 21)
94  (put (mk-locked-door) 24 11)
95  (put (mk-locked-door) 24 14)
96  (put (mk-locked-door)  6 11)
97  (put (mk-locked-door)  6 14)
98  (put (mk-locked-door) 11 11)
99  (put (mk-locked-door) 19 11)
100  (put (mk-windowed-door) 8 9)
101  (put (mk-door) 5 5)
102  (put (mk-door) 5 7)
103  (put (mk-windowed-door) 15 13)
104
105  ;; hospital
106  (put (mk-windowed-door) 22 9)
107
108
109  ;; wall doors
110  (put (mk-locked-door) 3 16)
111  (put (mk-locked-door) 27 16)
112  (put (mk-locked-door) 2 4)
113  (put (mk-locked-door) 4 2)
114  (put (mk-door) 26 28)
115  (put (mk-door) 28 26)
116
117  ;; inn
118  (put (mk-windowed-door) 9 21)
119  (put (mk-door) 9 19)
120  (put (kern-tag 'glasdrin-inn-room-1-door (mk-locked-door)) 5 23)
121  (put (kern-tag 'glasdrin-inn-room-2-door (mk-locked-door)) 7 23)
122  (put (mk-bed) 4 25)
123  (put (mk-bed) 8 25)
124  (put (mk-clock) 4 21)
125
126  ;; NPC beds
127  (put (mk-bed) 26 10)
128  (put (mk-bed)  4 13)
129  (put (mk-bed) 26 13)
130  (put (mk-bed)  4 10)
131  (put (mk-bed) 11 14)
132  (put (mk-bed) 29 28)
133  (put (mk-bed) 19 14)
134  (put (mk-bed)  1 29)
135
136  ;; ladder down to prison
137  (put (mk-ladder-down 'p_prison 6 4) 2 2)
138
139  ;; Stewardess's chest
140  (put (let* ((kchest (make-invisible (mk-chest nil '((1 t_stewardess_journal))))))
141         (kcontainer-lock-with-key kchest 't_stewardess_chest_key)
142         kchest)
143       10 14)
144
145  ;; Statue of justice
146  (put (kern-mk-obj t_statue_of_justice 1) 15 21)
147
148  )
149
150
151 ;; on-entry hook
152 (list 'on-entry-to-dungeon-room
153       'lock-inn-room-doors
154       )
155 (list ;; edge entrances
156 	(list northwest 16 30)
157 	(list northeast 14 30)
158 )
159)
160
161(mk-place-music p_glasdrin 'ml-large-town)
162