worlds/haxima-1.002/green-tower-lower.scm

   1 (kern-mk-map
   2  'm_green_tower_lower 22 38 pal_expanded
   3  (list
   4                 "rn r8 r8 rn r8 r8 r8 rn r8 r8 rn rn rn rn rn rr rr rr rr rr rn rn "
   5                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rn rr rr .. .. .. rr rr rn "
   6                 "r4 cc cc cc cc cc cc cc cc cc r2 rn rn rr rr .. .. .. .. .. rr rr "
   7                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rr .. .. .. rr .. .. .. rr "
   8                 "rn rr rr rr cc cc cc rr rr rr rn rn rn rr rr .. rr rr rr .. rr rr "
   9                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rr .. .. .. rr .. .. .. rr "
  10                 "r4 cc cc cc cc cc cc cc cc cc r2 rn rn rr rr .. rr rr rr .. rr rr "
  11                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rr .. .. .. rr .. .. .. rr "
  12                 "rn rr rr rr cc cc cc rr rr rr rn rn rn rr rr .. rr rr rr .. rr rr "
  13                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rr .. .. .. rr .. .. .. rr "
  14                 "r4 cc cc cc cc cc cc cc cc cc r2 rn rn rr rr .. rr rr rr .. rr rr "
  15                 "r4 cc cc rr cc cc cc rr cc cc r2 rn rn rr .. .. .. rr .. .. .. rr "
  16                 "rn rr rr rr cc cc cc rr rr rr rr rr rn rr rr .. rr rr rr .. rr rr "
  17                 "rn rr rr rr cc cc cc cc cc cc cc rr rr rr .. .. .. rr .. .. .. rr "
  18                 "rr rr cc cc cc cc cc cc cc cc cc cc rr rr rr .. .. .. .. .. rr rr "
  19                 "rr cc cc cc rr cc cc cc cc cc cc cc rr .. .. .. .. .. .. .. .. rr "
  20                 "rr cc && cc rr rr rr rr xx x! cc x! xx .. rr ,C ,R ,Y ,P ,T rr rr "
  21                 "xx xx xx xx xx xx xx xx xx cc cc cc xx ?? xx xx xx xx xx xx xx rr "
  22                 "xx xx ,T ,A ,L ,O ,S xx xx cc cc cc xx cc cc _! x! _! cc cc xx rr "
  23                 "xx x! cc cc cc cc cc x! xx cc cc cc xx cc cc -- _! -- cc cc xx rr "
  24                 "xx cc cc cc cc cc cc cc xx cc cc cc cc cc cc -- -- -- cc cc xx rr "
  25                 "xx cc cc cc aa cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rr "
  26                 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rr "
  27                 "xx x! cc cc cc cc cc x! xx cc cc cc xx ,C ,I ,S ,T ,E ,R ,N xx rr "
  28                 "xx xx xx xx cc xx xx xx x! cc cc cc x! xx xx xx xx xx xx xx xx xx "
  29                 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx "
  30                 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx "
  31                 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx "
  32                 "xx xx xx xx cc xx xx xx x! cc cc cc x! xx xx xx cc xx xx xx xx xx "
  33                 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rn "
  34                 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc ?? rn "
  35                 "xx xx cc cc cc x! cc cc xx cc cc cc xx cc cc x! cc cc cc xx xx rn "
  36                 "rn xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx rn rn "
  37                 "rn xx xx xx cc cc cc cc xx cc cc cc xx cc cc cc cc xx xx xx rn rn "
  38                 "rn rn rn xx xx xx cc cc xx cc cc cc xx cc cc xx xx xx rn rn rn rn "
  39                 "rn rn rn rn rn xx xx xx xx cc cc cc xx xx xx xx rn rn rn rn rn rn "
  40                 "rn rn rn rn rn rn rn rn xx xx xx xx xx rn rn rn rn rn rn rn rn rn "
  41                 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
  42   ))
  43
  44 (kern-mk-place
  45  'p_green_tower_lower "ÎÐ¤ÎÅã¤ÎÃÏ²¼" nil
  46  m_green_tower_lower
  47  #f ;; is-wrapping?
  48  #t ;; is-underground?
  49  #f ;; is-wilderness?
  50  #f  ;; is-tmp-combat-place?
  51
  52  nil ;; subplaces
  53
  54  ;; neighbors
  55  (list (list p_green_tower up))
  56
  57  ;; objects
  58  (list
  59
  60   (put (mk-monman) 0 0)
  61   (put (mk-ladder-up 'p_green_tower 32 32) 10 26)
  62
  63   ;; cell doors
  64   (put (mk-locked-windowed-door) 3 2)
  65   (put (mk-locked-windowed-door) 3 6)
  66   (put (mk-locked-windowed-door) 3 10)
  67   (put (kern-tag 'kama-jail-door (mk-locked-windowed-door)) 7 2)
  68   (put (mk-locked-windowed-door) 7 6)
  69   (put (mk-locked-windowed-door) 7 10)
  70
  71   ;; prisoners
  72   (put (mk-kama 'kama-jail-door) 8 2)
  73
  74   ;; crypt
  75   (put (mk-ladder-down 'p_crypt 9 3) 17 1)
  76   (put (mk-corpse-with-loot) 14 3)
  77   (put (mk-corpse-with-loot) 14 5)
  78   (put (mk-corpse-with-loot) 14 11)
  79   (put (mk-corpse-with-loot) 14 13)
  80   (put (mk-corpse-with-loot) 16 5)
  81   (put (mk-corpse-with-loot) 16 9)
  82   (put (mk-corpse-with-loot) 16 11)
  83   (put (mk-corpse-with-loot) 16 13)
  84   (put (mk-corpse-with-loot) 18 5)
  85   (put (mk-corpse-with-loot) 18 7)
  86   (put (mk-corpse-with-loot) 18 9)
  87   (put (mk-corpse-with-loot) 18 13)
  88   (put (mk-corpse-with-loot) 20 3)
  89   (put (mk-corpse-with-loot) 20 5)
  90   (put (mk-corpse-with-loot) 20 9)
  91   (put (mk-corpse-with-loot) 20 11)
  92
  93   (put (kern-tag 'gtl-portcullis-1 (mk-portcullis)) 10 16)
  94
  95   ;; storage room doors
  96   (put (mk-windowed-door) 12 20)
  97   (put (mk-windowed-door) 4 24)
  98   (put (mk-windowed-door) 4 28)
  99   (put (mk-windowed-door) 8 32)
 100   (put (mk-windowed-door) 12 32)
 101   (put (mk-windowed-door) 16 28)
 102
 103   ;; monsters
 104   (put (spawn-pt 'rat) 15 2)
 105   (put (spawn-pt 'rat) 7 29)
 106   (put (spawn-pt 'rat) 2 32)
 107   (put (spawn-pt 'giant-spider) 13 29)
 108   (put (spawn-pt 'giant-spider) 19 29)
 109
 110   ;; Jailer
 111   (put (mk-edward) 5 10)
 112   (put (mk-bed) 1 14)
 113
 114   )
 115
 116
 117  ;; hooks
 118  (list 'on-entry-to-dungeon-room)
 119  nil ;; edge entrances
 120  )
 121
 122 (mk-place-music p_green_tower_lower 'ml-dungeon-town)