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
3.3 KiB
Lua
108 lines
3.3 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.
|
|
--
|
|
-- "Catacombs" by Kelly Bailey
|
|
-- Relies on some very specific behavior of MAZEWALK.
|
|
|
|
des.level_init({ style = "solidfill", fg = "-" });
|
|
|
|
des.level_flags("mazelevel", "nommap")
|
|
|
|
des.map({ halign = "center", valign = "bottom", map = [[
|
|
- - - - - - - - - - -- -- - - . - - - - - - - - - -- - - -- - - - - . - - |
|
|
------...---------.-----------...-----.-------.------- ----------------|
|
|
- - - - - - - - - - - . - - - . - - - - - - - - - - -- - -- - . - - - - - |
|
|
------------.---------...-------------------------.--- ------------------|
|
|
- - - - - - - - - - . . - - --- - . - - - - - - - - -- -- - - - - |.....| |
|
|
--.---------------.......------------------------------- ----------|.....S-|
|
|
- - - - |.. ..| - ....... . - - - - |.........| - - - --- - - - - |.....| |
|
|
----.----|.....|------.......--------|.........|--------------.------------|
|
|
- - - - |..{..| - - -.... . --- - -.S.........S - - - - - - - - - - - - - |
|
|
---------|.....|--.---...------------|.........|---------------------------|
|
|
- - - - |.. ..| - - - . - - - - - - |.........| - --- . - - - - - - - - - |
|
|
----------------------...-------.---------------------...------------------|
|
|
---..| - - - - - - - - . --- - - - - - - - - - - - - - . - - --- - - --- - |
|
|
-.S..|----.-------.------- ---------.-----------------...----- -----.-------
|
|
---..| - - - - - - - -- - - -- . - - - - - . - - - . - . - - -- -- - - - --
|
|
-.S..|--------.---.--- -...---------------...{.--------- ---------
|
|
--|. - - - - - - - -- - - - -- . - - - --- - - - . . - - - - -- - - - - - -
|
|
]] });
|
|
|
|
local place = { {1,15},{68,6},{1,13} }
|
|
shuffle(place)
|
|
|
|
des.non_diggable(selection.area(67,3,73,7))
|
|
des.non_diggable(selection.area(0,12,2,16))
|
|
des.feature("fountain", {12,08})
|
|
des.feature("fountain", {51,15})
|
|
des.region(selection.area(0,0,75,16),"unlit")
|
|
des.region(selection.area(38,6,46,10),"lit")
|
|
des.door("closed",37,8)
|
|
des.door("closed",47,8)
|
|
des.door("closed",73,5)
|
|
des.door("closed",2,15)
|
|
des.mazewalk({ x=36, y=8, dir="west", stocked=false })
|
|
des.stair("up", 42,8)
|
|
des.wallify()
|
|
|
|
-- Objects
|
|
des.object("diamond")
|
|
des.object("*")
|
|
des.object("diamond")
|
|
des.object("*")
|
|
des.object("emerald")
|
|
des.object("*")
|
|
des.object("emerald")
|
|
des.object("*")
|
|
des.object("emerald")
|
|
des.object("*")
|
|
des.object("ruby")
|
|
des.object("*")
|
|
des.object("ruby")
|
|
des.object("amethyst")
|
|
des.object("*")
|
|
des.object("amethyst")
|
|
des.object("luckstone",place[2])
|
|
des.object("flint",place[1])
|
|
des.object("?")
|
|
des.object("?")
|
|
des.object("?")
|
|
des.object("?")
|
|
des.object("?")
|
|
des.object("+")
|
|
des.object("+")
|
|
des.object("+")
|
|
des.object("+")
|
|
des.object()
|
|
des.object()
|
|
des.object()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
des.trap()
|
|
-- One-time annoyance factor
|
|
des.trap("level teleport",place[2])
|
|
des.trap("level teleport",place[1])
|
|
des.monster("M")
|
|
des.monster("M")
|
|
des.monster("M")
|
|
des.monster("M")
|
|
des.monster("M")
|
|
des.monster("ettin mummy")
|
|
des.monster("V")
|
|
des.monster("Z")
|
|
des.monster("Z")
|
|
des.monster("Z")
|
|
des.monster("Z")
|
|
des.monster("Z")
|
|
des.monster("V")
|
|
des.monster("e")
|
|
des.monster("e")
|
|
des.monster("e")
|
|
des.monster("e")
|