worlds/haxima-1.002/forsaken-prison.scm

   1 (mk-dungeon-room
   2  'p_forsaken_prison "Forsaken Prison"
   3  (list
   4           "rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
   5           "rn rn rn rn xx ,, ,, xx ,, ,, ,, xx ,, ,, xx rn rn rn rn "
   6           "rn rn rn rn xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rn rn rn rn "
   7           "rn rn rn rn xx ,, ,, xx ,, ,, ,, xx ,, ,, xx rn rn rn rn "
   8           "rn rn rn xx xx xx xx xx ,, ,, ,, xx xx xx xx xx rn rn rn "
   9           "rn rn rn xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx rn rn rn "
  10           "rn rn rn xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx rn rn rn "
  11           "xx xx xx xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx xx xx xx "
  12           "xx ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx "
  13           "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
  14           "xx ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx "
  15           "xx xx xx xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx xx xx xx "
  16           "rn xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx rn rn rn "
  17           "rn xx ?? ?? ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx rn rn rn "
  18           "xx xx ?? xx xx xx xx xx ,, ,, ,, xx xx xx xx xx rn rn rn "
  19           "xx ,, ,, ,, xx ,, ,, xx ,, ,, ,, xx ,, ,, xx rn rn rn rn "
  20           "xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rn rn rn rn "
  21           "xx ,, ,, ,, xx ,, ,, xx ,, ,, ,, xx ,, ,, xx rn rn rn rn "
  22           "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
  23   )
  24  (put (mk-ladder-up 'p_paladins_hold 8 17) 9 9)
  25  (put (mk-ladder-up 'p_mans_hideout 9 3) 2 16)
  26  (put (mk-locked-door) 7 2)
  27  (put (mk-locked-door) 11 2)
  28  (put (mk-locked-door) 13 7)
  29  (put (mk-locked-door) 15 9)
  30  (put (mk-locked-door) 13 11)
  31  (put (mk-locked-door) 11 16)
  32  (put (mk-locked-door) 7 16)
  33  (put (mk-locked-door) 5 11)
  34  (put (mk-locked-door) 3 9)
  35  (put (mk-locked-door) 5 7)
  36
  37  ;; prisoners
  38  (put (mk-npc 'bandit 4) 5 2)
  39  (put (mk-npc 'cave-goblin-berserker 4) 6 15)
  40  (put (mk-npc 'troll 6) 2 9)
  41  (put (mk-npc 'warlock 8) 13 16)
  42  (put (mk-npc 'corrupt-halberdier 3) 17 9)
  43  (put (mk-npc 'skeletal-warrior 5) 13 1)
  44
  45  ;; alas, expired prisoners
  46  (put (mk-corpse-with-loot) 14 5)
  47  (put (mk-corpse-with-loot) 12 12)
  48  (put (mk-corpse-with-loot) 14 5)
  49  (put (mk-corpse-with-loot) 5 6)
  50
  51  )
  52
  53 (mk-place-music p_forsaken_prison 'ml-dungeon-adventure)