1;;----------------------------------------------------------------------------
2;; Map
3;;----------------------------------------------------------------------------
4(kern-mk-map
5 'm_engineers_hut 19 19 pal_expanded
6	(list
7		"** *. *8 *8 *8 *8 *8 *8 *8 ** ** ee ee *. ** *8 ** ** ** "
8		"*c rr rr rr rr ws rr rr rr rr *4 ee ee *2 rr rr rr ** ** "
9		".. rr rr [[ @@ @@ @@ ]] rr rr *6 ee ee *e rr ,, *b rr *. "
10		"|| rr 00 ,, ,, ,, ,, ,, ,, rr *e /0 /d /d ,, ,, ,, *a ** "
11		"*d rr 00 ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr ,, ,, rr *a "
12		".. rr 00 ,, ,, [[ ]] ,, ,, ,, /d /6 .. .. rr ,, bb rr .. "
13		"~~ rr ,, ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr .. ,, rr .. "
14		"~~ bb ~~ ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr ,, ,, rr .. "
15		"bb ~~ ~~ ,, ,, ,, [[ @@ ]] rr .. /7 .. .. rr rr rr rr .. "
16		"~~ rr ,, ,, ,, ,, rr rr rr rr .. /7 .. bb .. .. .. tC t3 "
17		".. rr ,, ,, ,, ,, 00 rr .. .. .. /7 .. .. .. .. .. t3 tt "
18		".. rr ,, ,, ,, ,, 00 rr .. /0 /d /9 /d /d /d /2 .. ta tt "
19		".. rr ,, rr && rr rr rr .. /7 .. .. .. .. .. /7 .. t% ta "
20		"bb .. .. rr rr rr ~~ .. .. /7 .. .. .. rr rr ,, rr rr .. "
21		"bb .. .. .. .. .. ~2 bb .. /7 .. .. rr rr ,, ,, ,, rr .. "
22		"bb .. .. .. .. .. ~a ~~ ~9 =| ~9 ~~ rr && ,, ,, ,, rr .. "
23		"bb .. .. .. .. .. .. bb .. /7 .. ~~ rr rr ,, ,, ,, rr .. "
24		"bb .. .. .. .. .. bb .. .. /7 .. ~a ~~ rr rr rr rr rr .. "
25		"t5 bb bb bb bb bb t7 .. .. /7 .. .. ~6 .. .. .. .. .. .. "
26	)
27)
28
29;;----------------------------------------------------------------------------
30;; NPC's
31;;----------------------------------------------------------------------------
32(kern-load "engineer.scm")
33
34;;----------------------------------------------------------------------------
35;; Place
36;;----------------------------------------------------------------------------
37(kern-mk-place
38 'p_engineers_hut     ; tag
39 "Engineers Hut"      ; name
40 s_hamlet      ; sprite
41 m_engineers_hut      ; 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  (put (mk-engineer) 9 9)
52
53  (put (mk-npc 'bull 8) 3 15)
54  (put (mk-door) 15 13)
55  (put (mk-bed) 16 15)
56  (put (mk-chest
57        nil
58        '((5 t_food))) 14 16)
59
60  (put (mk-door) 14  3)
61
62  (put (mk-door) 9 5)
63  (put (mk-windowed-door) 2 12)
64  (put (mk-clock) 5 9)
65  (put (mk-broken-clock s_clock_stopped s_clock_stopped "The internals of this clock are spread across the table") 8 7)
66
67  (put (kern-mk-obj t_voidship_plans 1) 16 7)
68  )
69
70 nil ; hooks
71 (list  ;; edge entrances
72  (list east  6 18)
73  (list south 11 0)
74  (list southwest 11 0)
75  (list southeast 11 0)
76  (list northeast 6 18)
77  (list north 9 18)
78  (list west  18 9)
79  )
80 )
81
82(mk-place-music p_engineers_hut 'ml-small-town)
83