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/Cav-loca.lua

@@ -0,0 +1,101 @@
+-- NetHack 3.6	Caveman.des	$NHDT-Date: 1432512783 2015/05/25 00:13:03 $  $NHDT-Branch: master $:$NHDT-Revision: 1.8 $
+--	Copyright (c) 1989 by Jean-Christophe Collet
+--	Copyright (c) 1991 by M. Stephenson
+-- NetHack may be freely redistributed.  See license for details.
+--
+des.level_init({ style = "solidfill", fg = " " });
+
+des.level_flags("mazelevel", "hardfloor")
+
+des.map([[
+                                                                            
+    .............                     ...........                           
+   ...............                   .............                          
+    .............                  ...............        ..........        
+     ...........                    .............      ...............      
+        ...                                    ...   ..................     
+         ...                ..........          ... ..................      
+          ...              ............          BBB...................     
+           ...              ..........          ......................      
+            .....                 ..      .....B........................    
+  ....       ...............      .    ........B..........................  
+ ......     .. .............S..............         ..................      
+  ....     ..                ...........             ...............        
+     ..  ...                                    ....................        
+      ....                                      BB...................       
+         ..                 ..                 ..  ...............          
+          ..   .......     ....  .....  ....  ..     .......   S            
+           ............     ....... ..  .......       .....    ...  ....    
+               .......       .....   ......                      .......    
+                                                                            
+]]);
+-- Dungeon Description
+des.region(selection.area(00,00,75,19), "unlit")
+des.region({ region={52,06, 73,15}, lit=1, type="ordinary", prefilled=0, irregular=1 })
+-- Doors
+des.door("locked",28,11)
+-- Stairs
+des.stair("up", 04,03)
+des.stair("down", 73,10)
+-- Non diggable walls
+des.non_diggable(selection.area(00,00,75,19))
+-- Objects
+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.object()
+des.object()
+des.object()
+-- Random traps
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+des.trap()
+-- Random monsters.
+des.monster({ id = "bugbear", x=02, y=10, peaceful=0 })
+des.monster({ id = "bugbear", x=03, y=11, peaceful=0 })
+des.monster({ id = "bugbear", x=04, y=12, peaceful=0 })
+des.monster({ id = "bugbear", x=02, y=11, peaceful=0 })
+des.monster({ id = "bugbear", x=16, y=16, peaceful=0 })
+des.monster({ id = "bugbear", x=17, y=17, peaceful=0 })
+des.monster({ id = "bugbear", x=18, y=18, peaceful=0 })
+des.monster({ id = "bugbear", x=19, y=16, peaceful=0 })
+des.monster({ id = "bugbear", x=30, y=06, peaceful=0 })
+des.monster({ id = "bugbear", x=31, y=07, peaceful=0 })
+des.monster({ id = "bugbear", x=32, y=08, peaceful=0 })
+des.monster({ id = "bugbear", x=33, y=06, peaceful=0 })
+des.monster({ id = "bugbear", x=34, y=07, peaceful=0 })
+des.monster({ id = "bugbear", peaceful=0 })
+des.monster({ id = "bugbear", peaceful=0 })
+des.monster({ id = "bugbear", peaceful=0 })
+des.monster({ id = "bugbear", peaceful=0 })
+des.monster({ class = "h", peaceful=0 })
+des.monster({ class = "H", peaceful=0 })
+des.monster({ id = "hill giant", x=03, y=12, peaceful=0 })
+des.monster({ id = "hill giant", x=20, y=17, peaceful=0 })
+des.monster({ id = "hill giant", x=35, y=08, peaceful=0 })
+des.monster({ id = "hill giant", peaceful=0 })
+des.monster({ id = "hill giant", peaceful=0 })
+des.monster({ id = "hill giant", peaceful=0 })
+des.monster({ id = "hill giant", peaceful=0 })
+des.monster({ class = "H", peaceful=0 })
+des.wallify()
+
+--
+--	The "goal" level for the quest.
+--
+--	Here you meet Tiamat your nemesis monster.  You have to
+--	defeat Tiamat in combat to gain the artifact you have
+--	been assigned to retrieve.
+--