worlds/haxima-1.002/kun.scm

   1 (kern-load "mesmeme.scm")
   2 (kern-load "jake.scm")
   3 (kern-load "slywan.scm")
   4 (kern-load "tooth.scm")
   5 (kern-load "tetzl.scm")
   6
   7 (kern-mk-place
   8  'p_kun "Kun" s_town
   9  (kern-mk-map
  10   nil 19 19 pal_expanded
  11         (list
  12                 "xx xx xx xx xx xx xx xx xx xx xx {{ {2 .. {4 {{ ^^ ^^ ^^ "
  13                 "xx [[ .C .A .N .T .I .N .A ]] xx {{ {2 .. {4 {{ {{ ^^ ^^ "
  14                 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx {{ {2 .. {4 {{ {{ {{ ^^ "
  15                 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ws {{ {2 .. {4 {{ ^^ ^^ ^^ "
  16                 "xx ,, ,, 00 00 00 00 00 ,, ,, xx {{ {2 .. {4 {{ ^^ ^^ {{ "
  17                 "xx ,, ,, 00 ,, ,, ,, 00 ,, ,, xx {{ {2 .. {4 {{ {{ {{ {{ "
  18                 "xx ,, ,, 00 00 00 00 00 ,, ,, xx {{ {2 .. .. {1 {1 {1 {1 "
  19                 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ws {{ {2 .. .. .. .. .. .. "
  20                 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx {{ {2 .. .. .. {8 .. {8 "
  21                 "xx xx ws xx xx ,, sT xx ws xx xx {{ {2 .. .. bb {{ bb {{ "
  22                 ".. .. .. .. .. .. .. .. .. .. .. {1 .. .. {4 {{ {{ {{ ^^ "
  23                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. bb {{ ^^ ^^ "
  24                 "{8 .. {8 .. .. .. .. {8 .. .. .. .. .. .. {4 {{ ^^ ^^ ^^ "
  25                 "{{ bb {{ bb .. .. {4 {{ xx xx xx xx sE ,, xx xx xx xx xx "
  26                 "{{ {{ {{ {{ {2 .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  27                 "^^ {{ {{ bb .. .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  28                 "^^ ^^ {{ {{ {2 .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  29                 "^^ ^^ ^^ {{ {2 .. {4 {{ xx .D .U .T .Y @@ .F .R .E .E xx "
  30                 "^^ ^^ ^^ {{ {2 .. {4 {{ xx xx xx xx xx xx xx xx xx xx xx "
  31         )
  32   )
  33  #f      ; wraps
  34  #f      ; underground
  35  #f      ; large-scale (wilderness)
  36  #f      ; tmp combat place
  37  nil     ; subplaces
  38  nil     ; neighbors
  39
  40  ;; objects
  41  (list
  42
  43   ;; npcs
  44   (put (mk-mesmeme) 0 0)
  45   (put (mk-jake) 0 0)
  46   (put (mk-slywan) 0 0)
  47   (put (mk-tooth) 0 0)
  48   (put (mk-tetzl) 0 0)
  49
  50   (put (mk-windowed-door) 5 9)
  51   (put (mk-door) 13 13)
  52   )
  53
  54  ;; on-entry hooks
  55  nil
  56
  57  ;; edge entrances
  58  (list
  59   (list north 5 18)
  60   (list south 13 0)
  61   (list west 18 7)
  62   (list east 0 11)
  63   (list northwest 18 9)
  64   (list southeast 0 10)
  65   (list southwest 15 0)
  66   (list northeast 3 18)
  67   )
  68  )
  69
  70 (mk-place-music p_kun 'ml-small-town)