worlds/haxima-1.002/angriss-lair.scm

   1 ;; ----------------------------------------------------------------------------
   2 ;; Map
   3 ;; ----------------------------------------------------------------------------
   4 (kern-mk-map
   5  'm_angriss_lair 19 19 pal_expanded
   6         (list
   7                 "|| || || || || || || || tt tt tt || || || tt || || || || "
   8                 "|| || || || || || || || || tt || || || tt tt tt || || || "
   9                 "|| || || || || || bb bb bb bb || || || bb .. bb || || || "
  10                 "|| || || || bb bb bb t3 t5 bb bb || bb .. .. .. bb || || "
  11                 "|| || || bb .. .. t3 || || t5 bb .. .. .. .. .. bb || || "
  12                 "|| || || bb .. .. ta || || tc .. .. .. .. .. bb || || || "
  13                 "|| || || bb bb bb .. .. .. .. .. .. .. bb bb || || || || "
  14                 "|| || || || bb bb .. bb .. .. tC t3 tt t5 bb || || || || "
  15                 "tt || || || bb || || || bb .. tb || || tt td bb || || tt "
  16                 "tt tt || || bb || tF || bb .. t% |A || tc t# bb || tt tt "
  17                 "tt || || || bb || || || bb bb .. .. .. .. bb || || || tt "
  18                 "|| || || || bb bb bb bb .. .. .. bb .. bb bb bb || || || "
  19                 "|| || || bb .. tC t3 t5 tA .. .. bb .. || || bb || || || "
  20                 "|| || || bb .. t3 || || td .. bb .. .. t% || bb || || || "
  21                 "|| || || bb .. ta || |C t# .. bb .. .. .. .. bb || || || "
  22                 "|| || || || bb .. .. .. .. bb || bb bb .. bb || || || || "
  23                 "|| || || || || bb .. bb bb || || || tt tt tt || || || || "
  24                 "|| || || || || tt tt tt || tt || || || tt || || || || || "
  25                 "|| || || || || || tt || tt tt tt || || || || || || || || "
  26         )
  27
  28
  29  )
  30 ;;----------------------------------------------------------------------------
  31 ;; Place
  32 ;;----------------------------------------------------------------------------
  33 (kern-mk-place
  34  'p_angriss_lair ; tag
  35  "¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤ÎÆþ¤ê¸ý"   ; name
  36  s_spider_web     ; sprite
  37  m_angriss_lair  ; map
  38  #f               ; wraps
  39  #f                     ; underground
  40  #f                     ; large-scale (wilderness)
  41  #f                     ; tmp combat place
  42  nil                    ; subplaces
  43
  44  ;; neighbors
  45  (list
  46   )
  47
  48  ;; objects
  49  (list
  50   (put (mk-monman) 0 0)
  51   (put (mk-ladder-down 'p_spider_cave 6 9) 6 9)
  52   (put (mk-ladder-down 'p_spider_cave 15 4) 15 4)
  53
  54   (put (spawn-pt 'giant-spider faction-spider) 6 9)
  55   (put (spawn-pt 'giant-spider faction-spider) 15 4)
  56   (put (spawn-pt 'giant-spider faction-spider) 7 4)
  57   (put (spawn-pt 'giant-spider faction-spider) 6 13)
  58   (put (spawn-pt 'giant-spider faction-spider) 14 12)
  59
  60   )
  61
  62  (list 'on-entry-to-dungeon-room
  63         'quest-rune-f-lair
  64         ) ; hooks
  65  nil ; edge entrances
  66  )
  67
  68 (mk-place-music p_angriss_lair 'ml-outdoor-adventure)
  69
  70 (kern-load "angriss.scm")
  71
  72 (mk-dungeon-room
  73  'p_angriss_throne_room  "¥¢¥ó¥°¥ê¥¹¤Î±Ú¸«¼¼"
  74  (list
  75                 "rn rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn "
  76                 "rn rn r8 r4 .. .. .. .. .. .. .. .. .. .. r2 rn r8 rn rn "
  77                 "rn rc .. re .. .. bb .. .. .. .. .. .. .. ra r4 .. ra rn "
  78                 "r4 .. .. .. .. .. bb bb .. bb bb bb .. .. .. re .. .. r2 "
  79                 "r4 .. .. .. .. bb .. bb bb bb .. bb r7 .. .. .. .. .. r2 "
  80                 "r4 .. .. .. bb bb .. .. .. .. bb rb rc bb .. .. .. .. r2 "
  81                 "rn r5 .. .. bb .. .. bb bb .. .. bb bb .. bb .. .. .. r2 "
  82                 "rn rc .. bb .. .. bb .. .. .. .. .. bb .. bb bb .. .. r2 "
  83                 "r4 .. .. bb .. bb .. .. .. .. .. bb .. .. bb .. .. rb rn "
  84                 "r4 .. .. bb .. .. bb .. .. .. .. .. bb .. bb .. .. .. r2 "
  85                 "r4 .. .. bb bb .. bb .. .. .. .. .. bb bb .. bb .. .. r2 "
  86                 "r4 .. .. .. .. .. bb bb .. .. .. bb bb .. .. bb .. .. r2 "
  87                 "r4 .. .. .. bb rf bb .. bb .. bb .. .. bb bb .. .. .. r2 "
  88                 "r4 .. .. .. bb bb bb bb bb bb bb .. bb bb bb .. .. .. r2 "
  89                 "r4 bb .. .. .. bb .. rf bb .. bb .. .. bb .. .. .. .. r2 "
  90                 "r4 bb bb .. .. .. bb bb bb bb .. bb .. .. .. .. .. .. r2 "
  91                 "rn rd .. .. .. .. .. .. .. .. .. .. .. .. r7 .. .. bb r2 "
  92                 "r4 bb bb .. bb .. .. .. .. .. .. .. .. r3 r4 .. bb bb r2 "
  93                 "rn r1 r1 r1 r1 r1 r5 .. .. .. .. .. r3 rn rn r1 r1 r1 rn "
  94   )
  95
  96  (put (mk-angriss) 9 9)
  97
  98  (put (kern-mk-obj F_web_perm 1) 9  6)
  99  (put (kern-mk-obj F_web_perm 1) 10 6)
 100
 101  (put (kern-mk-obj F_web_perm 1) 7  7)
 102  (put (kern-mk-obj F_web_perm 1) 8  7)
 103  (put (kern-mk-obj F_web_perm 1) 9  7)
 104  (put (kern-mk-obj F_web_perm 1) 10 7)
 105  (put (kern-mk-obj F_web_perm 1) 11 7)
 106
 107  (put (kern-mk-obj F_web_perm 1) 6  8)
 108  (put (kern-mk-obj F_web_perm 1) 7  8)
 109  (put (kern-mk-obj F_web_perm 1) 8  8)
 110  (put (kern-mk-obj F_web_perm 1) 9  8)
 111  (put (kern-mk-obj F_web_perm 1) 10 8)
 112
 113  (put (kern-mk-obj F_web_perm 1) 7  9)
 114  (put (kern-mk-obj F_web_perm 1) 8  9)
 115  (put (kern-mk-obj F_web_perm 1) 9  9)
 116  (put (kern-mk-obj F_web_perm 1) 10 9)
 117  (put (kern-mk-obj F_web_perm 1) 11 9)
 118
 119  (put (kern-mk-obj F_web_perm 1) 7  10)
 120  (put (kern-mk-obj F_web_perm 1) 8  10)
 121  (put (kern-mk-obj F_web_perm 1) 9  10)
 122  (put (kern-mk-obj F_web_perm 1) 10 10)
 123  (put (kern-mk-obj F_web_perm 1) 11 10)
 124
 125  (put (kern-mk-obj F_web_perm 1) 8  11)
 126  (put (kern-mk-obj F_web_perm 1) 9  11)
 127  (put (kern-mk-obj F_web_perm 1) 10 11)
 128
 129  (put (kern-mk-obj F_web_perm 1) 9  12)
 130
 131  (put (kern-mk-obj F_web_perm 1) 11 12)
 132  (put (kern-mk-obj F_web_perm 1) 11 13)
 133  (put (kern-mk-obj F_web_perm 1) 11 14)
 134  (put (kern-mk-obj F_web_perm 1) 12 14)
 135  (put (kern-mk-obj F_web_perm 1) 5 6)
 136
 137  )
 138
 139 (mk-place-music p_angriss_throne_room 'ml-dungeon-adventure)
 140
 141 ;; corpse & treasure heaps
 142 (put-random-stuff p_angriss_throne_room
 143                   (mk-rect 0 0 19 19)
 144                   (lambda (loc)
 145                     (eqv? (kern-place-get-terrain loc)
 146                           t_grass))
 147                   (lambda (loc)
 148                     (kern-obj-put-at (mk-corpse-with-loot)
 149                                      loc))
 150                   50)
 151
 152 ;; spider eggs
 153 (put-random-stuff p_angriss_throne_room
 154                   (mk-rect 6 6 7 7)
 155                   (lambda (loc) #t)
 156                   (lambda (loc)
 157                     (kern-obj-put-at (mk-spider-egg) loc))
 158                   20)
 159
 160
 161
 162 (mk-dungeon-room
 163  'p_spider_cave "¥¯¥â¤ÎÆ¶·¢"
 164         (list
 165                 "rn r8 r8 r8 r8 r8 rc .. .. .. .. .. r2 rn r8 r8 r8 r8 rn "
 166                 "r4 bb .. .. .. .. .. .. .. .. .. .. r2 rc bb .. bb bb r2 "
 167                 "rn r5 .. .. .. .. .. .. .. .. .. r3 rc bb .. .. .. bb r2 "
 168                 "rn rn r5 .. r7 .. .. .. tC t7 tA r6 .. .. .. .! .. bb r2 "
 169                 "rn rn rn r9 rn rd .. tC t3 tt t5 r6 .. .. .! .! .! .. r2 "
 170                 "rn rn rc bb re t3 tt tt tt tt tc r6 bb .. .. .! .. .. r2 "
 171                 "rn rc .. tC t3 tt tt tt tt tt t# ra r5 bb bb .. .. bb r2 "
 172                 "r4 .. tC t3 tt tt tt tt tt tt tA .. ra r9 r9 r9 r9 r9 rn "
 173                 "r4 .. t3 tt tt .! .! .! tt tt t5 tA .. .. bb .. .. .. r2 "
 174                 "r4 .. tt tt tt .! .! .! tt tt tt td .. .. .. .. .. rb rn "
 175                 "r4 .. tt tt tt .! .! .! tt tt tc t# .. .. bb .. .. .. r2 "
 176                 "r4 .. ta tt tt tt tt tt tt tc r7 .. .. .. .. bb .. .. r2 "
 177                 "r4 .. t% ta tt tc bb ta tc r3 r4 bb .. r3 rd .. .. rb rn "
 178                 "r4 .. .. t% te rb r1 r1 r9 r8 r8 r9 r9 rc bb rf .. .. r2 "
 179                 "r4 bb .. rf .. .. ra rc .. .. bb .. .. bb .. .. .. .. r2 "
 180                 "rn r5 bb .. .. .. .. .. .. .. .. bb .. .. .. .. .. .. r2 "
 181                 "rn rc .. .. .. bb .. .. .. .. bb .. .. .. .. bb .. bb r2 "
 182                 "r4 .. .. .. .. .. .. .. r3 r1 r1 r1 r5 .. .. .. .. r3 rn "
 183                 "rn r1 r1 r1 r1 r1 r1 r1 rn rn rn rn rn r1 r1 r1 r1 rn rn "
 184         )
 185
 186  (put (mk-ladder-up 'p_angriss_lair 6 9) 6 9)
 187  (put (mk-ladder-up 'p_angriss_lair 15 4) 15 4)
 188
 189  (put (spawn-pt 'queen-spider faction-spider) 9 0)
 190  (put (spawn-pt 'queen-spider faction-spider) 15 15)
 191  (put (spawn-pt 'queen-spider faction-spider) 1 17)
 192
 193  ;; meat locker
 194  (put (mk-corpse) 15 1)
 195  (put (mk-corpse) 12 3)
 196  (put (mk-corpse) 12 4)
 197  (put (mk-corpse) 16 6)
 198  (put (mk-corpse) 17 4)
 199  (put (mk-spider-egg) 15 1)
 200  (put (mk-spider-egg) 12 3)
 201  (put (mk-spider-egg) 12 4)
 202  (put (mk-spider-egg) 16 6)
 203  (put (mk-spider-egg) 17 4)
 204  (put (kern-mk-obj web-type 1) 15 1)
 205  (put (kern-mk-obj web-type 1) 12 3)
 206  (put (kern-mk-obj web-type 1) 12 4)
 207  (put (kern-mk-obj web-type 1) 16 6)
 208  (put (kern-mk-obj web-type 1) 17 4)
 209  (put (kern-mk-obj web-type 1) 17 5)
 210  (put (kern-mk-obj web-type 1) 15 6)
 211  (put (kern-mk-obj web-type 1) 13 5)
 212  (put (kern-mk-obj t_spell_book_white_magick_2 1) 15 1)
 213  (put (kern-mk-obj t_gold_coins 52) 14 2)
 214  (put (kern-mk-obj t_gold_coins 34) 17 5)
 215  (put (kern-mk-obj t_bow 1) 15 6)
 216  (put (kern-mk-obj t_arrow 34) 13 5)
 217  (put (kern-mk-obj t_leather_helm 1) 16 2)
 218  (put (kern-mk-obj t_halberd 1) 12 3)
 219  (put (kern-mk-obj t_heal_potion 3) 15 1)
 220  (put (kern-mk-obj t_mana_potion 5) 16 6)
 221  (put (kern-mk-obj t_spell_book_force_magick_battle 1) 17 6)
 222 )
 223
 224 (mk-place-music p_spider_cave 'ml-dungeon-adventure)
 225
 226 (mk-dungeon-level
 227  (list p_angriss_throne_room)
 228  (list p_spider_cave)
 229  )