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.
73 lines
2.5 KiB
Lua
73 lines
2.5 KiB
Lua
-- NetHack 3.6 gehennom.des $NHDT-Date: 1432512783 2015/05/25 00:13:03 $ $NHDT-Branch: master $:$NHDT-Revision: 1.13 $
|
|
-- Copyright (c) 1989 by Jean-Christophe Collet
|
|
-- Copyright (c) 1992 by M. Stephenson and Izchak Miller
|
|
-- NetHack may be freely redistributed. See license for details.
|
|
--
|
|
des.level_init({ style = "solidfill", fg = " " });
|
|
|
|
-- TODO FIXME: see baalz_fixup - the legs get removed currently.
|
|
|
|
des.level_flags("mazelevel", "noteleport", "corrmaze")
|
|
-- the two pools are fakes used to mark spots which need special wall fixups
|
|
-- the two iron bars are eyes and spots to their left will be made diggable
|
|
des.map({ halign = "right", valign = "center", map = [[
|
|
-------------------------------------------------
|
|
| ---- ----
|
|
| ---- | ----------- |
|
|
| ------ | ---------|.........|--P
|
|
| F....| -------|...........--------------
|
|
---....|--|..................S............|----
|
|
+...--....S..----------------|............S...|
|
|
---....|--|..................|............|----
|
|
| F....| -------|...........-----S--------
|
|
| ------ | ---------|.........|--P
|
|
| ---- | ----------- |
|
|
| ---- ----
|
|
-------------------------------------------------
|
|
]] });
|
|
des.levregion({ region = {01,00,15,20}, region_islev=1, exclude={15,1,70,16}, exclude_islev=1, type="stair-up" })
|
|
des.levregion({ region = {01,00,15,20}, region_islev=1, exclude={15,1,70,16}, exclude_islev=1, type="branch" })
|
|
des.teleport_region({region = {01,00,15,20}, region_islev=1, exclude = {15,1,70,16}, exclude_islev=1 })
|
|
-- this actually leaves the farthest right column diggable
|
|
des.non_diggable(selection.area(00,00,47,12))
|
|
des.mazewalk(00,06,"west")
|
|
des.stair("down", 44,06)
|
|
des.door("locked",00,06)
|
|
if math.random(0, 99) < 50 then
|
|
des.terrain(34,08,'-')
|
|
des.terrain(34,04,'S')
|
|
des.terrain(29,05,'|')
|
|
des.terrain(29,07,'S')
|
|
end
|
|
-- The fellow in residence
|
|
des.monster("Baalzebub",35,06)
|
|
-- Some random weapons and armor.
|
|
des.object("[")
|
|
des.object("[")
|
|
des.object(")")
|
|
des.object(")")
|
|
des.object("*")
|
|
des.object("!")
|
|
des.object("!")
|
|
des.object("?")
|
|
des.object("?")
|
|
des.object("?")
|
|
-- Some traps.
|
|
des.trap("spiked pit")
|
|
des.trap("fire")
|
|
des.trap("sleep gas")
|
|
des.trap("anti magic")
|
|
des.trap("fire")
|
|
des.trap("magic")
|
|
des.trap("magic")
|
|
-- Random monsters.
|
|
des.monster("ghost",37,07)
|
|
des.monster("horned devil",32,05)
|
|
des.monster("barbed devil",38,07)
|
|
des.monster("L")
|
|
-- Some Vampires for good measure
|
|
des.monster("V")
|
|
des.monster("V")
|
|
des.monster("V")
|
|
|