1(kern-load "nate.scm")
2
3(mk-19x19-town
4 'p_bandit_hideout_l1 "Bandit Stockade" s_ruin
5 (list
6		"tt tt tt tt t5 t3 tt tt tt tt tt tt tt tt tc rr rr rr rr "
7		"tt tt tt tt tt tt tt tt tt tt tt tt tc rr rr rr ~7 rr rr "
8		"tt bb rr bb bb rr rr bb bb bb rr rr rr rr bb ~b __ ~d rr "
9		"tt rr .. dd dd dd .. .. .. .. t7 rr rr bb ee ee ~e rr rr "
10		"tt bb dd dd && dd dd dd dd .. ta t5 %b %% ee %c bb rr bb "
11		"tc bb bb dd dd dd dd .. dd dd .. tt tt %a ee bb rr rr t3 "
12		".. .. bb bb bb .. dd .. .. dd dd dd dd .. dd rr bb tb tt "
13		".. .. .. .. rr dd dd xx xx w+ xx xx dd dd dd .. bb bb .. "
14		"dd .. .. .. rr dd .. rr ,, ,, dd rr .. dd .. && bb bb dd "
15		"dd dd .. dd .. dd .. ,, dd dd cc w+ cc dd dd .. bb dd dd "
16		".. dd dd dd rr dd .. xx dd dd ,, xx .. .. bb bb rr bb dd "
17		".. .. dd .. bb dd .. xx rr ,, xx xx bb bb bb dd rr bb .. "
18		"t5 rr bb rr bb dd dd .. .. dd .. bb dd dd dd dd rr bb t3 "
19		"tt bb dd dd dd dd dd dd dd dd bb bb dd dd .. dd bb t3 tt "
20		"tt bb dd dd && dd dd .. .. .. bb dd dd .. dd dd rr tt tt "
21		"tt bb bb dd dd dd bb bb bb bb bb bb dd dd dd bb rr tt tt "
22		"tt t5 bb bb rr rr bb t3 tt tt t5 bb bb bb rr rr t3 tt tt "
23		"tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tc ta "
24		"tt tt tt tt tc ta tt tt tt tt tt tt tt tt tt tt tt t5 t3 "
25  )
26   (list ;;entrances
27   	(list southwest 18 5)
28   )
29 (put (mk-ladder-down 'p_bandit_hideout_l2a 9 9) 9 9)
30 (put (mk-door) 4 9)
31 (put (kern-tag 'p_bhl1_p1 (mk-portcullis)) 7 9)
32 (put (kern-tag 'p_bhl1_p2 (mk-portcullis)) 9 11)
33 (put (mk-sense-trig 'generic-trig-exec 'p_bhl1_p1 'signal)  12 9)
34 (put (mk-lever 'p_bhl1_p2)  10 9)
35
36 ;; Release the hounds!
37 (put (mk-step-trig 'terrain-changer 10 14 't_dirt) 9 6)
38
39 ;; Bandits
40 (put (mk-npc 'bandit 1) 3 4)
41 (put (mk-npc 'footpad 2) 5 4)
42 (put (mk-npc 'bandit 1) 3 14)
43 (put (mk-npc 'footpad 2) 5 14)
44 (put (mk-npc 'footpad 1) 5 8)
45 (put (mk-npc 'footpad 1) 5 10)
46 (put (mk-npc 'bandit 1) 15 9)
47 (put (mk-npc 'bandit 1) 15 7)
48 (put (mk-npc 'highwayman 2) 9 8)
49
50 ;; Wolves in the pen
51 (put (kern-being-set-base-faction (mk-npc 'wolf 1)
52                                   faction-outlaw) 13 14)
53 (put (kern-being-set-base-faction (mk-npc 'wolf 1)
54                                   faction-outlaw) 14 13)
55 (put (mk-corpse) 13 13)
56
57 ;; Traps
58 (put (mk-caltrops) 8 12)
59
60 )
61
62(mk-place-music p_bandit_hideout_l1 'ml-outdoor-adventure)
63
64(mk-dungeon-room
65 'p_bandit_hideout_l2a "Stockade Barracks"
66 (list
67  "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
68  "rr rr bb dd dd dd dd dd dd dd dd dd dd dd dd dd dd rr rr "
69  "rr bb dd dd dd bb dd xx xx xx xx bb dd dd dd dd bb dd rr "
70  "rr dd dd dd dd dd dd xx ,, ,, xx xx xx xx xx dd dd dd rr "
71  "rr dd dd xx xx xx xx xx ,, ,, ,, ,, ,, x! xx dd dd bb rr "
72  "rr dd dd xx x! ,, ,, xx xx xx xx ,, ,, ,, xx dd && bb rr "
73  "rr dd dd xx ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx bb bb bb rr "
74  "rr dd dd xx ,, ,, ,, xx x! ,, xx xx ,, xx xx xx xx bb rr "
75  "rr dd xx xx ?? xx xx xx ,, ,, ,, x! ,, xx ,, ,, xx dd rr "
76  "rr dd xx ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx dd rr "
77  "rr dd xx ,, ,, xx ,, x! ,, ,, ,, xx xx xx ,, xx xx dd rr "
78  "rr dd xx ?? xx xx ,, xx xx ,, x! xx ,, ,, ,, xx dd dd rr "
79  "rr dd dd dd xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx dd dd rr "
80  "rr dd bb dd xx ,, ,, ,, xx xx xx xx ,, ,, x! xx dd dd rr "
81  "rr dd dd dd xx x! ,, ,, ,, ,, ,, xx xx ~x xx xx dd dd rr "
82  "rr dd dd dd xx xx xx xx xx ,, ,, xx dd dd dd dd dd dd rr "
83  "rr rr dd dd dd dd dd bb xx xx xx xx dd dd dd dd dd rr rr "
84  "rr rr rr dd dd dd bb bb bb bb bb bb dd dd dd dd rr rr rr "
85  "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
86  )
87 (put (mk-ladder-up 'p_bandit_hideout_l1 9 9) 9 9)
88
89 ;; Portculli and levers
90 (put (kern-tag 'p_bh2_1 (mk-portcullis)) 8 14)
91 (put (kern-tag 'p_bh2_2 (mk-portcullis)) 14 10)
92 (put (mk-lever 'p_bh2_1) 8 3)
93 (put (mk-lever 'p_bh2_2) 3 9)
94
95 ;; Trapped doors
96 (put (trap-door (mk-door) 'spike-trap)  9 7)
97 (put (trap-door (mk-door) 'sleep-trap)  7 9)
98 (put (trap-door (mk-door) 'poison-trap) 9 11)
99 (put (trap-door (mk-door) 'bomb-trap)   11 9)
100 (put (trap-door (mk-door) 'sleep-trap) 10 4)
101
102 ;; Chests & prisoners
103 ;; arms...
104 (let ((kchest (mk-chest nil
105                         '((10 t_oil)
106                           (50 t_arrow)
107                           (20 t_spear)
108                           ))))
109   (ifccall kchest 'add-trap 'sleep-trap)
110   (ifccall kchest 'add-trap 'poison-trap)
111   (put kchest 10 14))
112
113 ;; medical...
114 (let ((kchest (mk-chest nil
115                         '((10 t_heal_potion)
116                           (3 t_cure_potion)
117                           (2 t_poison_immunity_potion)
118                           (1 t_invisibility_potion)
119                           (1 t_slime_vial)
120                           ))))
121   (ifccall kchest 'add-trap 'lightning-trap)
122   (ifccall kchest 'add-trap 'self-destruct-trap)
123   (put kchest 10 15))
124 ;; wrogue supplies...
125 (let ((kchest (mk-chest nil
126                         '((5 t_torch)
127                           (5 t_picklock)
128                           (3 t_gem)
129                           (1 t_pick)
130                           (1 t_in_ex_por_scroll)
131                           (1 t_wis_an_ylem_scroll)
132                           (1 t_wis_quas_scroll)
133                           ))))
134   (ifccall kchest 'add-trap 'bomb-trap)
135   (put kchest 9 15))
136
137 (put (mk-corpse) 15 8)
138 (put (mk-npc 'cave-goblin-berserker 4) 14 8)
139
140 ;; Guards
141 (put (mk-npc 'footpad 2) 6 6)
142 (put (mk-npc 'highwayman 3) 4 6)
143 (put (mk-npc 'footpad 2) 6 12)
144 (put (mk-npc 'highwayman 3) 7 14)
145 (put (mk-npc 'footpad 2) 12 12)
146 (put (mk-npc 'footpad 2) 12 6)
147 (put (mk-npc 'footpad 2) 2 15)
148 (put (kern-being-set-base-faction (mk-npc 'wolf 1)
149                                   faction-outlaw) 9 14)
150
151 ;; Traps
152 (put (mk-step-trig 'wind-trap nil) 1 10)
153 (put (mk-step-trig 'wind-trap nil) 7 1)
154 (put (mk-caltrops) 4 1)
155
156 ;; Cryptozoic denizens
157 (put (spawn-pt 'giant-spider faction-spider) 16 16)
158 (put (mk-corpse-with-loot) 12 16)
159 (put (mk-corpse-with-loot) 17 15)
160
161 ;; Nate
162 (put (mk-nate) 16 3)
163)
164
165(mk-place-music p_bandit_hideout_l2a 'ml-dungeon-adventure)
166
167;  (put (spawn-pt 'cave-goblin-slinger) 18 7)
168;  (put (spawn-pt 'cave-goblin-slinger) 18 11)
169;  (put (spawn-pt 'cave-goblin-berserker) 15 9)
170;  (put (guard-pt 'crossbowman) 12 9)
171;  (put (guard-pt 'crossbowman) 12 11)
172;  (put (guard-pt 'halberdier) 10 10)
173
174 ;; Make a test chest with a bunch of traps on it.
175;  (let ((kchest (mk-chest nil
176;                 '((1 t_sword)
177;                   (5 t_arrow)
178;                   (2 t_torch)))))
179;    (map (lambda (trap)
180;           (ifccall kchest 'add-trap trap))
181;         (list 'sleep-trap
182;               'poison-trap
183;               'burn-trap
184;               'spike-trap
185;               'lightning-trap
186;               'self-destruct-trap
187;               'bomb-trap))
188;    (put kchest 5 8))
189;  (put (mk-caltrops) 6 9)
190;  (put (mk-beartrap) 6 10)
191