worlds/haxima-1.002/crypt.scm

   1 (kern-load "keep_crypt_mech.scm")
   2
   3 (mk-dungeon-room
   4  'p_crypt "°äÂÎÃÖ¤¾ì"
   5  (list
   6       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
   7       "xx xx xx ,, ,, ,, xx x! ,, ,, ,, x! xx ,, ,, ,, xx ,, xx "
   8       "xx xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, xx "
   9       "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, xx "
  10       "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx ?? xx "
  11       "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  12       "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  13       "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  14       "xx xx xx ,, xx xx xx .C .R .Y .P .T xx xx xx ,, xx xx xx "
  15       "xx .. .. ,, .. .. xx xx xx x! xx xx xx .. .. ,, .. .. xx "
  16       "xx .. .. ,, .. .. xx xx xx ,, xx xx xx .. .. ,, .. .. xx "
  17       "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx "
  18       "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx "
  19       "xx .. .. ,, .. .. x! xx xx ,, xx xx x! .. .. ,, .. .. xx "
  20       "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx "
  21       "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx "
  22       "xx .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, .. .. xx "
  23       "xx .. .. .. .. .. xx ,, ,, ,, ,, ,, xx .. .. .. .. .. xx "
  24       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  25   )
  26  ;; special mechanisms for turning corpses into skeletal warriors
  27  (put (kern-tag 'kc_kcma (mk-kcm (mk-rect 1 9 5 9))) 0 0)
  28  (put (kern-tag 'kc_kcmb (mk-kcm (mk-rect 13 9 5 9))) 0 0)
  29
  30  (put (mk-ladder-up 'p_green_tower_lower 17 1) 9 3)
  31  (put (mk-ladder-down 'p_lich_tomb 9 16) 9 10)
  32
  33  ;; mundane mechs
  34  (put (mk-locked-door) 6 3)
  35  (put (mk-magic-locked-door) 12 3)
  36  (put (mk-door) 6 7)
  37  (put (mk-door) 12 7)
  38  (put (mk-windowed-door) 15 8)
  39  (put (mk-windowed-door) 3 8)
  40  (put (kern-tag 'kc_pa (mk-connected-portcullis 'kc_kcma)) 6 16)
  41  (put (kern-tag 'kc_pb (mk-connected-portcullis 'kc_kcmb)) 12 16)
  42  (put (kern-tag 'kc_pc (mk-portcullis)) 9 13)
  43  (put (mk-lever 'kc_pb) 4 2)
  44  (put (mk-lever 'kc_pa) 14 2)
  45  (put (mk-lever 'kc_pc) 17 1)
  46
  47  ;; corpses
  48  (put (mk-corpse) 1  9)
  49  (put (mk-corpse) 2  9)
  50  (put (mk-corpse) 4  9)
  51  (put (mk-corpse) 5  9)
  52  (put (mk-corpse) 13 9)
  53  (put (mk-corpse) 14 9)
  54  (put (mk-corpse) 16 9)
  55  (put (mk-corpse) 17 9)
  56  (put (mk-corpse) 1  10)
  57  (put (mk-corpse) 2  10)
  58  (put (mk-corpse) 4  10)
  59  (put (mk-corpse) 5  10)
  60  (put (mk-corpse) 13 10)
  61  (put (mk-corpse) 14 10)
  62  (put (mk-corpse) 16 10)
  63  (put (mk-corpse) 17 10)
  64  (put (mk-corpse) 1  11)
  65  (put (mk-corpse) 2  11)
  66  (put (mk-corpse) 4  11)
  67  (put (mk-corpse) 5  11)
  68  (put (mk-corpse) 13 11)
  69  (put (mk-corpse) 14 11)
  70  (put (mk-corpse) 16 11)
  71  (put (mk-corpse) 17 11)
  72  (put (mk-corpse) 1  12)
  73  (put (mk-corpse) 2  12)
  74  (put (mk-corpse) 4  12)
  75  (put (mk-corpse) 5  12)
  76  (put (mk-corpse) 13 12)
  77  (put (mk-corpse) 14 12)
  78  (put (mk-corpse) 16 12)
  79  (put (mk-corpse) 17 12)
  80  (put (mk-corpse) 1  13)
  81  (put (mk-corpse) 2  13)
  82  (put (mk-corpse) 4  13)
  83  (put (mk-corpse) 5  13)
  84  (put (mk-corpse) 13 13)
  85  (put (mk-corpse) 14 13)
  86  (put (mk-corpse) 16 13)
  87  (put (mk-corpse) 17 13)
  88  (put (mk-corpse) 1  14)
  89  (put (mk-corpse) 2  14)
  90  (put (mk-corpse) 4  14)
  91  (put (mk-corpse) 5  14)
  92  (put (mk-corpse) 13 14)
  93  (put (mk-corpse) 14 14)
  94  (put (mk-corpse) 16 14)
  95  (put (mk-corpse) 17 14)
  96  (put (mk-corpse) 1  15)
  97  (put (mk-corpse) 2  15)
  98  (put (mk-corpse) 4  15)
  99  (put (mk-corpse) 5  15)
 100  (put (mk-corpse) 13 15)
 101  (put (mk-corpse) 14 15)
 102  (put (mk-corpse) 16 15)
 103  (put (mk-corpse) 17 15)
 104  (put (mk-corpse) 1  16)
 105  (put (mk-corpse) 2  16)
 106  (put (mk-corpse) 16 16)
 107  (put (mk-corpse) 17 16)
 108  (put (mk-corpse) 1  17)
 109  (put (mk-corpse) 2  17)
 110  (put (mk-corpse) 3  17)
 111  (put (mk-corpse) 4  17)
 112  (put (mk-corpse) 5  17)
 113  (put (mk-corpse) 13 17)
 114  (put (mk-corpse) 14 17)
 115  (put (mk-corpse) 15 17)
 116  (put (mk-corpse) 16 17)
 117  (put (mk-corpse) 17 17)
 118  )
 119
 120 (mk-place-music p_crypt 'ml-creepy-area)