5d73b2be08
There is code in fixup_special for stocking Medusa's lair with statues of players from the leaderboard. It makes two assumptions: that there will always be at least one room defined on Medusa's level, and that the statues should be placed in the first room defined. In the process of removing prefilled, some of these rooms suddenly became non-rooms, and this caused problems. This commit ensures that the regions for turning into rooms to hold the statues are present and come first. In the process of writing this commit, I discovered a bug: the statue stocking code for medusa in fixup_special naively chooses the spot at which to place its final statue by selecting independent x and y coordinates with somex and somey. This is responsible for a statue occasionally being embedded in a wall or in iron bars on medusa-2 and medusa-4: the rooms defined to receive statues are irregular, and some of the possible coordinates happen to be walls, bars, and water. The proper fix here is to add lua functionality so that the level designer can specify that they want a leaderboard corpse or statue, and remove the medusa special case from fixup_special, but that's rather out of scope for what I'm doing here.
133 lines
5.0 KiB
Lua
133 lines
5.0 KiB
Lua
-- NetHack 3.7 medusa.des $NHDT-Date: 1432512783 2015/05/25 00:13:03 $ $NHDT-Branch: master $:$NHDT-Revision: 1.10 $
|
|
-- Copyright (c) 1989 by Jean-Christophe Collet
|
|
-- Copyright (c) 1990, 1991 by M. Stephenson
|
|
-- NetHack may be freely redistributed. See license for details.
|
|
--
|
|
des.level_init({ style = "solidfill", fg = " " });
|
|
des.level_flags("noteleport", "mazelevel")
|
|
--
|
|
-- Here the Medusa rules some slithery monsters from her 'palace', with
|
|
-- a yellow dragon nesting in the backyard.
|
|
--
|
|
des.map([[
|
|
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
|
|
}}}}}}}}}}}}}}........}}}}}}}}}}}}}}}}}}}}}}}..}}}.....}}}}}}}}}}}----|}}}}}
|
|
}}}}}}..----------F-.....}}}}}}}}}}}}}}}}..---...}}}}....T.}}}}}}}....|}}}}}
|
|
}}}.....|...F......S}}}}....}}}}}}}...}}.....|}}.}}}}}}}......}}}}|......}}}
|
|
}}}.....+...|..{...|}}}}}}}}}}}}.....}}}}|...|}}}}}}}}}}}.}}}}}}}}----.}}}}}
|
|
}}......|...|......|}}}}}}}}}......}}}}}}|.......}}}}}}}}}}}}}..}}}}}...}}}}
|
|
}}|-+--F|-+--....|F|-|}}}}}....}}}....}}}-----}}.....}}}}}}}......}}}}.}}}}}
|
|
}}|...}}|...|....|}}}|}}}}}}}..}}}}}}}}}}}}}}}}}}}}....}}}}}}}}....T.}}}}}}}
|
|
}}|...}}F...+....F}}}}}}}..}}}}}}}}}}}}}}...}}}}}}}}}}}}}}}}}}}}}}....}}..}}
|
|
}}|...}}|...|....|}}}|}....}}}}}}....}}}...}}}}}...}}}}}}}}}}}}}}}}}.....}}}
|
|
}}--+--F|-+--....-F|-|....}}}}}}}}}}.T...}}}}....---}}}}}}}}}}}}}}}}}}}}}}}}
|
|
}}......|...|......|}}}}}.}}}}}}}}}....}}}}}}}.....|}}}}}}}}}.}}}}}}}}}}}}}}
|
|
}}}}....+...|..{...|.}}}}}}}}}}}}}}}}}}}}}}}}}}.|..|}}}}}}}......}}}}...}}}}
|
|
}}}}}}..|...F......|...}}}}}}}}}}..---}}}}}}}}}}--.-}}}}}....}}}}}}....}}}}}
|
|
}}}}}}}}-----S----F|....}}}}}}}}}|...|}}}}}}}}}}}}...}}}}}}...}}}}}}..}}}}}}
|
|
}}}}}}}}}..............T...}}}}}.|.......}}}}}}}}}}}}}}..}...}.}}}}....}}}}}
|
|
}}}}}}}}}}....}}}}...}...}}}}}.......|.}}}}}}}}}}}}}}.......}}}}}}}}}...}}}}
|
|
}}}}}}}}}}..}}}}}}}}}}.}}}}}}}}}}-..--.}}}}}}}}..}}}}}}..T...}}}..}}}}}}}}}}
|
|
}}}}}}}}}...}}}}}}}}}}}}}}}}}}}}}}}...}}}}}}}....}}}}}}}.}}}..}}}...}}}}}}}}
|
|
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}.}}}}}}....}}}}}}}}}}}}}}}}}}}...}}}}}}
|
|
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
|
|
]]);
|
|
--
|
|
local place = selection.new();
|
|
place:set(04,08);
|
|
place:set(10,04);
|
|
place:set(10,08);
|
|
place:set(10,12);
|
|
--
|
|
des.region(selection.area(00,00,74,19),"lit")
|
|
-- fixup_special hack: The first "room" region in Medusa levels gets filled with
|
|
-- some leaderboard statues, so this needs to be a room; setting irregular=1
|
|
-- will force this
|
|
des.region({ region={13,03, 18,13}, lit=1, type="ordinary", irregular=1 })
|
|
--
|
|
des.teleport_region({ region = {64,01,74,17}, dir="down" });
|
|
des.teleport_region({ region = {02,02,18,13}, dir="up" });
|
|
--
|
|
des.levregion({ region = {67,01,74,20}, type="stair-up" });
|
|
local mx, my = place:rndcoord(1);
|
|
des.stair("down", mx, my)
|
|
--
|
|
des.door("locked",04,06)
|
|
des.door("locked",04,10)
|
|
des.door("locked",08,04)
|
|
des.door("locked",08,12)
|
|
des.door("locked",10,06)
|
|
des.door("locked",10,10)
|
|
des.door("locked",12,08)
|
|
--
|
|
des.levregion({ region = {27,00,79,20}, type="branch" });
|
|
--
|
|
des.non_diggable(selection.area(01,01,22,14));
|
|
--
|
|
des.object("crystal ball", 07,08)
|
|
--
|
|
local px, py = place:rndcoord(1);
|
|
des.object({ id="statue",x=px, y=py, buc="uncursed",
|
|
montype="knight", historic=1, male=1,name="Perseus",
|
|
contents = function()
|
|
if percent(75) then
|
|
des.object({ id = "shield of reflection", buc="cursed", spe=0 })
|
|
end
|
|
if percent(25) then
|
|
des.object({ id = "levitation boots", spe=0 })
|
|
end
|
|
if percent(50) then
|
|
des.object({ id = "scimitar", buc="blessed", spe=2 })
|
|
end
|
|
if percent(50) then
|
|
des.object("sack")
|
|
end
|
|
end
|
|
});
|
|
--
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
des.object({ id = "statue", contents=0 })
|
|
for i=1,8 do
|
|
des.object()
|
|
end
|
|
--
|
|
for i=1,7 do
|
|
des.trap()
|
|
end
|
|
--
|
|
des.monster("Medusa", mx, my)
|
|
des.monster("kraken", 07,07)
|
|
--
|
|
-- the nesting dragon
|
|
des.monster({ id = "yellow dragon", x=05, y=04, asleep=1 })
|
|
if percent(50) then
|
|
des.monster({ id = "baby yellow dragon", x=04,y=04, asleep=1 })
|
|
end
|
|
if percent(25) then
|
|
des.monster({ id = "baby yellow dragon", x=04, y=05, asleep=1 })
|
|
end
|
|
des.object({ id = "egg", x=05, y=04, montype="yellow dragon" });
|
|
if percent(50) then
|
|
des.object({ id = "egg", x=05, y=04, montype="yellow dragon" });
|
|
end
|
|
if percent(25) then
|
|
des.object({ id = "egg", x=05, y=04, montype="yellow dragon" });
|
|
end
|
|
--
|
|
des.monster("giant eel")
|
|
des.monster("giant eel")
|
|
des.monster("jellyfish")
|
|
des.monster("jellyfish")
|
|
for i=1,14 do
|
|
des.monster("S")
|
|
end
|
|
for i=1,4 do
|
|
des.monster("black naga hatchling")
|
|
des.monster("black naga")
|
|
end
|