1(kern-mk-map
2 'm_ancient_derelict 19 19 pal_expanded
3	(list
4			"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
5			"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
6			"^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ "
7			"^^ {{ {{ bb {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {3 {5 {{ {{ ^^ "
8			"{{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {3 #A bb {5 {{ ^^ "
9			"{{ {{ {{ {3 {1 {5 {{ {{ {{ ^^ ^^ ^^ {{ {2 ee .. {4 {{ ^^ "
10			"{{ {{ {3 .. .. #A #r #E {{ ^^ ^^ #A {{ {2 .. ee #C {{ ^^ "
11			"{1 {1 .. .. .. .. ee ee {{ {{ ^^ {{ {3 .. .. {4 {{ ^^ ^^ "
12			".. .. #E .. ee ee ee ee ee {{ {{ {{ ee ee .. #C ^^ ^^ ^^ "
13			".. .. bb ee ee ee ee ee ee ee {1 ee ee ee ee #F {1 {5 ^^ "
14			".. .. #B .. ee ee ee ee ee ee ee ee ee ee .. ee #C .. {1 "
15			".. .. .. .. .. ee ee ee ee ee ee .. .. #D #r .. #C .. .. "
16			"{8 {8 bb .. #D #r #G #H #D .. #r #r .. .. .. .. .. bb .. "
17			"{{ {{ {a .. .. .. .. .. .. bb .. .. .. .. .. .. .. .. .. "
18			"{{ {{ {{ {a {8 {8 .. .. .. .. .. .. .. {8 {8 {8 bb .. .. "
19			"^^ {{ bb {{ {{ {{ {a {8 .. .. .. .. {c {{ {{ {{ {{ {a {8 "
20			"^^ ^^ {{ {{ {{ {{ {{ {{ {2 .. .. {c {{ {{ {{ {{ {{ {{ {{ "
21			"^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ {{ {{ {{ {{ "
22			"^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ ^^ ^^ {{ {{ "
23	)
24 )
25
26;;----------------------------------------------------------------------------
27;; Place
28;;----------------------------------------------------------------------------
29(kern-mk-place
30 'p_ancient_derelict ; tag
31 "Ancient Derelict"   ; name
32 s_void_ship          ; sprite
33 m_ancient_derelict  ; map
34 #f               ; wraps
35 #f                     ; underground
36 #f                     ; large-scale (wilderness)
37 #f                     ; tmp combat place
38 nil                    ; subplaces
39
40 ;; neighbors
41 (list
42  )
43
44 ;; objects
45 (list
46  (put (mk-monman) 0 0)
47  (put (spawn-pt 'wisp) 7 9)
48  (put (spawn-pt 'wisp) 10 9)
49  (put (kern-mk-obj t_power_core 1) 12 5)
50  (put (mk-corpse2
51        '(
52         (1 t_staff)
53         (1 t_vas_rel_por_scroll)
54         )) 9 10)
55
56  )
57
58 (list 'on-entry-to-dungeon-room) ; hooks
59 (list ; edge entrances
60 	(list southeast 0 4)
61 	(list northeast 0 14)
62 )
63 )
64
65(mk-place-music p_ancient_derelict 'ml-outdoor-adventure)
66