(kern-mk-map 
 'm_ankh_shrine 31 31 pal_expanded
 (list
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rc *3 *1 *1 *1 *1 *1 *1 *1 *5 ra rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *3 ** *. *8 *8 *8 *8 *8 ** *. *5 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 ** xx xx xx xx xx xx xx ** *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *4 xx pp ,, ,, ,, pp xx *2 *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *4 xx ,, cc cc cc ,, xx *2 *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *4 xx ,, cc cc cc ,, xx *2 *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *4 xx ,, cc cc cc ,, xx *2 *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *4 xx pp ,, cc ,, pp xx *2 *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *2 *. xx xx ,, cc ,, xx xx *. *4 r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn r4 *a *. ** *5 ,, cc ,, *3 ** *. *c r2 rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn r5 *a ** *4 ,, cc ,, *2 *. *c r3 rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn r5 ** *4 ,, cc ,, *2 *. r3 rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn r4 *2 *4 ,, cc ,, *2 *4 r2 rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn r4 *2 *4 ,, cc ,, *2 *4 r2 rn rn rn rn rn rn rn rn rn rn rn rn "
	"rn rn rn rn rn rn rn rn rn rn r4 ** ** ,, cc ,, ** *. r2 rn rn rn rn rn rn rn rn rn rn rn rn "
  ))


;;----------------------------------------------------------------------------
;; Include files
;;----------------------------------------------------------------------------
(kern-load "talking-ankh.scm")
(kern-load "demon-gate.scm")

;;----------------------------------------------------------------------------
;; Place
;;----------------------------------------------------------------------------
(kern-mk-place
 'p_ankh_shrine     ; tag
 "Ankh Shrine"      ; name
 s_shrine      ; sprite
 m_ankh_shrine      ; map
 #f              ; wraps
 #f              ; underground
 #f              ; large-scale (wilderness)
 #f              ; tmp combat place
 nil ; subplaces
 nil ; neighbors

 (list ; objects
  (put (mk-talking-ankh) 14 21)
  (put (mk-demon-gate) 0 0)
  )
  nil ; hooks
 (list  ;; edge entrances
  (list east  14 30)
  (list south 14 30) 
  (list north 14 30)
  (list west  14 30)
  )
 )
