worlds/haxima-1.002/kraken-lakes.scm

   1
   2 (mk-dungeon-room
   3  'p_hydra_fen "¥Ò¥É¥é¤Î¼¾¸¶"
   4         (list
   5                 "rn rn rn rn rn rn r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn rn "
   6                 "rn rn rn rn rn rc {{ {{ {{ {{ {{ {{ {{ ra rn rn rn rn rn "
   7                 "rn rn rn rn rc {{ {{ {{ {{ {{ {{ {{ {{ {{ ra rn rn rn rn "
   8                 "rn rn rn rc {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ ra rn rn rn "
   9                 "rn rn rc {{ {{ {{ {{ {C %3 %% %5 {A {{ {{ {{ {{ ra rn rn "
  10                 "rn rc {{ {{ {{ {C %3 %% %% %% %% %% %5 {A {{ {{ {{ ra rn "
  11                 "r4 {{ {{ {{ {C %3 %% %% %% %% %% %% %% %5 {A {{ {{ {{ r2 "
  12                 "r4 {{ {{ {{ %3 %% %% %% %% %% %% %% %% %% %5 {{ {{ {{ r2 "
  13                 "r4 {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ r2 "
  14                 "r4 {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ r2 "
  15                 "r4 {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ r2 "
  16                 "r4 {{ {{ {{ %% %% %% %% ee ee ee %% %% %% %c {{ {{ {{ r2 "
  17                 "r4 {{ {{ {{ %a %% %% oo ee ee ee oo %% %% {# {{ {{ {{ r2 "
  18                 "rn r5 {{ {{ {% %a %% %% ee ee ee %% %% %c {{ {{ {{ r3 rn "
  19                 "rn rn r5 {{ {{ {% %e oo ee ee ee oo %e {# {{ {{ r3 rn rn "
  20                 "rn rn rn r5 {{ {{ {{ {{ ee ee ee {{ {{ {{ {{ r3 rn rn rn "
  21                 "rn rn rn rn r5 {{ {{ {{ {2 .. {4 {{ {{ {{ r3 rn rn rn rn "
  22                 "rn rn rn rn rn r5 {{ {{ {2 .. {4 {{ {{ r3 rn rn rn rn rn "
  23                 "rn rn rn rn rn rn r1 r5 .. .. .. r3 r1 rn rn rn rn rn rn "
  24         )
  25  (put (spawn-pt 'hydra) 9 9)
  26  )
  27
  28 (mk-place-music p_hydra_fen 'ml-dungeon-adventure)
  29
  30 (mk-dungeon-room
  31  'p_pools "¿åÊÕ"
  32  (list
  33                 "rn rn r4 .. .. .. .. bb dd dd dd .. .. .. .. .. ra rn rn "
  34                 "rn r8 r8 r5 .. .. .. .. dd dd dd bb .. .. .. .. .. ra rn "
  35                 "r4 -- -- r2 r5 .. .. bb dd dd dd .. %3 %% %% %5 .. .. r2 "
  36                 "r4 -- -- ra rc .. .. .. dd dd dd bb %% ~3 ~5 %% %5 .. r2 "
  37                 "r4 -- -- ~~ %5 .. .. bb dd dd dd ~C ~3 -- -- ~5 %% %5 r2 "
  38                 "rn r5 ~~ ~c %% .. .. .. dd dd dd bb -2 -- -- -- ~5 %% r2 "
  39                 "rn r4 %a %% %c .. .. bb dd dd dd %% -- -- -- -- ~4 %% r2 "
  40                 "rn rc .. .. .. .. .. xx w+ d, bb xx ~~ -- -- -- ~c %% r2 "
  41                 "r4 .. .. .. .. .. .. rr ,, ,, ,, xx ~~ -- -- ~c %% %c r2 "
  42                 "r4 .. %3 %% %% %5 .. w+ gg ,, ,, rr ~% ~a ~c %% %c rb rn "
  43                 "r4 %3 %% ~3 ~5 %% .. gg ,, ,, ,, gg .. %% %% %% .. .. r2 "
  44                 "r4 %% ~3 -- ~c %% .. rr xx bb gg rr .. %% ~7 %% %5 .. r2 "
  45                 "r4 %% ~a ~c %% %c .. .. .. .. .. .. %3 ~3 -- ~5 %% .. r2 "
  46                 "r4 %a %% %% %c .. .. .. .. .. %3 %% ~3 -- -- ~4 %% .. r2 "
  47                 "rn r5 .. r3 r5 .. .. .. .. .. %% ~3 -- -- -- ~c %% .. r2 "
  48                 "rn rn r1 rn rc .. .. .. .. .. %% ~a -- -- ~c %% %c .. r2 "
  49                 "rn rn rn r4 .. .. .. .. .. .. %a %% ~a ~c %% %c .. r3 rn "
  50                 "rn rn rn rn r5 .. .. r3 r5 .. .. %a %% %% %c .. .. r2 rn "
  51                 "rn rn rn rn rn r1 r1 rn rn r1 r1 r1 r1 r1 r1 r1 r1 rn rn "
  52       )
  53  (put (mk-door) 9 7)
  54  (put (mk-ladder-up 'p_great_hall 9 6) 9 9)
  55  (put (spawn-pt 'yellow-slime) 11  3)
  56  (put (spawn-pt 'yellow-slime)  4  6)
  57  (put (spawn-pt 'yellow-slime) 10 13)
  58
  59  )
  60
  61 (mk-place-music p_pools 'ml-dungeon-adventure)
  62
  63 (kern-mk-place
  64  'p_deepness
  65  "¿¼¤ß"
  66  nil     ; sprite
  67  (kern-mk-map
  68   nil 38 38 pal_expanded
  69         (list
  70                 "rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn r8 rn rn rn r8 r8 r8 r8 r8 r8 r8 rc bb .. .. .. bb ra r8 r8 r8 r8 rn "
  71                 "rn rc _3 _1 _1 _5 {{ {{ {{ {{ {{ {{ {{ {{ re {{ ra r8 rc bb %3 %% %% ~6 %% %% %5 .. .. .. .. .. %3 %% %% %% %5 r2 "
  72                 "r4 _3 __ __ __ __ =| _1 _1 _5 rb r9 r5 {{ {{ {{ {{ {{ {{ {% %e bb %a ~e %% %% %% bb .. .. .. bb %% %% %% %% %% r2 "
  73                 "r4 _a _8 _c r7 _e {{ __ __ __ __ _5 ra r9 rd {{ rb r1 r5 {{ {2 == .. bb %e bb %% %5 .. .. .. %3 %% bb %% bb %% r2 "
  74                 "r4 {{ {{ rb rn rd {{ _2 __ __ __ __ ~~ ~1 ~1 ~1 ~5 ra rc ~7 .. ~6 .. .. .. .. ~7 %c .. .. .. %a %% %% %% %% %% r2 "
  75                 "r4 {{ {{ {{ re {{ {L __ __ __ __ ~8 ~8 ~8 ~~ ~~ ~~ ~~ ~~ b~ ~9 ~~ ~~ ~d .. .. == .. .. .. .. .. .. .. %e bb %% r2 "
  76                 "r4 {{ rf {{ {{ {L _3 __ __ _c {G {{ {{ {{ {H -a ~~ ~~ ~~ ~~ %% b~ ~~ bb %7 bb ~6 %5 .. .. .. %3 %5 .. .. %b %% r2 "
  77                 "r4 {{ {L _3 _1 __ __ __ __ {G {{ r3 r9 r5 {{ {H ~~ ~~ ~~ ~~ ~~ ~~ ~~ %% %% %% ~6 %% %5 .. ~3 ~9 ~9 ~d .. bb %% r2 "
  78                 "r4 {{ _3 __ __ __ __ __ _4 {{ r3 rc {{ ra r5 {{ ~2 ~~ ~~ ~~ ~~ ~~ ~~ ~9 ~1 ~9 ~c %% %% %% ~6 %% %% .. .. %b %% r2 "
  79                 "r4 {{ _a __ __ __ __ __ _4 {{ r6 {{ {{ {{ r6 {{ ~2 ~~ -- ~~ ~~ b~ %% %% ~6 %% %% %% %% bb ~~ bb %% .. %7 bb %% ra "
  80                 "r4 {{ {H _a __ __ __ __ _c {{ r6 {{ {{ {{ r6 {{ ~2 -- __ -- ~~ ~~ ~5 %% ~6 %c bb ~3 ~1 ~9 ~8 ~9 ~9 =| ~9 ~9 ~9 ~~ "
  81                 "r4 {{ {{ {H _a _8 _8 _c {G {{ ra r5 {{ rb rc {{ ~2 __ __ __ ~~ ~~ ~~ b~ ~~ bb %3 ~~ bb bb %% %% %% .. .. bb %e r3 "
  82                 "rn r5 {{ {{ {{ {{ {{ {{ bb {{ {{ r6 {{ {{ {{ {L ~~ -- __ -- ~~ ~~ ~~ ~~ -- ~~ ~~ ~~ ~~ ~5 %% %% %% %5 .. .. .. r2 "
  83                 "rn rn r1 r1 r5 {1 r7 {{ {{ {{ r3 rc b~ ~1 ~1 ~~ ~~ ~~ -- ~~ ~~ ~~ ~~ ~~ __ __ ~~ b~ %% ~~ ~9 b~ ~9 ~d .. bb .. r2 "
  84                 "rn rn rn rn rc .. ra r1 r1 r1 rc bb ~~ ~~ b~ ~~ ~~ ~8 ~8 ~8 ~8 ~8 ~~ ~~ __ __ ~~ ~~ ~~ %% %% %% %c .. .. .. .. r2 "
  85                 "rn rn rn r4 {{ {2 .. r2 rn r4 bb ~3 ~~ b~ ~~ ~c {G {{ {{ {{ {{ {{ {H ~a ~~ ~~ ~~ ~~ ~~ ~d bb .. .. .. bb %7 .. r2 "
  86                 "rn rn r8 rc {{ {2 .. ra rn rc b~ ~~ ~~ ~~ ~c {G {{ rr rr rr rr rr bb bb {H ~a ~~ -- ~~ %c .. .. .. .. %3 %% %5 r2 "
  87                 "rn rc {{ bb {1 .. .. bb re bb ~~ ~~ ~~ ~~ {G {{ {{ rr .. .. .. rr .. .. bb {H ~~ -- ~4 bb .. .. .. bb %% ~7 %% r2 "
  88                 "r4 {{ {{ {2 .. .. .. .. ~C ~3 ~~ -- -- ~4 {A {{ rr rr .. .. .. rr .. .. .. bb ~2 -- ~4 %d .. .. .. %b ~b ~~ ~9 r2 "
  89                 "r4 {{ bb .. .. .. bb ~C ~3 ~~ -- -- -- ~4 bb {{ rr && .. .. .. .. .. .. .. bb ~2 -- ~4 bb .. .. .. bb %% ~e %% r2 "
  90                 "r4 {{ {2 .. .. .. .. ~b ~~ -- -- __ -- ~4 {# {{ rr rr .. .. .. rr .. .. .. bb ~2 -- ~4 %5 .. .. .. .. %a %% %c r2 "
  91                 "r4 {{ bb .. .. .. bb ~% ~~ -- __ __ __ ~~ {J {{ {{ rr .. .. .. rr .. .. bb {L ~~ -- ~~ %% bb .. .. .. bb %e .. r2 "
  92                 "rn r5 {{ {2 .. .. .. .. ~a -- -- __ -- -- ~5 {J {{ rr rr .. rr rr bb bb {L ~3 ~~ -- ~~ ~d .. .. .. .. .. .. .. r2 "
  93                 "rn rn r5 bb .. .. .. bb {H ~~ -- __ __ -- ~~ b~ {J {{ {{ {6 {{ {{ {{ {L ~3 ~~ -- -- ~~ bb .. bb .. .. .. bb .. r2 "
  94                 "rn rn r4 {{ {2 .. {4 {{ r7 ~a -- -- __ -- -- ~~ ~~ ~1 ~1 ~1 ~5 {N ~3 ~~ ~~ -- -- -- ~~ b~ rb r5 .. .. .. .. r3 rn "
  95                 "rn rn r4 bb .. .. .. bb r2 rd ~~ -- __ __ -- -- ~~ -- -- -- ~~ ~~ ~~ -- -- -- ~~ ~~ ~~ ~~ b~ ra r9 r5 .. .. r2 rn "
  96                 "rn rn rc {{ {2 .. {4 {{ re ~b ~~ -- __ __ __ -- -- __ __ __ -- -- -- -- -- ~~ ~~ b~ ~~ ~~ ~~ ~~ ~5 r6 .. .. ra rn "
  97                 "rn r4 {{ bb .. .. .. bb {{ {H ~~ -- -- -- __ __ __ __ __ __ __ -- -- ~~ ~~ ~~ b~ bb b~ ~~ ~~ b~ ~~ r6 .. .. .. r2 "
  98                 "rn rc {{ {2 .. .. {4 {{ {{ {{ ~a ~8 ~8 ~~ -- -- -- __ __ __ -- -- ~~ ~~ b~ r3 r1 r1 r1 xx xx ~~ ~~ xx xx .. .. r2 "
  99                 "r4 {{ bb .. .. .. bb {A {{ {{ {{ {{ {{ {H ~a ~8 ~~ -- -- -- ~~ ~8 ~c rb r9 r8 xx xx xx xx __ __ __ __ xx ,, xx xx "
 100                 "r4 {{ {2 .. .. .. .. bb {1 bb {{ {{ {{ {{ {{ {{ {H ~a ~8 ~c {G {{ {{ bb .. bb xx ,, ,, w+ __ __ __ __ w+ ,, ,, xx "
 101                 "r4 {{ bb .. .. .. .. .. .. .. {1 bb {1 bb {1 bb {1 bb .. bb {1 bb {1 .. .. .. ,, ,, ,, ,, ee ee ee ee ,, ,, ,, xx "
 102                 "rn r5 {{ {2 {8 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. xx ,, ,, w+ __ __ __ __ w+ ,, ,, xx "
 103                 "rn r4 {{ bb {{ bb {8 bb .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. {8 bb xx xx xx xx __ __ __ __ xx xx xx xx "
 104                 "rn rn r1 r1 r5 {{ {{ {2 .. .. .. .. .. .. .. .. {8 .. {8 .. .. .. {8 bb {{ {{ xx xx xx __ __ __ __ __ __ xx xx xx "
 105                 "rn rn rn rn rc {{ {{ bb .. .. .. bb {8 bb {8 bb {{ bb {{ bb {8 bb {{ {{ {{ r3 xx xx xx __ __ __ __ __ __ xx xx xx "
 106                 "rn rn r8 rc {{ {{ {{ {2 .. .. .. {4 {{ {{ {{ rb r1 r1 r5 {{ {{ {{ {{ r3 r1 rn xx xx xx xx __ __ __ __ xx xx xx xx "
 107                 "rn r4 {{ {{ {{ {{ {{ bb .. .. .. bb {{ {{ {{ {{ r2 rn rn r1 r1 r1 r1 rn rn rn xx xx xx xx xx xx xx xx xx xx xx xx "
 108         )
 109 )
 110  #f      ; wraps
 111  #t      ; underground
 112  #f      ; large-scale (wilderness)
 113  #f      ; tmp combat place
 114  nil     ; subplaces
 115  nil     ; neighbors
 116  (list ;; objects
 117
 118   (put (mk-portcullis) 31 28)
 119   (put (mk-portcullis) 32 28)
 120   (put (mk-door) 26 31)
 121   (put (mk-door) 35 29)
 122   (put (mk-windowed-door) 34 31)
 123   (put (mk-windowed-door) 29 31)
 124   (put (mk-ladder-down 'p_lost_garrison 11 11) 12 9)
 125
 126   ;; monster generators
 127   (put (mk-monman) 0 0)
 128   (put (guard-pt 'headless) 3 22)
 129   (put (guard-pt 'headless) 7 22)
 130   (put (guard-pt 'headless) 5 21)
 131   (put (guard-pt 'headless) 3 20)
 132   (put (spawn-pt 'kraken) 5 9)
 133   (put (spawn-pt 'sea-serpent) 18 11)
 134   (put (step-pt "²«¿§¤¤Ç´¶Ý¤¬¤Ë¤¸¤ß½Ð¤Æ¤¤¿¡ª" (list 'yellow-slime 32 11)) 33 10)
 135   (put (step-pt "²«¿§¤¤Ç´¶Ý¤¬¤Ë¤¸¤ß½Ð¤Æ¤¤¿¡ª" (list 'yellow-slime 26 3)) 26 5)
 136
 137   ;; put a special step trigger on the footbridge across the cistern
 138   (put (mk-step-trig 'spawn-kraken-lakes-sea-serpent nil) 31 31)
 139
 140   )
 141  (list 'on-entry-to-dungeon-room) ; hooks
 142  (list ;; edge entrances
 143   (list north 9 37)
 144   (list south 29 0)
 145   )
 146  )
 147
 148 (mk-place-music p_deepness 'ml-dungeon-adventure)
 149
 150 ;; tie rooms together
 151 (kern-place-set-neighbor south p_deepness p_pools)
 152 (kern-place-set-neighbor north p_deepness p_hydra_fen)