[Quest API] Add Zone Support to Perl and Lua (#4662)

* [Quest API] Add Zone Support to Perl and Lua

* Final

zone/lua_parser.cpp

@@ -43,6 +43,7 @@
 #include "lua_spell.h"
 #include "lua_stat_bonuses.h"
 #include "lua_database.h"
+#include "lua_zone.h"
 
 const char *LuaEvents[_LargestEventID] = {
 	"event_say",
@@ -1320,7 +1321,8 @@ void LuaParser::MapFunctions(lua_State *L) {
 			lua_register_expedition_lock_messages(),
 			lua_register_buff(),
 			lua_register_exp_source(),
-			lua_register_database()
+			lua_register_database(),
+			lua_register_zone()
 		)];
 
 	} catch(std::exception &ex) {