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