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.
126 lines
4.0 KiB
Lua
126 lines
4.0 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 = " " });
|
|
|
|
des.level_flags("mazelevel", "noteleport", "shortsighted")
|
|
-- des.level_init(mines,'.','}',true,true,unlit,false)
|
|
des.level_init({ style = "mines", fg = ".", bg = "}", smoothed=1, joined=1, lit=0 });
|
|
-- guarantee at least one open spot to ensure successful stair placement
|
|
des.map({ halign = "left", valign = "bottom", map = [[
|
|
xxxxxxxx
|
|
xx...xxx
|
|
xxx...xx
|
|
xxxx.xxx
|
|
xxxxxxxx
|
|
]] });
|
|
des.object("boulder")
|
|
des.map({ halign = "right", valign = "top", map = [[
|
|
xxxxxxxx
|
|
xxxx.xxx
|
|
xxx...xx
|
|
xx...xxx
|
|
xxxxxxxx
|
|
]] });
|
|
des.object("boulder")
|
|
-- lair
|
|
des.map([[
|
|
xx}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}xx
|
|
x}}}.}}}}}..}}}..}}}}}..}}}..}}}}}..}}}..}}}}}.}}}x
|
|
}}}...}}..}}.}.}}.}}.}}}...}}}.}}}..}}}..}}}}...}}}
|
|
x}}}.}}.}}}.}}.}}.}}...}}.}}.....}}.....}....}.}}}x
|
|
xx}}}..}}}.}}.}}.}}..}}.....}}.}}}.}}.}}}}}}}}}}}xx
|
|
x}}}..}}}}}.}}.}}.}}...}}}}}.....}}.}}}}}}.....}}}x
|
|
}}}..}}...}}..}}.}}}.}}}...}}}.}}}.}.}}}}..P.P..}}}
|
|
}}.}}}}...}}}}}.}...}}}..P..}}}.}.}}}.}}}}.....}}}}
|
|
}.}}}}.}}.}..}.}}}}}}}..P.P..}}}.}}}.}}..}}...}}}}x
|
|
x}}}}.}}}}....}}}}}.}}}..P..}}}.}}}}.}}..}}...}}}.}
|
|
}}}}..}}.}}..}}}}...}}}}...}}}.}}}}}.}}}}.}}}}}}.}}
|
|
}}}...}}...}}}..}}}}}}}}}}}}.....}}}}.}}...}..}.}}}
|
|
x}}}..}}.}}}}....}}..}}}..}}.....}}}}.}}}.}....}}}x
|
|
xx}}}.}}}}..}}..}}..}}..}}..}}.}}}..}.}..}}}..}}}xx
|
|
x}}}.}}}}....}}}}..}}....}}}}}}}...}}}....}}}}.}}}x
|
|
}}}...}}}....}}}..}}}....}}}..}}...}}}....}}}...}}}
|
|
x}}}.}}}}}..}}}..}}}}}..}}}..}}}}}..}}}..}}}}}.}}}x
|
|
xx}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}x}}}}}xx
|
|
]]);
|
|
-- Random registers
|
|
local monster = { "j","b","P","F" }
|
|
shuffle(monster)
|
|
|
|
local place = selection.new();
|
|
place:set(04,02);
|
|
place:set(46,02);
|
|
place:set(04,15);
|
|
place:set(46,15);
|
|
|
|
-- Dungeon description
|
|
des.region({ region={00,00,50,17}, lit=0, type="swamp" })
|
|
des.mazewalk(00,09,"west")
|
|
des.mazewalk(50,08,"east")
|
|
des.levregion({ region = {01,00,11,20}, region_islev=1, exclude={0,0,50,17}, type="stair-down" });
|
|
des.levregion({ region = {69,00,79,20}, region_islev=1, exclude={0,0,50,17}, type="stair-up" });
|
|
des.levregion({ region = {01,00,11,20}, region_islev=1, exclude={0,0,50,17}, type="branch" });
|
|
des.teleport_region({ region = {01,00,11,20}, region_islev=1, exclude={0,0,50,17},dir="up" })
|
|
des.teleport_region({ region = {69,00,79,20}, region_islev=1, exclude={0,0,50,17},dir="down" })
|
|
des.feature("fountain", place:rndcoord(1))
|
|
des.monster({ id = "giant mimic", coord = { place:rndcoord(1) }, appear_as = "ter:fountain" })
|
|
des.monster({ id = "giant mimic", coord = { place:rndcoord(1) }, appear_as = "ter:fountain" })
|
|
des.monster({ id = "giant mimic", coord = { place:rndcoord(1) }, appear_as = "ter:fountain" })
|
|
-- The demon of the swamp
|
|
des.monster("Juiblex",25,08)
|
|
-- And a couple demons
|
|
des.monster("lemure",43,08)
|
|
des.monster("lemure",44,08)
|
|
des.monster("lemure",45,08)
|
|
-- Some liquids and gems
|
|
des.object("*",43,06)
|
|
des.object("*",45,06)
|
|
des.object("!",43,09)
|
|
des.object("!",44,09)
|
|
des.object("!",45,09)
|
|
-- And lots of blobby monsters
|
|
des.monster(monster[4],25,06)
|
|
des.monster(monster[1],24,07)
|
|
des.monster(monster[2],26,07)
|
|
des.monster(monster[3],23,08)
|
|
des.monster(monster[3],27,08)
|
|
des.monster(monster[2],24,09)
|
|
des.monster(monster[1],26,09)
|
|
des.monster(monster[4],25,10)
|
|
des.monster("j")
|
|
des.monster("j")
|
|
des.monster("j")
|
|
des.monster("j")
|
|
des.monster("P")
|
|
des.monster("P")
|
|
des.monster("P")
|
|
des.monster("P")
|
|
des.monster("b")
|
|
des.monster("b")
|
|
des.monster("b")
|
|
des.monster("F")
|
|
des.monster("F")
|
|
des.monster("F")
|
|
des.monster("m")
|
|
des.monster("m")
|
|
des.monster("jellyfish")
|
|
des.monster("jellyfish")
|
|
-- Some random objects
|
|
des.object("!")
|
|
des.object("!")
|
|
des.object("!")
|
|
des.object("%")
|
|
des.object("%")
|
|
des.object("%")
|
|
des.object("boulder")
|
|
-- Some traps
|
|
des.trap("sleep gas")
|
|
des.trap("sleep gas")
|
|
des.trap("anti magic")
|
|
des.trap("anti magic")
|
|
des.trap("magic")
|
|
des.trap("magic")
|