worlds/haxima-1.002/treasury.scm

   1 (mk-dungeon-room
   2  'p_treasury2 "Lost Treasury of Luximene"
   3  (list
   4       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
   5       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
   6       "xx xx xx xx xx ,T ,R ,E ,A ,S ,U ,R ,Y @@ xx xx xx xx xx "
   7       "xx xx xx xx xx @@ @@ @@ ,O @@ ,F @@ @@ @@ xx xx xx xx xx "
   8       "xx xx xx xx xx @@ ,L ,U ,X ,I ,M ,E ,N ,E xx xx xx xx xx "
   9       "xx xx xx xx xx cc cc cc ,, cc ,, cc cc cc xx xx xx xx xx "
  10       "xx xx xx xx xx cc pp ,, ,, ,, ,, ,, pp cc xx xx xx xx xx "
  11       "xx xx xx xx xx cc ,, ,, ,, cc ,, ,, ,, cc xx xx xx xx xx "
  12       "xx xx xx xx xx ,, ,, ,, cc cc cc ,, ,, ,, xx xx xx xx xx "
  13       "xx xx xx xx xx ,, ,, cc cc ,, cc cc ,, ,, xx xx xx xx xx "
  14       "xx xx xx xx xx ,, ,, ,, cc cc cc ,, ,, ,, xx xx xx xx xx "
  15       "xx xx xx xx xx xx ,, ,, ,, cc ,, ,, ,, xx xx xx xx xx xx "
  16       "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx xx xx "
  17       "xx xx xx xx xx xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx "
  18       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  19       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  20       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  21       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  22       "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
  23   )
  24  (put (mk-ladder-down 'p_treasury 9 9) 9 9)
  25
  26  ;; special treasures
  27  (put (mk-chest
  28        'bomb-trap
  29        '((1 t_eldritch_blade)
  30          (1 t_armor_plate_4)
  31          (1 t_iron_helm_4)
  32          (1 t_doom_staff)
  33          (1 t_spell_book_force_magick_high_magick)
  34          (1 t_spell_book_gate_magick)
  35          (1 t_spell_book_illusion_2)
  36          ))
  37       9 5)
  38  )
  39
  40 (mk-place-music p_treasury2 'ml-dungeon-adventure)
  41
  42 (define (can-drop? loc)
  43   (and (is-floor? loc)
  44        (loc-is-empty? loc)))
  45
  46 ;; piles of gold
  47 (put-random-stuff p_treasury2
  48                   (mk-rect 5 5 9 9)
  49                   can-drop?
  50                   (lambda (loc)
  51                     (kern-obj-put-at (kern-mk-obj t_gold_coins (kern-dice-roll "5d20")) loc))
  52                   20)
  53
  54 ;; random mundane treasures
  55 (put-random-stuff p_treasury2
  56                   (mk-rect 5 5 9 9)
  57                   can-drop?
  58                   (lambda (loc)
  59                     (kern-obj-put-at (mk-treasure-chest) loc))
  60                   5)
  61
  62 ;; some gems to add sparkle
  63 (put-random-stuff p_treasury2
  64                   (mk-rect 5 5 9 9)
  65                   can-drop?
  66                   (lambda (loc)
  67                     (kern-obj-put-at (kern-mk-obj t_gem 1) loc))
  68                   10)
  69
  70 ;; a couple of corpses
  71 (put-random-stuff p_treasury2
  72                   (mk-rect 5 5 9 9)
  73                   can-drop?
  74                   (lambda (loc)
  75                     (kern-obj-put-at (mk-corpse-with-loot)
  76                                      loc))
  77                   3)