worlds/haxima-1.002/lost-halls.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Troll Cave
   3 ;;
   4 ;; Big underground complex; created by some civilized race, now a ruin
   5 ;; inhabited by trolls and other monsters.
   6 ;;----------------------------------------------------------------------------
   7
   8 (kern-load "warritrix.scm")
   9
  10
  11 (kern-mk-place
  12         'p_lost_halls_entrance
  13         "Gate to the Lost Halls"
  14         s_dungeon          ; sprite
  15         (kern-mk-map nil 21 21 pal_expanded
  16         (list
  17                 "rn rn rn r4 {8 .. bb .. {8 .. .. .. .. .. .. {8 r2 rn rn rn rn "
  18                 "rn rn rn r4 {{ bb .. {c {{ {2 .. .. .. bb {c {{ r2 rn rn rn rn "
  19                 "rn rn rn r4 {{ {2 {4 {{ {{ bb .. .. .. {4 {{ rb r8 rn rn rn rn "
  20                 "rn rn rn rn r5 .. .. {5 {{ {2 .. .. .. {4 {{ {{ {2 r2 rn rn rn "
  21                 "rn rn rn rn rn rd .. .. {1 .. .. .. .. r7 {{ {{ {a r2 rn rn rn "
  22                 "rn rn rn rn r4 .. .. bb .. .. .. .. .. ra rd {{ {{ r2 rn rn rn "
  23                 "rn rn rn rn r8 rd {8 .. .. .. .. .. {4 {{ {{ {7 {{ r2 rn rn rn "
  24                 "rn rn rn rc {{ {6 {{ {a .. .. .. .. .. {1 bb .. rb rn rn rn rn "
  25                 "rn rn r4 {{ {3 {4 {{ {{ {2 .. .. .. .. .. .. {4 {{ r2 rn rn rn "
  26                 "rn rn r4 {1 xx xx xx {{ {2 .. .. .. .. xx xx xx {{ r2 rn rn rn "
  27                 "rn xx xx xx xx xx xx {1 .. .. .. .. .. xx xx xx xx xx xx rn rn "
  28                 "^^ ^^ ^^ {{ xx xx xx .. .. .. .. .. .. xx xx xx {{ ^^ ^^ ^^ rn "
  29                 "^^ ^^ ^^ {{ {a {8 .. .. .. .. .. .. .. .. {4 {{ {{ ^^ ^^ ^^ rn "
  30                 "^^ {{ {{ {{ {{ {{ {2 .. .. .. .. .. tf {8 bb {{ {{ ^^ ^^ ^^ ^^ "
  31                 "{{ {{ {C bb {{ {{ {2 .. .. .. .. {4 {{ {{ {{ {{ {{ {{ {{ ^^ ^^ "
  32                 "{1 t3 t5 .. {9 {9 .. tf .. .. .. .. {1 {5 {{ bb {{ ^^ ^^ ^^ ^^ "
  33                 "{8 ta tt bb {{ {{ {2 .. .. .. .. .. .. .. {5 {{ {{ {{ ^^ ^^ ^^ "
  34                 "{{ t% te {# {{ {3 .. .. .. .. .. .. {8 {8 .. {1 tf {{ ^^ ^^ ^^ "
  35                 "{{ {{ {e {{ {3 {8 .. bb .. .. .. {4 {{ {{ {a {8 {4 {{ {{ {{ {{ "
  36                 "{{ {{ {{ {C t7 {A {2 .. .. .. .. .. {5 {{ {{ {{ {2 tf {{ {7 {{ "
  37                 "{A {{ {3 tb tt td .. .. .. .. .. .. {4 {{ {{ {3 .. .. {1 {4 {C "
  38
  39         )
  40         )
  41
  42          #f              ; wraps
  43          #f              ; underground
  44          #f              ; large-scale (wilderness)
  45          #f              ; tmp combat place
  46          nil ; subplaces
  47          nil ; neighbors
  48
  49          (list ; objects
  50                 (put (mk-monman) 0 0)
  51                 (put (spawn-pt 'cave-goblin-slinger-m) 8 7)
  52                 (put (spawn-pt 'cave-goblin-berserker-m) 9 13)
  53                 (put (spawn-pt 'cave-goblin-slinger-m) 12 8)
  54                 (put (spawn-pt 'cave-goblin-berserker-m) 13 14)
  55                 (put (spawn-pt 'troll-m) 10 10)
  56          )
  57
  58          (list
  59                 'losthalls-room-handle-start
  60                 'on-entry-to-dungeon-room
  61                 ) ;; hooks
  62                 (list ;; edge entrances
  63                 )
  64  )
  65
  66 (kern-mk-place
  67         'p_lost_halls_r1
  68         "The Lost halls"
  69          nil          ; sprite
  70         (kern-mk-map nil 21 21 pal_expanded
  71                 (list
  72   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  73   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  74   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  75   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  76   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  77   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  78   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  79   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  80   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  81   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  82   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  83   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  84   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  85   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  86   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  87   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  88   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
  89   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  90   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  91   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  92   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
  93                 )
  94         )
  95          #f              ; wraps
  96          #t              ; underground
  97          #f              ; large-scale (wilderness)
  98          #f              ; tmp combat place
  99          nil ; subplaces
 100          nil ; neighbors
 101
 102         nil; objects
 103
 104          (list
 105                 'losthalls-room-handle-deeps
 106         ) ;; hooks
 107         nil
 108 )
 109
 110 (kern-mk-place
 111         'p_lost_halls_r2
 112         "The Lost halls"
 113          nil          ; sprite
 114         (kern-mk-map nil 21 21 pal_expanded
 115                 (list
 116   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 117   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 118   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 119   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 120   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 121   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 122   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 123   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 124   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 125   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 126   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 127   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 128   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 129   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 130   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 131   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 132   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 133   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 134   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 135   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 136   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 137                 )
 138         )
 139          #f              ; wraps
 140          #t              ; underground
 141          #f              ; large-scale (wilderness)
 142          #f              ; tmp combat place
 143          nil ; subplaces
 144          nil ; neighbors
 145
 146         nil; objects
 147
 148          (list
 149                 'losthalls-room-handle-deeps
 150         ) ;; hooks
 151         nil
 152 )
 153
 154 (kern-mk-place
 155         'p_lost_halls_r3
 156         "The Lost halls"
 157          nil          ; sprite
 158         (kern-mk-map nil 21 21 pal_expanded
 159                 (list
 160   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 161   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 162   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 163   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 164   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 165   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 166   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 167   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 168   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 169   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 170   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 171   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 172   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 173   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 174   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 175   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 176   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 177   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 178   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 179   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 180   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 181                 )
 182         )
 183          #f              ; wraps
 184          #t              ; underground
 185          #f              ; large-scale (wilderness)
 186          #f              ; tmp combat place
 187          nil ; subplaces
 188          nil ; neighbors
 189
 190         nil; objects
 191
 192          (list
 193                 'losthalls-room-handle-deeps
 194         ) ;; hooks
 195         nil
 196 )
 197
 198 (kern-mk-place
 199         'p_lost_halls_r4
 200         "The Lost halls"
 201          nil          ; sprite
 202         (kern-mk-map nil 21 21 pal_expanded
 203                 (list
 204   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 205   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 206   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 207   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 208   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 209   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 210   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 211   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 212   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 213   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 214   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 215   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 216   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 217   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 218   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 219   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 220   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 221   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 222   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 223   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 224   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 225                 )
 226         )
 227          #f              ; wraps
 228          #t              ; underground
 229          #f              ; large-scale (wilderness)
 230          #f              ; tmp combat place
 231          nil ; subplaces
 232          nil ; neighbors
 233
 234         nil; objects
 235
 236          (list
 237                 'losthalls-room-handle-deeps
 238         ) ;; hooks
 239         nil
 240 )
 241
 242 (kern-mk-place
 243         'p_lost_halls_r5
 244         "The Lost halls"
 245          nil          ; sprite
 246         (kern-mk-map nil 21 21 pal_expanded
 247                 (list
 248   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 249   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 250   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 251   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 252   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 253   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 254   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 255   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 256   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 257   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 258   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 259   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 260   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 261   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 262   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 263   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 264   ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, "
 265   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 266   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 267   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 268   "rn rn rn rn ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rn rn rn rn "
 269                 )
 270         )
 271          #f              ; wraps
 272          #t              ; underground
 273          #f              ; large-scale (wilderness)
 274          #f              ; tmp combat place
 275          nil ; subplaces
 276          nil ; neighbors
 277
 278         nil; objects
 279
 280          (list
 281                 'losthalls-room-handle-deeps
 282         ) ;; hooks
 283         nil
 284 )
 285
 286 (kern-mk-place
 287         'p_lost_halls_staird
 288         "The Great Stair"
 289          nil          ; sprite
 290         (kern-mk-map nil 21 21 pal_expanded
 291         (list
 292                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 293                 "rn rn rn rn rn rn rn rn r8 rn rn rn rn rn rn rn rn rn rn rn rn "
 294                 "rn rn rn rn rn xx xx xx bb xx xx r8 xx xx xx rn rn rn rn rn rn "
 295                 "rn rn rn rn r8 rc .. .. .. .. .. .. .. .. ra r8 r8 rn rn rn rn "
 296                 "rn rn rn r4 .. .. .. .. .. .. .. .. .. .. .. .. .. r2 rn rn rn "
 297                 "rn rn r4 {{ {2 .. .. .. .. r2 rn rn r4 .. .. .. .. ra rn rn rn "
 298                 "rn rn xx {1 .. .. .. r3 r1 rn rn rn rn r5 .. .. .. .. xx rn rn "
 299                 "rn rn xx .. .. .. r3 rn xx d, d, d, xx rn r5 .. .. .. bb r2 rn "
 300                 "rn rn xx bb .. .. r2 rn xx ,, ,, ,, xx rn rc .. .. .. xx rn rn "
 301                 "rn r4 bb .. .. .. ra rn xx cc cc cc xx r4 .. .. .. .. xx rn rn "
 302                 "rn rn r5 .. .. .. .. r2 xx ,, ,, ,, xx r4 .. .. .. .. xx rn rn "
 303                 "rn rn xx bb .. .. .. r2 xx cc cc cc xx xx .. .. .. .. r2 rn rn "
 304                 "rn rn xx .. .. .. .. xx xx ,, ,, ,, xx xx .. .. .. .. r2 rn rn "
 305                 "rn rn r4 .. .. .. xx xx xx cc cc cc xx xx xx .. .. .. xx rn rn "
 306                 "rn rn xx .. .. .. xx xx xx ,, ,, ,, xx xx xx .. .. {8 xx rn rn "
 307                 "rn rn rn r5 .. .. .. .. .. .. .. .. .. .. .. .. {4 {{ xx rn rn "
 308                 "rn rn rn r4 .. {8 {8 .. .. .. .. .. .. .. .. .. .. r2 rn rn rn "
 309                 "rn rn rn rn r1 {{ {{ {2 .. .. .. .. .. .. .. r3 r1 rn rn rn rn "
 310                 "rn rn rn rn rn r1 xx xx r1 r1 xx r1 xx xx xx xx rn rn rn rn rn "
 311                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 312                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 313         )
 314
 315         )
 316          #f              ; wraps
 317          #t              ; underground
 318          #f              ; large-scale (wilderness)
 319          #f              ; tmp combat place
 320          nil ; subplaces
 321          nil ; neighbors
 322
 323         (list
 324                 (put (mk-monman) 0 0)
 325          (put (mk-bump-door 'p_lost_halls_stairu 10 18) 9 7)
 326          (put (mk-bump-door 'p_lost_halls_stairu 10 18) 10 7)
 327          (put (mk-bump-door 'p_lost_halls_stairu 10 18) 11 7)
 328          (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 9 15)
 329          (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 10 15)
 330          (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 11 15)
 331           (put (spawn-pt 'giant-spider) 4 11)
 332           (put (spawn-pt 'giant-spider) 5 10)
 333           (put (spawn-pt 'giant-spider) 6 12)
 334         (put (spawn-pt 'gint-warrior) 15 11)
 335         (put (spawn-pt 'gint-warrior) 15 11)
 336         (put (spawn-pt 'gint-mage) 14 10)
 337         ); objects
 338
 339
 340          (list
 341                 'on-entry-to-dungeon-room
 342                 'losthalls-room-handle-staird
 343         ) ;; hooks
 344         nil
 345 )
 346
 347 (kern-mk-place
 348         'p_lost_halls_stairu
 349         "The Great Stair"
 350          nil          ; sprite
 351         (kern-mk-map nil 21 21 pal_expanded
 352         (list
 353                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 354                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 355                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 356                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 357                 "rn rn rn xx xx .. .. .. .. .. .. .. .. .. .. .. xx xx rn rn rn "
 358                 "rn rn rn xx .. .. .. .. .. .. .. .. .. .. .. .. .. xx rn rn rn "
 359                 "rn rn rn xx .. .. .. .. ,, .. ,, .. .. .. ,, .. .. xx rn rn rn "
 360                 "rn rn rn xx .. .. .. .. .. .. .. .. ,, .. .. .. .. xx rn rn rn "
 361                 "rn rn rn xx .. .. .. ,, ,, ,, ,, .. .. .. .. .. .. xx rn rn rn "
 362                 "rn rn rn xx .. .. .. ,, .. .. .. ,, ,, ,, ,, .. .. xx rn rn rn "
 363                 "rn rn rn xx .. .. xx ,, ,, ,, ,, ,, ,, ,, xx .. .. xx rn rn rn "
 364                 "rn rn rn xx .. xx xx xx cc cc cc cc cc xx xx xx .. xx rn rn rn "
 365                 "rn rn rn xx .. xx xx xx ,, ,, ,, ,, ,, xx xx xx .. xx rn rn rn "
 366                 "rn rn rn xx .. .. xx xx cc cc cc cc cc xx xx .. .. xx rn rn rn "
 367                 "rn rn rn xx .. .. xx xx xx ,, ,, ,, xx xx xx .. .. xx rn rn rn "
 368                 "rn rn rn xx .. .. .. xx xx cc cc cc xx xx .. .. .. xx rn rn rn "
 369                 "rn rn rn xx xx .. .. xx xx ,, ,, ,, xx xx .. .. xx xx rn rn rn "
 370                 "rn rn rn rn xx xx xx xx xx cc cc cc xx xx xx xx xx rn rn rn rn "
 371                 "rn rn rn rn rn rn rn rn xx ,, ,, ,, xx rn rn rn rn rn rn rn rn "
 372                 "rn rn rn rn rn rn rn rn xx d, d, d, xx rn rn rn rn rn rn rn rn "
 373                 "rn rn rn rn rn rn rn rn xx xx xx xx xx rn rn rn rn rn rn rn rn "
 374         )
 375         )
 376          #f              ; wraps
 377          #t              ; underground
 378          #f              ; large-scale (wilderness)
 379          #f              ; tmp combat place
 380          nil ; subplaces
 381          nil ; neighbors
 382
 383         (list
 384                 (put (mk-monman) 0 0)
 385          (put (mk-bump-door 'p_lost_halls_staird 10 8) 9 19)
 386          (put (mk-bump-door 'p_lost_halls_staird 10 8) 10 19)
 387          (put (mk-bump-door 'p_lost_halls_staird 10 8) 11 19)
 388                 (put (spawn-pt 'cave-goblin-slinger-m) 11 8)
 389                 (put (spawn-pt 'cave-goblin-berserker-m) 8 12)
 390                 (put (spawn-pt 'troll-m) 9 10)
 391                 (put (spawn-pt 'gint-warrior-m) 12 9)
 392
 393         ); objects
 394
 395
 396          (list
 397                 'on-entry-to-dungeon-room
 398                 'losthalls-room-handle-stairu
 399         ) ;; hooks
 400         nil
 401 )
 402
 403 (kern-mk-place
 404         'p_lost_halls_graves
 405         "The Graveyard"
 406          nil          ; sprite
 407         (kern-mk-map nil 21 21 pal_expanded
 408         (list
 409                 "rn rn rn rn rn rn rn xx r8 rn rn r8 rn rn rn rn rn rn rn rn rn "
 410                 "rn rn rn rn rn rn rn xx bb ra rc bb ra xx rn rn rn rn rn rn rn "
 411                 "rn rn rn rn rn rn rn xx rd bb .. .. bb xx rn rn rn rn rn rn rn "
 412                 "rn rn rn rn xx xx xx xx .. .. .. .. .. xx xx xx xx rn rn rn rn "
 413                 "rn rn rn xx xx .. .. .. .. .. .. .. .. .. .. .. xx xx rn rn rn "
 414                 "rn rn rn xx .. .. .. .. .. .. .. .. .. .. .. {8 .. xx rn rn rn "
 415                 "rn rn rn xx .. .. .. @@ ,R @@ ,I @@ ,P bb {4 {{ {2 xx rn rn rn "
 416                 "rn xx xx xx .. .. .. .. .. .. .. .. .. .. .. {1 .. xx xx xx rn "
 417                 "r4 bb .. bb .. .. 00 .. 00 .. 00 .. 00 .. 00 .. .. .. bb ra rn "
 418                 "rn r5 bb .. .. {4 {{ {6 {{ {6 {{ {e {{ {6 {{ {2 .. .. bb .. r2 "
 419                 "rn rn rd .. .. {4 {{ {6 bb {6 {{ {{ {{ {6 {{ {2 .. .. bb r3 rn "
 420                 "rn r4 bb .. .. .. {1 .. {1 .. {1 {1 {1 .. {1 .. .. bb .. ra rn "
 421                 "rn rn r5 .. .. .. 00 .. 00 .. 00 .. bb .. 00 .. .. .. .. bb r2 "
 422                 "rn xx xx xx .. {4 {{ {6 {{ {6 {{ {6 {{ {6 {{ {2 .. xx xx xx rn "
 423                 "rn rn rn xx .. {c {{ {6 {{ {6 {{ {6 {{ {6 {{ {2 .. xx rn rn rn "
 424                 "rn rn rn xx {4 {{ {3 .. {1 .. {1 .. {1 .. {1 .. .. xx rn rn rn "
 425                 "rn rn rn xx xx {{ {2 .. .. .. .. .. bb .. bb .. xx xx rn rn rn "
 426                 "rn rn rn rn xx xx xx xx bb .. .. .. bb xx xx xx xx rn rn rn rn "
 427                 "rn rn rn rn rn rn rn xx .. .. bb .. r3 xx rn rn rn rn rn rn rn "
 428                 "rn rn rn rn rn rn rn xx bb r3 r5 bb r2 xx rn rn rn rn rn rn rn "
 429                 "rn rn rn rn rn rn rn xx r1 rn rn r1 rn xx rn rn rn rn rn rn rn "
 430         )
 431         )
 432          #f              ; wraps
 433          #t              ; underground
 434          #f              ; large-scale (wilderness)
 435          #f              ; tmp combat place
 436          nil ; subplaces
 437          nil ; neighbors
 438
 439         (list
 440                 (put (mk-monman) 0 0)
 441                 (put (spawn-pt 'lich) 11 9)
 442                 (put (spawn-pt 'ghast) 7 11)
 443                 (put (spawn-pt 'ghast) 13 9)
 444                 (put (spawn-pt 'skeletal-warrior) 7 7)
 445                 (put (spawn-pt 'skeletal-warrior) 10 15)
 446                 (put (spawn-pt 'skeletal-spear-thrower) 15 8)
 447                 (put (spawn-pt 'skeletal-spear-thrower) 9 13)
 448         ); objects
 449
 450
 451          (list
 452                 'on-entry-to-dungeon-room
 453                 'losthalls-room-handle-croom
 454         ) ;; hooks
 455         nil
 456 )
 457
 458 (drop-random-corpses p_lost_halls_graves 5)
 459
 460 (kern-mk-place
 461         'p_lost_halls_rshrine
 462         "The Broken Sactuary"
 463          nil          ; sprite
 464         (kern-mk-map nil 21 21 pal_expanded
 465         (list
 466                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 467                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 468                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 469                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 470                 "rn rn rn xx xx @@ @@ @@ @@ ,, ++ ,, @@ @@ @@ @@ xx xx rn rn rn "
 471                 "rn rn rn xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb xx rn rn rn "
 472                 "rn rn rn xx ,, ~~ ~~ ~~ ,, ,, ,, ,, ,, ~~ ~~ ~~ ,, xx rn rn rn "
 473                 "rn xx xx xx ,, b~ _! ~~ ,, ,, aa ,, ,, ~~ _! ~~ ,, xx xx xx rn "
 474                 "r4 bb .. bb ,, ~~ ~~ ~~ ,, ,, ,, ,, ,, ~~ ~~ ~~ ,, ,, bb ra rn "
 475                 "rn r5 bb ,, ,, ,, ,, ,, ,, ,, ,, .. ,, bb ,, ,, ,, ,, bb .. r2 "
 476                 "rn rn rd ,, ,, ,, .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb r3 rn "
 477                 "rn r4 bb ,, ,, ,, ,, ,, ,, bb .. ,, ,, ,, ,, .. ,, bb ,, ra rn "
 478                 "rn rn r5 ,, ,, ,, ,, ,, ,, ,, ,, ,, .. ,, ,, ,, ,, ,, ,, bb r2 "
 479                 "rn xx xx xx ,, ,, .. ,, ,, .. ,, ,, ,, ,, ,, ,, ,, xx xx xx rn "
 480                 "rn rn rn xx ,, .. .. ,, ,, ,, ,, ,, ,, ,, ,, bb ,, xx rn rn rn "
 481                 "rn rn rn xx ,, ,, ,, ,, .. ,, ,, .. ,, ,, ,, ,, ,, xx rn rn rn "
 482                 "rn rn rn xx xx ,, bb ,, ,, ,, ,, .. ,, ,, ,, ,, xx xx rn rn rn "
 483                 "rn rn rn rn xx xx xx xx bb ,, ,, ,, bb xx xx xx xx rn rn rn rn "
 484                 "rn rn rn rn rn rn rn xx ,, ,, bb ,, r3 xx rn rn rn rn rn rn rn "
 485                 "rn rn rn rn rn rn rn xx bb r3 r5 bb r2 xx rn rn rn rn rn rn rn "
 486                 "rn rn rn rn rn rn rn xx r1 rn rn r1 rn xx rn rn rn rn rn rn rn "
 487         )
 488         )
 489          #f              ; wraps
 490          #t              ; underground
 491          #f              ; large-scale (wilderness)
 492          #f              ; tmp combat place
 493          nil ; subplaces
 494          nil ; neighbors
 495
 496         (list
 497                 (put (mk-monman) 0 0)
 498                 (put (spawn-pt 'yellow-slime) 8 9)
 499                 (put (spawn-pt 'yellow-slime) 13 11)
 500         ); objects
 501
 502
 503          (list
 504                 'on-entry-to-dungeon-room
 505                 'losthalls-room-handle-rroom
 506                 'losthalls-handle-rshrine
 507         ) ;; hooks
 508         nil
 509 )
 510
 511 (kern-mk-place
 512         'p_lost_halls_fountains
 513         "The Lost Halls"
 514          nil          ; sprite
 515         (kern-mk-map nil 21 21 pal_expanded
 516         (list
 517                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 518                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 519                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 520                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 521                 "rn rn rn xx xx ,, .. .. .. .. .. .. %f .. .. ,, xx xx rn rn rn "
 522                 "rn rn rn xx ,, .. ,, .. .. .. .. .. .. ,, ,, .. .. xx rn rn rn "
 523                 "rn rn rn xx .. .. ~2 ~~ ~1 ,, ,, .. _s _s _s .. bb xx rn rn rn "
 524                 "rn xx xx xx .. .. ~2 __ ~~ .. .. .. _s _s _s .. .. xx xx xx rn "
 525                 "r4 bb .. xx .. .. ~a ~8 ~c .. .. .. _s _s _s %% %d xx bb ra rn "
 526                 "rn r5 bb xx .. %f .. .. .. .. %7 .. .. %% %% %c .. xx bb .. r2 "
 527                 "rn rn r9 xx .. .. .. .. .. bb %% %% ,, .. %e .. .. xx bb r3 rn "
 528                 "rn r4 bb xx .. .. .. %% ,, %% %c .. .. .. .. .. %7 xx ,, ra rn "
 529                 "rn rn r1 xx ,, .. _s _s _s %% .. .. _s _s _s .. %e xx ,, bb r2 "
 530                 "rn xx xx xx .. .. _s _s bb .. .. %% _s _s _s %% .. xx xx xx rn "
 531                 "rn rn rn xx .. %% _s _s _s .. %b %% _s _s _s %% %5 xx rn rn rn "
 532                 "rn rn rn xx ,, %% %% %% .. ,, .. .. %% %% .. %% %c xx rn rn rn "
 533                 "rn rn rn xx xx .. .. .. .. .. .. .. .. .. %b %c xx xx rn rn rn "
 534                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 535                 "rn rn rn rn rn rn rn xx xx xx xx ,, r2 xx rn rn rn rn rn rn rn "
 536                 "rn rn rn rn rn rn rn xx bb r2 r4 bb r2 xx rn rn rn rn rn rn rn "
 537                 "rn rn rn rn rn rn rn xx r1 rn rn r1 rn xx rn rn rn rn rn rn rn "
 538         )
 539         )
 540          #f              ; wraps
 541          #t              ; underground
 542          #f              ; large-scale (wilderness)
 543          #f              ; tmp combat place
 544          nil ; subplaces
 545          nil ; neighbors
 546
 547         (list
 548                 (put (mk-monman) 0 0)
 549                 (put (spawn-pt 'yellow-slime) 12 8)
 550                 (put (spawn-pt 'yellow-slime) 12 12)
 551                 (put (spawn-pt 'green-slime) 9 13)
 552                 (put (spawn-pt 'green-slime) 7 8)
 553         ); objects
 554
 555
 556          (list
 557                 'on-entry-to-dungeon-room
 558                 'losthalls-room-handle-rroom
 559         ) ;; hooks
 560         nil
 561 )
 562
 563 (drop-random-corpses p_lost_halls_fountains 3)
 564
 565 (kern-mk-place
 566         'p_lost_halls_storage
 567         "The Lost Halls"
 568          nil          ; sprite
 569         (kern-mk-map nil 21 21 pal_expanded
 570         (list
 571                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 572                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 573                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
 574                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 575                 "rn rn rn xx xx .. 00 .. ,, 00 xx bb .. .. .. 00 xx xx rn rn rn "
 576                 "rn rn rn xx .. .. .. ,, .. .. rr .. 00 .. ,, .. .. xx rn rn rn "
 577                 "rn rn rn xx .. .. .. .. 00 .. xx ,, 00 .. .. .. ,, xx rn rn rn "
 578                 "rn xx xx xx xx d, xx rr xx xx xx xx xx rr xx d, xx xx xx xx rn "
 579                 "r4 bb .. xx xx .. xx ,S ,T ,O ,R ,A ,G ,E xx .. xx xx bb ra rn "
 580                 "rn r5 bb xx .. .. .. .. .. .. .. .. .. .. .. .. .. xx bb .. r2 "
 581                 "rn rn r9 xx ,, .. .. .. .. ,, .. bb .. .. ,, .. ,, xx bb r3 rn "
 582                 "rn r4 bb xx .. bb .. ,, .. .. .. .. .. .. .. .. .. xx ,, ra rn "
 583                 "rn rn r1 xx xx rr d, xx xx xx d, xx xx xx d, rr xx xx ,, bb r2 "
 584                 "rn xx xx xx xx 00 .. .. rr .. .. .. bb .. .. .. xx xx xx xx rn "
 585                 "rn rn rn xx .. .. .. .. xx .. .. .. xx .. ,, ,, .. xx rn rn rn "
 586                 "rn rn rn xx 00 .. ,, .. xx .. ,, .. rr .. .. ,, .. xx rn rn rn "
 587                 "rn rn rn xx xx .. .. xx xx .. .. .. xx r5 .. 00 xx xx rn rn rn "
 588                 "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
 589                 "rn rn rn rn rn rn rn xx xx xx xx ,, r2 xx rn rn rn rn rn rn rn "
 590                 "rn rn rn rn rn rn rn xx bb r2 r4 bb r2 xx rn rn rn rn rn rn rn "
 591                 "rn rn rn rn rn rn rn xx r1 rn rn r1 rn xx rn rn rn rn rn rn rn "
 592         )
 593         )
 594          #f              ; wraps
 595          #t              ; underground
 596          #f              ; large-scale (wilderness)
 597          #f              ; tmp combat place
 598          nil ; subplaces
 599          nil ; neighbors
 600
 601         (list
 602                 (put (mk-monman) 0 0)
 603                 (put (spawn-pt 'rat) 7 4)
 604                 (put (spawn-pt 'rat) 7 5)
 605                 (put (spawn-pt 'rat) 7 6)
 606                 (put (spawn-pt 'rat) 6 5)
 607                 (put (spawn-pt 'rat) 13 4)
 608                 (put (spawn-pt 'rat) 13 5)
 609                 (put (spawn-pt 'rat) 13 5)
 610                 (put (spawn-pt 'rat) 14 5)
 611                 (put (spawn-pt 'rat) 5 15)
 612                 (put (spawn-pt 'rat) 6 15)
 613                 (put (spawn-pt 'rat) 7 15)
 614                 (put (spawn-pt 'rat) 6 14)
 615                 (put (spawn-pt 'rat) 14 15)
 616                 (put (spawn-pt 'rat) 15 15)
 617                 (put (spawn-pt 'rat) 16 15)
 618                 (put (spawn-pt 'rat) 15 14)
 619         ); objects
 620
 621
 622          (list
 623                 'on-entry-to-dungeon-room
 624                 'losthalls-room-handle-rroom
 625         ) ;; hooks
 626         nil
 627 )
 628
 629
 630 (mk-place-music p_lost_halls_entrance 'ml-outdoor-adventure)
 631 (mk-place-music p_lost_halls_r1 'ml-dungeon-adventure)
 632 (mk-place-music p_lost_halls_r2 'ml-dungeon-adventure)
 633 (mk-place-music p_lost_halls_r3 'ml-dungeon-adventure)
 634 (mk-place-music p_lost_halls_r4 'ml-dungeon-adventure)
 635 (mk-place-music p_lost_halls_r5 'ml-dungeon-adventure)
 636 (mk-place-music p_lost_halls_staird 'ml-dungeon-adventure)
 637 (mk-place-music p_lost_halls_stairu 'ml-dungeon-adventure)
 638 (mk-place-music p_lost_halls_graves 'ml-creepy-area)
 639 (mk-place-music p_lost_halls_rshrine 'ml-creepy-area)
 640 (mk-place-music p_lost_halls_fountains 'ml-dungeon-adventure)
 641 (mk-place-music p_lost_halls_storage 'ml-dungeon-adventure)
 642
 643
 644 (drop-random-corpses p_lost_halls_storage 2)
 645
 646 ;; map linkage
 647 (prmap-linkrooms-2d 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4 'p_lost_halls_r5)
 648
 649 ;; 2 mapdata objects to allow different terrain types in different areas
 650 (prmap-set-mapdata p_lost_halls_r1 (prmap-mk-mapdata "losthalls" losthalls-random-type-ns losthalls-random-type-ew losthalls-random-type-area 'losthalls-terrain-edges 'losthalls-terrain-area 'losthalls-room-blitstats 'losthalls-room-custom-hardlinks))
 651 (prmap-set-mapdata p_lost_halls_r2 (prmap-mk-mapdata "losthalls" losthalls-random-type-ns losthalls-random-type-ew losthalls-random-type-area 'losthalls-ruin-edges 'losthalls-ruin-area 'losthalls-ruin-blitstats 'losthalls-ruin-custom-hardlinks))
 652
 653 ;; random locations must not clash
 654 (define (lost-halls-grave-x stair-x stair-y)
 655         (if (zero?
 656                 (cond
 657                         ((> stair-y 6) (kern-dice-roll "1d2-1"))
 658                         ((< stair-x -1) 1)
 659                         ((> stair-x 1) 0)
 660                         (#t (kern-dice-roll "1d2-1"))
 661                 ))
 662                 (kern-dice-roll "1d2-4")
 663                 (kern-dice-roll "1d2+1")
 664         ))
 665
 666 (let* ((losthalls-hardlinks (prmap-params-hardlinks (prmap-get-mapdata p_lost_halls_r1)))
 667                 (stairdown-x (kern-dice-roll "1d5-3"))
 668                 (stairdown-y (kern-dice-roll "1d2+5"))
 669                 (grave-x (lost-halls-grave-x stairdown-x stairdown-y))
 670                 (grave-y (kern-dice-roll "1d5"))
 671                 )
 672         (define (link-rm xloc yloc zloc dir target maptemplate passable . hooks)
 673                 (prmap-room-hardlink-set! xloc yloc zloc losthalls-hardlinks dir target maptemplate passable hooks)
 674                 )
 675
 676 ;;---------------------------------------------------------
 677 ;; hardlink setup
 678 ;;
 679 ;;                      x       y       z       dir             target                          template                        passable        hooks
 680
 681 (link-rm        0       0       0       north   nil                                     'm_losthalls_cpassage   #t)
 682 (link-rm        0       1       0       south   nil                                     'm_losthalls_cpassage   #t)
 683 (link-rm        0       0       0       south   'p_lost_halls_entrance          'm_losthalls_special    #t)
 684
 685 ;; stair down in random loc
 686 (prmap-mk-roomdata 'p_lost_halls_staird stairdown-x stairdown-y 0 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 687
 688 (link-rm        stairdown-x     (- stairdown-y 1)       0       north   'p_lost_halls_staird    'm_losthalls_cpassage #t)
 689 (link-rm        stairdown-x     stairdown-y     0       south   nil             'm_losthalls_cpassage   #t)
 690 (link-rm        stairdown-x     (+ stairdown-y 1)       0       south   'p_lost_halls_staird    nil                                     #t)
 691 (link-rm        (- stairdown-x 1)       stairdown-y     0       east    'p_lost_halls_staird    nil                                     #t)
 692 (link-rm        (+ stairdown-x 1)       stairdown-y     0       west    'p_lost_halls_staird    nil                             #t)
 693
 694 (println "stair at " stairdown-x " " stairdown-y)
 695
 696 ;; cemetary in random loc
 697 (prmap-mk-roomdata 'p_lost_halls_graves grave-x grave-y 0 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 698
 699 (link-rm        grave-x (- grave-y 1)   0       north   'p_lost_halls_graves    'm_losthalls_cruin #t)
 700 (link-rm        grave-x grave-y                 0       south   nil                                             'm_losthalls_cruin      #t)
 701 (link-rm        grave-x (+ grave-y 1)   0       south   'p_lost_halls_graves    nil                                     #t)
 702 (link-rm        (- grave-x 1)   grave-y 0       east    'p_lost_halls_graves    nil                                     #t)
 703 (link-rm        (+ grave-x 1)   grave-y 0       west    'p_lost_halls_graves    nil                             #t)
 704
 705 )
 706
 707 (let ((losthalls-hardlinks (prmap-params-hardlinks (prmap-get-mapdata p_lost_halls_r2)))
 708                 (stairup-x (kern-dice-roll "1d3+1")))
 709         (define (link-rm xloc yloc zloc dir target maptemplate passable . hooks)
 710                 (prmap-room-hardlink-set! xloc yloc zloc losthalls-hardlinks dir target maptemplate passable hooks)
 711                 )
 712
 713 ;; stair up in random loc
 714 (prmap-mk-roomdata 'p_lost_halls_stairu stairup-x 0 1 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 715 (link-rm        stairup-x       0       1       south   nil             'm_losthalls_stairu     #f)
 716 (link-rm        stairup-x       1       1       south   'p_lost_halls_stairu    nil             #t)
 717 (link-rm        (- stairup-x 1) 0       1       east    'p_lost_halls_stairu    nil                                     #t)
 718 (link-rm        (+ stairup-x 1) 0       1       west    'p_lost_halls_stairu    nil                             #t)
 719
 720 ;; warritrix' resting place
 721 (prmap-mk-roomdata 'p_lost_halls_rshrine 3 5 1 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 722 (link-rm        3       5       1       north   nil             'm_losthalls_rwall      #f)
 723 (link-rm        3       5       1       south   nil             'm_losthalls_rrooms     #t)
 724 (link-rm        3       4       1       north   'p_lost_halls_rshrine   'm_losthalls_rrooms             #t)
 725 (link-rm        2       5       1       east    'p_lost_halls_rshrine   nil                                     #t)
 726 (link-rm        4       5       1       west    'p_lost_halls_rshrine   nil                             #t)
 727
 728 ;; fountains
 729 (prmap-mk-roomdata 'p_lost_halls_fountains 5 3 1 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 730 (link-rm        5       3       1       west    nil             'm_losthalls_rhall      #t)
 731 (link-rm        5       4       1       south   'p_lost_halls_fountains nil             #t)
 732 (link-rm        4       3       1       east    'p_lost_halls_fountains 'm_losthalls_rhall      #t)
 733 (link-rm        5       2       1       north   'p_lost_halls_fountains nil                             #t)
 734
 735 ;; storage
 736 (prmap-mk-roomdata 'p_lost_halls_storage 2 4 1 (list 'p_lost_halls_r1 'p_lost_halls_r2 'p_lost_halls_r3 'p_lost_halls_r4))
 737 (link-rm        2       4       1       north   nil                                             'm_losthalls_rwall      #f)
 738 (link-rm        3       4       1       west    'p_lost_halls_storage   nil     #t)
 739 (link-rm        2       5       1       south   'p_lost_halls_storage   'm_losthalls_rwall              #t)
 740 (link-rm        1       4       1       east    'p_lost_halls_storage   nil                                     #t)
 741 (link-rm        2       3       1       north   'p_lost_halls_storage   nil                             #t)
 742 )
 743
 744 ;;flag for checking if cohesion check still needs to be performed
 745 (mutable-list-set (prmap-get-mapdata p_lost_halls_r1) 10 #t)