;;----------------------------------------------------------------------------
;; island.scm - wilderness area for test
;;
;;----------------------------------------------------------------------------

(kern-mk-place 
 'p_forest ; tag
 "Test Forest" ; name
 nil          ; sprite 
 (kern-mk-map
  nil 19 19 pal_expanded
  (list
      "t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. "
      "t. t. t. t. t. t. .. .. t. t. t. t. t. t| t. |. t. t. t. "
      "t. t. t. .. .. .. .. .. .. t. .. t| t| t| |. |. |. t. t. "
      "t. t. .. .. .. .. .. .. .. .. .. .. t| t| |. |. |. |. t. "
      "t. t. .. .. .. .. .. .. .. .. .. .. .. t| |. |. |. t. t. "
      "t. t. .. .. .. .. .. .. .. .. .. .. .. t| t| |. t| t. t. "
      "t. t. .. .. .. .. .. .. .. .. .. .. .. .. t| t| t| t| t. "
      "t. t. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. t| t. "
      "t. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. t. "
      "{{ {{ .. .. .. .. .. .. .. .. .. .. .. .. .. {{ ^^ .. {{ "
      "^^ {{ {{ .. .. .. .. .. .. .. .. .. .. {{ {{ {{ ^^ .. ^~ "
      "^^ {{ {{ .. .. .. .. .. .. .. .. .. .. {{ ^^ ^^ ^^ ^^ ^~ "
      "^^ {{ .. .. .. .. .. .. .. .. .. .. .. {{ {{ {{ ^^ ^^ ^^ "
      "{{ {{ .. .. .. .. .. .. .. .. .. .. .. .. .. {{ {{ ^^ ^^ "
      "t. t. .. .. .. .. .. .. .. .. .. .. .. .. .. .. {{ {{ {{ "
      "t. t. t. .. .. .. .. .. .. .. .. .. .. .. .. .. .. t. t. "
      "t. t. t. t. .. .. .. .. .. .. .. .. .. .. .. .. t. t. t. "
      "t. t. t. t. t. t. t. .. .. .. .. .. .. .. .. t. t. t. t. "
      "t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. t. "
  )  )
 #f  ; wraps
 #f  ; underground
 #t  ; wilderness
 #f  ; tmp combat place
 nil ; subplaces
 nil ; neighborss
 nil ; objects
 nil ; hooks
 nil ; edge entrances
 )
