worlds/haxima-1.002/traps_3.scm

   1 ;; ----------------------------------------------------------------------------
   2 ;; Level 3 of the Thief's Ladder
   3 ;; ----------------------------------------------------------------------------
   4 (kern-load "traps_3_mechs.scm")
   5 (mk-dungeon-room
   6  'p_traps_3 "Fun with Levers"
   7  (list
   8   "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
   9   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  10   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  11   "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  12   "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx "
  13   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  14   "xx xx xx ,, x! xx xx xx x! ,, x! xx xx xx x! ,, xx xx xx "
  15   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  16   "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx "
  17   "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  18   "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx "
  19   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  20   "xx xx xx ,, x! xx xx xx x! ,, x! xx xx xx x! ,, xx xx xx "
  21   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  22   "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx "
  23   "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  24   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  25   "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
  26   "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  27   )
  28
  29  ;; monster generators
  30  (put (spawn-pt 'queen-spider) 6 3)
  31  (put (spawn-pt 'skeletal-warrior)   6 15)
  32  (put (spawn-pt 'yellow-slime) 15 15)
  33  (put (spawn-pt 'bandit) 15 3)
  34
  35  ;; portcullisses
  36  (put (kern-tag 't3_pc1  (mk-open-portcullis) ) 6 3)
  37  (put (kern-tag 't3_pc2  (mk-open-portcullis) ) 6 9)
  38  (put (kern-tag 't3_pc3  (mk-open-portcullis) ) 6 15)
  39  (put (kern-tag 't3_pc4  (mk-open-portcullis) ) 12 3)
  40  (put (kern-tag 't3_pc5  (mk-open-portcullis) ) 12 9)
  41  (put (kern-tag 't3_pc6  (mk-open-portcullis) ) 12 15)
  42  (put (kern-tag 't3_pc7  (mk-portcullis) ) 3 6)
  43  (put (kern-tag 't3_pc8  (mk-portcullis) ) 9 6)
  44  (put (kern-tag 't3_pc9  (mk-portcullis) ) 15 6)
  45  (put (kern-tag 't3_pc10 (mk-portcullis) ) 3 12)
  46  (put (kern-tag 't3_pc11 (mk-portcullis) ) 9 12)
  47  (put (kern-tag 't3_pc12 (mk-portcullis) ) 15 12)
  48
  49  ;; levers
  50  (put (mk-lever-with-id 't3_ctrl 0)  3  3)
  51  (put (mk-lever-with-id 't3_ctrl 1) 15  3)
  52  (put (mk-lever-with-id 't3_ctrl 2)  3  9)
  53  (put (mk-lever-with-id 't3_ctrl 3) 15  9)
  54  (put (mk-lever-with-id 't3_ctrl 4)  3 15)
  55  (put (mk-lever-with-id 't3_ctrl 5)  9 15)
  56  (put (mk-lever-with-id 't3_ctrl 6) 15 15)
  57
  58  ;; special control mechanism
  59  (put (kern-tag 't3_ctrl
  60                 (mk-t3-ctrl (list 't3_pc1
  61                                   't3_pc2
  62                                   't3_pc3
  63                                   't3_pc4
  64                                   't3_pc5
  65                                   't3_pc6
  66                                   't3_pc7
  67                                   't3_pc8
  68                                   't3_pc9
  69                                   't3_pc10
  70                                   't3_pc11
  71                                   't3_pc12)
  72                             (list (list #f #t #f #t #f #t #t #f #t #f #t #f)
  73                                   (list #t #t #t #t #t #t #f #f #f #f #f #f)
  74                                   (list #t #f #t #f #t #f #f #t #f #t #f #t)
  75                                   (list #f #t #f #t #f #t #f #t #f #t #f #t)
  76                                   (list #f #f #f #f #f #f #t #t #t #t #t #t)
  77                                   (list #t #f #t #f #t #f #t #f #t #f #t #f)
  78                                   (list #f #f #t #t #t #t #t #t #t #t #f #f)
  79                                   ))) 0 0)
  80
  81
  82  ;; ladder back up
  83  (put (mk-ladder-up 'p_traps_2 9 9) 9 9)
  84  (put (mk-ladder-down 'p_traps_4 9 9) 9 3)
  85
  86  )
  87
  88 (mk-place-music p_traps_3 'ml-dungeon-adventure)
  89
  90 (kern-place-add-on-entry-hook p_traps_3 'quest-thiefrune-den3)