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

@@ -0,0 +1,97 @@
+-- NetHack 3.6	Ranger.des	$NHDT-Date: 1432512783 2015/05/25 00:13:03 $  $NHDT-Branch: master $:$NHDT-Revision: 1.9 $
+--	Copyright (c) 1989 by Jean-Christophe Collet
+--	Copyright (c) 1991 by M. Stephenson
+-- NetHack may be freely redistributed.  See license for details.
+--
+--
+--	The "start" level for the quest.
+--
+--	Here you meet your (besieged) class leader, Orion,
+--	and receive your quest assignment.
+--
+des.level_init({ style = "solidfill", fg = "." });
+
+des.level_flags("mazelevel", "noteleport", "hardfloor", "arboreal")
+
+des.level_init({ style="mines", fg=".", bg=".", smoothed=true, joined=true, lit=1, walled=false })
+des.replace_terrain({ region={00,00, 76,19}, fromterrain=".", toterrain="T", chance=5 })
+--1234567890123456789012345678901234567890123456789012345678901234567890
+des.map({ halign = "left", valign = "center", map = [[
+                                       xx
+   ...................................  x
+  ..                                 ..  
+ ..  ...............F...............  .. 
+ .  ..             .F.             ..  . 
+ . ..  .............F.............  .. . 
+ . .  ..                         ..  . . 
+ . . ..  .......................  .. ... 
+ . . .  ..                     ..  .     
+ ... . ..  .|..................... ......
+ FFF . .  ..S..................          
+ ... . ..  .|.................  .... ... 
+ . . .  ..                     ..  . . . 
+ . . ..  .......................  .. . . 
+ . .  ..                         ..  . . 
+ . ..  .............F.............  .. . 
+ .  ..             .F.             ..  . 
+ ..  ...............F...............  .. 
+  ..                                 ..  
+   ...................................  x
+                                       xx
+]] });
+-- Dungeon Description
+des.region(selection.area(00,00,40,20), "lit")
+-- Stairs
+des.stair("down", 10,10)
+-- Portal arrival point; just about anywhere on the right hand side of the map
+des.levregion({ region = {51,2,77,18}, region_islev = 1, type="branch" })
+-- Orion
+des.monster("Orion", 20, 10)
+-- The treasure of Orion
+des.object("chest", 20, 10)
+-- Guards for the audience chamber
+des.monster("hunter", 19, 09)
+des.monster("hunter", 20, 09)
+des.monster("hunter", 21, 09)
+des.monster("hunter", 19, 10)
+des.monster("hunter", 21, 10)
+des.monster("hunter", 19, 11)
+des.monster("hunter", 20, 11)
+des.monster("hunter", 21, 11)
+-- Non diggable walls
+des.non_diggable(selection.area(00,00,40,20))
+-- Traps
+des.trap("arrow",30,09)
+des.trap("arrow",30,10)
+des.trap("pit",40,09)
+des.trap("spiked pit")
+des.trap("bear")
+des.trap("bear")
+-- Monsters on siege duty.
+des.monster({ id = "minotaur", x=33, y=09, peaceful=0, asleep=1 })
+des.monster({ id = "forest centaur", x=19, y=03, peaceful=0 })
+des.monster({ id = "forest centaur", x=19, y=04, peaceful=0 })
+des.monster({ id = "forest centaur", x=19, y=05, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=03, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=04, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=05, peaceful=0 })
+des.monster({ id = "forest centaur", x=01, y=09, peaceful=0 })
+des.monster({ id = "forest centaur", x=02, y=09, peaceful=0 })
+des.monster({ id = "forest centaur", x=03, y=09, peaceful=0 })
+des.monster({ id = "forest centaur", x=01, y=11, peaceful=0 })
+des.monster({ id = "forest centaur", x=02, y=11, peaceful=0 })
+des.monster({ id = "forest centaur", x=03, y=11, peaceful=0 })
+des.monster({ id = "forest centaur", x=19, y=15, peaceful=0 })
+des.monster({ id = "forest centaur", x=19, y=16, peaceful=0 })
+des.monster({ id = "forest centaur", x=19, y=17, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=15, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=16, peaceful=0 })
+des.monster({ id = "forest centaur", x=21, y=17, peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "plains centaur", peaceful=0 })
+des.monster({ id = "scorpion", peaceful=0 })
+des.monster({ id = "scorpion", peaceful=0 })