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