3571934c59
and actually do so in the lua files. Before this, it was not possible to specify (for example) "scroll of teleportation" in des.object() because there is actually no object defined in objects.h named "scroll of teleportation", so find_objtype() failed to find it. Instead, one had to request "teleportation", but that is ambiguous, and find_objtype() would find the first defined item with that name instead (ring of teleportation). In cases of ambiguity, I referred to the des files from 3.6.6 (before the lua conversion).
111 lines
2.9 KiB
Lua
111 lines
2.9 KiB
Lua
-- NetHack 3.7 sokoban.des $NHDT-Date: 1432512784 2015/05/25 00:13:04 $ $NHDT-Branch: master $:$NHDT-Revision: 1.13 $
|
|
-- Copyright (c) 1998-1999 by Kevin Hugo
|
|
-- NetHack may be freely redistributed. See license for details.
|
|
--
|
|
des.level_init({ style = "solidfill", fg = " " });
|
|
|
|
des.level_flags("mazelevel", "noteleport", "premapped", "solidify");
|
|
|
|
des.map([[
|
|
------------------------
|
|
|......................|
|
|
|..-------------------.|
|
|
----.| ----- |.|
|
|
|..|.-- --...| |.|
|
|
|.....|--|....| |.|
|
|
|.....|..|....| |.|
|
|
--....|......-- |.|
|
|
|.......|...| ------|.|
|
|
|....|..|...| --|.....|.|
|
|
|....|--|...| |.+.....|.|
|
|
|.......|..-- |-|.....|.|
|
|
----....|.-- |.+.....+.|
|
|
---.--.| |-|.....|--
|
|
|.....| |.+.....|
|
|
|..|..| --|.....|
|
|
------- -------
|
|
]]);
|
|
|
|
local place = selection.new();
|
|
place:set(16,10);
|
|
place:set(16,12);
|
|
place:set(16,14);
|
|
|
|
des.stair("down", 06,15);
|
|
des.region(selection.area(00,00,25,16),"lit");
|
|
des.non_diggable(selection.area(00,00,25,16));
|
|
des.non_passwall(selection.area(00,00,25,16));
|
|
|
|
-- Boulders
|
|
des.object("boulder",04,04);
|
|
des.object("boulder",02,06);
|
|
des.object("boulder",03,06);
|
|
des.object("boulder",04,07);
|
|
des.object("boulder",05,07);
|
|
des.object("boulder",02,08);
|
|
des.object("boulder",05,08);
|
|
des.object("boulder",03,09);
|
|
des.object("boulder",04,09);
|
|
des.object("boulder",03,10);
|
|
des.object("boulder",05,10);
|
|
des.object("boulder",06,12);
|
|
--
|
|
des.object("boulder",07,14);
|
|
--
|
|
des.object("boulder",11,05);
|
|
des.object("boulder",12,06);
|
|
des.object("boulder",10,07);
|
|
des.object("boulder",11,07);
|
|
des.object("boulder",10,08);
|
|
des.object("boulder",12,09);
|
|
des.object("boulder",11,10);
|
|
|
|
-- Traps
|
|
des.trap("hole",05,01)
|
|
des.trap("hole",06,01)
|
|
des.trap("hole",07,01)
|
|
des.trap("hole",08,01)
|
|
des.trap("hole",09,01)
|
|
des.trap("hole",10,01)
|
|
des.trap("hole",11,01)
|
|
des.trap("hole",12,01)
|
|
des.trap("hole",13,01)
|
|
des.trap("hole",14,01)
|
|
des.trap("hole",15,01)
|
|
des.trap("hole",16,01)
|
|
des.trap("hole",17,01)
|
|
des.trap("hole",18,01)
|
|
des.trap("hole",19,01)
|
|
des.trap("hole",20,01)
|
|
des.trap("hole",21,01)
|
|
des.trap("hole",22,01)
|
|
|
|
des.monster({ id = "giant mimic", appear_as = "obj:boulder" });
|
|
des.monster({ id = "giant mimic", appear_as = "obj:boulder" });
|
|
|
|
-- Random objects
|
|
des.object({ class = "%" });
|
|
des.object({ class = "%" });
|
|
des.object({ class = "%" });
|
|
des.object({ class = "%" });
|
|
des.object({ class = "=" });
|
|
des.object({ class = "/" });
|
|
|
|
-- Rewards
|
|
des.door("locked",23,12)
|
|
des.door("closed",17,10)
|
|
des.door("closed",17,12)
|
|
des.door("closed",17,14)
|
|
des.region({ region={18,09, 22,15}, lit = 1, type = "zoo", filled = 1, irregular = 1 });
|
|
|
|
local pt = selection.rndcoord(place);
|
|
if percent(25) then
|
|
des.object({ id="bag of holding", coord=pt,
|
|
buc="not-cursed", achievement=1 });
|
|
else
|
|
des.object({ id="amulet of reflection", coord=pt,
|
|
buc="not-cursed", achievement=1 });
|
|
end
|
|
des.engraving({ coord = pt, type = "burn", text = "Elbereth" });
|
|
des.object({ id = "scroll of scare monster", coord = pt, buc = "cursed" });
|