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)
78