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