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/Sam-strt.lua

@@ -0,0 +1,91 @@
+-- NetHack 3.6	Samurai.des	$NHDT-Date: 1432512783 2015/05/25 00:13:03 $  $NHDT-Branch: master $:$NHDT-Revision: 1.11 $
+--	Copyright (c) 1989 by Jean-Christophe Collet
+--	Copyright (c) 1991-92 by M. Stephenson, P. Winner
+-- NetHack may be freely redistributed.  See license for details.
+--
+--
+--	The "start" level for the quest.
+--
+--	Here you meet your (besieged) class leader, Lord Sato
+--	and receive your quest assignment.
+--
+des.level_init({ style = "solidfill", fg = " " });
+
+des.level_flags("mazelevel", "noteleport", "hardfloor")
+
+des.map([[
+..............................................................PP............
+...............................................................PP...........
+..........---------------------------------------------------...PPP.........
+..........|......|.........|...|..............|...|.........|....PPPPP......
+......... |......|.........S...|..............|...S.........|.....PPPP......
+..........|......|.........|---|..............|---|.........|.....PPP.......
+..........+......|.........+...-------++-------...+.........|......PP.......
+..........+......|.........|......................|.........|......PP.......
+......... |......---------------------++--------------------|........PP.....
+..........|.................................................|.........PP....
+..........|.................................................|...........PP..
+..........----------------------------------------...-------|............PP.
+..........................................|.................|.............PP
+.............. ................. .........|.................|..............P
+............. } ............... } ........|.................|...............
+.............. ........PP....... .........|.................|...............
+.....................PPP..................|.................|...............
+......................PP..................-------------------...............
+............................................................................
+............................................................................
+]]);
+-- Dungeon Description
+des.region(selection.area(00,00,75,19), "lit")
+des.region({ region={18,03, 26,07}, lit=1, type="throne", prefilled=1 })
+-- Portal arrival zone
+des.levregion({ region = {62,12,70,17}, type="branch" })
+-- Stairs
+des.stair("down", 29,04)
+-- Doors
+des.door("locked",10,06)
+des.door("locked",10,07)
+des.door("closed",27,04)
+des.door("closed",27,06)
+des.door("closed",38,06)
+des.door("locked",38,08)
+des.door("closed",39,06)
+des.door("locked",39,08)
+des.door("closed",50,04)
+des.door("closed",50,06)
+-- Lord Sato
+des.monster("Lord Sato", 20, 04)
+-- The treasure of Lord Sato
+des.object("chest", 20, 04)
+-- roshi guards for the audience chamber
+des.monster("roshi", 18, 04)
+des.monster("roshi", 18, 05)
+des.monster("roshi", 18, 06)
+des.monster("roshi", 18, 07)
+des.monster("roshi", 26, 04)
+des.monster("roshi", 26, 05)
+des.monster("roshi", 26, 06)
+des.monster("roshi", 26, 07)
+-- Non diggable walls
+des.non_diggable(selection.area(00,00,75,19))
+-- Random traps
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+-- Monsters on siege duty.
+des.monster({ id = "ninja", x=64, y=00, peaceful=0 })
+des.monster("wolf", 65, 01)
+des.monster({ id = "ninja", x=67, y=02, peaceful=0 })
+des.monster({ id = "ninja", x=69, y=05, peaceful=0 })
+des.monster({ id = "ninja", x=69, y=06, peaceful=0 })
+des.monster("wolf", 69, 07)
+des.monster({ id = "ninja", x=70, y=06, peaceful=0 })
+des.monster({ id = "ninja", x=70, y=07, peaceful=0 })
+des.monster({ id = "ninja", x=72, y=01, peaceful=0 })
+des.monster("wolf", 75, 09)
+des.monster({ id = "ninja", x=73, y=05, peaceful=0 })
+des.monster({ id = "ninja", x=68, y=02, peaceful=0 })
+des.monster("stalker")