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