worlds/haxima-1.002/endless-deeps.scm

   1 ;
   2 ; I wanted to make the area down here too big and nasty for the paladins to have wiped out.
   3 ; So I thought Id just make a more or less infinite pseudorandom dungeon.
   4 ; The players dont need to go out there, but they can wander around if they like.
   5 ; However, if they do, it is quite large enough for them to get lost and die in.
   6 ;
   7 ; TODO: occasional 'teleportation' to make "get lost and die" that much easier
   8 ;    this latter should occasionally connect a room to a room with a matching
   9 ;    edge at a much different location to the expected one.
  10 ;
  11
  12 (kern-mk-place
  13         'p_lost_garrison
  14         "¿¼Ê¥¤ÎºÖ"
  15         nil          ; sprite
  16         (kern-mk-map nil 38 38 pal_expanded
  17                 (list
  18                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. ra rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
  19                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. .. r2 rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
  20                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r3 rn xx xx xx rn rn rn xx xx xx rn rn rn xx xx rn rn rn xx xx rn rn rn "
  21                 "rn r8 rn xx xx xx w+ xx ,, x! ,, xx w+ xx xx xx xx xx rr x! xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn "
  22                 "rc .. ra xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  23                 ".. .. .. rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, .. ,, ,, xx ,, ,, ,, xx ,, ,, xx ,, xx ,, ,, xx xx rn rn "
  24                 ".. .. .. w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, rr xx xx x! ,, x! xx xx xx xx rn rn "
  25                 ".. .. .. xx ,, ,, .. ,, ,, ,, .. bb ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  26                 ".. .. .. ,, ,, ,, ,, ,, ,, ,, ,, .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx ,, xx ,, ,, xx rn rn rn "
  27                 ".. .. .. x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, ,, x! ,, ,, ,, xx xx xx xx ,, xx xx xx xx rn rn rn "
  28                 ".. .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rn rn "
  29                 ".. .. .. xx ,, ,, bb ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rn rn "
  30                 ".. .. .. w+ ,, ,, ,, ,, ,, ,, ,, ,, .. ,, ,, w+ ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rn rn "
  31                 ".. .. .. xx ,, ,, ,, ,, ,, .. ,, ,, bb ,, ,, xx ,, ,, ,, ,, ,, .. xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  32                 "r1 r5 .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, .. .. .. xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  33                 "rn rn xx xx xx xx w+ w+ x! w+ x! w+ w+ xx xx xx xx xx xx x! xx xx xx ,, ,, ,, x! ,, [[ @@ @@ @@ ]] ,, x! xx rn rn "
  34                 "rn rn xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rn xx xx rn xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  35                 "rn rn rn rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb r2 rn rn rn rn rn xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  36                 "rn rn rn x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! rn rn rn rn rn rn xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx rn rn "
  37                 "rn rn xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rn rn rn rn rn rn xx ,, ,, ,, xx [[ .M .E .D .I .K ]] xx xx rn rn "
  38                 "rn rn xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rn rn rn rn rn rn rr ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  39                 "rn rn rn xx xx rr xx rr xx xx xx xx ,, ,, ,, xx xx rn rn xx xx xx rr ,, ,, ,, x! ,, ,, ,, ,, ,, ,, ,, x! rn rn rn "
  40                 "rn rn rn xx ,, ,, ,, [[ @@ @@ ]] xx ,, ,, ,, x! xx xx x! xx xx xx x! ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, bb r2 rn rn "
  41                 "rn rn rn xx 00 ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rn rn rn "
  42                 "rn rn xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rn rn "
  43                 "rn rn rn xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rn rn "
  44                 "rn rn xx xx xx xx xx xx x! xx xx xx xx xx xx ,, ,, xx xx xx xx ,, ,, xx xx xx xx xx xx xx xx xx rr xx xx rn rn rn "
  45                 "rn rn xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx rn rn rn "
  46                 "rn rn rn xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx xx rn rn "
  47                 "rn rn rn rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, [[ @@ @@ @@ @@ @@ @@ @@ @@ ]] ,, ,, ,, 00 xx xx rn rn "
  48                 "rn rn rn rr .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx rn rn rn "
  49                 "rn rn rn xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx rn rn rn "
  50                 "rn rn xx rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, [[ @@ @@ @@ @@ @@ @@ @@ @@ ]] ,, ,, ,, && xx xx rn rn "
  51                 "rn rn xx bb ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx xx xx rn "
  52                 "rn rn xx xx xx xx xx xx xx xx xx rr xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx x! xx xx xx xx xx xx xx xx rn rn "
  53                 "rn rn rn xx rn xx xx xx rn rn xx xx xx xx rn rn rn xx xx xx xx xx rn xx rn xx rn xx xx rn xx xx rn rn xx rn rn rn "
  54                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
  55                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "            )
  56         )
  57
  58          #f              ; wraps
  59          #t              ; underground
  60          #f              ; large-scale (wilderness)
  61          #f              ; tmp combat place
  62          nil ; subplaces
  63          nil ; neighbors
  64
  65          (list (put (mk-monman) 0 0) ; objects
  66                 (put (mk-ladder-up 'p_deepness 12 9) 11 11)
  67                 (put (kern-tag 'ednp1 (mk-portcullis)) 8 3)
  68                 (put (kern-tag 'ednp2 (mk-connected-portcullis 'ednp1)) 10 3)
  69                 (put (kern-tag 'edwp1 (mk-portcullis)) 3 8)
  70                 (put (kern-tag 'edwp2 (mk-connected-portcullis 'edwp1)) 3 10)
  71                 (put (kern-tag 'ede1p1 (mk-portcullis)) 15 8)
  72                 (put (kern-tag 'ede1p2 (mk-connected-portcullis 'ede1p1)) 15 10)
  73                 (put (kern-tag 'ede2p1 (mk-portcullis)) 22 8)
  74                 (put (kern-tag 'ede2p2 (mk-connected-portcullis 'ede2p1)) 22 10)
  75                 (put (mk-locked-door) 29 4)
  76                 (put (mk-door) 29 7)
  77                 (put (mk-door) 31 4)
  78                 (put (mk-locked-door) 31 7)
  79                 (put (mk-door) 26 12)
  80                 (put (mk-door) 26 24)
  81                 (put (mk-door) 21 26)
  82                 (put (mk-door) 22 26)
  83                 (put (mk-door) 15 26)
  84                 (put (mk-door) 16 26)
  85                 (put (mk-door) 11 24)
  86
  87                 (put (mk-lever 'edwp2) 4 17)
  88                 (put (mk-lever-on 'ednp2) 4 16)
  89                 (put (mk-lever-on 'ede1p2) 14 16)
  90                 (put (mk-lever-on 'ede2p2) 25 4)
  91
  92                 (put (mk-bed) 4 25)
  93                 (put (mk-bed) 5 28)
  94                 (put (mk-bed) 8 28)
  95                 (put (mk-bed) 11 28)
  96                 (put (mk-bed) 14 28)
  97                 (put (mk-bed) 17 28)
  98                 (put (mk-bed) 5 30)
  99                 (put (mk-bed) 8 30)
 100                 (put (mk-bed) 11 30)
 101                 (put (mk-bed) 14 30)
 102                 (put (mk-bed) 17 30)
 103                 (put (mk-bed) 5 32)
 104                 (put (mk-bed) 8 32)
 105                 (put (mk-bed) 11 32)
 106                 (put (mk-bed) 14 32)
 107                 (put (mk-bed) 17 32)
 108                 (put (mk-bed) 28 21)
 109                 (put (mk-bed) 32 24)
 110                 (put (mk-bed) 30 24)
 111                 (put (mk-bed) 32 22)
 112
 113                 (put (mk-broken-clock s_clock_hand_sw s_clock_hand_se "»þ·×¤Ï8»þ27Ê¬¤À¡£") 4 22)
 114                 (put (kern-mk-obj t_garrison_log 1) 4 23)
 115                 (put (kern-mk-obj t_food 21) 33 27)
 116                 (put (kern-mk-obj t_food 1) 22 29)
 117                 (put (kern-mk-obj t_food 1) 27 32)
 118
 119                 (put (spawn-pt 'troll-m) 6 17)
 120                 (put (spawn-pt 'troll-m) 11 19)
 121                 (put (spawn-pt 'cave-goblin-berserker-m) 29 11)
 122                 (put (spawn-pt 'cave-goblin-slinger-m) 32 13)
 123                 (put (spawn-pt 'cave-goblin-berserker-m) 32 23)
 124                 (put (spawn-pt 'gint-warrior-m) 23 28)
 125                 (put (spawn-pt 'gint-warrior-m) 28 33)
 126
 127                 ;;guards possessed or dead- captain + 11 troops
 128                 (put (mk-corpse2
 129                    '(
 130                         (1 t_armor_chain)
 131                         (1 t_sword_2)
 132                         (1 t_scratched_shield)
 133                         )) 7 24)
 134
 135
 136                 (put (mk-npc 'corrupt-halberdier 4) 18 12)
 137                 (put (mk-npc 'corrupt-halberdier 8) 17 6)
 138                 (put (mk-npc 'corrupt-halberdier 6) 24 12)
 139                 (put (mk-npc 'corrupt-crossbowman 5) 8 17)
 140                 (put (mk-npc 'corrupt-crossbowman 6) 14 5)
 141
 142                 (put (mk-npc 'corrupt-halberdier 7) 24 5)
 143                 (put (mk-corpse2
 144                    '(
 145                         (2 t_heal_potion)
 146                         (1 t_crossbow)
 147                         (13 t_bolt)
 148                         )) 13 6)
 149                 (put (mk-corpse-with-loot) 11 9)
 150                 (put (mk-corpse-with-loot) 17 13)
 151                 (put (mk-corpse-with-loot) 7 29)
 152
 153                 (put (mk-corpse-with-loot) 30 30)
 154
 155
 156                 ;;additional critters
 157                 ;;gazers
 158                 (put (mk-npc 'gazer 9) 25 8)
 159                 (put (mk-npc 'gazer 8) 22 31)
 160                 (put (mk-npc 'gazer 7) 7 25)
 161                 (put (mk-npc 'gazer 6) 32 11)
 162
 163                 ;;gints
 164                 (put (mk-npc 'gint-warrior-m 8) 5 6)
 165                 (put (mk-npc 'gint-warrior-m 7) 12 32)
 166                 (put (mk-npc 'gint-warrior-m 6) 30 27)
 167
 168                 ;;trolls
 169                 (put (mk-npc 'troll-m 7) 7 19)
 170                 (put (mk-npc 'troll-m 6) 29 17)
 171                 (put (mk-npc 'troll-m 5) 10 29)
 172                 (put (mk-npc 'troll-m 5) 31 21)
 173                 (put (mk-npc 'troll-m 4) 13 16)
 174
 175                 ;;goblins
 176                 (put (mk-npc 'cave-goblin-berserker-m 6) 12 31)
 177                 (put (mk-npc 'cave-goblin-berserker-m 5) 9 32)
 178                 (put (mk-npc 'cave-goblin-berserker-m 4) 18 8)
 179                 (put (mk-npc 'cave-goblin-slinger-m 6) 7 20)
 180                 (put (mk-npc 'cave-goblin-slinger-m 5) 12 16)
 181                 (put (mk-npc 'cave-goblin-slinger-m 4) 10 32)
 182                 (put (mk-npc 'cave-goblin-slinger-m 3) 32 16)
 183
 184                 ;; Rune
 185                 (put (mk-buried 't_rune_p 1) 3 33)
 186          )
 187
 188
 189          (list
 190                 'on-entry-to-dungeon-room
 191                 'deeps-room-handle-garrison
 192                 ) ;; hooks
 193                 (list ;; edge entrances
 194                         (list east 0 9)
 195                         (list south 9 0)
 196                 )
 197  )
 198
 199 (mk-place-music p_lost_garrison 'ml-dungeon-adventure)
 200
 201
 202
 203 (kern-mk-place
 204         'p_deeps_1
 205         "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
 206          nil          ; sprite
 207         (kern-mk-map nil 19 19 pal_expanded
 208                 (list
 209                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 210                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 211                 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn "
 212                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 213                 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 "
 214                 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. "
 215                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 216                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 217                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 218                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 219                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 220                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 221                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 222                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 223                 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 "
 224                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 225                 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn "
 226                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 227                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 228                 )
 229         )
 230          #f              ; wraps
 231          #t              ; underground
 232          #f              ; large-scale (wilderness)
 233          #f              ; tmp combat place
 234          nil ; subplaces
 235          nil ; neighbors
 236
 237         nil; objects
 238
 239          (list
 240                 ;'on-entry-to-dungeon-room
 241                 'deeps-room-handle-deeps
 242         ) ;; hooks
 243         nil
 244 )
 245
 246
 247  (kern-mk-place
 248         'p_deeps_2
 249         "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
 250         nil          ; sprite
 251         (kern-mk-map nil 19 19 pal_expanded
 252                 (list
 253                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 254                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 255                 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn "
 256                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 257                 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 "
 258                 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. "
 259                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 260                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 261                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 262                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 263                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 264                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 265                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 266                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 267                 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 "
 268                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 269                 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn "
 270                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 271                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 272                 )
 273         )
 274          #f              ; wraps
 275          #t              ; underground
 276          #f              ; large-scale (wilderness)
 277          #f              ; tmp combat place
 278          nil ; subplaces
 279          nil ; neighbors
 280
 281          (list (put (mk-monman) 0 0) ; objects
 282          )
 283
 284          (list
 285                 ;'on-entry-to-dungeon-room
 286                 'deeps-room-handle-deeps
 287         ) ;; hooks
 288         nil
 289 )
 290
 291    (kern-mk-place
 292         'p_deeps_3
 293         "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
 294          nil          ; sprite
 295         (kern-mk-map nil 19 19 pal_expanded
 296                 (list
 297                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 298                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 299                 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn "
 300                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 301                 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 "
 302                 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. "
 303                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 304                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 305                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 306                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 307                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 308                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 309                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 310                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 311                 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 "
 312                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 313                 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn "
 314                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 315                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 316                 )
 317         )
 318          #f              ; wraps
 319          #t              ; underground
 320          #f              ; large-scale (wilderness)
 321          #f              ; tmp combat place
 322          nil ; subplaces
 323          nil ; neighbors
 324
 325          (list (put (mk-monman) 0 0) ; objects
 326          )
 327
 328          (list
 329                 ;'on-entry-to-dungeon-room
 330                 'deeps-room-handle-deeps
 331         ) ;; hooks
 332         nil
 333  )
 334
 335    (kern-mk-place
 336         'p_deeps_4
 337         "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
 338          nil          ; sprite
 339         (kern-mk-map nil 19 19 pal_expanded
 340                 (list
 341                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 342                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 343                 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn "
 344                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 345                 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 "
 346                 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. "
 347                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 348                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 349                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 350                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 351                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 352                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 353                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 354                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 355                 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 "
 356                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 357                 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn "
 358                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 359                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 360                 )
 361         )
 362          #f              ; wraps
 363          #t              ; underground
 364          #f              ; large-scale (wilderness)
 365          #f              ; tmp combat place
 366          nil ; subplaces
 367          nil ; neighbors
 368
 369          (list (put (mk-monman) 0 0) ; objects
 370          )
 371
 372          (list
 373                 ;'on-entry-to-dungeon-room
 374                 'deeps-room-handle-deeps
 375         ) ;; hooks
 376         nil
 377  )
 378
 379  (kern-mk-place
 380         'p_deeps_5
 381         "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
 382           nil          ; sprite
 383         (kern-mk-map nil 19 19 pal_expanded
 384                 (list
 385                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 386                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 387                 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn "
 388                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 389                 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 "
 390                 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. "
 391                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 392                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 393                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 394                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 395                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 396                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 397                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 398                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
 399                 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 "
 400                 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn "
 401                 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn "
 402                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 403                 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn "
 404                 )
 405         )
 406          #f              ; wraps
 407          #t              ; underground
 408          #f              ; large-scale (wilderness)
 409          #f              ; tmp combat place
 410          nil ; subplaces
 411          nil ; neighbors
 412
 413          (list (put (mk-monman) 0 0) ; objects
 414          )
 415
 416          (list
 417                 ;'on-entry-to-dungeon-room
 418                 'deeps-room-handle-deeps
 419         ) ;; hooks
 420         nil
 421  )
 422
 423
 424 (mk-place-music p_deeps_1 'ml-dungeon-adventure)
 425 (mk-place-music p_deeps_2 'ml-dungeon-adventure)
 426 (mk-place-music p_deeps_3 'ml-dungeon-adventure)
 427 (mk-place-music p_deeps_4 'ml-dungeon-adventure)
 428 (mk-place-music p_deeps_5 'ml-dungeon-adventure)
 429
 430  (kern-mk-place
 431         'deeps_data
 432         "null"
 433           nil          ; sprite
 434         (kern-mk-map nil 1 1 pal_expanded
 435                 (list
 436                   "rr"
 437                 )
 438         )
 439          #f              ; wraps
 440          #t              ; underground
 441          #f              ; large-scale (wilderness)
 442          #f              ; tmp combat place
 443          nil ; subplaces
 444          nil ; neighbors
 445
 446         nil ;; objects
 447         nil ;; hooks
 448         nil
 449  )
 450
 451 (prmap-linkrooms-2d 'p_deeps_1 'p_deeps_2 'p_deeps_3 'p_deeps_4 'p_deeps_5)
 452 (prmap-mk-roomdata 'p_lost_garrison 0 0 0 (list 'p_deeps_1 'p_deeps_2 'p_deeps_5 'p_deeps_3))
 453
 454 (prmap-set-mapdata p_deeps_1 (prmap-mk-mapdata "endless_deeps" deep-random-type-ns deep-random-type-ew deep-random-type-area 'deep-terrain-edges 'deep-terrain-area 'deep-room-blitstats nil))
 455
 456 (let ((deep-hardlinks (prmap-params-hardlinks (prmap-get-mapdata p_deeps_1))))
 457         (define (link-rm xloc yloc zloc dir target maptemplate passable )
 458                 (prmap-room-hardlink-set! xloc yloc zloc deep-hardlinks dir target maptemplate passable nil)
 459                 )
 460
 461 ;;---------------------------------------------------------
 462 ;; hardlink setup
 463 ;;
 464 ;;                      x       y       z       dir             target                          template                                passable
 465
 466 (link-rm        0       1       0       south   'p_lost_garrison        'm_deeptempl_passage    #f)
 467 (link-rm        1       1       0       south   nil                                     'm_deeptempl_wall               #f)
 468 (link-rm        -1      0       0       east    'p_lost_garrison        'm_deeptempl_passage    #f)
 469 (link-rm        2       0       0       west    nil                                     'm_deeptempl_wall               #f)
 470 (link-rm        -1      -1      0       east    nil                                     'm_deeptempl_wall               #f)
 471 (link-rm        2       -1      0       west    nil                                     'm_deeptempl_wall               #f)
 472 (link-rm        0       -2      0       north   nil                                     'm_deeptempl_wall               #f)
 473 (link-rm        1       -2      0       north   nil                             'm_deeptempl_wall               #f)
 474 )
 475
 476 ;;flag for checking if cohesion check still needs to be performed
 477 (mutable-list-set (prmap-get-mapdata p_deeps_1) 10 #t)