worlds/haxima-1.002/poor-house.scm

   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  "µßÉÏ±¡"            ; 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)