fd55d9118e
Game is playable, and should compile on linux and Windows. Assumes you have a lua 5.3 library available. Removes level compiler and associated files. Replaces special level des-files with lua scripts. Exposes some NetHack internals to lua: - des-table with commands to create special levels - nh-table with NetHack core commands - nhc-table with some constants - u-table with some player-specific data (u-struct) - selection userdata Adds some rudimentary tests. Adds new extended command #wizloadlua to run a specific script, and #wizloaddes to run a specific level-creation script. nhlib.lua is loaded for every lua script. Download and untar lua: mkdir lib cd lib curl -R -O http://www.lua.org/ftp/lua-5.3.5.tar.gz tar zxf lua-5.3.5.tar.gz Then make nethack normally.
108 lines
2.9 KiB
Lua
108 lines
2.9 KiB
Lua
-- NetHack 3.6 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([[
|
|
--------------------------
|
|
|........................|
|
|
|.......|---------------.|
|
|
-------.------ |.|
|
|
|...........| |.|
|
|
|...........| |.|
|
|
--------.----- |.|
|
|
|............| |.|
|
|
|............| |.|
|
|
-----.-------- ------|.|
|
|
|..........| --|.....|.|
|
|
|..........| |.+.....|.|
|
|
|.........|- |-|.....|.|
|
|
-------.---- |.+.....+.|
|
|
|........| |-|.....|--
|
|
|........| |.+.....|
|
|
|...|----- --|.....|
|
|
----- -------
|
|
]]);
|
|
|
|
place = selection.new();
|
|
place:set(16,11);
|
|
place:set(16,13);
|
|
place:set(16,15);
|
|
|
|
des.stair("down", 01, 01);
|
|
des.region(selection.area(00,00,25,17),"lit");
|
|
des.non_diggable(selection.area(00,00,25,17));
|
|
des.non_passwall(selection.area(00,00,25,17));
|
|
|
|
-- Boulders
|
|
des.object("boulder", 03, 05);
|
|
des.object("boulder", 05, 05);
|
|
des.object("boulder", 07, 05);
|
|
des.object("boulder", 09, 05);
|
|
des.object("boulder", 11, 05);
|
|
--
|
|
des.object("boulder", 04, 07);
|
|
des.object("boulder", 04, 08);
|
|
des.object("boulder", 06, 07);
|
|
des.object("boulder", 09, 07);
|
|
des.object("boulder", 11, 07);
|
|
--
|
|
des.object("boulder", 03, 12);
|
|
des.object("boulder", 04, 10);
|
|
des.object("boulder", 05, 12);
|
|
des.object("boulder", 06, 10);
|
|
des.object("boulder", 07, 11);
|
|
des.object("boulder", 08, 10);
|
|
des.object("boulder", 09, 12);
|
|
--
|
|
des.object("boulder", 03, 14);
|
|
|
|
-- Traps
|
|
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.trap("hole", 23, 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, 13);
|
|
des.door("closed", 17, 11);
|
|
des.door("closed", 17, 13);
|
|
des.door("closed", 17, 15);
|
|
|
|
des.region({ region={18,10, 22,16}, lit = 1, type = "zoo", prefilled = 0, irregular = 1 });
|
|
|
|
px, py = selection.rndcoord(place);
|
|
if math.random(0, 99) < 50 then
|
|
des.object("bag of holding", px, py);
|
|
else
|
|
des.object("amulet of reflection", px, py);
|
|
end
|
|
des.engraving({ x = px, y = py, type = "burn", text = "Elbereth" });
|
|
des.object({ id = "scare monster", x = px, y = py, buc = "cursed" });
|
|
|