Use lua for special level files

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.

dat/juiblex.lua

@@ -0,0 +1,125 @@
+-- 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")