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.
119 lines
4.1 KiB
Lua
119 lines
4.1 KiB
Lua
-- NetHack 3.6 mines.des $NHDT-Date: 1432512783 2015/05/25 00:13:03 $ $NHDT-Branch: master $:$NHDT-Revision: 1.25 $
|
|
-- Copyright (c) 1989-95 by Jean-Christophe Collet
|
|
-- Copyright (c) 1991-95 by M. Stephenson
|
|
-- NetHack may be freely redistributed. See license for details.
|
|
--
|
|
-- Mine end level variant 1
|
|
-- "Mimic of the Mines"
|
|
|
|
des.level_init({ style = "solidfill", fg = " " });
|
|
|
|
des.level_flags("mazelevel");
|
|
|
|
des.map([[
|
|
------------------------------------------------------------------ ------
|
|
| |.......| |.......-...| |.....|. |
|
|
| --------- ----.......-------...........| ---...-S- |
|
|
| |.......| |..........................-S- --.......| |
|
|
| |......------- ---........................|. |.......-- |
|
|
| |..--........-----..........................|. -.-..---- |
|
|
| --..--.-----........-.....................--- --..-- |
|
|
| --..--..| -----------..................---.----------..-- |
|
|
| |...--.| |..S...S..............---................-- |
|
|
| ----..----- ------------........--- ------------...--- |
|
|
| |.........-- ---------- ---...-- ----- |
|
|
| --.....---..-- -------- --...---...-- |
|
|
| ----..-..-- --..--------------------- --......-- ---........| |
|
|
|--....----- --..-..................--- |........| |.......-- |
|
|
|.......| --......................S.. --......-- ---..---- |
|
|
|--.--.-- ----.................--- ------..------...-- |
|
|
| |....S.. |...............-..| ..S...........| |
|
|
-------- -------------------- ------------------------
|
|
]]);
|
|
|
|
-- Dungeon Description
|
|
local place = { {08,16},{13,07},{21,08},{41,14},{50,04},{50,16},{66,01} }
|
|
shuffle(place)
|
|
|
|
des.region({ region={26,01,32,01},lit=0,type="ordinary",prefilled=0,irregular=1 })
|
|
des.region(selection.area(20,08,21,08),"unlit")
|
|
des.region(selection.area(23,08,25,08),"unlit");
|
|
-- Secret doors
|
|
des.door("locked",07,16)
|
|
des.door("locked",22,08)
|
|
des.door("locked",26,08)
|
|
des.door("locked",40,14)
|
|
des.door("locked",50,03)
|
|
des.door("locked",51,16)
|
|
des.door("locked",66,02)
|
|
-- Stairs
|
|
des.stair("up", 36,04)
|
|
-- Non diggable walls
|
|
des.non_diggable(selection.area(00,00,74,17))
|
|
-- Niches
|
|
-- Note: place[6] empty
|
|
des.object("diamond",place[7])
|
|
des.object("emerald",place[7])
|
|
des.object("worthless piece of violet glass",place[7])
|
|
des.monster({ class="m", coord=place[7], appear_as="obj:luckstone" })
|
|
des.object("worthless piece of white glass",place[1])
|
|
des.object("emerald",place[1])
|
|
des.object("amethyst",place[1])
|
|
des.monster({ class="m", coord=place[1], appear_as="obj:loadstone" })
|
|
des.object("diamond",place[2])
|
|
des.object("worthless piece of green glass",place[2])
|
|
des.object("amethyst",place[2])
|
|
des.monster({ class="m", coord=place[2], appear_as="obj:flint" })
|
|
des.object("worthless piece of white glass",place[3])
|
|
des.object("emerald",place[3])
|
|
des.object("worthless piece of violet glass",place[3])
|
|
des.monster({ class="m", coord=place[3], appear_as="obj:touchstone" })
|
|
des.object("worthless piece of red glass",place[4])
|
|
des.object("ruby",place[4])
|
|
des.object("loadstone",place[4])
|
|
des.object("ruby",place[5])
|
|
des.object("worthless piece of red glass",place[5])
|
|
des.object("luckstone",place[5])
|
|
-- Random objects
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("*")
|
|
des.object("(")
|
|
des.object("(")
|
|
des.object()
|
|
des.object()
|
|
des.object()
|
|
-- Random traps
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
-- Random monsters
|
|
des.monster("gnome king")
|
|
des.monster("gnome lord")
|
|
des.monster("gnome lord")
|
|
des.monster("gnome lord")
|
|
des.monster("gnomish wizard")
|
|
des.monster("gnomish wizard")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("hobbit")
|
|
des.monster("hobbit")
|
|
des.monster("dwarf")
|
|
des.monster("dwarf")
|
|
des.monster("dwarf")
|
|
des.monster("h")
|