1;;----------------------------------------------------------------------------
2;; Map
3;;----------------------------------------------------------------------------
4(kern-mk-map
5 'm_poor_house 19 19 pal_expanded
6	(list
7		".. .. .. .. .. .. .. .. .. /7 .. bb bb bb bb bb bb bb ta "
8		".. /0 /d /d /d /d /d /d /d /a bb .. .. .. .. t3 tt t5 bb "
9		".. /7 .. .. .. .. .. .. .. .. bb .. .. .. .. te bb tt bb "
10		".. /7 .. rr rr rr rr rr rr bb rr .. .. .. .. t% tb tc bb "
11		".. /7 .. rr .P .O .O .R ]] rr .. .. .. .. .. .. .. .. bb "
12		".. /7 .. rr .H .O .U .S .E rr .. .. .. .. .. .. .. .. bb "
13		".. /7 .. ,, ,, ,, ,, ,, ,, rr rr rr ,, rr bb rr .. .. bb "
14		".. /7 .. bb ,, ,, ,, ,, ,, rr ,, ,, ,, ,, .. rr .. .. bb "
15		".. /7 .. rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr bb bb .. "
16		"/d /6 .. rr rr rr ,, rr rr bb ,, ,, 00 ,, ,, wr .. /0 /d "
17		".. /7 .. rr ,, ,, ,, ,, ,, rr ,, ,, 00 ,, ,, rr .. /7 .. "
18		".. /7 .. rr ,, ,, ,, ,, ,, rr ,, ,, 00 ,, ,, rr .. /7 .. "
19		".. /7 .. wr ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, rr .. /7 .. "
20		".. /7 .. rr ,, .. ,, ,, ,, rr ,, ,, ,, ,, ,, wr .. /7 .. "
21		".. /7 .. rr ,, ,, .. ,, ,, rr ,, bb && bb ,, rr .. /7 .. "
22		".. /7 .. rr rr rr bb rr rr rr rr rr rr rr rr rr .. /7 .. "
23		".. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. "
24		".. /8 /d /d /d /d /d /d /d /1 /d /d /d /d /d /d /d /a .. "
25		".. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. "
26	))
27
28;;----------------------------------------------------------------------------
29;; NPC's
30;;----------------------------------------------------------------------------
31(kern-load "meaney.scm")
32(kern-load "amy.scm")
33
34;;----------------------------------------------------------------------------
35;; Place
36;;----------------------------------------------------------------------------
37(kern-mk-place
38 'p_poor_house     ; tag
39 "The Poor House"      ; name
40 s_hamlet      ; sprite
41 m_poor_house      ; map
42 #f              ; wraps
43 #f              ; underground
44 #f              ; large-scale (wilderness)
45 #f              ; tmp combat place
46 nil ; subplaces
47 nil ; neighbors
48
49 (list ; objects
50
51  ;; npcs
52  (put (mk-npc 'bull 6) 14 3)
53  (put (mk-meaney) 9 9)
54  (put (mk-amy) 9 9)
55
56  ;; beds
57  (put (mk-bed) 4 10)
58  (put (mk-bed)  4 12)
59  (put (mk-bed)  4 14)
60  (put (mk-bed)  8 10)
61  (put (mk-bed)  8 12)
62  (put (mk-bed)  8 14)
63
64  ;; doors
65  (put (mk-door-in-rock) 3 6)
66  (put (mk-door-in-rock) 12 6)
67
68  ;empty doorways
69  (put (mk-archway-rock) 6 9)
70  (put (mk-archway-rock) 9 8)
71
72  ;; chests
73  (put (mk-chest
74        nil
75        '((1 t_food))) 10 14)
76  (put (mk-chest
77        nil
78        '((1 t_gold_coins))) 14 14)
79
80  )
81
82 nil ; hooks
83 (list  ; edge entrances
84 	(list southwest 10 0)
85 )
86 )
87
88
89(mk-place-music p_poor_house 'ml-small-town)
90